// * writer : Slothere ( Item Transfer System v2.0)

// * date: 24.06.2008

// * version: 056b+



[defname slthritemtransfer]

// navigasyon aktif olsun mu?

sltnavigation 1

// transfer ücreti ( tane başına bu kadar alınacak )

sltgold 250



[plevel 1]

esyaaktar



[function esyaaktar]

src.sdialog d_charsecim

return 1



[dialog d_charsecim]

0,0

noclose



Page 0

resizepic 100 100 5120 250 200

resizepic 110 110 3000 230 180

dtext 170 110 0456 Transfer System

button 320 110 2714 2715 1 0 6



FOR 0 <eval (<account.chars>)-1>

dtext 180 <eval (<dlocal._for>*20)+150> 0456 <account.char.<dlocal._for>.name>

IF (<account.char.<dlocal._for>.uid> != <src.uid>)

button 155 <eval (<dlocal._for>*20)+150> 2714 2715 1 0 <eval (<dlocal._for>)+1>

ENDIF

ENDFOR



[dialog d_charsecim button]

on= 1 5

src.ctag.atilacak <account.char.<eval (<dargn>)-1>.uid>

src.sdialog d_itemsecim

sys_normal <account.char.<eval (<dargn>)-1>.name> isimli karaktere aktarilacak itemi secin?



[dialog d_itemsecim]

0,0



Page 0

resizepic 100 100 5120 250 300

resizepic 110 110 3000 230 280



local.sayfa = 1

local.esya = 0

obj = <findid.i_bankbox.uid>

dtext 170 110 0456 Transfer System

button 320 110 3 4 1 0 99999

PAGE 1

FOR 0 <eval (<obj.rescount>)-1>

IF <dlocal.esya> > 9

local.esya 0

button 280 360 015e1 015e5 0 <eval <local.sayfa>+1> 1

local.sayfa +=1

PAGE <eval <local.sayfa>>

button 300 360 015e3 015e7 0 <eval <local.sayfa>-1> 1

ENDIF

IF ((<uid.<obj.uid>.findcont.<dlocal._for>>) && (<uid.<obj.uid>.findcont.<dlocal._for>.type> != t_gold))

local.esya +=1

dtext 180 <eval (<local.esya>*20)+130> 0456 <uid.<obj.uid>.findcont.<dlocal._for>.name>

button 160 <eval (<local.esya>*20)+130> 2714 2715 1 0 <eval (<dlocal._for>)+1>

ENDIF

ENDFOR



[Dialog d_itemsecim button]

on = 1 10000

ref1 = <findid.i_bankbox.uid>

//sayu <dargn>. Item (<uid.<ref1.uid>.findcont.<eval (<dargn>)-1>.uid>)

IF ((<uid.<ref1.uid>.findcont.<eval (<dargn>)-1>.type> == t_container) && (<def.sltnavigation> == 1))

obj = <uid.<ref1.uid>.findcont.<eval (<dargn>)-1>.uid>

src.sdialog d_navigation

ELSE

obj = <uid.<ref1>.findcont.<eval (<dargn>)-1>.uid>

src.sdialog d_aktar

ENDIF



[dialog d_navigation]

0,0



noclose



Page 0

resizepic 100 100 5120 250 300

resizepic 110 110 3000 230 280



local.sayfa = 1

local.esya = 0

dtext 170 110 0456 Navigation System

dtext 180 360 0456 Cantayi yolla

button 160 360 2714 2715 1 0 10001

button 320 110 3 4 1 0 10000

PAGE 1

FOR 0 <eval (<obj.rescount>)-1>

IF <dlocal.esya> > 9

local.esya 0

button 280 360 2714 2715 0 <eval <local.sayfa>+1> 1

local.sayfa +=1

PAGE <eval <local.sayfa>>

button 300 360 015e3 015e7 0 <eval <local.sayfa>-1> 1

ENDIF

IF ((<uid.<obj>.findcont.<dlocal._for>>) && (<uid.<obj>.findcont.<dlocal._for>.type> != t_gold))

local.esya +=1

dtext 180 <eval (<local.esya>*20)+130> 0456 <uid.<obj>.findcont.<dlocal._for>.name>

button 160 <eval (<local.esya>*20)+130> 2714 2715 1 0 <eval (<dlocal._for>)+1>

ENDIF

ENDFOR



[dialog d_navigation button]

on  = 1 1000

ref1 = <obj>

obj = <uid.<ref1>.findcont.<eval (<dargn>)-1>.uid>

src.sdialog d_aktar



on = 10001

obj = <obj>

src.sdialog d_aktar



[Dialog d_aktar]

0,0



Page 0

resizepic 100 100 5120 400 200

resizepic 110 110 3000 380 180



resizepic 390 190 3000 90 90

// 2x serisi için.

// tilepic 405 210 <serv.itemdef.<obj.id>.id>

// 5x serisi için

tilepichue 405 210 <serv.itemdef.<obj.id>.id> <dobj.color>

dtext 245 110 0456 Transfer System

dhtmlgump 160 140 300 35 0 0 <def.bfont_red><obj.amount> <def.bfont_black>tane <def.bfont_red><obj.name> <def.bfont_black>isimli esyanizi <def.bfont_red><uid.<ctag0.atilacak>.name> <def.bfont_black>isimli chariniza transfer etmek istiyor musunuz?

button 160 190 4006 4007 1 0 1

dtext 200 190 0456 Evet

button 160 210 4006 4006 1 0 2

dtext 200 210 0456 Hayir

dhtmlgump 160 240 300 20 0 0 * Toplam transfer ucreti: <eval (<obj.amount>*<def.sltgold>)>gp



[Dialog d_aktar button]

on = 1

IF !(<src.restest <eval (<obj.amount>*<def.sltgold>)> i_gold>)

src.sys_error yaninizda <eval (<obj.amount>*<def.sltgold>)> altininiz bulunmuyor..

return 1

ENDIF

obj.cont <uid.<ctag0.atilacak>.findlayer.29.uid>

src.consume <eval (<obj.amount>*<eval <def.sltgold>>)> i_gold

src.sys_normal <obj.name> esyasini <uid.<ctag0.atilacak>.name> isimli karakterinize basariyla aktardiniz..

src.update

src.ctag.atilacak =



[EOF]

Değerlendirmeler

0

Total votes: 0