[Archive] Script help thread

[Megiddo-san]

Oh. Sorry if I wasn't supposed to use it. I am using 1635 - Pokemon Fire Red (U)(Squirrels).

 

[litium]

Lol, no worries i think that you were using another. Give me a few seconds and i'll make oine for you. You want it to not let you pass until you get a starter right?

 

[Megiddo-san]

Yes, that is correct and I also want to get rid of the oak script. See Top Secret Version thread.

 

[litium]

Here, try this one:

Spoiler:

#org $block
lock
faceplayer
checkflag 0x828
if B_True goto $have
message $cantlet
boxset 6
$cantlet 1 = I'm afraid i can't let you pass.
applymovement 0xFF $move1
pausemove 0
$move1 1 ; #Binary 0x10 0x10 0xFE
release
end

$have
message $youvegot
boxset 6
$youvegot 1 = Oh, i see you've got your Pokemon.\nI'll let you pass now
applymovement 0x00 $move2
pausemove 0
$move2 1 ; #Binary 0x12 0x12 0xFE
release
end

That should do the trick ;D
ONE THING, see the bold command? applymovement 0x00 -> 0xnºof person in Adavced Map, thats really importatn if you want the person to move. FF means to move the player.
Shot of it:

 

[Megiddo-san]

I must be writing it wrong cuz that didn't work.

 

[litium]

I used it and worked. Are you compiling it in PokeScript?

 

[Hedgehogger]

Any offset re-pointing help with this one? Only half of it works, up to where you would get the "Defeated" message.

Spoiler:

#org 0x800891
checkflag 0x1500
if 0x1 jump 0x800920
applymovement 0x5 0x800A18
pausemove 0
#Raw 0x5C
trainerbattle 0x0 0x1 0x0 0x8008AE 0x8008F0
setflag 0x1500
release
end

#org 0x8008AE
= Ungh[.]rr[.]\nHe sent me to test you, \v\h01[.]

#org 0x8008F0
= Urr[.]kwaa! You passed!

#org 0x800920
message 0x800927
boxset 0x6
release
end

#org 0x800927
= Ugh[.]My head hurts. Feels like I\npassed out.\pWho are you?

#org 0x800A18
#Raw 0x5
#Raw 0x3
#Raw 0xFE

 

[Megiddo-san]

Yes. The only things I can think of are that I am not picking the right offset in the burn list and a message at the beginning saying file not found or user cancel.

 

[litium]

Theres the problem. It's pokescriptfault

 

[/Circa]

#org $startscript
lock
checkflag 0x1500
if b_true goto $defeated
applymovement 0x5 $personcomes
pause 0x10
#raw 0x5C
trainerbattle trainerbattle 0x0 0x1 0x0 $beginbattle $finishbattle
setflag 0x1500
release
end

#org $beginbattle
= Ungh[.]rr[.]\nHe sent me to test you, \v\h01[.]

#org $finishbattle
= Urr[.]kwaa! You passed!

#org $defeated
lock
faceplayer
boxset 0x6
= Ugh[.]My head hurts. Feels like I\npassed out.\pWho are you?

#org $personcomes
#raw 0x5
#raw 0x3
#raw 0xFE

Try that script, i'll fix it when I get back home.

Fixed

 

[Megiddo-san]

The message at the beginning? How do I fix that?

 

[Satoshi Sugimori]

My earthquake script works almost great..!

But my only problem is my earthquake won't come..:(
I have put in the special 0x136...but it wont come..
help please

really need helpp with this
the script

Spoiler:

#org $plane
checkflag 0x361
applymovement 0xFF $gotoseat
pausemove 0
applymovement 0x4 $info
pausemove 0
message $giveinfo
$giveinfo 1 =Welcome on Brazoon Airlines!\nWe will do everything to\pmake your flight as comfortable\nas possible.\pWe will depart in\na few seconds.
boxset 6
applymovement 0xFF $look
pausemove 0
message $flying
$flying 1 =We are now in the air!
boxset 6
applymovement 0x4 $gosit
pausemove 0
applymovement 0xFF $lookaround
pausemove 0
special 0x136
pausemove 0
applymovement 0x1 $woah
applymovement 0x2 $woah
applymovement 0x3 $woah
applymovement 0x4 $woah
pausemove 0
message $going
$going 1 =Pilot: Oh nooo!...\nOur left engine has broken down!
boxset 6
pausemove 0x40
message $going2
$going2 1 =Oh...OH!\nThe right engine has broken down to!\pEveryone JUMP!!
boxset 6
warp 0x3 0x20 0
release
end

