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

 



Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.