ColbieCallaitPie
Yummy Yummy Groovy Pie
- 6
- Posts
- 15
- Years
- Seen Jul 20, 2009
Game: Firered
Type: combination of multichoice, givepokemon, yes/no
Editor: XSE and pocket script
Script: Prof. Oak gives you six choices as starters(Charmander, Totodile, Treecko, Eevee, Tyrouge, and Ralts)
Problem: When compiling the script I get a run-time error :(
Type: combination of multichoice, givepokemon, yes/no
Editor: XSE and pocket script
Script: Prof. Oak gives you six choices as starters(Charmander, Totodile, Treecko, Eevee, Tyrouge, and Ralts)
Problem: When compiling the script I get a run-time error :(
Spoiler:
#org $start
#raw 0x67 0x32 0x12 0x16 0x08
#raw 0x66
checkflag 0x828
message $1
boxset 6
multi 0xE 0x0 0x1E 0x0
copyvar 0x8000 0x800D
compare 0x8000 0x0
if 0x1 goto $option1
compare 0x8000 0x1
if 0x1 goto $option2
compare 0x8000 0x2
if 0x1 goto $option3
compare 0x8000 0x3
if 0x1 goto $option4
compare 0x8000 0x4
if 0x1 goto $option5
compare 0x8000 0x5
if 0x1 goto $option6
compare 0x8000 0x7F
end
------------------
#org $option1
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes1
#org $option2
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes2
#org $option3
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes3
#org $option4
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes4
#org $option5
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes5
#org $option6
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes6
-------------------
#org $yes1
givepokemon 4 5 0
fanfare 0x13E
message $31
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $41
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $51
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes2
givepokemon 158 5 0
fanfare 0x13E
message $32
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $42
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $52
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes3
givepokemon 277 5 0
fanfare 0x13E
message $33
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $43
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $53
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes4
givepokemon 133 5 0
fanfare 0x13E
message $34
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $44
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $54
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes5
givepokemon 236 5 0
fanfare 0x13E
message $35
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $45
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $55
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes6
givepokemon 392 5 0
fanfare 0x13E
message $36
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $46
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $56
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
--------{string}--------
#org $option1
$option1 1 =CHARMANDER
#org $option2
$option2 1 =TOTODILE
#org $option3
$option3 1 =TREECKO
#org $option4
$option4 1 =EEVEE
#org $option5
$option5 1 =TYROUGE
#org $option6
$option6 1 =RALTS
#org $char
$char 1 =Are you sure?\lPick wisely..
#org $1
$11 1 =Ah [playername]!\nI almost forgot you\lwere on your way to\n\c\h01\h06
LaRouuse Academy!\lI better make this quick,\pso which pokemon would you\llike to team up with?
#org $2
$21 1 =Didn't mean to rush you.\nThere's lots to choose from!
#org $31
$31 1 =\c\h01\h02You received a CHARMANDER!
#org $41
$41 1 =\c\h01\h02Would you like to rename CHARMANDER?
#org $51
$51 1 =Take Care of CHARMANDER.
#org $6
$6 1 =I can tell you and that Pokemon/lwill be best buds!
#org $32
$32 1 =\c\h01\h02You received a TOTODILE!
#org $42
$42 1 =\c\h01\h02Would you like to rename TOTODILE?
#org $52
$52 1 =Take Care of TOTODILE.
#org $33
$33 1 =\c\h01\h02You received a TREECKO!
#org $43
$43 1 =\c\h01\h02Would you like to rename TREECKO?
#org $53
$53 1 =Take Care of TREECKO.
#org $34
$34 1 =\c\h01\h02You received a EEVEE!
#org $44
$44 1 =\c\h01\h02Would you like to rename EEVEE?
#org $54
$54 1 =Take Care of EEVEE.
#org $35
$35 1 =\c\h01\h02You received a TYROUGE!
#org $45
$45 1 =\c\h01\h02Would you like to rename TYROUGE?
#org $55
$55 1 =Take Care of TYROUGE.
#org $36
$36 1 =\c\h01\h02You received a RALTS!
#org $46
$46 1 =\c\h01\h02Would you like to rename RALTS?
#org $56
$56 1 =Take Care of RALTS.
#raw 0x67 0x32 0x12 0x16 0x08
#raw 0x66
checkflag 0x828
message $1
boxset 6
multi 0xE 0x0 0x1E 0x0
copyvar 0x8000 0x800D
compare 0x8000 0x0
if 0x1 goto $option1
compare 0x8000 0x1
if 0x1 goto $option2
compare 0x8000 0x2
if 0x1 goto $option3
compare 0x8000 0x3
if 0x1 goto $option4
compare 0x8000 0x4
if 0x1 goto $option5
compare 0x8000 0x5
if 0x1 goto $option6
compare 0x8000 0x7F
end
------------------
#org $option1
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes1
#org $option2
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes2
#org $option3
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes3
#org $option4
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes4
#org $option5
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes5
#org $option6
message $char
boxset 0x4
#raw 0x6E 0x0 0x0
#raw 0x68
compare 0x800D 0x1
if 0x1 goto $yes6
-------------------
#org $yes1
givepokemon 4 5 0
fanfare 0x13E
message $31
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $41
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $51
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes2
givepokemon 158 5 0
fanfare 0x13E
message $32
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $42
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $52
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes3
givepokemon 277 5 0
fanfare 0x13E
message $33
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $43
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $53
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes4
givepokemon 133 5 0
fanfare 0x13E
message $34
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $44
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $54
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes5
givepokemon 236 5 0
fanfare 0x13E
message $35
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $45
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $55
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $yes6
givepokemon 392 5 0
fanfare 0x13E
message $36
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $46
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $56
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
--------{string}--------
#org $option1
$option1 1 =CHARMANDER
#org $option2
$option2 1 =TOTODILE
#org $option3
$option3 1 =TREECKO
#org $option4
$option4 1 =EEVEE
#org $option5
$option5 1 =TYROUGE
#org $option6
$option6 1 =RALTS
#org $char
$char 1 =Are you sure?\lPick wisely..
#org $1
$11 1 =Ah [playername]!\nI almost forgot you\lwere on your way to\n\c\h01\h06
LaRouuse Academy!\lI better make this quick,\pso which pokemon would you\llike to team up with?
#org $2
$21 1 =Didn't mean to rush you.\nThere's lots to choose from!
#org $31
$31 1 =\c\h01\h02You received a CHARMANDER!
#org $41
$41 1 =\c\h01\h02Would you like to rename CHARMANDER?
#org $51
$51 1 =Take Care of CHARMANDER.
#org $6
$6 1 =I can tell you and that Pokemon/lwill be best buds!
#org $32
$32 1 =\c\h01\h02You received a TOTODILE!
#org $42
$42 1 =\c\h01\h02Would you like to rename TOTODILE?
#org $52
$52 1 =Take Care of TOTODILE.
#org $33
$33 1 =\c\h01\h02You received a TREECKO!
#org $43
$43 1 =\c\h01\h02Would you like to rename TREECKO?
#org $53
$53 1 =Take Care of TREECKO.
#org $34
$34 1 =\c\h01\h02You received a EEVEE!
#org $44
$44 1 =\c\h01\h02Would you like to rename EEVEE?
#org $54
$54 1 =Take Care of EEVEE.
#org $35
$35 1 =\c\h01\h02You received a TYROUGE!
#org $45
$45 1 =\c\h01\h02Would you like to rename TYROUGE?
#org $55
$55 1 =Take Care of TYROUGE.
#org $36
$36 1 =\c\h01\h02You received a RALTS!
#org $46
$46 1 =\c\h01\h02Would you like to rename RALTS?
#org $56
$56 1 =Take Care of RALTS.