#org $gotoseat
$gotoseat 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x11 0x12 0x03 0xFE

#org $info
$info 1 ; #binary 0x10 0x02 0xFE

#org $look
$look 1 ; #binary 0x01 0x02 0x03 0x04 0xFE

#org $gosit
$gosit 1 ; #binary 0x11 0x03 0xFE

#org $lookaround
$lookaround 1 ; #binary 0x01 0x02 0x03 0x04 0x01 0x02 0x03 0x04 0x01 0x02 0x03 0x04 0xFE

#org $woah
$woah 1 ; #binary 0x62 0xFE

 

[litium]

Try this, not sure if it will work:

Spoiler:

#org $plane
checkflag 0x361
applymovement 0xFF $gotoseat
pausemove 0
applymovement 0x4 $info
pausemove 0
message $giveinfo
boxset 6
$giveinfo 1 = Welcome on Brazoon Airlines!\nWe will do everything to\pmake your flight as comfortable\nas possible.\pWe will depart in\na few seconds.
applymovement 0xFF $look
pausemove 0
message $flying
boxset 6
$flying 1 = We are now in the air!
applymovement 0x4 $gosit
pausemove 0
applymovement 0xFF $lookaround
pausemove 0
special 0x136
pausemove 0
applymovement 0x1 $woah
applymovement 0x2 $woah
applymovement 0x3 $woah
applymovement 0x4 $woah
pausemove 0
message $going
boxset 6
$going 1 = Pilot: Oh nooo!...\nOur left engine has broken down!
pausemove 0x40
message $going2
boxset 6
$going2 1 = Oh...OH!\nThe right engine has broken down to!\pEveryone JUMP!!
warp 0x3 0x20 0
release
end

#org $gotoseat
$gotoseat 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x11 0x12 0x03 0xFE

#org $info
$info 1 ; #binary 0x10 0x02 0xFE

#org $look
$look 1 ; #binary 0x01 0x02 0x03 0x04 0xFE

#org $gosit
$gosit 1 ; #binary 0x11 0x03 0xFE

#org $lookaround
$lookaround 1 ; #binary 0x01 0x02 0x03 0x04 0x01 0x02 0x03 0x04 0x01 0x02 0x03 0x04 0xFE

#org $woah
$woah 1 ; #binary 0x62 0xFE

 

[Satoshi Sugimori]

Try this, not sure if it will work:

Spoiler:

#org $plane
checkflag 0x361
applymovement 0xFF $gotoseat
pausemove 0
applymovement 0x4 $info
pausemove 0
message $giveinfo
boxset 6
$giveinfo 1 = Welcome on Brazoon Airlines!\nWe will do everything to\pmake your flight as comfortable\nas possible.\pWe will depart in\na few seconds.
applymovement 0xFF $look
pausemove 0
message $flying
boxset 6
$flying 1 = We are now in the air!
applymovement 0x4 $gosit
pausemove 0
applymovement 0xFF $lookaround
pausemove 0
special 0x136
pausemove 0
applymovement 0x1 $woah
applymovement 0x2 $woah
applymovement 0x3 $woah
applymovement 0x4 $woah
pausemove 0
message $going
boxset 6
$going 1 = Pilot: Oh nooo!...\nOur left engine has broken down!
pausemove 0x40
message $going2
boxset 6
$going2 1 = Oh...OH!\nThe right engine has broken down to!\pEveryone JUMP!!
warp 0x3 0x20 0
release
end

#org $gotoseat
$gotoseat 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x11 0x12 0x03 0xFE

#org $info
$info 1 ; #binary 0x10 0x02 0xFE

#org $look
$look 1 ; #binary 0x01 0x02 0x03 0x04 0xFE

#org $gosit
$gosit 1 ; #binary 0x11 0x03 0xFE

#org $lookaround
$lookaround 1 ; #binary 0x01 0x02 0x03 0x04 0x01 0x02 0x03 0x04 0x01 0x02 0x03 0x04 0xFE

