sa beyler elimde burdan aldıgım bir acik arttırma scp'ti var biraz topladım ben ama su para olayını yapamadım parayı cekmıyor neden olabilir baya ugrasmama ragmen anlamıs degilim bir göz atarmsınız yardımcı olurmsunuz
[itemdef i_acikarttirma] id i_grave_stone name acik arttirma on=@create color 49 on=@dclick if (<var.acikarttirmabasla>= 1 ) sdialog d_acikarttirma return 1 else src.sysmessage @45,,1 Acik arttirma su an icin baslamamis. endif return 1 [dialog d_acikarttirma] 50,50 nomove resizepic 0 0 3600 550 300 dtext 150 20 045 <serv.name> Acik Arttirma Menusu dtext 40 60 1153 Ihaleye sunulan esya: <var.ihaleesyasi> dtext 40 80 1153 En yuksek teklif: <eval <var.enyuksek>> dtext 40 100 1153 En yuksek teklifi yapan: <var.enyuksekyapan> dtextentry 50 152 90 20 38 1 <eval <var.enyuksek> +50000> dtext 40 120 045 Bitis Fiyati: <eval <var.bitisfiyati>> button 150 150 4005 4006 1 0 1 dtext 190 150 045 Teklif Yap dtext 200 250 38 Klasik Pvp [dialog d_acikarttirma button] on=0 src.sysmessage @38,,1 Acik arttirmaya katilmaktan vazgectiniz. return 1 on=1 if !(<isnum <argtxt[1]>>) src.sysmessage @38,,1 Hata: Sadece rakam kullanabilirsiniz. elseif (<eval <argtxt[1]>> < 1) src.sysmessage @38,,1 Hata: Hatali bir rakam girdiniz. elseif (<eval <argtxt[1]>> < <eval <var.enyuksek>+50000> ) src.sysmessage @38,,1 Hata: En yuksek tekliften 50k daha fazla teklif etmelisiniz elseif (<src.gold> < <dargtxt[1]>) src.sysmessage Bankanizda <dargtxt[1]> altin bulunmuyor. else var.enyuksekyapan <src.name> var.enyuksek <eval <argtxt[1]>> var.enyuksekyapanuid <src.uid> serv.allclients sysmessage @045,,1 <serv.name> Acik Arttirma Duyuru: serv.allclients sysmessage @0bb2,,1 <var.enyuksekyapan> , <var.ihaleesyasi> icin <eval <var.enyuksek>> teklifi yapti. f_ihale_bittimi <eval <argtxt[1]>> endif endif [function f_ihale_bittimi] if (<eval <args>> >= <eval <var.bitisfiyati>> src.sysmessage @045,,1 Acik arttirmayi kazandiniz. f_ihalebitti serv.allclients sysmessage @045,,1 <serv.name> Acik arttirma Duyuru: serv.allclients sysmessage @0bb2,,1 <var.enyuksekyapan> acik arttirmayi kazandi.. endif [function iihale] if (<account.plevel> < 6) src.sysmessage @38,,1 HATA: Sadece admin ve ownerlar kullanabilir. else sdialog d_ihaleayar endif endif [dialog d_ihaleayar] 50,50 nomove resizepic 0 0 3600 550 300 dtext 150 20 1152 Acik Arttirma Ayar menusu dtext 40 50 1152 binegin idsi: dtextentry 120 50 90 20 49 1 c_m_nightmare dtext 40 70 1152 binegin ismi: dtextentry 120 70 90 20 49 2 Nightmare dtext 40 90 1152 baslangic fiyati: dtextentry 150 90 150 20 49 3 2500000 dtext 40 110 1152 bitis fiyati: dtextentry 150 110 150 20 49 4 7000000 button 100 210 2473 2474 1 0 1 dtext 150 250 045 SLencer Tatafindan Ayarlanir ! dtext 140 213 1153 Ihaleyi baslat! [dialog d_ihaleayar button] on=1 var.binek <argtxt[1]> var.ihaleesyasi <argtxt[2]> var.enyuksek <argtxt[3]> var.bitisfiyati <argtxt[4]> acikal <var.bitisfiyati> var.acikarttirmabasla 1 serv.allclients sysmessage @045,,1 <serv.name> Acik arttirma Duyuru: serv.allclients sysmessage @0bb2,,1 Acik arttirma baslamistir!! - Satilan binek: (<var.ihaleesyasi>) Baslangic fiyati <eval <var.enyuksek>>tir. return 1 [function f_ihalebitti] serv.newitem i_deed_ihalebinek new.tag.binekid <var.binek> new.cont <var.enyuksekyapanuid> var.acikarttirmabasla 0 var.enyuksekyapan var.enyuksekuid var.enyuksek [ITEMDEF i_deed_ihalebinek] DEFNAME=i_deed_ihalebinek NAME=Binek Deed ID=i_deed WEIGHT=5.0 TYPE=t_script On=@Create color 0901 attr 04 on=@Dclick if !(<topobj.uid> = <src.uid>) src.sysmessage @38,,1 Hata : Bunu kullanabilmeniz icin cantanizda olmali. return 1 else src.newnpc <tag.binekid> link <src.act.uid> link.oskin <link.color> link.newitem i_memory link.act.attr 04 link.act.more1 04 link.act.more2 <serv.time> link.act.morep <link.p> link.act.color memory_ipet link.act.timer -1 link.act.link <src.uid> link.act.cont <link.uid> link.flags <link.flags>&statf_pet link.update link.anim 5 link.bark 3 remove return 1 endif on=@click message @07a1,,1 <serv.name> message @44,,1 Acik Arttirma Binegi return 1 [FUNCTION acikal] IF (<gold> < <ARGN1>) RETURN 1 ENDIF LOCAL.AMOUNT=<ARGN1> WHILE (<LOCAL.AMOUNT>) IF (0<FINDLAYER.21.FINDID.i_gold>) LOCAL.GOLD=<FINDLAYER.21.FINDID.i_gold.amount> IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0) FINDLAYER.21.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT> LOCAL.AMOUNT=0 ELSE FINDLAYER.21.FINDID.i_gold.remove LOCAL.AMOUNT -= <LOCAL.GOLD> ENDIF ELIF (0<FINDLAYER.29.FINDID.i_gold>) LOCAL.GOLD=<FINDLAYER.29.FINDID.i_gold.amount> IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0) FINDLAYER.29.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT> LOCAL.AMOUNT=0 ELSE FINDLAYER.29.FINDID.i_gold.remove LOCAL.AMOUNT -= <LOCAL.GOLD> ENDIF ENDIF ENDWHILE UPDATE