[defname aktar]

maxaktarim 5



[chardef c_postaci]

id c_man

name #names_humanmale the Etheria Kargo



on=@create

npc brain_vendor

str 1000

itemnewbie i_robe

color 0880

itemnewbie i_staff_black



on=@gethit

return 1



on=@death

hits <str>

return 1



on=@dclick

if (<distance> > 3)

src.sys_error Yaklasmalisiniz...

return 1

endif

src.sdialog d_itemaktar

src.timerf 40,dialogclose d_itemaktar

return 1



[dialog d_itemaktar]

-70,0

resizepic 100 100 3500 580 310

resizepic 110 110 3000 560 290

resizepic 230 335 3000 305 25

dhtmlgump 250 120 350 20 0 0 <def.bfont_dred>Etheria Ultima Online Eşya Aktarma Menüsü

local.itemaktar 150

for 1 <ddef.maxaktarim>

resizepic 180 <eval <dlocal.itemaktar>> 3000 400 25

if (<src.tag0.aktarim<dlocal._for>>)

dhtmlgump 190 <eval <local.itemaktar>+5> 100 20 0 0 <def.bfont_dblue><uid.<src.tag.aktarim<dlocal._for>>.amount>

dhtmlgump 290 <eval <local.itemaktar>+5> 200 20 0 0 <def.bfont_dblue><uid.<src.tag0.aktarim<dlocal._for>>.name>

endif

dhtmlgump 250 <eval <local.itemaktar>+5> 50 20 0 0 <def.bfont_dgreen>adet

dhtmlgump 118 <eval <local.itemaktar>+5> 30 20 0 0 <def.bfont_dred>Ekle:

button 155 <eval <local.itemaktar>+6> 55 55 1 0 <dlocal._for>

local.itemaktar 150+<eval <dlocal._for>*30>

endfor

local.kaldir 150

for 1 <ddef.maxaktarim>

dhtmlgump 610 <eval <local.kaldir>+5> 100 20 0 0 <def.bfont_dred>Çıkart

button 590 <eval <local.kaldir>+6> 55 55 1 0 <eval <dlocal._for>+6>

local.kaldir 150+<eval <dlocal._for>*30>

endfor

dhtmlgump 310 370 350 20 0 0 <def.bfont_dblue>Listedeki eşyaları aktar

dhtmlgump 235 339 150 20 0 0 <def.bfont_red>Gönderilecek hesap no :

dhtmlgump 290 310 350 20 0 0 <def.bfont_dblue>* Hesap numaranız : <def.bfont_dgreen><src.uid>

button 290 370 55 55 1 0 6

dtextentry 380 339 110 20 0 1



[dialog d_itemaktar button]

on 1 5

src.targetf f_aktar <eval <argn>>



on 6



if strmatch(* *,'<argtxt[1]>')

src.sys_error Hesap numarasinda bosluk kullanamazsiniz.

sdialog d_itemaktar

return 1

endif



if (<argtxt[1]> == <src.uid>)

src.sys_Error Kendi kendine esya gönderemezsin.

sdialog d_itemaktar

return 1

endif



if !(<uid.<argtxt[1]>.isplayer>)

src.sys_error Böyle bir hesap numarasi bulunamamaktadir.

sdialog d_itemaktar

return 1

endif





src.ctag.aktarimuid <argtxt[1]>

src.sdialog d_itemaktar_sorgula



on 7 11

src.tag0.aktarim<eval <argn>-6>

src.sdialog d_itemaktar



[dialog d_itemaktar_sorgula]

0,0

nomove

noclose

resizepic 12 10 5054 290 150

dtext 20 20 0 <uid.<src.ctag.aktarimuid>.name> isimli kisiye belirttiginiz esyalari gondermek istiyormusunuz.

dtext 20 130 025 Aktarma ucreti 5000 gp dir.



dtext 55 91 0 Evet

dtext 155 91 0 Hayir



button 20 89 4020 4022 1 0 1

button 120 89 4017 4019 1 0 0



[dialog d_itemaktar_sorgula button]

on 0

src.sys_Error Esya aktarmakdan vazgectiniz.

src.ctag.aktarimuid 

return 1



on 1

for 1 5

obj = <src.tag.aktarim<dlocal._for>>

if !<isempty <src.tag.aktarim<dlocal._for>>>

if (<obj.topobj.uid> == <src.uid>)

obj.cont <uid.<src.ctag.aktarimuid>.findlayer.29>

endif

endif

endfor



src.tag.aktarim1

src.tag.aktarim2

src.tag.aktarim3

src.tag.aktarim4

src.tag.aktarim5

try uid.<src.ctag.aktarimuid>.sys_normal <src.name> isimli kisi kargoyla size esya gondermistir. Esyalar bankanizdadir.

serv.writefile C:\sphere\logs\aktarim.txt <f_get_time> : <src.name> isimli kisi, <uid.<src.ctag.aktarimuid>.name> isimli kisiye item aktardi.

src.ctag.aktarimuid









[function f_aktar]

for 1 5

if (<src.tag0.aktarim<dlocal._for>> == <argo.uid>)

src.sys_error Bu esyayi zaten aktarim listesine koymussunuz.

return 1

endif

endfor



if (<argo.baseid> == i_gold)

src.sys_error Paralarinizi bankere havale yazip aktariniz.

return 1

endif



if (<argo.isitem>) && (<argo.topobj.uid> == <src.uid>)

src.tag.aktarim<args> <argo.uid>

src.dialog d_itemaktar

return 1

else

src.sys_error Sadece çantanizdaki ve bankanizdaki esyalari seçebilirsiniz.

return 1

endif