• Our software update is now concluded. You will need to reset your password to log in. In order to do this, you will have to click "Log in" in the top right corner and then "Forgot your password?".
  • Welcome to PokéCommunity! Register now and join one of the best fan communities on the 'net to talk Pokémon and more! We are not affiliated with The Pokémon Company or Nintendo.

Script Requests/Sharing/Discussion

Status
Not open for further replies.
Oh, whoops, found some more errors. And that is for FireRed, choose those movements.

Code:
#org $start
checkflag 0x200
if B_true goto $done
applymovement 0xFF $exclaim
[B]pausemove 0[/B]
message $ontv
[B]boxset 6[/B]
applymovement 0xFF $move
[B]pausemove 0[/B]
message $rgy
[B]boxset 6[/B]
setflag 0x200
end

[B]#org $ontv
$ontv 1 = There's an intresting\n programme\pcoming on the TV.[/B]

#org $done
release
end

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

#org $exclaim
$exclaim 1 ; #Binary 0x62 0xFE

#org $rgy
$rgy 1= Despite the exploration\lteam's best efforts, however,\p the rare, oddly colored Pokémon\n eluded detection.\pThe rumored\lred GYARADOS failed to apper,\p even fleetingly, to the crestfallen team...\p \p \pThat concludes our special report,\n"Search for the Red GYARADOS"\pBrought to you by Jubilife TV on\nNationwide Net!\pSee you next week,same time\nSame channel.

Now try it, it should work. I just put the pausemove 0 because it's easier for me.
 
Oh, whoops, found some more errors. And that is for FireRed, choose those movements.

Code:
#org $start
checkflag 0x200
if B_true goto $done
applymovement 0xFF $exclaim
[B]pausemove 0[/B]
message $ontv
[B]boxset 6[/B]
applymovement 0xFF $move
[B]pausemove 0[/B]
message $rgy
[B]boxset 6[/B]
setflag 0x200
end

[B]#org $ontv
$ontv 1 = There's an intresting\n programme\pcoming on the TV.[/B]

#org $done
release
end

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

#org $exclaim
$exclaim 1 ; #Binary 0x62 0xFE

#org $rgy
$rgy 1= Despite the exploration\lteam's best efforts, however,\p the rare, oddly colored Pokémon\n eluded detection.\pThe rumored\lred GYARADOS failed to apper,\p even fleetingly, to the crestfallen team...\p \p \pThat concludes our special report,\n"Search for the Red GYARADOS"\pBrought to you by Jubilife TV on\nNationwide Net!\pSee you next week,same time\nSame channel.

Now try it, it should work. I just put the pausemove 0 because it's easier for me.

Srry but its still not working

If i remove the "!" then it works perfectly till the last message which comes like-
i237.photobucket.com /albums /ff194/opeious/startscripterror.png
(remove spaces)
(i m not allowed 2 post urls)
 
Last edited:
Srry but its still not working

why not try making it like this.., #binary, rather than making it capitalized like what ya did, #Binary... :/

btw...
Code:
#org $rgy
$rgy 1= Despite the exploration\nteam's best efforts, however,\l the rare, oddly colored Pokémon\l eluded detection.\pThe rumored\nred GYARADOS failed to apper,\l even fleetingly, to the crestfallen team...\p \p \pThat concludes our special report,\n"Search for the Red GYARADOS"\pBrought to you by Jubilife TV on\nNationwide Net!\pSee you next week,same time\nSame channel.
 
That didn't help at all :s

err is this sposed to happen when I put it into pokescript? <_<

Spoiler:

No it shouldn't. This is what it should look like.
Code:
#PROCESS: sdf.rbc F:2 for input
------------------------------
 
#OFFSET: 0, 0
3: Code Command - lock [6A] 
 -> 106
attached: "j" into 0
5: Code Command - faceplayer [5A] 
 -> 90
attached: "Z" into 0
7: Code Command - checkflag [2B] 
 -> 43 &h200
attached: "+
9: Code Alias
if1 [6] 
 -> 6 1 $gotit
attached: "!PTR" into 0
- log $gotit in buffer 0 at byte: 7
11: Code Alias
loadpointer [F] 
 -> 15 &h00 $q
attached: "
- log $q in buffer 0 at byte: 13
13: Code Command - boxset [9] 
 -> 9 6
