• 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 30
    • 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
    • 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
    • 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