• 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.
    Register

Script Requests/Sharing/Discussion

Status
Not open for further replies.

~*Pikafan*~

Man I gotta stop leaving!
202
Posts
16
Years
  • Age 29
  • Seen Oct 23, 2011
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.
 

opeious

62
Posts
16
Years
~*Pikafan*~ said:
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.
Click to expand...

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:
destinedjagold

destinedjagold

You can contact me in PC's discord server...
8,593
Posts
16
Years
  • Age 33
  • Seen Dec 23, 2023
opeius said:
Srry but its still not working
Click to expand...

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.
 

thethethethe

1,104
Posts
16
Years
CrazyLuigi said:
That didn't help at all :s

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

Spoiler:
Click to expand...

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.
 

opeious

62
Posts
16
Years
What do you mean by select pokemon? plz specify.

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

thanks in advance
link
Click to expand...

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:

linkandzelda

Ex-rom hacker turned indie game developer
777
Posts
17
Years
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:

cooley

///Keepin' it simple
1,148
Posts
17
Years
@opeius : You can at Least tell him it was from Thethethethe's Advanced scripting. Instead of just stealing it, Without even changing the words.
 

Satoshi Sugimori

Hermit
860
Posts
17
Years
Can anyone check this it doesn't work ingames..:(
Thanks in advance...

Spoiler:
 

TB Pro

Old-timer
2,708
Posts
19
Years
Poke-Roy said:
Can anyone check this it doesn't work ingames..:(
Thanks in advance...

Spoiler:
Click to expand...

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

Satoshi Sugimori

Hermit
860
Posts
17
Years
Blazikendude said:
I'm not the greatest at scripting but, I think that'll work ^_^
Click to expand...

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:
 

Kristian

170
Posts
16
Years
Poke-Roy said:
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:
Click to expand...

I guess it would be:
00 03
50 40
..
i also changed something in your script, it is in bold
 

linkandzelda

Ex-rom hacker turned indie game developer
777
Posts
17
Years
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
 

CrazyLuigi

33
Posts
17
Years
  • Age 33
  • Seen Apr 9, 2013
thethethethe said:
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.
Click to expand...

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