attached: "	" into 0
15: Code Alias
copyvar [19] 
addpokemon [79] 
hashpoke [7D] 
 -> 25 &h8004 &h800d 121 246 5 0 &h00000000 &h00000000 125 &h1901 &h00 &h00000000 &h00000000
attached: "€
€yö
17: Code Command - setflag [29] 
 -> 41 &h232
attached: ")2" into 0
19: Code Command - release [6C] 
 -> 108
attached: "l" into 0
21: Code Command - end [2] 
 -> 2
attached: "" into 0
 
#OFFSET: 0, 0
26: Code Alias
loadpointer [F] 
 -> 15 &h00 $hi
attached: "
- log $hi in buffer 0 at byte: 57
28: Code Command - boxset [9] 
 -> 9 6
attached: "	" into 0
30: Code Command - release [6C] 
 -> 108
attached: "l" into 0
32: Code Command - end [2] 
 -> 2
attached: "" into 0
 
#OFFSET: 0, 0
 
#INLINE: 0, 1
37: Encoding text: This is where I kept\nLARVITAR's old Pokeball
CODE: ÎÜÝç
- Into buffer 1
 
#OFFSET: 0, 0
 
#INLINE: 0, 1
42: Encoding text: I better take LARVITAR\nwith me today
CODE: Ã
- Into buffer 1
|
\- Processed 820 Lines
 
|
\- Processed 43 Lines
It looks like you're missing the pkmadv files that are needed for the proper running of pokescript.
PkmAdv
Extract this zip file into the folder in which Pokescript was installed, and recompile the script and it should work.
 
What do you mean by select pokemon? plz specify.

hi. can anyone give me a simple select pokemon script?

thanks in advance
link

If you meant checking for a pokemon in the party then the code could be like -
setvar 0x4036 0x81
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $have
The rest you should understand.
Setvar assigns the aspect 0x81(Magikarp) to the variable 0x4036.
Copyvar copies the attributes of 0x4036 to 0x8004(LASTRESULT)
Special2 checks for LASTRESULT(Magikarp) in 0x17C(Party)
Compare LASTRESULT 1 does the usual thing, 1=true, 0=false.
 
Last edited:
thanks for the reply but what i needed was to select a pokemon from my party to have a haircut in the goldenrod under ground because its a gsc remake. also does anybody know the time thing zel used in his scripts for shiny gold like kurts balls?

thanks in advance
link
 
Last edited:
@opeius : You can at Least tell him it was from Thethethethe's Advanced scripting. Instead of just stealing it, Without even changing the words.
 
Can anyone check this it doesn't work ingames..:(
Thanks in advance...

Spoiler:
 
Can anyone check this it doesn't work ingames..:(
Thanks in advance...

Spoiler:

I'm not the greatest at scripting but, I think that'll work ^_^
 
I'm not the greatest at scripting but, I think that'll work ^_^

Still does'nt work...I think it is because I haven't filled anything in in A-Map things like the Unkown, Var number, Var value and the other unkown...
Anyone knows what I have to fill in there? according to this script:
Spoiler:
 
Still does'nt work...I think it is because I haven't filled anything in in A-Map things like the Unkown, Var number, Var value and the other unkown...
Anyone knows what I have to fill in there? according to this script:
Spoiler:

I guess it would be:
00 03
50 40
..
i also changed something in your script, it is in bold
 
hi i have a problem with this script. its meant to check if i have more than one pokemon and if i do it continues. if i only have 1 then it stops. if i have none then nothing happens which is good. if i have 2 then it just freezes. if i set the values to 03 00 50 40 and i have 2 pokemon then it doesnothing.

#org $begin
countpokemon
compare LASTRESULT 2
if B_TRUE goto $notyet
message $speak
boxset 6
setvar 0x4036 0x7B
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $1st
setvar 0x4036 0x7F
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $2nd
setvar 0x4036 0xC
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $2nd
setvar 0x4036 0xF
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $3rd
setvar 0x4036 0xE
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $3rd
message $berry
boxset 6
giveitem 0x8B 0x01
message $afterberry
boxset 6
setflag 0x113D
clearflag 0x113E
warp 0x1 0x74 0x1
release
end

