[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