#org $woah
$woah 1 ; #binary 0x62 0xFE

Thanks Ill try it..:)
*filling message*

 

[litium]

It wont. I created a script that was special 0x136 and did nothing. In wich part of FireRed theres an earthquake? Perhaps thats why you cant activate it?

 

[/Circa]

I'm having problems with these scripts:

#org $begin
lock
checkflag 0x200
if b_true goto $finished
applymovement 0x1 $walkingto
pausemove 0
message $beforegetting
boxset 0x6
givepokemon 0x19 0x5 0x0
message $gettingpoke
boxset 0x6
applymovement 0x1 $gotpoke
pausemove 0
setflag 0x200
release
end

#org $beforegetting
= Hi \v\h01!\pYou might need a Pokemon\nbefore going on your journey.

#org $gettingpoke
=\c\h01\h02You received a Pikachu!

#org $finished
release
end

#org $walkingto
#raw 0x09
#raw 0x09
#raw 0x09
#raw 0x0B
#raw 0x0B
#raw 0xFE

#org $gotpoke
#raw 0x0A
#raw 0x0A
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x03
#raw 0xFE

#org $startscript
lock
checkflag 0x201
if B_true goto $endscript
applymovement 0x5 $theif
pause 0x10
#raw 0x53 0x6 0x00
applymovement 0x6 $policemen
pause 0x50
message $policetalk
boxset 0x6
applymovement ox6 $goaway
pause 0x10
#raw 0x53 0x5 0x00
setflag 0x201
release
end

#org $policetalk
= Argh!\nWhy didn't you stop him?

#org $theif
#raw 0x0A
#raw 0x08
#raw 0x08
#raw 0x0A
#raw 0x0A
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0xFE

#org $policemen
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0x0A
#raw 0xFE

#org $goaway
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0x08
#raw 0xFE

#org $endscript
release
end

For both of them, what comes up is a list saying
FRESH WATER
EXIT

And then the game freezes when I choose either...

This is for FireRed.

 

[Kingdra]

When I was testing this script, the hero want not move:

Spoiler:

#org $start
checkflag 0x215
if B_True gosub $Done
checkflag 0x215
if B_False gosub $Move1
message $zegje
$zegje 1 = \c\h01\h04Come on, we have to go fast!\nTeam Aqua is already in our town.\pFollow me.
boxset 6
applymovement 0x6 $ga
pausemove 0
return
applymovement 0xFF $volg
pausemove 0
return
applymovement 0x3 $stappen
pausemove 0
return
applymovement 0x6 $tralalie
pausemove 0
return
applymovement 0x6 $soep
pausemove 0
return
applymovement 0xFF $noedel
pausemove 0
return
applymovement 0xFF $vijf
pausemove 0
return
warp 0x4 0x6 0x0
setflag 0x215
release
end

#org $Done
release
end

#org $Move1
applymovement 0x6 $Lala
pausemove 0
return

#org $Lala
$Lala 1 ; #Binary 0x62 0x13 0x13 0xFE

#org $ga
$ga 1 ; #Binary 0x11 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13
0x13 0x13 0x13 0xFE

#org $volg
$volg 1 ; #Binary 0x12 0x10 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13
0x13 0x13 0x13 0xFE

#org $stappen
$stappen 1 ; #Binary 0x11 0x11 0x12 0x03 0xFE

#org $tralalie
$tralalie 1 ; #Binary 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11
0xFE

#org $soep
$soep 1 ; #Binary 0x11 0x11 0x11 0x11 0x12 0x12 0x12 0x12 0x12 0x12 0x11 0x11 0x60 0xFE

#org $noedel
$noedel 1 ; #Binary 0x13 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11
0xFE

#org $vijf
$vijf 1 ; #Binary 0x11 0x11 0x11 0x11 0x12 0x12 0x12 0x12 0x12 0x12 0x11
0x11 0xFE

 

[Deokishisu]

When I was testing this script, the hero want not move:

Spoiler:

