[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

if <ARGTXT[0]> >= (<db.row.0.step>+<db.row.0.currentbid>) 

	IF (<SRC.BANKBALANCE> >= <eval <ARGTXT[0]> >) //if <src.restest <ARGTXT[0]> i_gold>

		if 0<db.row.0.highestbidder>

			ref1=<db.row.0.highestbidder>

			serv.newitem i_check_brnx

			new.more1=<db.row.0.currentbid>

			new.more2 <ref1.uid>

			new.cont=<uid.(<db.row.0.highestbidder>).findlayer.29.uid>

			try uid.<db.row.0.highestbidder>.hata  <src.name>  <eval(<ARGTXT[0]>)> kadar teklif yapıldı   : <eval (<db.row.0.amount>)> <uid.<db.row.0.uid>.name>. Eger esyayi hala istiyorsaniz, daha yuksek bir teklifte bulunmalisiniz. Depositonuz bankaniza geri iade edilmistir.. 

		endif

		DB.EXECUTE "UPDATE <tag.auction_table> SET currentbid='<ARGTXT[0]>', highestbidder='<src.uid>' WHERE uid='<db.row.0.uid>'"

		SRC.GOLD -= <eval <ARGTXT[0]> >

		src.hata // yaptığın teklif miktarı bla bla kadar yapıldı üstü olursa bigiendirilsiniz.. falan fialn

		DIALOG d_auction_item_details

		return 1

	else

		src.hata  teklif yapcak kadar paran yok

		dialog d_auction_item_details

		return 1

	endif

else

	src.hata En dusuk <eval (<db.row.0.step>+<db.row.0.currentbid>)> bla bla teklif fazla yapmalısınız

	dialog d_auction_item_details

	return 1

endif

return 1

on=5

src.ctag.auctionid=

src.ctag.dialogindex=0

DIALOG d_auction_item_list

return 1