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

Soul.//Silver

489
Posts
16
Years
    • Can someone please make this script.

    Prof Oak comes out of his lab and walks down down down down right right right, and then he says:"Wait! [PLAYER] come with me to my lab. I have something for you. Then Prof Oak takes you
    left left left up up up up then warp to the lab. Map Bank is 4, Map is 3 and the Warp Number is 0.

    And also another script.
    Prof Oak comes out of his lab and walks down down down down down right right right, and then he says:"Wait! [PLAYER] come with me to my lab. I have something for you. Then Prof Oak takes you
    left left left up up up up up then warps to the lab. Map Bank is 4, Map is 3 and the Warp Number is 0.

    I tried making those scripts but I had no luck and I was hoping a more experienced scripter could make it for me.
     

    yoderpet

    Amateur Trainer
    13
    Posts
    16
    Years
    • Seen Aug 12, 2023
    stead573:Go to Google and type in Birmin Studios. Go to the first link and you should come up with a website with an ocean blue background. On the Hack Tools Page you should find what your looking for and also, make sure you download PkmnAdv in the same place you downloaded Pokescript. (sorry it took so long)

    Here are your codes Sceptilehero:

    first code:
    Code: 
    #org $begin
checkflag [input the flag for after Oak takes you back # 0x...]
if B_true goto $done
playsound 0x13B
#raw 0x33
applmovement 0x01 $aidwalk
pause 0x50
message $aidtalk
boxset 6
applymovement 0x01 $aidfollow
applymovement 0xFF $aidfollow
pause 0x50
fadesound
release
end

#org $done
release
end

#org $aidwalk
applymovement $aidwalk ; #binary 0x1D 0x1E 0xFE

#org $aidtalk
message $aidtalk 1 = Wait! v\h01 come with me to my lab.\nI have something for you.

#org $aidfollow
applymovement $aidfollow ; #binary 0x12 0x12 0x12 0x1E 0xFE

    second code:
    Code: 
    #org $begin
checkflag [input the flag for after Oak takes you back # 0x...]
if B_true goto $done
playsound 0x13B
#raw 0x33
applmovement 0x01 $aidwalk
pause 0x50
message $aidtalk
boxset 6
applymovement 0x01 $aidfollow
applymovement 0xFF $aidfollow
pause 0x50
fadesound
release
end

#org $done
release
end

#org $aidwalk
applymovement $aidwalk ; #binary 0x1D 0x1E 0x10 0xFE

#org $aidtalk
message $aidtalk 1 = Wait! v\h01 come with me to my lab.\nI have something for you.

#org $aidfollow
applymovement $aidfollow ; #binary 0x12 0x12 0x12 0x1E 0x11 0xFE
    You will have to provide the flag for the first part of the code or Oak will call the character forever. I will add the warp codes in a little while.
    A link to where you can learn follow scripts.
     
    Last edited:

    stead573

    31
    Posts
    17
    Years
    • Seen Nov 29, 2011
    Hey Yoderpet!

    Thanks alot! I had been looking for it for a few hours using Google lastnight, but had no luck.
     

    ShyRayq

    Unprofessional Unprofessional
    1,856
    Posts
    16
    Years
    • Seen Apr 2, 2024
    Dosen't matter since I am beginner
    I'll just do it that no matter what starter you pick you're rival will have Eevee!
     

    stead573

    31
    Posts
    17
    Years
    • Seen Nov 29, 2011
    Can anyone help me with this?

    Right, I've just read through a few tutorials on Pokescript, and I've created a short movement script.

    The player walks into a script where, he stops, a man moves two steps right and talks to him.

    The Script:

    #org $IfElse
    checkflag 0x200 ' empty flag
    if 0x1 goto $Move
    release
    end

    #org $Move
    applymovement 0x05 $ManMove ' 0x05 [people number 5, is this correct?]
    pausemove 0
    return

    #org $ManMove
    #Binary 0x0B 0xFE ' the man moves two steps right

    #org $ShowText
    lock
    faceplayer
    message $NewTrainer
    $NewTrainer 1 = Hey! You're a new trainer,\laren't you?
    boxset 6
    setflag 0x200
    release
    end
    Click to expand...

    Any help on this would be much appreciated!
     
    Last edited:
    Derlo

    Derlo

    Tired....
    135
    Posts
    16
    Years
    • stead573 said:
    Can anyone help me with this?

    Right, I've just read through a few tutorials on Pokescript, and I've created a short movement script.

    The player walks into a script where, he stops, a man moves two steps right and talks to him.

    The Script:



    Any help on this would be much appreciated!
    Click to expand...

    I don't know if it is that you want, But try this:

    #org $newtrainer
    lock
    faceplayer
    checkflag 0x200
    if 1 gosub $Move
    message $NewTrainer
    $NewTrainer 1 = Hey! You're a new trainer,\laren't you?
    boxset 6
    setflag 0x200
    release
    end

    #org $Move
    applymovement 5 $ManMove
    $ManMove 1 ; #Binary 0x0B 0x0B 0xFE
    pausemove 0
    return
     
    destinedjagold

    destinedjagold

    You can contact me in PC's discord server...
    8,593
    Posts
    16
    Years
    • Seen Dec 23, 2023
    #org $IfElse
    checkflag 0x200
    if 0x1 goto $Move
    release
    end

    #org $Move
    applymovement 0x05 $ManMove
    pausemove 0
    goto $ShowText
    return
    end

    #org $ManMove
    $ManMove 1 ; binary 0x0B 0x0B 0xFE

    #org $ShowText
    lock
    faceplayer
    message $NewTrainer
    $NewTrainer 1 = Hey! You're a new trainer,\laren't you?
    boxset 6
    setflag 0x200
    release
    end

    Spoiler:
     

    stead573

    31
    Posts
    17
    Years
    • Seen Nov 29, 2011
    Hey, thanks for the input Derlo and destinedjagold!

    The only thing is, I can't get any of these scripts to work. It may be in the method of how I am assigning the offset to the script in Advance Map...not too sure.

    Right, so I've gone through the right method using Pokescript and Buf Rite, I'm certain of that.

    So...to assign the offset set by Buf Rite [800000] I open the ROM in Advance Map, create a new sprite [people number 5] and script. Then input the offset of the code [800000] into the offset of the script. Am I right in thinking that's correct?

    So on the map, it would look like this:
    [5] sprite to move
    [E] empty space
    script

    [5][E][E]

    The sprite [5] would move two spaces right to face the [PLAYER] which is stood on the script:

    [5][>][>]

    I hope I have included enough information on my problem for someone to hopefully help me with!

    Thanks in advance!
     
    Derlo

    Derlo

    Tired....
    135
    Posts
    16
    Years
    • stead573 said:
    Hey, thanks for the input Derlo and destinedjagold!

    The only thing is, I can't get any of these scripts to work. It may be in the method of how I am assigning the offset to the script in Advance Map...not too sure.

    Right, so I've gone through the right method using Pokescript and Buf Rite, I'm certain of that.

    So...to assign the offset set by Buf Rite [800000] I open the ROM in Advance Map, create a new sprite [people number 5] and script. Then input the offset of the code [800000] into the offset of the script. Am I right in thinking that's correct?

    So on the map, it would look like this:
    [5] sprite to move
    [E] empty space
    script

    [5][E][E]

    The sprite [5] would move two spaces right to face the [PLAYER] which is stood on the script:

    [5][>][>]

    I hope I have included enough information on my problem for someone to hopefully help me with!

    Thanks in advance!
    Click to expand...


    In the header of SCRIPT
    put that:

    unknown: 03 00
    number VAR: 50 40
    value of VAR: 00 00
    unknown: 00 00​
     

    yoderpet

    Amateur Trainer
    13
    Posts
    16
    Years
    • Seen Aug 12, 2023
    Sceptilehero:What is it that Oak was supposed to do after he brought you back in?

    Oh and I finished the script except for the flag:

    code 1:

    Code: 
    #org $begin
checkflag [input the flag for after Oak takes you back # 0x...]
if B_true goto $done
playsound 0x13B
#raw 0x33
applmovement 0x01 $aidwalk
pause 0x50
message $aidtalk
boxset 6
applymovement 0x01 $aidfollow
applymovement 0xFF $aidfollow
pause 0x50
fadesound
warp 0x4 0x3 0x0
release
end

#org $done
release
end

#org $aidwalk
applymovement $aidwalk ; #binary 0x1D 0x1E 0xFE

#org $aidtalk
message $aidtalk 1 = Wait! v\h01 come with me to my lab.\nI have something for you.

#org $aidfollow
applymovement $aidfollow ; #binary 0x12 0x12 0x12 0x1E 0xFE

    code 2:

    Code: 
    #org $begin
checkflag [input the flag for after Oak takes you back # 0x...]
if B_true goto $done
playsound 0x13B
#raw 0x33
applmovement 0x01 $aidwalk
pause 0x50
message $aidtalk
boxset 6
applymovement 0x01 $aidfollow
applymovement 0xFF $aidfollow
pause 0x50
fadesound
warp 0x4 0x3 0x0
release
end

#org $done
release
end

#org $aidwalk
applymovement $aidwalk ; #binary 0x1D 0x1E 0x10 0xFE

#org $aidtalk
message $aidtalk 1 = Wait! v\h01 come with me to my lab.\nI have something for you.

#org $aidfollow
applymovement $aidfollow ; #binary 0x12 0x12 0x12 0x1E 0x11 0xFE

    And I still need someone to check one of my codes!

    Code: 
    #org $StartWild
lock
faceplayer
checkflag 0x305
if B_true goto $done
cry5
message $Mewcry
boxset 6
checkflag 0x304
if B_true goto $WildBatt
setflag 0x305
release
end

#org $done
release
end

#org $WildBatt
lock
wildbattle 151 30 0
release
setflag 0x401
fadscreen 0
end
     
    Last edited:

    Reaper 6

    (Reaper 6) the six samurai YGO
    122
    Posts
    16
    Years
    • Seen Dec 8, 2009
    Prof oak script

    Hi im really bad at scripting ive been trying to learn to script for a couple of months now so could someone make me this script

    Can someone make a script that makes the professor be in the lab from the start.
    and instead of him giving u the kanto pokedex he gives u the national dex after ur first battle with ur rivel he asks you back and he gives u the national dex after ur first battle with gary in the lab.

    Please can someone make this i need it for my hack and ill add u to my credits
    Please.
     

    ~*Pikafan*~

    Man I gotta stop leaving!
    202
    Posts
    16
    Years
    • Age 30
    • Seen Oct 23, 2011
    I was trying to make a starter pokemon script for my hack and I tried it out, but it wasn't working. The script didn't even start, it just froze. If anyone can see what's wrong with it, that would help a lot.

    If no one can understand what's happening, I'll tell them.

    Code: 
    #org $begin
lock
faceplayer
checkflag 0x207
if B_true goto $done
message $ah
release
playsound 0xFFFF
#raw 0x33
applymovement 0x02 $mv1
setflag 0x207
goto $giveball

#org $giveball
applymovement 0x02 $mv2
message $well
playsound 0x13B
applymovement 0x04 $mv3
message $here
fadesound
lock
message $so
goto $getdex

#org $getdex
setflag 0x800
setflag 0x801
boxset 6
jingle
message $gotdex
givepokemon 179 5 8E
boxset 6
jingle
message $gotpoke
boxset 6
message $namepoke
boxset 5
compare LASTRESULT 1
if B_False goto $Sea
namepokemon
goto $sea
release
end

#org $ah
$ah 1 = Ah, there you are,\n\v\h01!\pHere, I have something for you.

#org $mv1
$mv1 ; #binary 0x13 0x13 0xFE

#org $mv2
$mv2 ; #binary 0x12 0x12 0x4A 0xFE

#org $well
$well 1 = Well, \v\h01, here\nis a pokemon in my hand.\pThis is no ordinary pokemon.\nIt is a new pokemon found in\pa different region.  Its\nname is Shinx.  I want you\pto take this pokemon and\ngo to the Seafoam Islands.\pLately, there have been some\nshady people around Seafoam Islands.\pI want you to go with\nmy friend..wait, where\pis he?

#org $mv3
$mv3 ; #binary 0x13 0x13 0x13 0x13 0x11 0x11 0x11 0xFE

#org $here
$here 1 = Here I am!  Sorry, I\n was reading a book on the shelf.\pSo, Professor, what is it?

#org $so
$so 1 = Now that you both are here,\nfirst I need to give you\pyour pokedexes.  Then, \v\h01,\nI'll give you your pokemon.\pHere, both of you, take these.

#org $gotdex
$gotdex 1 = You got the pokedex!

#org $gotpoke
$gotpoke 1 = You obtained a Shinx!

#org $namepoke
$namepoke 1 = Would you like to give Shinx a nickname?

#org $sea
$sea 1 = There's a boat waiting outside\nto take you to the Seafoam\pIslands.  Before you go, go to the machine\nand get your pokedex upgraded.

#org $done
message $hey
$hey 1 = Hey \v\h01, how are you?
release
end
     
    Derlo

    Derlo

    Tired....
    135
    Posts
    16
    Years
    • ~*Pikafan*~ said:
    I was trying to make a starter pokemon script for my hack and I tried it out, but it wasn't working. The script didn't even start, it just froze. If anyone can see what's wrong with it, that would help a lot.

    If no one can understand what's happening, I'll tell them.

    Code: 
    #org $begin
lock
faceplayer
checkflag 0x207
if B_true goto $done
message $ah
release
playsound 0xFFFF
#raw 0x33
applymovement 0x02 $mv1
setflag 0x207
goto $giveball

#org $giveball
applymovement 0x02 $mv2
message $well
playsound 0x13B
applymovement 0x04 $mv3
message $here
fadesound
lock
message $so
goto $getdex

#org $getdex
setflag 0x800
setflag 0x801
boxset 6
jingle
message $gotdex
givepokemon 179 5 8E
boxset 6
jingle
message $gotpoke
boxset 6
message $namepoke
boxset 5
compare LASTRESULT 1
if B_False goto $Sea
namepokemon
goto $sea
release
end

#org $ah
$ah 1 = Ah, there you are,\n\v\h01!\pHere, I have something for you.

#org $mv1
$mv1 ; #binary 0x13 0x13 0xFE

#org $mv2
$mv2 ; #binary 0x12 0x12 0x4A 0xFE

#org $well
$well 1 = Well, \v\h01, here\nis a pokemon in my hand.\pThis is no ordinary pokemon.\nIt is a new pokemon found in\pa different region.  Its\nname is Shinx.  I want you\pto take this pokemon and\ngo to the Seafoam Islands.\pLately, there have been some\nshady people around Seafoam Islands.\pI want you to go with\nmy friend..wait, where\pis he?

#org $mv3
$mv3 ; #binary 0x13 0x13 0x13 0x13 0x11 0x11 0x11 0xFE

#org $here
$here 1 = Here I am!  Sorry, I\n was reading a book on the shelf.\pSo, Professor, what is it?

#org $so
$so 1 = Now that you both are here,\nfirst I need to give you\pyour pokedexes.  Then, \v\h01,\nI'll give you your pokemon.\pHere, both of you, take these.

#org $gotdex
$gotdex 1 = You got the pokedex!

#org $gotpoke
$gotpoke 1 = You obtained a Shinx!

#org $namepoke
$namepoke 1 = Would you like to give Shinx a nickname?

#org $sea
$sea 1 = There's a boat waiting outside\nto take you to the Seafoam\pIslands.  Before you go, go to the machine\nand get your pokedex upgraded.

#org $done
message $hey
$hey 1 = Hey \v\h01, how are you?
release
end
    Click to expand...

    Try this:

    #org $begin
    lock
    faceplayer
    checkflag 0x207
    if 1 goto $done
    message $ah
    boxset 6
    playsound 0xFFFF
    #raw 0x33
    applymovement 2 $mv1
    pusemove 0
    setflag 0x207
    applymovement 2 $mv2
    pausemove 0
    message $well
    boxset 6
    playsound 0x13B
    applymovement 4 $mv3
    pausemove 0
    message $here
    boxset 6
    fadesound
    message $so
    goto $getdex

    #org $getdex
    setflag 0x800
    setflag 0x801
    jingle
    message $gotdex
    boxset 6
    givepokemon 179 5 8E
    jingle
    message $gotpoke
    boxset 6
    message $namepoke
    boxset 5
    compare LASTRESULT 1
    if 0 goto $Sea
    namepokemon
    goto $sea
    release
    end

    #org $ah
    $ah 1 = Ah, there you are,\n\v\h01!\pHere, I have something for you.

    #org $mv1
    $mv1 1 ; #binary 0x13 0x13 0xFE

    #org $mv2
    $mv2 1 ; #binary 0x12 0x12 0x4A 0xFE

    #org $well
    $well 1 = Well, \v\h01, here\nis a pokemon in my hand.\pThis is no ordinary pokemon.\nIt is a new pokemon found in\pa different region. Its\nname is Shinx. I want you\pto take this pokemon and\ngo to the Seafoam Islands.\pLately, there have been some\nshady people around Seafoam Islands.\pI want you to go with\nmy friend..wait, where\pis he?

    #org $mv3
    $mv3 1 ; #binary 0x13 0x13 0x13 0x13 0x11 0x11 0x11 0xFE

    #org $here
    $here 1 = Here I am!\nSorry, I was reading a book on\lthe shelf.\pSo, Professor, what is it?

    #org $so
    $so 1 = Now that you both are here,\nfirst I need to give you\lyour pokedexes. \pThen, \v\h01, I'll give you\nyour pokemon.\pHere, both of you, take these.

    #org $gotdex
    $gotdex 1 = You got the pokedex!

    #org $gotpoke
    $gotpoke 1 = You obtained a Shinx!

    #org $namepoke
    $namepoke 1 = Would you like to give Shinx a nickname?

    #org $sea
    $sea 1 = There's a boat waiting outside\nto take you to the Seafoam\lIslands.\p Before you go, go to the machine\nand get your pokedex upgraded.

    #org $done
    message $hey
    $hey 1 = Hey \v\h01, how are you?
    boxset 6
    release
    end
     

    ~*Pikafan*~

    Man I gotta stop leaving!
    202
    Posts
    16
    Years
    • Age 30
    • Seen Oct 23, 2011
    Well, it worked up to

    message $well

    And the pokeball didn't dissappear. Did it work for you?
     

    ~*Pikafan*~

    Man I gotta stop leaving!
    202
    Posts
    16
    Years
    • Age 30
    • Seen Oct 23, 2011
    I did. The pokeball has the ID 0207. Is there anything else needed, or is something just wrong?
     

    stead573

    31
    Posts
    17
    Years
    • Seen Nov 29, 2011
    Derlo said:
    Try this:

    #org $begin
    lock
    faceplayer
    checkflag 0x207
    if 1 goto $done
    message $ah
    boxset 6
    playsound 0xFFFF
    #raw 0x33
    applymovement 2 $mv1
    pusemove 0
    setflag 0x207
    applymovement 2 $mv2
    pausemove 0
    message $well
    boxset 6
    playsound 0x13B
    applymovement 4 $mv3
    pausemove 0
    message $here
    boxset 6
    fadesound
    message $so
    goto $getdex

    #org $getdex
    setflag 0x800
    setflag 0x801
    jingle
    message $gotdex
    boxset 6
    givepokemon 179 5 8E
    jingle
    message $gotpoke
    boxset 6
    message $namepoke
    boxset 5
    compare LASTRESULT 1
    if 0 goto $Sea
    namepokemon
    goto $sea
    release
    end

    #org $ah
    $ah 1 = Ah, there you are,\n\v\h01!\pHere, I have something for you.

    #org $mv1
    $mv1 1 ; #binary 0x13 0x13 0xFE

    #org $mv2
    $mv2 1 ; #binary 0x12 0x12 0x4A 0xFE

    #org $well
    $well 1 = Well, \v\h01, here\nis a pokemon in my hand.\pThis is no ordinary pokemon.\nIt is a new pokemon found in\pa different region. Its\nname is Shinx. I want you\pto take this pokemon and\ngo to the Seafoam Islands.\pLately, there have been some\nshady people around Seafoam Islands.\pI want you to go with\nmy friend..wait, where\pis he?

    #org $mv3
    $mv3 1 ; #binary 0x13 0x13 0x13 0x13 0x11 0x11 0x11 0xFE

    #org $here
    $here 1 = Here I am!\nSorry, I was reading a book on\lthe shelf.\pSo, Professor, what is it?

    #org $so
    $so 1 = Now that you both are here,\nfirst I need to give you\lyour pokedexes. \pThen, \v\h01, I'll give you\nyour pokemon.\pHere, both of you, take these.

    #org $gotdex
    $gotdex 1 = You got the pokedex!

    #org $gotpoke
    $gotpoke 1 = You obtained a Shinx!

    #org $namepoke
    $namepoke 1 = Would you like to give Shinx a nickname?

    #org $sea
    $sea 1 = There's a boat waiting outside\nto take you to the Seafoam\lIslands.\p Before you go, go to the machine\nand get your pokedex upgraded.

    #org $done
    message $hey
    $hey 1 = Hey \v\h01, how are you?
    boxset 6
    release
    end
    Click to expand...

    Do you think the problem may be that you have used a capital letter:

    #org $begin
    lock
    faceplayer
    checkflag 0x207
    if 1 goto $done
    message $ah
    boxset 6
    playsound 0xFFFF
    #raw 0x33
    applymovement 2 $mv1
    pusemove 0
    setflag 0x207
    applymovement 2 $mv2
    pausemove 0
    message $well
    boxset 6
    playsound 0x13B
    applymovement 4 $mv3
    pausemove 0
    message $here
    boxset 6
    fadesound
    message $so
    goto $getdex

    #org $getdex
    setflag 0x800
    setflag 0x801
    jingle
    message $gotdex
    boxset 6
    givepokemon 179 5 8E
    jingle
    message $gotpoke
    boxset 6
    message $namepoke
    boxset 5
    compare LASTRESULT 1
    if 0 goto $Sea 'here, when it should be lower?
    namepokemon
    goto $sea
    release
    end

    #org $ah
    $ah 1 = Ah, there you are,\n\v\h01!\pHere, I have something for you.

    #org $mv1
    $mv1 1 ; #binary 0x13 0x13 0xFE

    #org $mv2
    $mv2 1 ; #binary 0x12 0x12 0x4A 0xFE

    #org $well
    $well 1 = Well, \v\h01, here\nis a pokemon in my hand.\pThis is no ordinary pokemon.\nIt is a new pokemon found in\pa different region. Its\nname is Shinx. I want you\pto take this pokemon and\ngo to the Seafoam Islands.\pLately, there have been some\nshady people around Seafoam Islands.\pI want you to go with\nmy friend..wait, where\pis he?

    #org $mv3
    $mv3 1 ; #binary 0x13 0x13 0x13 0x13 0x11 0x11 0x11 0xFE

    #org $here
    $here 1 = Here I am!\nSorry, I was reading a book on\lthe shelf.\pSo, Professor, what is it?

    #org $so
    $so 1 = Now that you both are here,\nfirst I need to give you\lyour pokedexes. \pThen, \v\h01, I'll give you\nyour pokemon.\pHere, both of you, take these.

    #org $gotdex
    $gotdex 1 = You got the pokedex!

    #org $gotpoke
    $gotpoke 1 = You obtained a Shinx!

    #org $namepoke
    $namepoke 1 = Would you like to give Shinx a nickname?

    #org $sea
    $sea 1 = There's a boat waiting outside\nto take you to the Seafoam\lIslands.\p Before you go, go to the machine\nand get your pokedex upgraded.

    #org $done
    message $hey
    $hey 1 = Hey \v\h01, how are you?
    boxset 6
    release
    end
     
    Status
    Not open for further replies.
    Back
    Top