Binary ROM HackingNeed a helping hand or just want to talk about binary ROM hacks? Get comments and answers to any ROM Hacking-related problems, questions or thoughts you have here.
Ok, it works (for the most part) now, but afterwards, I don't have an Eevee.-
Code:
#Dynamic 0x26D429
#ORG @begin
Lock
FacePlayer
checkflag 0x200
If B_TRUE goto @done
message @starter
boxset 6
message @Ok
BoxSet 5
compare LASTRESULT 1
If B_false goto @comeon
message @good
BoxSet 6
#define givepokemon 133 5 0 0x0 0x0 0x0
setflag 0x200
setflag 0x828
message @gotit
boxset 6
message @namepok
boxset 5
compare LASTRESULT 1
If B_false goto @done
message @done
Release
End
message @comeon
BoxSet 0x6
goto @Ok
message @done
BoxSet 6
Release
End
#ORG @starter
= Prof. Maple: Ah my dear boy, I've\nbeen looking for \pyou. I have a favor to ask of you.\nI want you to have a pokemon,\pand make a complete list of\nPokemon for me using a poke dex.\pI will give you a\nPokemon for a partner.
#ORG @Ok
= How about it?
#ORG @good
= Wonderful!
#ORG @comeon
= Oh?\p Don't you want to follow in your\nfather's footsteps?
#ORG @done
= Go out and make us all proud
#ORG @gotit
=You received the Eevee!
#ORG @namepok
= Would you like to give a name to\n your new Eevee?
__________________
Want to help on my Fire Red hack: "Pokemon Glass Version"? PM me with:
Hah!
I did the same thing!
Well, you don't have the nicknaming thing...and stuff...let's see....
If you want the Eevee, you have to put it's dex number into hex. I had to learn that the hard way...xD Anyway, XSE has a hex/decimal calculator. Type a number into it. Click on Hex and it will convert it. :)
You need #org before the parts you go to after checkflag and lastresult.
Hmmmm...
You don't need setflag 200, just use 828....
Also, add this part after the give pokemon...
Code:
fanfare 0x13E (The got a Pokemon music)
message @gotit (points to You got the Eevee!)
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
Then, make the LASTRESULT "if B_true" gosub @name
And add this after the script:
Code:
#org @name
call 0x1A74EB
return
__________________
Everything ends,
and that's always sad.
But everything begins again, too,
and that's always happy.
#org @1
= Hello \v\h01!\nI'd like you to do something for me.\pWill you do it?
#org @2
= That's okay.\pMaybe I can find someone\nelse to do it.
#org @3
= Sorry.\nThat was my last pokemon!
Not sure if dark Lakitu answered this but I just noticed that you need 0x0 0x0 0x0 after the givepokemon.
Quote:
Originally Posted by toolTRA
Ok, it works (for the most part) now, but afterwards, I don't have an Eevee.-
Code:
#Dynamic 0x26D429
#ORG @begin
Lock
FacePlayer
checkflag 0x200
If B_TRUE goto @done
message @starter
boxset 6
message @Ok
BoxSet 5
compare LASTRESULT 1
If B_false goto @comeon
message @good
BoxSet 6
#define givepokemon 133 5 0 0x0 0x0 0x0
setflag 0x200
setflag 0x828
message @gotit
boxset 6
message @namepok
boxset 5
compare LASTRESULT 1
If B_false goto @done
message @done
Release
End
message @comeon
BoxSet 0x6
goto @Ok
message @done
BoxSet 6
Release
End
#ORG @starter
= Prof. Maple: Ah my dear boy, I've\nbeen looking for \pyou. I have a favor to ask of you.\nI want you to have a pokemon,\pand make a complete list of\nPokemon for me using a poke dex.\pI will give you a\nPokemon for a partner.
#ORG @Ok
= How about it?
#ORG @good
= Wonderful!
#ORG @comeon
= Oh?\p Don't you want to follow in your\nfather's footsteps?
#ORG @done
= Go out and make us all proud
#ORG @gotit
=You received the Eevee!
#ORG @namepok
= Would you like to give a name to\n your new Eevee?
Hi guys this is my first post so please try to help me
i got this script for pokescript straight from Irish Witch's tutorial
#org $StartChik
checkflag 0x800
if B_True goto $NoBall
message $Chick
$Chick 1 = Chikorita!\lThe Fire Bird.\pTake the Chikorita?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0
jingle
message $GotChick
$GotChick 1 = You Recieved a Chikorita
boxset 6
message $NameChick
$NameChick 1 = Would You like to give Chikorita a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x203
goto $GiveDex
#org $StartShrew
checkflag 0x800
if B_True goto $NoBall
message $Shrew
$Shrew 1 = SandShrew!\lDesert Mole.\pTake the Sandshrew?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 27 5 0
jingle
message $GotChick
$GotShrew 1 = You Recieved a Sandshrew
boxset 6
message $NameShrew
$NameShrew 1 = Would You like to give Sandshrew a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x204
goto $GiveDex
#org $StartWing
checkflag 0x800
if B_True goto $NoBall
message $Chick
$Wing 1 = Wingull!\lThe Ocean Bird.\pTake the Wingull?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0
jingle
message $GotGull
$GotGull 1 = You Recieved a Wingull
boxset 6
message $NameGull
$NameGull 1 = Would You like to give Wingull a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x205
goto $GiveDex
#org $GiveDex
setflag 0x800
setflag 0x801
message $Pokedex
$Pokedex 1 = I hope You like your new pokemon.\pWhile your on your journeys I have\la favour to ask you.\pProf OAK and I are trying to make an\lindex of everything pokemon.\pTake this pokedex with you and it\lwill log all the pokemon you see and catch.\pIt would greatly help our studies!
boxset 6
jingle
message $GotDex
$Gotdex 1 = You got the Pokedex!
boxset 6
end
#org $PutBack
message $PutBack
$PutBack 1 = You put the pokeball back.
boxset 6
end
#org $NoBall
message $Lastball
$Lastball 1 = You already have your pokemon.\nDont be so greedy!
boxset 6
I'm sure I've done everything Irish Witch said to do, after compiling i Gave the right offset and ID to each pokeball
When I play it on VBA:
The first pokeball offers a chikorita. If you enter yes, you get a chikorita and pokedex, but when you're done, the game thinks you're in the pokemon safari zone. If you enter no the game freezes.
The Second pokeball offers a sandshrew. When you click yes, it says you you have recieved Chikorita. If you rename it, it becomes ???????? instead. In the end, you leave with no pokemon.
The third pokeball offers chikorita and says gives a wingull, with the same result as the second pokeball.
It seems to be that this particular script is messed up or I am doing something wrong. Please look through the script for errors and help me fix them- thanks in advance
#org @1
= I can't take care of\nthis rowdy TOTODILE.\pWould you like it?
#org @2
= Thank you so much!
#org @pointer
= You got a Totodile!
#org @name
call 0x1A74EB
return
#org @care
= Take good care of him!
Where does it say it's wrong? Cos on XSE, it'll tell you the line that has the problem...
Uh...replace the givepokemon line with:
givepokemon 0x9D 0x5 0x0 0x0 0x0.
Remember, the second one is it's level. You do NOT want to get a lv0 Totodile as a starter.
Then, it's items.
After that, it's just space it needs to take up.
__________________
Everything ends,
and that's always sad.
But everything begins again, too,
and that's always happy.
Hi guys this is my first post so please try to help me
i got this script for pokescript straight from Irish Witch's tutorial
#org $StartChik
checkflag 0x800
if B_True goto $NoBall
message $Chick
$Chick 1 = Chikorita!\lThe Fire Bird.\pTake the Chikorita?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0 nop
nop fanfare 0x13a
message $GotChick
$GotChick 1 = You Recieved a Chikorita boxset 4
waitfanfare
#raw 68 setflag 0x800
message $NameChick
$NameChick 1 = Would You like to give Chikorita a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x203
goto $GiveDex end
#org $StartShrew
checkflag 0x800
if B_True goto $NoBall
message $Shrew
$Shrew 1 = SandShrew!\lDesert Mole.\pTake the Sandshrew?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 27 5 0 nop
nop
fanfare 0x13a
message $GotChick
$GotShrew 1 = You Recieved a Sandshrew
boxset 4 waitfanfare
#raw 68 setflag 0x800
message $NameShrew
$NameShrew 1 = Would You like to give Sandshrew a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x204
goto $GiveDex end
#org $StartWing
checkflag 0x800
if B_True goto $NoBall
message $Wing
$Wing 1 = Wingull!\lThe Ocean Bird.\pTake the Wingull?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0 nop
nop
fanfare 0x13a
message $GotGull
$GotGull 1 = You Recieved a Wingull boxset 4
waitfanfare
#raw 68 setflag 0x800
message $NameGull
$NameGull 1 = Would You like to give Wingull a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x205
goto $GiveDex end
#org $GiveDex
setflag 0x801
message $Pokedex
$Pokedex 1 = I hope You like your new pokemon.\pWhile your on your journeys I have\la favour to ask you.\pProf OAK and I are trying to make an\lindex of everything pokemon.\pTake this pokedex with you and it\lwill log all the pokemon you see and catch.\pIt would greatly help our studies!
boxset 6 fanfare 0x13a
message $GotDex
$Gotdex 1 = You got the Pokedex!
boxset 4 waitfanfare
#raw 68
end
#org $PutBack
message $PutBack
$PutBack 1 = You put the pokeball back.
boxset 6
end
#org $NoBall
message $Lastball
$Lastball 1 = You already have your pokemon.\nDont be so greedy!
boxset 6
I'm sure I've done everything Irish Witch said to do, after compiling i Gave the right offset and ID to each pokeball
When I play it on VBA:
The first pokeball offers a chikorita. If you enter yes, you get a chikorita and pokedex, but when you're done, the game thinks you're in the pokemon safari zone. If you enter no the game freezes.
The Second pokeball offers a sandshrew. When you click yes, it says you you have recieved Chikorita. If you rename it, it becomes ???????? instead. In the end, you leave with no pokemon.
The third pokeball offers chikorita and says gives a wingull, with the same result as the second pokeball.
It seems to be that this particular script is messed up or I am doing something wrong. Please look through the script for errors and help me fix them- thanks in advance
There might be some more errors, I'm not sure its a late. Try it for now.
dshayabusa, thanks a bunch, the script is quite a bit better, but still not completely working.
After I go to each pokeball, it offers the correct pokemon. However, if I refuse and enter no, the Game freezes. If I enter yes, everything works fine and I get my pokemon. However, I seem to enter "Safari Mode" with a box in the left hand corner telling me how much time and balls I have left, with an option to "Retire" in the start menu. Also, after i pick up the pokeball it refuses to disappear. If i click a pokeball again after I get my pokemon, It says the right text "You already have your pokemon, don't be greedy" then freezes in a purple screen
Here's the script, if any one can see any further errors in it
#org $StartChik
checkflag 0x800
if B_True goto $NoBall
message $Chick
$Chick 1 = Chikorita!\lThe Fire Bird.\pTake the Chikorita?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotChick 1 = You Recieved a Chikorita
boxset 4
waitfanfare
#raw 68
setflag 0x800
message $NameChick
$NameChick 1 = Would You like to give Chikorita a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x203
goto $GiveDex
end
#org $StartShrew
checkflag 0x800
if B_True goto $NoBall
message $Shrew
$Shrew 1 = SandShrew!\lDesert Mole.\pTake the Sandshrew?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 27 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotShrew 1 = You Recieved a Sandshrew
boxset 4
waitfanfare
#raw 68
setflag 0x800
message $NameShrew
$NameShrew 1 = Would You like to give Sandshrew a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x204
goto $GiveDex
end
#org $StartWing
checkflag 0x800
if B_True goto $NoBall
message $Wing
$Wing 1 = Wingull!\lThe Ocean Bird.\pTake the Wingull?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0
nop
nop
fanfare 0x13a
message $GotGull
$GotGull 1 = You Recieved a Wingull
boxset 4
waitfanfare
#raw 68
setflag 0x800
message $NameGull
$NameGull 1 = Would You like to give Wingull a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
Namepokemon
setflag 0x205
goto $GiveDex
end
#org $GiveDex
setflag 0x801
message $Pokedex
$Pokedex 1 = I hope You like your new pokemon.\pWhile your on your journeys I have\la favour to ask you.\pProf OAK and I are trying to make an\lindex of everything pokemon.\pTake this pokedex with you and it\lwill log all the pokemon you see and catch.\pIt would greatly help our studies!
boxset 6
fanfare 0x13a
message $GotDex
$Gotdex 1 = You got the Pokedex!
boxset 4
waitfanfare
#raw 68
end
#org $PutBack
message $PutBack
$PutBack 1 = You put the pokeball back.
boxset 6
end
#org $NoBall
message $Lastball
$Lastball 1 = You already have your pokemon.\nDont be so greedy!
boxset 6
Now just in case I'm doing anything wrong I'll tell you what I did and please check if there are any mistakes
1. compiled script, burned it to rom etc
2. under Advance Map I put in the offset values. For each pokeball I gave the numver next to the start value- there was $startchick, $startshrew, and $startwing
3. For the vanishing sprite I gave each pokeball an ID number; 203, 204, 205
That's the script and what I did, so if you see any errors in here, please let me know.
- Thanks in advance
'-----------------------
#org 0x328427
checkflag 0x200
if 0x1 goto 0x832847A
msgbox 0x83284EA '"Get out of my way!"
callstd 0x6
applymovement MOVE_PLAYER 0x83284DD
applymovement 0x3 0x83284E1
waitmovement 0x0
setflag 0x200
trainerbattle 0x1 0x35 0x1 0x83284FE 0x8328532 0x832865C
end
'-----------------------
#org 0x32847A
end
'-----------------------
#org 0x32865C
msgbox 0x8328759 '"Grr..."
fadescreen 0x1
hidesprite 0x3
setflag 0x201
fadescreen 0x0
msgbox 0x832860F '"What's this? \n He must have droppe..."
end
'-----------
' Movements
'-----------
#org 0x3284DD
#raw 53 'Jump in Place (Facing Up)
#raw 0 'Face Down
#raw FE 'End of Movements
#org 0x3284E1
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw FE 'End of Movements
'---------
' Strings
'---------
#org 0x3284EA
= Get out of my way!
#org 0x3284FE
= Move it! \nHuh? \pYou want to stop me? \pBuahaha!!
#org 0x328532
= Argh! You beat me!
#org 0x328759
= Grr...
#org 0x32860F
= What's this? \n He must have dropped it... \pI better take it to April.
It never shows "Grr" and, when it disappears, he reappears where he was!
__________________
Everything ends,
and that's always sad.
But everything begins again, too,
and that's always happy.
'-----------------------
#org 0x328427
checkflag 0x200
if 0x1 goto 0x832847A
msgbox 0x83284EA '"Get out of my way!"
callstd 0x6
applymovement MOVE_PLAYER 0x83284DD
applymovement 0x3 0x83284E1
waitmovement 0x0
setflag 0x200
trainerbattle 0x1 0x35 0x1 0x83284FE 0x8328532 0x832865C
end
'-----------------------
#org 0x32847A
end
'-----------------------
#org 0x32865C
msgbox 0x8328759 '"Grr..."
fadescreen 0x1
hidesprite 0x3
setflag 0x201
fadescreen 0x0
msgbox 0x832860F '"What's this? \n He must have droppe..."
end
'-----------
' Movements
'-----------
#org 0x3284DD
#raw 53 'Jump in Place (Facing Up)
#raw 0 'Face Down
#raw FE 'End of Movements
#org 0x3284E1
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw FE 'End of Movements
'---------
' Strings
'---------
#org 0x3284EA
= Get out of my way!
#org 0x3284FE
= Move it! \nHuh? \pYou want to stop me? \pBuahaha!!
#org 0x328532
= Argh! You beat me!
#org 0x328759
= Grr...
#org 0x32860F
= What's this? \n He must have dropped it... \pI better take it to April.
It never shows "Grr" and, when it disappears, he reappears where he was!
Make sure you have set his Person ID (just under Script Offset in Advancemap) to 0201.
dshayabusa, thanks a bunch, the script is quite a bit better, but still not completely working.
After I go to each pokeball, it offers the correct pokemon. However, if I refuse and enter no, the Game freezes. If I enter yes, everything works fine and I get my pokemon. However, I seem to enter "Safari Mode" with a box in the left hand corner telling me how much time and balls I have left, with an option to "Retire" in the start menu. Also, after i pick up the pokeball it refuses to disappear. If i click a pokeball again after I get my pokemon, It says the right text "You already have your pokemon, don't be greedy" then freezes in a purple screen
Here's the script, if any one can see any further errors in it
#org $StartChik
checkflag 0x800
if B_True goto $NoBall
message $Chick
$Chick 1 = Chikorita!\lThe Fire Bird.\pTake the Chikorita?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotChick 1 = You Recieved a Chikorita
boxset 4
waitfanfare
#raw 68
setflag 0x800 setflag 0x203
message $NameChick
$NameChick 1 = Would You like to give Chikorita a name?
boxset 5
compare LASTRESULT 0x1
if 0x0 goto $GiveDex compare LASTRESULT 0x1
if 0x1 goto $name
end
#org $name
namepokemon
goto $GiveDex
end
#org $StartShrew
checkflag 0x800
if B_True goto $NoBall
message $Shrew
$Shrew 1 = SandShrew!\lDesert Mole.\pTake the Sandshrew?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 27 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotShrew 1 = You Recieved a Sandshrew
boxset 4
waitfanfare
#raw 68
setflag 0x800
setflag 0x204
message $NameShrew
$NameShrew 1 = Would You like to give Sandshrew a name?
boxset 5
compare LASTRESULT 0x1
if 0x0 goto $GiveDex compare LASTRESULT 0x1
if 0x1 goto $name
end
#org $StartWing
checkflag 0x800
if B_True goto $NoBall
message $Wing
$Wing 1 = Wingull!\lThe Ocean Bird.\pTake the Wingull?
boxset 5
compare LASTRESULT 1
if B_False goto $PutBack
givepokemon 152 5 0
nop
nop
fanfare 0x13a
message $GotGull
$GotGull 1 = You Recieved a Wingull
boxset 4
waitfanfare
#raw 68
setflag 0x800
setflag 0x205
message $NameGull
$NameGull 1 = Would You like to give Wingull a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
compare LASTRESULT 0x1
if 0x0 goto $GiveDex compare LASTRESULT 0x1
if 0x1 goto $name
end
#org $GiveDex
setflag 0x801
message $Pokedex
$Pokedex 1 = I hope You like your new pokemon.\pWhile your on your journeys I have\la favour to ask you.\pProf OAK and I are trying to make an\lindex of everything pokemon.\pTake this pokedex with you and it\lwill log all the pokemon you see and catch.\pIt would greatly help our studies!
boxset 6
fanfare 0x13a
message $GotDex
$Gotdex 1 = You got the Pokedex!
boxset 4
waitfanfare
#raw 68
end
#org $PutBack
message $PutBack
$PutBack 1 = You put the pokeball back.
boxset 6
end
#org $NoBall
message $Lastball
$Lastball 1 = You already have your pokemon.\nDont be so greedy!
boxset 6 end
Now just in case I'm doing anything wrong I'll tell you what I did and please check if there are any mistakes
1. compiled script, burned it to rom etc
2. under Advance Map I put in the offset values. For each pokeball I gave the numver next to the start value- there was $startchick, $startshrew, and $startwing
3. For the vanishing sprite I gave each pokeball an ID number; 203, 204, 205
That's the script and what I did, so if you see any errors in here, please let me know.
- Thanks in advance
*grumble* hates first pokemon scripts *grumble*
All right, lets see...
That should be all your problems fixed except the safari one. I have no idea what could be causing that. Try using a different script editor like PKSV or XSE.
Quote:
Originally Posted by dark lakitu
I have a problem myself....
Code:
'-----------------------
#org 0x328427
checkflag 0x200
if 0x1 goto 0x832847A
msgbox 0x83284EA '"Get out of my way!"
callstd 0x6
applymovement MOVE_PLAYER 0x83284DD
applymovement 0x3 0x83284E1
waitmovement 0x0
setflag 0x200
trainerbattle 0x1 0x35 0x1 0x83284FE 0x8328532 0x832865C
end
'-----------------------
#org 0x32847A
end
'-----------------------
#org 0x32865C
msgbox 0x8328759 '"Grr..."
fadescreen 0x1
hidesprite 0x3
setflag 0x201
fadescreen 0x0
msgbox 0x832860F '"What's this? \n He must have droppe..."
end
'-----------
' Movements
'-----------
#org 0x3284DD
#raw 53 'Jump in Place (Facing Up)
#raw 0 'Face Down
#raw FE 'End of Movements
#org 0x3284E1
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw 11 'Step Up (Normal)
#raw FE 'End of Movements
'---------
' Strings
'---------
#org 0x3284EA
= Get out of my way!
#org 0x3284FE
= Move it! \nHuh? \pYou want to stop me? \pBuahaha!!
#org 0x328532
= Argh! You beat me!
#org 0x328759
= Grr...
#org 0x32860F
= What's this? \n He must have dropped it... \pI better take it to April.
It never shows "Grr" and, when it disappears, he reappears where he was!
Uhhh... I think his problem is that he doesn't have boxset 6 after the message.
this is so close to working...
I figured out how to change the Safari thing, I had to change the corresponding checkflag and setflags to 0X828
However, if I refuse the offer to take a pokemon, the game freezes
If I answer yes to "Would you like to give a name to your pokemon", the nickname does not work and I do not get a Pokedex.
Also I'm not sure how to make the vanishing scripts work, I put 203, 204, 205 For the Person ID of each corresponding pokeball
Script
#org $StartChik
checkflag 0x828
if B_True goto $NoBall
message $Chick
$Chick 1 = Charmander!\lThe Lizard Pokemon\pTake the Charmander?
boxset 5
compare LASTRESULT 0x0
if B_False goto $PutBack
givepokemon 4 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotChick 1 = You Recieved a Charmander!
boxset 4
waitfanfare
#raw 68
setflag 0x828
setflag 0x203
message $NameChick
$NameChick 1 = Would You like to give \pCharmander a name?
boxset 5
compare LASTRESULT 0x1
if 0x0 goto $GiveDex
compare LASTRESULT 0x1
if 0x1 goto $name
end
#org $name
call 0x1A74EB
goto $GiveDex
end
#org $StartShrew
checkflag 0x828
if B_True goto $NoBall
message $Shrew
$Shrew 1 = Squirtle!\lThe Turtle Pokemon\pTake the Squirtle?
boxset 5
compare LASTRESULT 0x0
if B_False goto $PutBack
givepokemon 7 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotShrew 1 = You Recieved a Squirtle!
boxset 4
waitfanfare
#raw 68
setflag 0x828
setflag 0x204
message $NameShrew
$NameShrew 1 = Would You like to give \pSquirtle a name?
boxset 5
compare LASTRESULT 0x1
if 0x0 goto $GiveDex
compare LASTRESULT 0x1
if 0x1 goto $name
end
#org $StartWing
checkflag 0x828
if B_True goto $NoBall
message $Wing
$Wing 1 = Bulbasaur!\lThe Seed Pokemon\pTake the Bulbasaur?
boxset 5
compare LASTRESULT 0x0
if B_False goto $PutBack
givepokemon 1 5 0
nop
nop
fanfare 0x13a
message $GotGull
$GotGull 1 = You Recieved a Bulbasaur!
boxset 4
waitfanfare
#raw 68
setflag 0x828
setflag 0x205
message $NameGull
$NameGull 1 = Would You like to give \pBulbasaur a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
compare LASTRESULT 0x1
if 0x0 goto $GiveDex
compare LASTRESULT 0x1
if 0x1 goto $name
end
#org $GiveDex
setflag 0x829
message $Pokedex
$Pokedex 1 = I hope You like your new pokemon!\pWhile your on your journeys I have\la favour to ask you.\pWe are trying to make an\lindex of everything pokemon.\pTake this pokedex with you and it\lwill log all the pokemon you see and catch.\pIt would greatly help our studies!
boxset 6
fanfare 0x13a
message $GotDex
$Gotdex 1 = You got the Pokedex!
boxset 4
waitfanfare
#raw 68
end
#org $PutBack
message $PutBack
$PutBack 1 = You put the pokeball back.
boxset 6
end
#org $NoBall
message $Lastball
$Lastball 1 = You already have your pokemon.\nDont be so greedy!
boxset 6
end
this is so close to working...
I figured out how to change the Safari thing, I had to change the corresponding checkflag and setflags to 0X828
However, if I refuse the offer to take a pokemon, the game freezes
If I answer yes to "Would you like to give a name to your pokemon", the nickname does not work and I do not get a Pokedex.
Also I'm not sure how to make the vanishing scripts work, I put 203, 204, 205 For the Person ID of each corresponding pokeball
Script
#org $StartChik
checkflag 0x828
if B_True goto $NoBall
message $Chick
$Chick 1 = Charmander!\lThe Lizard Pokemon\pTake the Charmander?
boxset 5
compare LASTRESULT 0x0 if 0x1 gosub $PutBack
givepokemon 4 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotChick 1 = You Recieved a Charmander!
boxset 4
waitfanfare
#raw 68
setflag 0x828
setflag 0x203
message $NameChick
$NameChick 1 = Would You like to give \pCharmander a name?
boxset 5
compare LASTRESULT 0x1 if 0x0 gosub $GiveDex
compare LASTRESULT 0x1 if 0x1 gosub $name
end
#org $name
call 0x1A74EB
goto $GiveDex
end
#org $StartShrew
checkflag 0x828
if B_True goto $NoBall
message $Shrew
$Shrew 1 = Squirtle!\lThe Turtle Pokemon\pTake the Squirtle?
boxset 5
compare LASTRESULT 0x0 if 0x1 gosub $PutBack
givepokemon 7 5 0
nop
nop
fanfare 0x13a
message $GotChick
$GotShrew 1 = You Recieved a Squirtle!
boxset 4
waitfanfare
#raw 68
setflag 0x828
setflag 0x204
message $NameShrew
$NameShrew 1 = Would You like to give \pSquirtle a name?
boxset 5
compare LASTRESULT 0x1 if 0x0 gosub $GiveDex
compare LASTRESULT 0x1 if 0x1 gosub $name
end
#org $StartWing
checkflag 0x828
if B_True goto $NoBall
message $Wing
$Wing 1 = Bulbasaur!\lThe Seed Pokemon\pTake the Bulbasaur?
boxset 5
compare LASTRESULT 0x0 if B_False gosub $PutBack
givepokemon 1 5 0
nop
nop
fanfare 0x13a
message $GotGull
$GotGull 1 = You Recieved a Bulbasaur!
boxset 4
waitfanfare
#raw 68
setflag 0x828
setflag 0x205
message $NameGull
$NameGull 1 = Would You like to give \pBulbasaur a name?
boxset 5
compare LASTRESULT 1
if b_False goto $GiveDex
compare LASTRESULT 0x1 if 0x0 gosub $GiveDex
compare LASTRESULT 0x1 if 0x1 gosub $name
end
#org $GiveDex
setflag 0x829
message $Pokedex
$Pokedex 1 = I hope You like your new pokemon!\pWhile your on your journeys I have\la favour to ask you.\pWe are trying to make an\lindex of everything pokemon.\pTake this pokedex with you and it\lwill log all the pokemon you see and catch.\pIt would greatly help our studies!
boxset 6
fanfare 0x13a
message $GotDex
$Gotdex 1 = You got the Pokedex!
boxset 4
waitfanfare
#raw 68
end
#org $PutBack
message $PutBack
$PutBack 1 = You put the pokeball back.
boxset 6
end
#org $NoBall
message $Lastball
$Lastball 1 = You already have your pokemon.\nDont be so greedy!
boxset 6
end
Ahh I see I thought you were hacking R/S. I used to have a problem with goto so I started using gosub instead and it worked for me. It might work for you as well. gosub is pretty much the same as goto the only difference being that you can return from it (like call).
Quote:
Originally Posted by Lucario'sShadow
can someone make a script where u dont have to capture a pokemon to complete a pokedex entry, you only have to meet it in battle.
I've come across this before but I'm not 100% sure what it is. I believe you have to set a variable the number of a pokemon then use a special. I have no idea what they are though, sorry.
I decided to make a custom pokemon Center script, where the nurse checks to see if you have pokemon, then she takes them, heals them, gives them back, and does the "^_^" face. The script works up until the animation of the ^_^ face, I think I have to make sure the script points at her, but I dont know what to put...
I try making it the same person event # as her (she is the first person on the map, so 0x1, right? this is my problem... help?)
Where is my whole script, it is for starting towns with pokemon centers in them, you can use it if you give me, 0m3GA ARS3NAL, credit in the credits of your hack. (Change the Dynamic offset of course, hehe!
Spoiler:
#dynamic 0x800000
#org @center
lock
faceplayer
message @welcome
boxset 6
countpokemon
compare LASTRESULT 0x1
if b_<< goto @needpoke
message @askheal
boxset 5
compare LASTRESULT 0x1
if b_true goto @heal
if b_false goto @nevermind
release
end
#org @needpoke
lock
faceplayer
message @sorry
boxset 6
release
end
#org @nevermind
lock
faceplayer
message @okthen
boxset 6
release
end
#org @welcome
= Oh, hello \ho1, how are you?\nDo you need anything?
#org @askheal
= Let me guess, you need to heal\n up your Pok\h1bmon, dont you?
#org @sorry
= Sorry, there is nothing I can\ndo, you have no Pok\h1bmon...
#org @takingpoke
= Ok, let me see your Pok\h1bmon.
#org @thankyou
= Ahh, all beter, here you go!\nThanks for stopping by!
#org @hee
#raw 66 fe
#org @okthen
= Oh, ok then, bye bye!
__________________
>Boot Jailbot
>Pass *****
.
.
Jailbot OS Ver 1.1.2
Greetings Warden
of Superjail Penitentiary
Awaiting user input...
>Display User_Info
╠══User Info══╣
Username:
0m3GA ARS3NAL
Age: 18
Sex: Male ♂
Race: Caucasian
Quote:
"What is this
I don't even..."
M/O: Often acts out to get attention, but recently has changed that. Has been studying up on hacking information and hopes to participate in more advanced hacking discussion.
╠══End of File══╣
Awaiting user input...
Hey i am making a script using the Setmaptile command how do you get the map to reset, i used the special 0x8E, i think that is just for FR, i need this for a script in Emerald. Is the "special" value for reset different for emerald, and if so what is it? I tried searching for a setmaptile script already in the game(like in the elite 4 rooms) but i dont see any special command, does anyone know what it is?
#dynamic 0x6B0FD7
#org @main
lock
faceplayer
checkflag 0x800
#define if b_true goto @done
message @welcome
boxset 6
message @starter
boxset 5
compare LASTRESULT 0x1
if b_true goto @good
message @comeon
boxset 6
release
end
#org @good
givepokemon 133 5 0
fanfare 0x13E
message @received
boxset 4
waitfanfare
#raw 0x68
setflag 800
setflag 801
message @newname
compare LASTRESULT 0x1
if b_true gosub @name
message @go
boxset 6
release
end
#org @welcome
= Hello v\01! good of you to show up.\nI have a favor to ask you.\pI will give you a pokemon of your\nown only if you promise to\pfill up a pokedex, defeat your\nfather and carry on the family legacy.
#org @starter
= Will you help me?
#org @comeon
= Oh don't be like that!\n come back if you change your mind.
#org @received
= you received an Eevee\nand a Pokedex!
#org @newname
= Would you like to name\nyour Eevee?
#org @name
call 0x1A74EB
return
#org @go
= Ok, get out there and make\n a name for yourself.
#org @done
message @bye
boxset 6
release
end
#org @bye
= You still here?
__________________
Want to help on my Fire Red hack: "Pokemon Glass Version"? PM me with:
I decided to make a custom pokemon Center script, where the nurse checks to see if you have pokemon, then she takes them, heals them, gives them back, and does the "^_^" face. The script works up until the animation of the ^_^ face, I think I have to make sure the script points at her, but I dont know what to put...
I try making it the same person event # as her (she is the first person on the map, so 0x1, right? this is my problem... help?)
Where is my whole script, it is for starting towns with pokemon centers in them, you can use it if you give me, 0m3GA ARS3NAL, credit in the credits of your hack. (Change the Dynamic offset of course, hehe!
Spoiler:
#dynamic 0x800000
#org @center
lock
faceplayer
message @welcome
boxset 6
countpokemon
compare LASTRESULT 0x1
if b_<< goto @needpoke
message @askheal
boxset 5
compare LASTRESULT 0x1
if b_true goto @heal
if b_false goto @nevermind
release
end
#org @needpoke
lock
faceplayer
message @sorry
boxset 6
release
end
#org @nevermind
lock
faceplayer
message @okthen
boxset 6
release
end
#org @welcome
= Oh, hello \ho1, how are you?\nDo you need anything?
#org @askheal
= Let me guess, you need to heal\n up your Pok\h1bmon, dont you?
#org @sorry
= Sorry, there is nothing I can\ndo, you have no Pok\h1bmon...
#org @takingpoke
= Ok, let me see your Pok\h1bmon.
#org @thankyou
= Ahh, all beter, here you go!\nThanks for stopping by!
#org @hee
#raw 66 fe
#org @okthen
= Oh, ok then, bye bye!
You're supposed to put in here People Number.
This script is missing a lot. Wheres the animation, healing place, sound etc.
Quote:
Originally Posted by ZAkattack
alright! everything is working except for vanishing sprites....they only vanish after i exit the room and enter again....
You need to set the Person ID to the corresponding flags. So the ball that sets the flag 0x200 will have an ID of 0200
Quote:
Originally Posted by khaosknight1
Hey i am making a script using the Setmaptile command how do you get the map to reset, i used the special 0x8E, i think that is just for FR, i need this for a script in Emerald. Is the "special" value for reset different for emerald, and if so what is it? I tried searching for a setmaptile script already in the game(like in the elite 4 rooms) but i dont see any special command, does anyone know what it is?
I think it is special 0x91.
Quote:
Originally Posted by toolTRA
It keeps saying "unknown keyword &h1 at line 13"
can anyone help?
Code:
#dynamic 0x6B0FD7
#org @main
lock
faceplayer
checkflag 0x800
#define if b_true goto @done
message @welcome
boxset 6
message @starter
boxset 5
compare LASTRESULT 0x1
if b_true goto @good
message @comeon
boxset 6
release
end
#org @good
givepokemon 133 5 0
fanfare 0x13E
message @received
boxset 4
waitfanfare
#raw 0x68
setflag 800
setflag 801
message @newname
compare LASTRESULT 0x1
if b_true gosub @name
message @go
boxset 6
release
end
#org @welcome
= Hello v\01! good of you to show up.\nI have a favor to ask you.\pI will give you a pokemon of your\nown only if you promise to\pfill up a pokedex, defeat your\nfather and carry on the family legacy.
#org @starter
= Will you help me?
#org @comeon
= Oh don't be like that!\n come back if you change your mind.
#org @received
= you received an Eevee\nand a Pokedex!
#org @newname
= Would you like to name\nyour Eevee?
#org @name
call 0x1A74EB
return
#org @go
= Ok, get out there and make\n a name for yourself.
#org @done
message @bye
boxset 6
release
end
#org @bye
= You still here?
Why do you have a define? You need to delete that.
ok... i made the script, to fight with lugia... like legendary pokemons. It work perfectly until when it goes into battle it turns to black screen and never battles
I know the flag works because i have another script that uses it (i have 3 script[this one included] that all work together) so the 1st one sets the flag, the second one changes the map(this one), then the third is just a Hiker that tells you where to go
Here are the first and third script if you dont understand what i am talking about
Spoiler:
the first one
Code:
#Dynamic 0xDE5000
#ORG @begin
lock
faceplayer
checkflag 0x201
if B_true goto @continue
msgbox @oh
boxset 6
giveitem 0x10D 0x1 0x0
msgbox @wish
boxset 6
special 0x1F3
setflag 0x201
release
end
#org @continue
msgbox @please
boxset 6
setflag 0x201
release
end
#org @please
= Please hurry and deliver that\nbriefcase!!!!!
#org @oh
= Oh hi, i am a worker from A.Corp.\nand, i am...well...stuck! You see i\lhad to make an urgent delivery to\lSNOWPORT CITY, and in such a rush i\ljumped over this ledge and now i\lcant get back, i would go and\lfinish the delivery but a mountain\lis blocking the path on ROUTE 3.\lOhhh!!!! i dont know what to do...i\lam gonna get fired. Wait...can you\ldeliver this briefcase for me? It\lneeds to go to Garret's Shipyard in\lSNOWPORT CITY.\lYou will?! GREAT!!!! Here it is.
#org @wish
= I wish there was some way to repay\nyou for getting me out of this\ljam...wait is that a...yes it is,\lits a POKEDEX. Let me see\lit...Hmm...Hmm.....this pokedex is\lin a serious need of an upgrade.\lWait!! I have here A.Corp's latest\lupgrade. It will allow you to keep\ltrack of ALL the POKEMON in the\lCITRINE REGION.\l...inserting data disk\l...\l...processing\l...processing\l...\l...upgrading\l...\l...\lThere we go, all done. I hope you\lenjoy your new pokedex. Now please\lhurry and deliver that briefcase
the third
Code:
#Dynamic 0xDE5002
#ORG @begin
lock
faceplayer
checkflag 0x201
if B_true goto @continue2
checkflag 0x202
if B_true goto @continue
msgbox @Hey
boxset 6
setflag 0x202
release
end
#org @continue
msgbox @hey2
boxset 6
release
end
#org @continue2
msgbox @cleared
boxset 6
release
end
#org @hey
= Hey there m'lad. You see this here\nmountain, 'course ya do your not\lblind Hahahahaha, are you? Haha\ldidn't think so.\lWell i figured i would do a noble\ldeed and clear the path of this\lmountain so people can go to\lSNOWPORT CITY without having to\ltrek all the way up north.\lThis might take a while so come\lback later 'kay!?\l...\l...\l...\lWait just a second...your a POKEMON\lTRAINER, yup you sure are!\lHaha...wait, are you? Haha, thought\lso!\lWell since you are a TRAINER you\lshould go to the POKEMON GYM in\lSNOWBRINK CITY. Give the GYM LEADER\la challenge then come back, i think\li will have the path cleared by\lthen.\lYou know, a man in a green suit\lcame running over here a little\lwhile ago. He was muttering\lsomething about delivering a\lbriefcase. After he saw the\lmountain he said he was going back\lthrough SNOWBRINK to take the\lnorthern route to SNOWPORT. I hope\lhe knows you can't go back north\lthrough SNOWBRINK, there is a\lnasty little ledge separating it\lfrom ROUTE 15. Well better get to\lwork!\lOhhhhhhhhhh!!!!!!!!!!!!!!!!!\lA hikers life is the life for me\lYohoyohoyoho!!!!!!!!!
#org @hey2
= Hey there again m'lad. Still not\ndone workin' on this mountain. Give\lme a little more time. You should\lgo help that man in the green suit.\lOhhhhhhhhhhh!!!!!!!!!!!!!!\lA hikers life is the life for me...
#org @cleared
= Hey there m'lad, nice seein' you\nagain.\l Well i cleared the\lpassageway, so now you can go to\lSNOWPORT.
Back to what i was talking about, when i enter the map the tiles dont change...