AluminiumOxide
Aka Ansirent
- 867
- Posts
- 11
- Years
- India
- Seen Dec 7, 2015
Anyone ?????? please help me please !! Epic the post your write i didn't understand correctly (Apologise for some junk of problem solution i ask )
#dynamic 0x800000
#org @start
lock
faceplayer
msgbox @ask
callstd 0x5
compare LASTRESULT 0x1
if 0x1 call @yes
msgbox @gotnot
callstd 0x6
release
end
#org @yes
msgbox @got
callstd 0x6
release
end
#org @ask
= Do you have a Pokémon?
#org @gotnot
= A pity you don't have one!
#org @got
= It's nice to have a Pokémon!
Rhytham, if youwant to know what he meant by Level Script and setmaptile command, refer to dieagoisawesome's MEGA HUGE XSE scripting tutorial in the Tutorials forum.
#dynamic 0x840000
#org @start
setvar 0x4050 0x1
msgbox @hey
callstd 0x6
applymovement 0x3 @walk
waitmovement 0x0
msgbox @nopoke
callstd 0x6
applymovement 0x3 @wait
waitmovement 0x0
msgbox @want
callstd 0x5
compare LASTRESULT 0x0
if 0x1 gosub @why
msgbox @knew
callstd 0x6
fanfare 0x13E
givepokemon 0x11B 0x5 0x0 0x0 0x0 0x0
msgbox @receive
callstd 0x6
waitfanfare
msgbox @travel
callstd 0x5
compare LASTRESULT 0x0
if 0x1 gosub @why2
msgbox @thanks
callstd 0x6
closeonkeypress
applymovement 0x3 @walkaway
waitmovement 0x0
release
end
#org @why
msgbox @aww
callstd 0x6
msgbox @want
callstd 0x5
compare LASTRESULT 0x0
if 0x1 goto @why
return
end
#org @why2
msgbox @aww2
callstd 0x6
msgbox @travel
callstd 0x5
compare LASTRESULT 0x0
if 0x1 goto @why2
return
end
#org @walk
#raw 0x61
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0xFE
#org @wait
#raw 0x62
#raw 0xFE
#org @walkaway
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x11
#raw 0x11
#raw 0x60
#raw 0xFE
#org @hey
= HEY! WAIT UP!
#org @nopoke
= Oak: I see you don't have a pokèmon\nyet!\pI am in need of a trainer, willing\lto help me.\punfortunately, I can't find one...
#org @want
= Oak: Wait! You are 12, right?\nGood, good...\pSay, do you want a pokèmon?
#org @aww
= Oak: Oh.. You don't?\nYou sure?\pC'mon!
#org @knew
= Oak: Hah! I knew it!\pGood!, here you go!
#org @receive
= [player] Received a pokèmon!
#org @travel
= Oak: Ok. So, can you do me a favor?\pI'm in need of a special item at\nthe Pokèmon Mart. Can you get it\lfor me?
#org @aww2
= Oak: C'mon, don't spoil it.
#org @thanks
= Oak: Thank you very much!\pCome see me in my lab when you have\nthe item.
'-----------------------
#org 0x71A24C
#raw 02
#raw pointer 0x871A252
#raw 00
'-----------------------
#org 0x71A252
#raw word 0x4050
#raw word 0x0
#raw pointer 0x8840000
[B]#raw word 0x0[/B] => [I][B]It's not 0xFFFF, just 0x0[/B][/I]
'-----------------------
#org 0x840000
msgbox 0x88400E9 '"HEY! WAIT UP!"
callstd 0x6
applymovement 0x3 0x88400C4
waitmovement 0x0
msgbox 0x88400F8 '"Oak: I see you don't have a pokèmon..."
callstd 0x6
applymovement 0x3 0x88400D2
waitmovement 0x0
msgbox 0x8840178 '"Oak: Wait! You are 12, right?\nGood..."
callstd 0x5
compare LASTRESULT 0x0
if 0x1 call 0x8840088
msgbox 0x88401EC '"Oak: Hah! I knew it!\pGood!, here y..."
callstd 0x6
fanfare 0x13E
givepokemon 0x11B 0x5 0x0 0x0 0x0 0x0
msgbox 0x8840217 '"[player] Received a pokèmon!"
callstd 0x6
waitfanfare
msgbox 0x8840235 '"Oak: Ok. So, can you do me a favor?..."
callstd 0x5
compare LASTRESULT 0x0
if 0x1 call 0x88400A6
msgbox 0x88402C4 '"Oak: Thank you very much!\pCome see..."
callstd 0x6
closeonkeypress
applymovement 0x3 0x88400D5
waitmovement 0x0
setvar 0x4050 0x1
release
end
'-----------------------
#org 0x840088
msgbox 0x88401C3 '"Oak: Oh.. You don't?\nYou sure?\pC'..."
callstd 0x6
msgbox 0x8840178 '"Oak: Wait! You are 12, right?\nGood..."
callstd 0x5
compare LASTRESULT 0x0
if 0x1 goto 0x8840088
return
'-----------------------
#org 0x8400A6
msgbox 0x88402A7 '"Oak: C'mon, don't spoil it."
callstd 0x6
msgbox 0x8840235 '"Oak: Ok. So, can you do me a favor?..."
callstd 0x5
compare LASTRESULT 0x0
if 0x1 goto 0x88400A6
return
'-----------
' Movements
'-----------
#org 0x8400C4
#raw 61 'Show
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 12 'Step Left (Normal)
#raw 12 'Step Left (Normal)
#raw 12 'Step Left (Normal)
#raw 12 'Step Left (Normal)
#raw FE 'End of Movements
#org 0x8400D2
#raw 62 'Exclamation Mark (!)
#raw FE 'End of Movements
#org 0x8400D5
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 10 'Step Down (Normal)
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 13 'Step Right (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 60 'Hide
#raw FE 'End of Movements
'---------
' Strings
'---------
#org 0x8400E9
= HEY! WAIT UP!
#org 0x8400F8
= Oak: I see you don't have a pokèmon\nyet!\pI am in need of a trainer, willing\lto help me.\punfortunately, I can't find one...
#org 0x840178
= Oak: Wait! You are 12, right?\nGood, good...\pSay, do you want a pokèmon?
#org 0x8401EC
= Oak: Hah! I knew it!\pGood!, here you go!
#org 0x840217
= [player] Received a pokèmon!
#org 0x840235
= Oak: Ok. So, can you do me a favor?\pI'm in need of a special item at\nthe Pokèmon Mart. Can you get it\lfor me?
#org 0x8402C4
= Oak: Thank you very much!\pCome see me in my lab when you have\nthe item.
#org 0x8401C3
= Oak: Oh.. You don't?\nYou sure?\pC'mon!
#org 0x8402A7
= Oak: C'mon, don't spoil it.
sethealingplace must be set in a level-script, not at joy's script.
'---------------
#dynamic 0x800000
#org @start
showmoney 0x00 0x00 0x00
msgbox @question 0x5
compare LASTRESULT 0x1
if 0x1 goto @PC
if 0x0 goto @back
end
#org @question
= Would you like to use the PC?\nIt costs \hB7850.
#org @back
hidemoney 0x00 0x00 '--- moved it before applymovement
applymovement 0xFF @moveback
waitmovement 0x0
end
#org @PC
checkmoney 0x352 0x00 '--- removed the compare LASTRESULT, as its not needed.
if 0x4 goto @continue
msgbox @notenough 0x6 '-- changed to 0x6 as it might bug -> "0x2 = lock + faceplayer + 0x6"
goto @back
end
#org @continue
paymoney 0x352 0x00
hidemoney 0x00 0x00
end '-- added end
#org @notenough
= You don't have enough money...
#org @moveback
#raw 0xC
#raw 0xFE
'---------------
#org @main
lockall
checkflag 0x841
if 0x1 goto @noservices
setvar 0x8004 0x1B
special 0x17D
setvar 0x8004 0x0
special 0xD6
sound 0x4
msgbox @msgbooted MSG_SIGN '"[darknavyblue_fr][player][black_fr..."
compare 0x4001 0xFC
if 0x0 goto @moneycheck
goto @PC
'---------------
#org @noservices
msgbox @msgnoservicez MSG_NORMAL '"The usual PC services are\nnot ava..."
releaseall
end
'---------------
#org @moneycheck
showmoney 0x0 0x0 0x0
msgbox @msgpay MSG_YESNO '"Pay [$]30 to access this service?"
closeonkeypress
compare LASTRESULT 0x1
if 0x1 goto @yespay
hidemoney 0x0 0x0
goto @exit
'---------------
#org @PC
setvar 0x4001 0xFC
goto 0x81A6998
'---------------
#org @yespay
checkmoney 0x1E 0x0
compare LASTRESULT 0x1
if 0x4 call @payed
msgbox @msgnotenough MSG_NORMAL '"[lightgreen_fr]Error[black_fr]: Ac..."
hidemoney 0x0 0x0
goto @exit
'---------------
#org @exit
setvar 0x8004 0x0
sound 0x3
special 0xD7
special 0x190
releaseall
end
'---------------
#org 0x1A6998
preparemsg 0x81A508A '"Which PC should be accessed?"
waitmsg
special 0x106
waitstate
goto 0x81A69A8
'---------------
#org @payed
hidemoney 0x0 0x0
paymoney 0x1E 0x0
showmoney 0x0 0x0 0x0
msgbox @msgpayed MSG_SIGN '"[darknavyblue_fr][player][black_fr..."
goto @PC
'---------------
#org 0x1A69A8
copyvar 0x8000 LASTRESULT
compare 0x8000 0x0
if 0x1 goto 0x81A6A05
compare 0x8000 0x1
if 0x1 goto 0x81A69F0
compare 0x8000 0x2
if 0x1 goto 0x81A6A7A
compare 0x8000 0x3
if 0x1 goto 0x81A6A56
compare 0x8000 0x4
if 0x1 goto 0x81A6A46
compare 0x8000 0x7F
if 0x1 goto 0x81A6A46
end
'---------------
#org 0x1A6A05
sound 0x2
checkflag 0x834
if 0x0 call 0x81A6A34
checkflag 0x834
if 0x1 call 0x81A6A3D
msgbox 0x81A50BE MSG_KEEPOPEN '"Pokémon Storage System opened."
special 0x3C
waitstate
setvar 0x8004 0x1B
special 0x17D
goto 0x81A6998
'---------------
#org 0x1A69F0
sound 0x2
msgbox 0x81A50DD MSG_KEEPOPEN '"Accessed [player]'s PC."
special 0xFA
waitstate
goto 0x81A6998
'---------------
#org 0x1A6A7A
checkflag 0x829
if 0x0 goto 0x81A6A46
sound 0x2
msgbox 0x81A5BC6 MSG_KEEPOPEN '"Accessed Prof. Oak's PC[.]\pAccess..."
msgbox 0x81A5C03 MSG_YESNO '"Would you like to have your\nPokéd..."
compare LASTRESULT 0x0
if 0x1 goto 0x81A6AB2
setflag 0x2FF
call 0x81A73E0
clearflag 0x2FF
goto 0x81A6AB2
'---------------
#org 0x1A6A56
checkflag 0x82C
if 0x0 goto 0x81A6A46
sound 0x2
setvar 0x8004 0x1F
special 0x17E
special 0x17D
special 0x107
waitstate
special 0x17F
goto 0x81A69A8
'---------------
#org 0x1A6A34
msgbox 0x81A50A7 MSG_KEEPOPEN '"Accessed Someone's PC."
return
'---------------
#org 0x1A6A3D
msgbox 0x81A50EF MSG_KEEPOPEN '"Accessed Bill's PC."
return
'---------------
#org 0x1A6AB2
msgbox 0x81A5C2E MSG_KEEPOPEN '"Closed link to Prof. Oak's PC."
goto 0x81A6998
'---------------
#org 0x1A73E0
waitmsg
yesnobox 0x14 0x8
return
'---------
' Strings
'---------
#org @msgbooted
= [darknavyblue_fr][player][black_fr] booted up the PC.
#org @msgnoservices
= The usual PC services are\nnot available[.]
#org @msgpay
= Pay [$]30 to access this service?
#org @msgnotenough
= [lightgreen_fr]Error[black_fr]: Action aborted.\nReason: Not enough money.
#org 0x1A508A
= Which PC should be accessed?
#org @msgpayed
= [darknavyblue_fr][player][black_fr] payed [$]30.
#org 0x1A50BE
= Pokémon Storage System opened.
#org 0x1A50DD
= Accessed [player]'s PC.
#org 0x1A5BC6
= Accessed Prof. Oak's PC[.]\pAccessed the Pokédex Rating\nSystem[.]
#org 0x1A5C03
= Would you like to have your\nPokédex rated?
#org 0x1A50A7
= Accessed Someone's PC.
#org 0x1A50EF
= Accessed Bill's PC.
#org 0x1A5C2E
= Closed link to Prof. Oak's PC.
setvar 0x4001 0x0
release
end
hey i have made this script whts the problem with it?
'---------------
#org 0x8012B6
lock
faceplayer
checkflag 0x828
if 0x1 goto 0x88013CF
msgbox 0x88013E7 MSG_YESNO '"DAD: So [player] are you going to ..."
compare LASTRESULT 0x1
if 0x1 goto 0x88012E1
compare LASTRESULT 0x0
if 0x1 goto 0x880133A
end
'---------------
#org 0x8013CF
msgbox 0x88015A7 MSG_NORMAL '"DAD: [player],best of luck my son...."
applymovement 0x1 0x8801613
waitmovement 0x0
setflag 0x8C6
release
end
'---------------
#org 0x8012E1
applymovement 0x2 0x8801609
waitmovement 0x0
hidesprite 0x3
setflag 0x8C5
applymovement 0x2 0x880160E
waitmovement 0x0
givepokemon 0x11 0xA 0xD2 0x0 0x0 0x0
fanfare 0x13E
msgbox 0x88014C3 MSG_KEEPOPEN '"[player] received a Pidgeotto\nfro..."
waitfanfare
setflag 0x828
msgbox 0x88014E8 MSG_YESNO '"Would you like to give your\nPokém..."
compare LASTRESULT 0x1
if 0x1 goto 0x88013A5
compare LASTRESULT 0x0
if 0x1 goto 0x88013BD
end
'---------------
#org 0x80133A
msgbox 0x8801419 MSG_NORMAL '"DAD: Oh,I see you must be kidding\..."
applymovement 0x1 0x8801606
waitmovement 0x0
applymovement 0x2 0x8801609
waitmovement 0x0
hidesprite 0x3
setflag 0x8C5
applymovement 0x2 0x880160E
waitmovement 0x0
givepokemon 0x11 0xA 0xD2 0x0 0x0 0x0
fanfare 0x13E
msgbox 0x88014C3 MSG_KEEPOPEN '"[player] received a Pidgeotto\nfro..."
waitfanfare
setflag 0x828
msgbox 0x88014E8 MSG_YESNO '"Would you like to give your\nPokém..."
compare LASTRESULT 0x1
if 0x1 goto 0x88013A5
compare LASTRESULT 0x0
if 0x1 goto 0x88013BD
end
'---------------
#org 0x8013A5
setvar 0x8004 0x0
call 0x88013B5
goto 0x88013C4
'---------------
#org 0x8013BD
closeonkeypress
goto 0x88013C4
'---------------
#org 0x8013B5
fadescreen 0x1
special 0x9E
waitstate
return
'---------------
#org 0x8013C4
msgbox 0x880151D MSG_NORMAL '"DAD: Please take care of this\ndoc..."
release
end
'---------
' Strings
'---------
#org 0x8013E7
= DAD: So [player] are you going to start\nyour journey?
#org 0x8015A7
= DAD: [player],best of luck my son.I have\nto go to Saffron city due to some\limportant work.Bye now!
#org 0x8014C3
= [player] received a Pidgeotto\nfrom DAD.\l
#org 0x8014E8
= Would you like to give your\nPokémon a nickname?
#org 0x801419
= DAD: Oh,I see you must be kidding\nam I right? This is the best day\lin any trainer's life.SO,I have\lsomething for you.Cubone can you\lbring the pokeball?\lpresent there?\l
#org 0x80151D
= DAD: Please take care of this\ndocile Pidgeotto I have caught and\ltrained it till the time it was a\lPidgey just for this auspicious\lday.
'-----------
' Movements
'-----------
#org 0x801613
#raw 0x12 'Step Left (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x60 'Hide
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0xFE 'End of Movements
#org 0x801609
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0xFE 'End of Movements
#org 0x80160E
#raw 0x12 'Step Left (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0xFE 'End of Movements
#org 0x801606
#raw 0x62 'Exclamation Mark (!)
#raw 0xFE 'End of Movements