#org $1st
message $win1st
boxset 6
giveitem 0x5D 0x01
setflag 0x113D
clearflag 0x113E
message $afterwin1
boxset 6
warp 0x1 0x74 0x1
release
end

#org $2nd
message $win2nd
boxset 6
giveitem 0xC3 0x01
setflag 0x113D
clearflag 0x113E
message $afterwin2
boxset 6
warp 0x1 0x74 0x1
release
end

#org $3rd
message $win3rd
boxset 6
giveitem 0x8E 0x01
setflag 0x113D
clearflag 0x113E
message $afterwin3
boxset 6
warp 0x1 0x74 0x1
release
end

#org $win1st
$win1st 1 = Congratulations \v\h01! You came\n1st Place.\p\v\h01 got a SUN STONE\nfor 1st prize.

#org $win2nd
$win2nd 1 = well done \v\h01 for getting\n2nd place!\p\v\h01 got an EVERSTONE\nfor 2nd prize.

#org $win3rd
$win3rd 1 = good work \v\h01 for getting\n3rd place!\p\v\h01 got a SITRUS BERRY\nfor 3rd prize.

#org $afterwin1
$afterwin1 = Congratulations!\pWe hope you participate\nagain in the future.

#org $afterwin2
$afterwin2 = Please join us for the next Contest.

#org $afterwin3
$afterwin3 = Better luck next time.

#org $notyet
release
end

#org $speak
$speak 1 = Ding dong!\pAll the participants have caught\na bug POKéMON.\pWe are now Judging the\nPOKéMON you've caught\p... ... ... ...\pWe have chossen the winners\nAre you ready for this?

#org $berry
$berry 1 = Sorry \v\h01 did'nt win.\p\v\h01 got a ORAN BERRY as\na consolation prize!

#org $afterberry
$afterberry 1 = We hope you do better next time.


any help would be great.

thanks in advance
link
 
No it shouldn't. This is what it should look like.
Code:
#PROCESS: sdf.rbc F:2 for input
------------------------------
 
#OFFSET: 0, 0
3: Code Command - lock [6A] 
 -> 106
attached: "j" into 0
5: Code Command - faceplayer [5A] 
 -> 90
attached: "Z" into 0
7: Code Command - checkflag [2B] 
 -> 43 &h200
attached: "+
9: Code Alias
if1 [6] 
 -> 6 1 $gotit
attached: "!PTR" into 0
- log $gotit in buffer 0 at byte: 7
11: Code Alias
loadpointer [F] 
 -> 15 &h00 $q
attached: "
- log $q in buffer 0 at byte: 13
13: Code Command - boxset [9] 
 -> 9 6
attached: "	" into 0
15: Code Alias
copyvar [19] 
addpokemon [79] 
hashpoke [7D] 
 -> 25 &h8004 &h800d 121 246 5 0 &h00000000 &h00000000 125 &h1901 &h00 &h00000000 &h00000000
attached: "€
€yö
17: Code Command - setflag [29] 
 -> 41 &h232
attached: ")2" into 0
19: Code Command - release [6C] 
 -> 108
attached: "l" into 0
21: Code Command - end [2] 
 -> 2
attached: "" into 0
 
#OFFSET: 0, 0
26: Code Alias
loadpointer [F] 
 -> 15 &h00 $hi
attached: "
- log $hi in buffer 0 at byte: 57
28: Code Command - boxset [9] 
 -> 9 6
attached: "	" into 0
30: Code Command - release [6C] 
 -> 108
attached: "l" into 0
32: Code Command - end [2] 
 -> 2
attached: "" into 0
 
#OFFSET: 0, 0
 
#INLINE: 0, 1
37: Encoding text: This is where I kept\nLARVITAR's old Pokeball
CODE: ÎÜÝç
- Into buffer 1
 
#OFFSET: 0, 0
 
#INLINE: 0, 1
42: Encoding text: I better take LARVITAR\nwith me today
CODE: Ã
- Into buffer 1
|
\- Processed 820 Lines
 
|
\- Processed 43 Lines
It looks like you're missing the pkmadv files that are needed for the proper running of pokescript.
Extract this zip file into the folder in which Pokescript was installed, and recompile the script and it should work.

Stupid Question: How do I compile.
 
Status
Not open for further replies.
Back
Top