Sorun şu: .transfer yazdığınızda no reason diyo bide açılınca diğer charı seçiyorsunuz bişey olmuyo
//Bu script ile herhangi bir char ile oyundayken, diger charlariniz bankasindaki
//ve backpackindeki esyalari kendi bankanıza aktarıyorsunuz.
//Aslında itemleri bir menu şeklinde getirtip istediginizi de secmek mümkün
//ancak cok uzun bir script oldugu için üşendim.
//Kendiniz yazmak isterseniz dialogda texte
//1- <SRC.ACCOUNT.CHAR.X.FINDLAYER(X).FINDCOUNT(X).NAME> şeklinde yazarsanız
//bir sorun cıkmaz. Ancak yüzlerce item olacagından cok uzun sürecektir.
[PLEVEL 1]
transfer
transfer_bb
transfer_0
transfer_1
transfer_2
transfer_3
transfer_4
[FUNCTION transfer]
IF (<SRC.ACCOUNT.CHARS>==1)
SRC.SYSMESSAGE You have no reason to use this function
ELIF (<SRC.ACCOUNT.CHARS>==2)
dialog d_transfer_2
ELIF (<SRC.ACCOUNT.CHARS>==3)
dialog d_transfer_3
ELIF (<SRC.ACCOUNT.CHARS>==4)
dialog d_transfer_4
ELIF (<SRC.ACCOUNT.CHARS>==5)
dialog d_transfer_5
ENDIF
RETURN 1
[FUNCTION transfer_bb]
IF (<ARGS>)==0)
SRC.transfer_0
ELIF (<ARGS>==1)
SRC.transfer_1
ELIF (<ARGS>==2)
SRC.transfer_2
ELIF (<ARGS>==3)
SRC.transfer_3
ELIF (<ARGS>==4)
SRC.transfer_4
ENDIF
[FUNCTION transfer_0]
IF (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ENDIF
SRC.ACT=<SRC.ACCOUNT.CHAR.0.FINDLAYER(29).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.ACT=<SRC.ACCOUNT.CHAR.0.FINDLAYER(21).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
transfer_bb 0
RETURN 1
[FUNCTION transfer_1]
IF (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ENDIF
SRC.ACT=<SRC.ACCOUNT.CHAR.1.FINDLAYER(29).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.ACT=<SRC.ACCOUNT.CHAR.1.FINDLAYER(21).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.transfer_bb 1
RETURN 1
[FUNCTION transfer_2]
IF (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ENDIF
SRC.ACT=<SRC.ACCOUNT.CHAR.2.FINDLAYER(29).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.ACT=<SRC.ACCOUNT.CHAR.2.FINDLAYER(21).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.transfer_bb 2
RETURN 1
[FUNCTION transfer_3]
IF (0<SRC.ACCOUNT.CHAR.3.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.3.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ENDIF
SRC.ACT=<SRC.ACCOUNT.CHAR.3.FINDLAYER(29).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.ACT=<SRC.ACCOUNT.CHAR.3.FINDLAYER(21).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.transfer_bb 3
RETURN 1
[FUNCTION transfer_4]
IF (0<SRC.ACCOUNT.CHAR.4.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.4.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ENDIF
SRC.ACT=<SRC.ACCOUNT.CHAR.4.FINDLAYER(29).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.ACT=<SRC.ACCOUNT.CHAR.4.FINDLAYER(21).FINDCONT(0).UID>
SRC.ACT.CONT=<SRC.FINDLAYER(29).UID>
SRC.transfer_bb 4
RETURN 1
[DIALOG d_transfer_5]
0,0
page 0
nomove
nodispose
resizepic 250 100 2600 260 340
button 330 360 5200 5201 1 0 0
text 320 140 0 0
text 345 180 0 1
button 325 180 208 209 1 0 1
text 345 200 0 2
button 325 200 208 209 1 0 2
text 345 220 0 3
button 325 220 208 209 1 0 3
text 345 240 0 4
button 325 240 208 209 1 0 4
text 345 260 0 5
button 325 260 208 209 1 0 5
text 345 300 0 6
[DIALOG d_transfer_5 TEXT]
Tranfer System
<SRC.ACCOUNT.CHAR.0.NAME>
<SRC.ACCOUNT.CHAR.1.NAME>
<SRC.ACCOUNT.CHAR.2.NAME>
<SRC.ACCOUNT.CHAR.3.NAME>
<SRC.ACCOUNT.CHAR.4.NAME>
by Ceday
[DIALOG d_transfer_5 BUTTON]
ONBUTTON=0
RETURN 1
ONBUTTON=1
IF (<SRC.ACCOUNT.CHAR.0.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 0
RETURN 1
ENDIF
ONBUTTON=2
IF (<SRC.ACCOUNT.CHAR.1.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 1
RETURN 1
ENDIF
ONBUTTON=3
IF (<SRC.ACCOUNT.CHAR.2.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 2
RETURN 1
ENDIF
ONBUTTON=4
IF (<SRC.ACCOUNT.CHAR.3.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.3.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.3.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 3
RETURN 1
ENDIF
ONBUTTON=5
IF (<SRC.ACCOUNT.CHAR.4.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.4.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.4.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 4
RETURN 1
ENDIF
[DIALOG d_transfer_4]
0,0
page 0
nomove
nodispose
resizepic 250 100 2600 260 340
button 330 360 5200 5201 1 0 0
text 320 140 0 0
text 345 180 0 1
button 325 180 208 209 1 0 1
text 345 200 0 2
button 325 200 208 209 1 0 2
text 345 220 0 3
button 325 220 208 209 1 0 3
text 345 240 0 4
button 325 240 208 209 1 0 4
text 345 260 0 5
button 325 260 208 209 1 0 5
text 345 300 0 6
[DIALOG d_transfer_4 TEXT]
Tranfer System
<SRC.ACCOUNT.CHAR.0.NAME>
<SRC.ACCOUNT.CHAR.1.NAME>
<SRC.ACCOUNT.CHAR.2.NAME>
<SRC.ACCOUNT.CHAR.3.NAME>
Empty
by Ceday
[DIALOG d_transfer_4 BUTTON]
ONBUTTON=0
RETURN 1
ONBUTTON=1
IF (<SRC.ACCOUNT.CHAR.0.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 0
RETURN 1
ENDIF
ONBUTTON=2
IF (<SRC.ACCOUNT.CHAR.1.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 1
RETURN 1
ENDIF
ONBUTTON=3
IF (<SRC.ACCOUNT.CHAR.2.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 2
RETURN 1
ENDIF
ONBUTTON=4
IF (<SRC.ACCOUNT.CHAR.3.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.3.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.3.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 3
RETURN 1
ENDIF
ONBUTTON=5
SRC.SYSMESSAGE You have no char in this spot!
RETURN 1
[DIALOG d_transfer_3]
0,0
page 0
nomove
nodispose
resizepic 250 100 2600 260 340
button 330 360 5200 5201 1 0 0
text 320 140 0 0
text 345 180 0 1
button 325 180 208 209 1 0 1
text 345 200 0 2
button 325 200 208 209 1 0 2
text 345 220 0 3
button 325 220 208 209 1 0 3
text 345 240 0 4
button 325 240 208 209 1 0 4
text 345 260 0 5
button 325 260 208 209 1 0 5
text 345 300 0 6
[DIALOG d_transfer_3 TEXT]
Tranfer System
<SRC.ACCOUNT.CHAR.0.NAME>
<SRC.ACCOUNT.CHAR.1.NAME>
<SRC.ACCOUNT.CHAR.2.NAME>
Empty
Empty
by Ceday
[DIALOG d_transfer_3 BUTTON]
ONBUTTON=0
RETURN 1
ONBUTTON=1
IF (<SRC.ACCOUNT.CHAR.0.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 0
RETURN 1
ENDIF
ONBUTTON=2
IF (<SRC.ACCOUNT.CHAR.1.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 1
RETURN 1
ENDIF
ONBUTTON=3
IF (<SRC.ACCOUNT.CHAR.2.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.2.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 2
RETURN 1
ENDIF
ONBUTTON=4
SRC.SYSMESSAGE You have no char in this spot!
RETURN 1
ONBUTTON=5
SRC.SYSMESSAGE You have no char in this spot!
RETURN 1
[DIALOG d_transfer_2]
0,0
page 0
nomove
nodispose
resizepic 250 100 2600 260 340
button 330 360 5200 5201 1 0 0
text 320 140 0 0
text 345 180 0 1
button 325 180 208 209 1 0 1
text 345 200 0 2
button 325 200 208 209 1 0 2
text 345 220 0 3
button 325 220 208 209 1 0 3
text 345 240 0 4
button 325 240 208 209 1 0 4
text 345 260 0 5
button 325 260 208 209 1 0 5
text 345 300 0 6
[DIALOG d_transfer_2 TEXT]
Tranfer System
<SRC.ACCOUNT.CHAR.0.NAME>
<SRC.ACCOUNT.CHAR.1.NAME>
Empty
Empty
Empty
by Ceday
[DIALOG d_transfer_2 BUTTON]
ONBUTTON=0
RETURN 1
ONBUTTON=1
IF (<SRC.ACCOUNT.CHAR.0.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.0.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 0
RETURN 1
ENDIF
ONBUTTON=2
IF (<SRC.ACCOUNT.CHAR.1.UID>==<SRC.UID>)
SRC.SYSMESSAGE You are already using this char!
RETURN 1
ENDIF
IF (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(29).FINDCONT(0).UID>==0) && (0<SRC.ACCOUNT.CHAR.1.FINDLAYER(21).FINDCONT(0).UID>==0)
RETURN 1
ELSE
SRC.transfer_bb 1
RETURN 1
ENDIF
ONBUTTON=3
SRC.SYSMESSAGE You have no char in this spot!
RETURN 1
ONBUTTON=4
SRC.SYSMESSAGE You have no char in this spot!
RETURN 1
ONBUTTON=5
SRC.SYSMESSAGE You have no char in this spot!
RETURN 1
[EOF]