#org $start
checkflag 0x215
if B_True gosub $Done
checkflag 0x215
if B_False gosub $Move1
message $zegje
$zegje 1 = \c\h01\h04Come on, we have to go fast!\nTeam Aqua is already in our town.\pFollow me.
boxset 6
applymovement 0x6 $ga
pausemove 0
return
applymovement 0xFF $volg
pausemove 0
return
applymovement 0x3 $stappen
pausemove 0
return
applymovement 0x6 $tralalie
pausemove 0
return
applymovement 0x6 $soep
pausemove 0
return
applymovement 0xFF $noedel
pausemove 0
return
applymovement 0xFF $vijf
pausemove 0
return
warp 0x4 0x6 0x0
setflag 0x215
release
end

#org $Done
release
end

#org $Move1
applymovement 0x6 $Lala
pausemove 0
return

#org $Lala
$Lala 1 ; #Binary 0x62 0x13 0x13 0xFE

#org $ga
$ga 1 ; #Binary 0x11 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13
0x13 0x13 0x13 0xFE

#org $volg
$volg 1 ; #Binary 0x12 0x10 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13
0x13 0x13 0x13 0xFE

#org $stappen
$stappen 1 ; #Binary 0x11 0x11 0x12 0x03 0xFE

#org $tralalie
$tralalie 1 ; #Binary 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11
0xFE

#org $soep
$soep 1 ; #Binary 0x11 0x11 0x11 0x11 0x12 0x12 0x12 0x12 0x12 0x12 0x11 0x11 0x60 0xFE

#org $noedel
$noedel 1 ; #Binary 0x13 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11
0xFE

#org $vijf
$vijf 1 ; #Binary 0x11 0x11 0x11 0x11 0x12 0x12 0x12 0x12 0x12 0x12 0x11
0x11 0xFE

Why are there all those return commands in the middle of your script? Try this...

#org $start
checkflag 0x215
if B_True gosub $Done
checkflag 0x215
if B_False gosub $Move1
message $zegje
$zegje 1 = \c\h01\h04Come on, we have to go fast!\nTeam Aqua is already in our town.\pFollow me.
boxset 6
applymovement 0x6 $ga
pausemove 0
applymovement 0xFF $volg
pausemove 0
applymovement 0x3 $stappen
pausemove 0
applymovement 0x6 $tralalie
pausemove 0
applymovement 0x6 $soep
pausemove 0
applymovement 0xFF $noedel
pausemove 0
applymovement 0xFF $vijf
pausemove 0
warp 0x4 0x6 0x0
setflag 0x215
release 
end 

#org $Done
release 
end

#org $Move1
applymovement 0x6 $Lala
pausemove 0
return

#org $Lala
$Lala 1 ; #Binary 0x62 0x13 0x13 0xFE

#org $ga
$ga 1 ; #Binary 0x11 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 
0x13 0x13 0x13 0xFE

#org $volg
$volg 1 ; #Binary 0x12 0x10 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 
0x13 0x13 0x13 0xFE

#org $stappen
$stappen 1 ; #Binary 0x11 0x11 0x12 0x03 0xFE

#org $tralalie
$tralalie 1 ; #Binary 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 
0xFE

#org $soep
$soep 1 ; #Binary 0x11 0x11 0x11 0x11 0x12 0x12 0x12 0x12 0x12 0x12 0x11 0x11 0x60 0xFE

#org $noedel 
$noedel 1 ; #Binary 0x13 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 0x11 
0xFE

#org $vijf
$vijf 1 ; #Binary 0x11 0x11 0x11 0x11 0x12 0x12 0x12 0x12 0x12 0x12 0x11 
0x11 0xFE

Those return commands in your "$start" script won't work because they have nothing to return to. "$start" is the first script in that whole bunch. Because no other script is being directed to it with a "goto" or "call" command, "return" won't work because it has nothing to return to. I don't know if that was a good explanation, it's difficult to explain. Hope that helped.

 

[cooley]

Need some help. You see when you are getting a pokemon, and oak tells you to get it, you can leave without getting it, anyone know how I can stop this from happening?

#org $start
compare 0x4055 0x2
if 0x1 call $hey
release
end

#org $hey
showmsgstatic $yo
$yo 1 = OAK: Hey, Where are you going!
boxset 6
applymovement 0xFF $come
$come 1 ; 0x11 0xFE
pausemove 0
end

That's what I got so far...

 

[litium]

I dont get what are you trying to do...