The PokéCommunity Forums  

Go Back   The PokéCommunity Forums > ROM Hacking > Research & Development
Sign Up Rules/FAQ Live Battle Blogs Mark Forums Read

Notices

Research & Development Got a well-founded knack with ROM hacking? Love reverse-engineering the Pokémon games? Or perhaps you love your assembly language. This is the spot for polling and gathering your ideas, and then implementing them! Share your hypothesis, get ideas from others, and collaborate to create!
Research & Development programs in this forum are subject to moderator approval before they are displayed.

Reply
Click here to go to the first staff post in this thread.  
Thread Tools
  #1    
Old December 20th, 2008, 10:47 AM
Spherical Ice's Avatar
Spherical Ice
Community Supporter
 
Join Date: Nov 2007
Location: UK
Send a message via Skype™ to Spherical Ice

The Miscellaneous Script Thread

Scripts are XSE-compatible only!

Welcome to The Miscellaneous (XSE) Script Thread! The purpose of this thread is simple; it is an archive of numerous, pretty random, scripts available for you to use in your hack if you are having difficulties scripting it yourself (or are too lazy. ^.^).

If you wish to see one of your threads up on this post, please use the following form:

Code:
[B]Name:[/B]
[B]ROM info:[/B]
[B]Effect:[/B]
[B]Script:[/B]
[B]Comments & Bugs:[/B]
[B]Credits:[/B]
For example, you could post this:
Quote:
Name: Talking Script
ROM info: Pokémon: FireRed Version [BPRE] (U)
Effect: When you interact with the person event affiliated with this script, a message will appear.
Script:
Spoiler:

#dynamic 0x# ‘ Scripter must define offset.

#org @start ‘ Pointer name up to scripter’s preferences.
lock
faceplayer
msgbox @1 0x6
release
end

#org @1
= This is a test message.

Comments & Bugs: Make sure you do not use “boxset 0x6”! That’s an outdated command!
Credits: Person A, Person B and Person C.
Of course, you shouldn’t really bother submitting a simple script as easy as that – if you think people can’t do that, than you must be a pessimist!


The Scripts:


Egg Shop Script:
Spoiler:

Spoiler:
#dynamic 0x<offset>

#org @start
lock
faceplayer
showmoney 0x0 0x0 0x0
msgbox @msg1 MSG_KEEPOPEN
closeonkeypress
multichoice 0x14 0x1 0x<mcnumber> 0x0
compare 0x800D 0x0
if 0x1 goto @common
compare 0x800D 0x1
if 0x1 goto @uncommon
compare 0x800D 0x2
if 0x1 goto @rare
hidemoney 0x0 0x0
release
end

#org @common
checkmoney 0x1388 0x0
compare 0x800D 0x0
if 0x1 goto @notenough
paymoney 0x1388 0x0
updatemoney 0x0 0x0 0x0
fanfare 0x13E
msgbox @msg3 MSG_KEEPOPEN
closeonkeypress
waitfanfare
hidemoney 0x0 0x0
random 0x5
compare 0x800D 0x0
if 0x1 goto @1
compare 0x800D 0x1
if 0x1 goto @2
compare 0x800D 0x2
if 0x1 goto @3
compare 0x800D 0x3
if 0x1 goto @4
compare 0x800D 0x4
if 0x1 goto @5
release
end

#org @1
giveegg 0x<species>
release
end

#org @2
giveegg 0x<species>
release
end

#org @3
giveegg 0x<species>
release
end

#org @4
giveegg 0x<species>
release
end

#org @5
giveegg 0x<species>
release
end

#org @notenough
hidemoney 0x0 0x0
msgbox @msg2 MSG_KEEPOPEN
closeonkeypress
release
end

#org @uncommon
checkmoney 0x2710 0x0
compare 0x800D 0x0
if 0x1 goto @notenough
paymoney 0x2710 0x0
updatemoney 0x0 0x0 0x0
fanfare 0x13E
msgbox @msg3 MSG_KEEPOPEN
closeonkeypress
waitfanfare
hidemoney 0x0 0x0
random 0x5
compare 0x800D 0x0
if 0x1 goto @k1
compare 0x800D 0x1
if 0x1 goto @k2
compare 0x800D 0x2
if 0x1 goto @k3
compare 0x800D 0x3
if 0x1 goto @k4
compare 0x800D 0x4
if 0x1 goto @k5
release
end

#org @k1
giveegg 0x<species>
release
end

#org @k2
giveegg 0x<species>
release
end

#org @k3
giveegg 0x<species>
release
end

#org @k4
giveegg 0x<species>
release
end

#org @k5
giveegg 0x<species>
release
end

#org @rare
checkmoney 0x61A8
compare 0x800D 0x0
if 0x1 goto @notenough
paymoney 0x61A8 0x0
updatemoney 0x0 0x0 0x0
fanfare 0x13E
msgbox @msg1 MSG_KEEPOPEN
closeonkeypress
waitfanfare
hidemoney 0x0 0x0
random 0x3
compare 0x800D 0x0
if 0x1 goto @rare1
compare 0x800D 0x1
if 0x1 goto @rare2
compare 0x800D 0x2
if 0x1 goto @rare3
release
end

#org @rare1
giveegg 0x<species>
release
end

#org @rare2
giveegg 0x<species>
release
end

#org @rare3
giveegg 0x<species>
release
end

#org @msg1
= Hello, welcome to our Egg Shop!\pWhich kind of Egg would you like?

#org @msg2
= You don't have enough money.

#org @msg3
= [black_fr][player] received a [red_fr]Pokémon Egg[black_fr]!

Comments: Here is an egg shop script. Feel free to change any of the text and any of script. Give credit to Manipulation, okay? The Multichoice box at the top should contain 'Uncommon, Common and Rare'.


Rock Climb (Vine Whip):
Spoiler:

From down:
Spoiler:
#dynamic 0x800000

#org @1
#raw 0x7C 0x16 0x00
compare 0x800D 0x06
if 0x1 call @end
#raw 0x9D 0x00 0x0D 0x80
message @ha
boxset 5
compare LASTRESULT 0
if 0x1 goto @end
#raw 0x68
#raw 0x9C 0x25 0x00
waitstate
#raw 0x17 0x00 0x80 0x01 0x00
goto @jump
#org @jump
compare 0x8000 0x01
if 0x4 goto @move
release
end
#org @end
release
end
#org @move
applymovement 0xFF @move1
waitmovement 0x0
#raw 0x18 0x00 0x80 0x01 0x00
goto @jump

#org @ha
= It's some climbable rocks!\pWant to use VINE WHIP to\nclimb up them?

#org @move1
#raw 0x1E 0x1E 0x1E 0xFE

From up:
Spoiler:
#dynamic 0x800000

#org @1
#raw 0x7C 0x16 0x00
compare 0x800D 0x06
if 0x1 call @end
#raw 0x9D 0x00 0x0D 0x80
message @ha
boxset 5
compare LASTRESULT 0
if 0x1 goto @end
#raw 0x68
#raw 0x9C 0x25 0x00
waitstate
#raw 0x17 0x00 0x80 0x01 0x00
goto @jump
#org @jump
compare 0x8000 0x01
if 0x4 goto @move
release
end
#org @end
release
end
#org @move
applymovement 0xFF @move1
waitmovement 0x0
#raw 0x18 0x00 0x80 0x01 0x00
goto @jump

#org @ha
= It's some climbable rocks!\pWant to use VINE WHIP to\nclimb down them?

#org @move1
#raw 0x1D 0x1D 0x1D 0xFE

Credits: Hiche

Headbutt Trees (Headbutt):
Spoiler:
1)
Spoiler:
Spoiler:
#dynamic 0x800000

#org @headbutt
#raw 0x7C 0x1D 0x00
compare 0x800D 0x06
if 0x1 jump @could
#raw 0x9D 0x00 0x0D 0x80
#raw 0x7F 0x00 0x0D 0x80
#raw 0x82 0x01 0x1D 0x00
message @question
boxset 0x5
compare 0x800D 0x00
if 0x1 jump @end
message @used
boxset 0x6
#raw 0x68
#raw 0x9C 0x25 0x00
waitstate
jump 0x1Be06F

#org @could
message @you
boxset 0x6
release
end

#org @end
release
end

#org @question
= This tree could have a Pokemon\nin it. Use HEADBUTT?

#org @used
= \v\h02 used \v\h03!

#org @you
= This tree could be HEADBUTTed!

Credits: Hiche, Dabomstew


2)
Spoiler:
Spoiler:
#org @headbutt
lock
checkattack 0x1D
compare 0x800D 0x6
if 0x1 goto @release
bufferpokemon2 0x0 0x800D
bufferattack 0x1 0x1D
message @head
boxset 0x5
compare 0x800D 0x0
if 0x1 goto @release
message @used
boxset 0x4
closeonkeypress
goto @treeshake
end

#org @treeshake
random 0xamount
compare 0x800D 0x0
if 0x1 goto @wildbattle offset
compare 0x800D 0x1
if 0x1 goto @wildbattle offset2
[the random amount is how many different ones you can add]


#org @used
= [buffer1] used HEADBUTT.

#org @head
= Pokemon live in this tree. Using\nHEADBUTT may cause them to come out.\pDo you want to use HEADBUTT?

Credits: Dratii


3)
Spoiler:
Spoiler:
//-------------------------------------
//Preperations
//-------------------------------------

#dynamic 0x800000
#define cAttack 0x1D //Change this value to use another attack

//-------------------------------------
//Main Script
//-------------------------------------

#org @Main
lockall //Lock everything from moving
checkattack cAttack //Stores the first Pokémon who knows the attack into the variable 0x800D
compare 0x800D 0x06 //Makes sure a Pokémon knows the attack...
if 0x01 goto @NotKnown //If the value is 6 then no Pokémon knows the attack
setanimation 0x00 0x800D //The Pokémon animation is set with the Pokémon who knows the attack
bufferpartypokemon 0x00 0x800D //Puts the Pokémon who knows the attack into [buffer1]
bufferattack 0x01 cAttack //Puts the attack name into [buffer2]
msgbox @Message1 0x05 //A Yes/No box appears with the message
compare 0x800D 0x00 //Checks in "No" was selected
if 0x01 goto @DoNotWant //If it was, quit
msgbox @Message2 0x04 //"[buffer1] used [buffer2]!" >> Keep open
closeonkeypress //Close the msgbox when a key is pressed
doanimation 0x25 //Shows the Pokémon animation
waitstate //Waits for the animation to complete
setvar 0x8004 0x01 //Set up to shake screen
setvar 0x8005 0x01
setvar 0x8006 0x0C
setvar 0x8007 0x02
special 0x136 //Shake screen
pause 0x20 //Wait 1~ second
special 0xAB //Call a random battle from the "Tree" section of wild Pokémon
compare 0x800D 0x00 //Checks if a wild battle happened
if 0x1 goto @DoNotWant //If not, quit
waitstate //Wait for the battle to complete
releaseall //Allow the player to move freely again
end //End the script

//-------------------------------------
//Sub Scripts
//-------------------------------------

#org @NotKnown
msgbox @Message3 0x03
end

#org @DoNotWant
releaseall
end

//-------------------------------------
//Messages
//-------------------------------------

#org @Message1
= This tree may contain a Pokemon.\nUse the move [buffer2]?

#org @Message2
= [buffer1] used [buffer2]!

#org @Message3

= This tree may contain a Pokemon.\nIt may be able to be knocked out.

Credits: Dartharon


Braille Script:
Spoiler:
Spoiler:
#dynamic 0x[your offset]
#org @start
lock
faceplayer
msgbox @3
boxset MSG_NORMAL 'Must be a msgbox!
braille @4
waitkeypress
release
end

#org @3
= There is something strange on the stone...

#org @4
#braille something 'the braille words

Credits: liuyanghejerry


Move Tutor Script:
Spoiler:
Spoiler:
#org @Start
lock
faceplayer
checkflag 0x200
compare LASTRESULT 0x1
if 0x1 goto @AlreadyLearnt
msgbox @WantToLearn
boxset 0x5
compare LASTRESULT 0x0
if 0x1 goto @DontWant
setvar 0x8005 0x1 ' 0x[Move number]
special 0x18D
setflag 0x200
release
end

Credits: liuyanghejerry


'Wishing' Well Script
Spoiler:
Spoiler:
#dynamic 0x800000

#org @start
lock
random 0xA
compare LASTRESULT 0x9
if 0x1 goto @lucky
msgbox @nothing 0x6
release
end

#org @lucky
msgbox @jackpot 0x6
giveitem 0x1A 0x1 0x0
release
end

#org @nothing
= [PLAYER] reeled up the bucket...\p...\pNothing!

#org @jackpot
= [PLAYER] reeled up the bucket...\p...\pJackpot!


Credits: The Master, HackMew (fixing up script)


Bike Stand Script
Spoiler:
Spoiler:

#dynamic 0x800000

#org @begin
lock
faceplayer
checkitem 0x168 0x1
compare LASTRESULT 0x1
if 0x0 jump @no
message @mount 0x5
compare LASTRESULT 0x0
if 0x1 goto @no
special 0x157
release
end

#org @no
release
end

#org @mount
= Do you want to mount your bike?

Credits: The blob of blobs, HackMew (fixing up script)


Honey Tree Script:
Spoiler:
Spoiler:

#dynamic 0x0FF5E1

#org @start
lock
checkflag 0x200
compare LASTRESULT 0x1
if 0x1 call @already
msgbox @honeytree MSG_NORMAL
checkitem ITEM_HONEY 0x1
compare LASTRESULT 0x1
if 0x1 call @honey
setflag 0x200
release
end

#org @honey
msgbox @hunny MSG_QUESTION
compare LASTRESULT 0x1
if 0x1 call @ona
return

#org @already
msgbox @pokemon MSG_NORMAL
random 0x0A
compare LASTRESULT 0x0
if 0x1 call @1
compare LASTRESULT 0x1
if 0x1 call @2
compare LASTRESULT 0x2
if 0x1 call @3
compare LASTRESULT 0x3
if 0x1 call @4
compare LASTRESULT 0x4
if 0x1 call @5
compare LASTRESULT 0x5
if 0x1 call @6
compare LASTRESULT 0x6
if 0x1 call @7
compare LASTRESULT 0x7
if 0x1 call @8
compare LASTRESULT 0x8
if 0x1 call @9
compare LASTRESULT 0x9
if 0x1 call @10
clearflag 0x200
release
end

#org @1
wildbattle PKMN_WURMPLE 0x8 0x0
return

#org @2
wildbattle PKMN_COMBEE 0xD 0x0
return

#org @3
wildbattle PKMN_WURMPLE 0x7 0x0
return

#org @4
wildbattle PKMN_WURMPLE 0xA 0x0
return

#org @5
wildbattle PKMN_MUNCHLAX 0xE 0x0
return

#org @6
wildbattle PKMN_HERACROSS 0x8 0x0
return

#org @7
wildbattle PKMN_AIPOM 0x8 0x0
return

#org @8
wildbattle PKMN_COMBEE 0x8 0x0
return

#org @9
wildbattle PKMN_CHERUBI 0x8 0x0
return

#org @10
wildbattle PKMN_CHERUBI 0x8 0x0
return

#org @ona
removeitem ITEM_HONEY 0x1
msgbox @hungry MSG_NORMAL
return

#org @pokemon
= Huh?\pIt looks like there's a POKéMON on\nthe HONEY TREE!

#org @honeytree
= It's a HONEY TREE.

#org @hunny
= Would you like to slather the bark\nwith HONEY?

#org @hungry
= [player] slathered the bark with\nHONEY.


Comments:You need to make a different flag for all the honey trees, unless you want to slather one tree and catch Pokemon on another. If you want, you can replace the Pokémon with ones that you prefer.
Also, you need the item Honey. In the example, Berry Juice has been replaced, but again, it is up to what you prefer.

Credits: Colorful Summer


Random Weather Script:
Spoiler:
Spoiler:

'---------------
#org 0x(offset)
random 0x0A
compare LASTRESULT 0x0
if 0x1 goto @1
compare LASTRESULT 0x1
if 0x1 goto @2
compare LASTRESULT 0x2
if 0x1 goto @3
compare LASTRESULT 0x3
if 0x1 goto @4
compare LASTRESULT 0x4
if 0x1 goto @5
compare LASTRESULT 0x5
if 0x1 goto @6
compare LASTRESULT 0x6
if 0x1 goto @7
compare LASTRESULT 0x7
if 0x1 goto @8
compare LASTRESULT 0x8
if 0x1 goto @9
compare LASTRESULT 0x9
if 0x1 goto @10

#org @1
setweather 0x1
doweather
end

#org @2
setweather 0x2
doweather
end

#org @3
setweather 0x3
doweather
end

#org @4
setweather 0x4
doweather
end

#org @5
setweather 0x5
doweather
end

#org @6
setweather 0x7
doweather
end

#org @7
setweather 0xb
doweather
end

#org @8
setweather 0xd
doweather
end

#org @9
setweather 0x2
doweather
end

#org @10
setweather 0xb
doweather
end


Credits: Sab


Phonecall Script:
Spoiler:
Spoiler:

#dynamic 0x800000

#org @start
checkflag 0x1000
if 0x1 goto @nope
random 0x2
compare 0x800D 0x1
if 0x1 goto @nope
compare 0x800D 0x2
if 0x1 goto @yes
release
end

#org @yes
setanimation 0x41 0x27
doanimation 0x41
pause 0x35
msgbox @fonecall 0x6
applymovement 0xFF @?
msgbox @hello? 0x6
setflag 0x1000
release
end

#org @nope
release
end

#org @fonecall
= PHONECALL:Beeep

#org @?
#raw 0x62 0xFE

#org @hello?
= Hello \v\h01 How are you doing.\nPHONE Ending message\pBeep\nBeep\pBeep

Credits:


Rock Jump Script:
Spoiler:
Spoiler:

#dynamic 0x740000

#org @start
compare 0x800C 0x1
if 0x1 call @T
compare 0x800C 0x2
if 0x1 call @S
compare 0x800C 0x3
if 0x1 call @A
compare 0x800C 0x4
if 0x1 call @D
end

#org @A
release
end

#org @D
release
end

#org @T
checkattack 0x16
Compare LASTRESULT 6
if 0x1 call @no2
#raw 0x9D 0x00 0x0D 0x80
msgbox @rock 0x5
Compare LASTRESULT 1
if 0x0 goto @NOPE
Doanimation 0x25
waitstate
Checkanimation 0x25
compare 0x8000 0x01
applymovement 0xFF @test
waitmovement 0x0
release
end

#org @S
checkattack 0x16
Compare LASTRESULT 6
if 0x1 call @no3
#raw 0x9D 0x00 0x0D 0x80
msgbox @rock2 0x5
Compare LASTRESULT 1
if 0x0 goto @NOPE
doanimation 0x25
waitstate
Checkanimation 0x25
compare 0x8000 0x01
applymovement 0xFF @test2
waitmovement 0x0
release
end

#org @no3
msgbox @noclimb2 0x6
release
end

#org @test2
#raw 0x15 0xFE

#org @rock2
= These rocks look scaly want to\n use vine whip to throw\p yourself up?

#org @nope
release
end

#org @test
#raw 0x14 0xFE

#org @rock
= These rocks look scaly \n Do you want to use\p vine whip to \nthrow yourself Down?

#org @NO2
msgbox @noclimb 0x6
release
end

#org @noclimb
= These rocks look like a pokemons\nMove could scale them.

#org @no
release
end

#org @noclimb2
= These rocks look like a pokemons\nMove could scale them.

Credits: -


Feel free to submit your miscellaneous, XSE scripts!

Also, to save up a bit of clutter, I've merged all of these repeat threads in one, so some of these replies may not make sense. DON'T MAKE ANY MORE MISC. XSE SCRIPT THREADS. BUMP THIS ONE. Thanks.

Last edited by Spherical Ice; February 28th, 2010 at 11:46 AM.
Reply With Quote
  #2    
Old December 20th, 2008, 05:41 PM
liuyanghejerry's Avatar
liuyanghejerry
Trainer
 
Join Date: Jan 2008
Location: China,Xi'an
Nature: Calm
Send a message via ICQ to liuyanghejerry Send a message via Windows Live Messenger to liuyanghejerry Send a message via Yahoo to liuyanghejerry
Well,I've donated my scripts to the ROM Hacking Newsletter,and should I post them here again?
BTW,you lost the ROM version imformation...
__________________
Zel,thethethethe,LU-HO,Darthatron,HackMew,ZodiacDaGreat,Juan,score_under,JPAN,Tamah-chan,I really appreciate your kindness and your help!:D


I did something that really bad.But made all Chinese can hack Pokemon, too.If you guys hate me, I totally understand,but cannot do anything but force to keep everything.
If there must be someone to undertake all spit and curse, it must be me.
Reply With Quote
  #3    
Old December 20th, 2008, 11:31 PM
Hiche..
 
 
Join Date: Apr 2008
Well, I have a HEADBUTT script. Do I post all the script if I want?

Also, in the two rock climb scripts, change this part #org @move, to this #org @move1. In both scripts.

Last edited by Hiche..; December 21st, 2008 at 01:35 AM.
Reply With Quote
  #4    
Old December 21st, 2008, 03:27 AM
Tropical Sunlight's Avatar
Tropical Sunlight
The Faltine
 
Join Date: Mar 2008
Location: Slovenia
Age: 18
Gender: Male
Send a message via Windows Live Messenger to Tropical Sunlight
Quote:
Originally Posted by liuyanghejerry View Post
Well,I've donated my scripts to the ROM Hacking Newsletter,and should I post them here again?
BTW,you lost the ROM version imformation...
Please post them here, I'm too lazy to looks up the Newspapers (X-Buster made lazyness)

Quote:
Originally Posted by Hiche View Post
Well, I have a HEADBUTT script. Do I post all the script if I want?

Also, in the two rock climb scripts, change this part #org @move, to this #org @move1. In both scripts.
Done.
Yes, please post them here. Just make sure they're in XSE format.
__________________
Reply With Quote
  #5    
Old December 21st, 2008, 03:42 AM
Hiche..
 
 
Join Date: Apr 2008
Name: Headbutt script
ROM info: FireRed BPRE
Effect: Like in Pokemon G/S/C versions.
Script:

Spoiler:
#dynamic 0x800000

#org @headbutt
#raw 0x7C 0x1D 0x00
compare 0x800D 0x06
if 0x1 jump @could
#raw 0x9D 0x00 0x0D 0x80
#raw 0x7F 0x00 0x0D 0x80
#raw 0x82 0x01 0x1D 0x00
message @question
boxset 0x5
compare 0x800D 0x00
if 0x1 jump @end
message @used
boxset 0x6
#raw 0x68
#raw 0x9C 0x25 0x00
waitstate
jump 0x1Be06F

#org @could
message @you
boxset 0x6
release
end

#org @end
release
end

#org @question
= This tree could have a Pokemon\nin it. Use HEADBUTT?

#org @used
= \v\h02 used \v\h03!

#org @you
= This tree could be HEADBUTTed!


Credits: Dabomstew, Hiche.

Some explanations:

Quote:
jump 0x1BE06F
It's the command that calls the Pokemon that are encountered, when you HEADBUTT the small tree.
Reply With Quote
  #6    
Old December 21st, 2008, 07:58 AM
HackMew's Avatar
HackMew
Mewtwo Strikes Back
 
Join Date: Jun 2006
This is a good idea, but it doesn't really make sense to use #raw for known commands.
__________________
Reply With Quote
  #7    
Old December 21st, 2008, 08:04 AM
machomuu's Avatar
machomuu
The Lights in the Sky are Stars
Community Supporter
 
Join Date: Apr 2008
Location: 'Murca
Gender: Male
Nature: Relaxed
I have a question, say I have a mini-game script, I can post it here for others to use?
__________________
Reply With Quote
  #8    
Old December 21st, 2008, 08:26 AM
Tropical Sunlight's Avatar
Tropical Sunlight
The Faltine
 
Join Date: Mar 2008
Location: Slovenia
Age: 18
Gender: Male
Send a message via Windows Live Messenger to Tropical Sunlight
Quote:
Originally Posted by machomuu View Post
I have a question, say I have a mini-game script, I can post it here for others to use?
Sure you can! Not can, must.

HackMew I'm sorry but you should ask Hiche for that...
__________________
Reply With Quote
  #9    
Old December 21st, 2008, 08:37 AM
HackMew's Avatar
HackMew
Mewtwo Strikes Back
 
Join Date: Jun 2006
Quote:
Originally Posted by Tropical Sunlight View Post
Sure you can! Not can, must.

HackMew I'm sorry but you should ask Hiche for that...
Well, you can still open the Command Help to see what commands are those, can't you? ;)
__________________
Reply With Quote
  #10    
Old December 21st, 2008, 09:38 AM
Hiche..
 
 
Join Date: Apr 2008
Lol. I only put the #raw because to explain some. I will post it with XSE known commands later on.

Spoiler:
#dynamic 0x800000

#org @1
checkattack 0x16
compare 0x800D 0x06
if 0x1 call @end
setanimation 0x00 0x800D
message @ha
boxset 5
compare LASTRESULT 0
if 0x1 goto @end
closeonkeypress
doanimation 0x25
waitstate
addvar 0x8000 0x1
goto @jump

#org @jump
compare 0x8000 0x01
if 0x4 goto @move
release
end

#org @end
release
end

#org @move
applymovement 0xFF @move1
waitmovement 0x0
subvar 0x8000 0x1
goto @jump

#org @ha
= It's some climbable rocks!\pWant to use VINE WHIP to\nclimb up them?

#org @move1
#raw 0x1E 0x1E 0x1E 0xFE


Edit the other part of the script. Here is the XSE format of the script. No #raws.

The Headbutt script, I will modify it tomorrow.

Last edited by Hiche..; December 21st, 2008 at 12:41 PM.
Reply With Quote
  #11    
Old December 22nd, 2008, 04:17 PM
Dratii's Avatar
Dratii
Working on something new...
 
Join Date: Aug 2008
Nature: Careful
For those that are confused, here is a more complete script

Name: Headbutt script
ROM info: FR
Effect: makes a wild pokemon appear after using headbutt

Code:
#org @headbutt
lock
checkattack 0x1D
compare 0x800D 0x6
if 0x1 goto @release
bufferpokemon2 0x0 0x800D
bufferattack 0x1 0x1D
message @head
boxset 0x5
compare 0x800D 0x0
if 0x1 goto @release
message @used
boxset 0x4
closeonkeypress
goto @treeshake
end

#org @treeshake
random 0xamount
compare 0x800D 0x0
if 0x1 goto @wildbattle offset
compare 0x800D 0x1
if 0x1 goto @wildbattle offset2
[the random amount is how many different ones you can add]


#org @used
= [buffer1] used HEADBUTT.

#org @head
= Pokemon live in this tree. Using\nHEADBUTT may cause them to come out.\pDo you want to use HEADBUTT?
Credits Dratii
__________________
Fun



Last edited by Dratii; December 22nd, 2008 at 04:29 PM.
Reply With Quote
  #12    
Old December 22nd, 2008, 11:17 PM
liuyanghejerry's Avatar
liuyanghejerry
Trainer
 
Join Date: Jan 2008
Location: China,Xi'an
Nature: Calm
Send a message via ICQ to liuyanghejerry Send a message via Windows Live Messenger to liuyanghejerry Send a message via Yahoo to liuyanghejerry
I think I have to enter more than 24 chracters...

Quote:

Name: Braille Script
ROM info: Firered English (BPRE)
Effect: Makes the words become braille
Script:

Code:
 

#dynamic 0x[your offset]
#org @start
lock
faceplayer
msgbox @3
boxset MSG_NORMAL 'Must be a msgbox!
braille @4 
waitkeypress
release
end

#org @3
= There is something strange on the stone...

#org @4
#braille something 'the braille words
Comments & Bugs: NEVER forget a message box!

Credits Nintendo


Quote:

Name: Move Tutor Script
ROM info: Firered English (BPRE)
Effect:You can learn a move from this script

Script:

Code:
#org @Start
lock
faceplayer
checkflag 0x200
compare LASTRESULT 0x1
if 0x1 goto @AlreadyLearnt
msgbox @WantToLearn
boxset 0x5
compare LASTRESULT 0x0
if 0x1 goto @DontWant
setvar 0x8005 0x1 ' 0x[Move number]
special 0x18D
setflag 0x200
release
end
Comments & Bugs: You can use any number between 0 and F. That gives us 16 possible moves to

use. You can find all possible moves on this page

And if you want to change the move ,read this post

http://www.pokecommunity.com/showpos...&postcount=258



Credits: Nintendo




__________________
Zel,thethethethe,LU-HO,Darthatron,HackMew,ZodiacDaGreat,Juan,score_under,JPAN,Tamah-chan,I really appreciate your kindness and your help!:D


I did something that really bad.But made all Chinese can hack Pokemon, too.If you guys hate me, I totally understand,but cannot do anything but force to keep everything.
If there must be someone to undertake all spit and curse, it must be me.

Last edited by liuyanghejerry; December 22nd, 2008 at 11:19 PM. Reason: adding some information
Reply With Quote
  #13    
Old December 24th, 2008, 03:17 AM
Tropical Sunlight's Avatar
Tropical Sunlight
The Faltine
 
Join Date: Mar 2008
Location: Slovenia
Age: 18
Gender: Male
Send a message via Windows Live Messenger to Tropical Sunlight
Thank you for the scripts you are donating.
It really helps beginners like me
__________________
Reply With Quote
  #14    
Old December 26th, 2008, 12:27 PM
Lady Berlitz's Avatar
Lady Berlitz
Cinnamon ♪
 
Join Date: May 2007
Location: An igloo in Canada
Nature: Adamant
I tried both of the Headbutt scripts, and neither of them work for me.
__________________
_█████████_
_█▄█████▄█_
_█▼▼▼▼▼▼▼█_
██_______██
_█▲▲▲▲▲▲▲█_
_█████████_
_██_____██_
Reply With Quote
  #15    
Old December 26th, 2008, 12:36 PM
Hiche..
 
 
Join Date: Apr 2008
Quote:
Originally Posted by Infernal Contraption View Post
I tried both of the Headbutt scripts, and neither of them work for me.
Spoiler:
#dynamic 0x800000

#org @headbutt
checkattack 0x1D
compare 0x800D 0x06
if 0x1 jump @could
setanimation 0x00 0x800D
bufferpartypokemon 0x00 0x800D
bufferattack 0x01 0x1D
message @question MSG_YESNO
compare 0x800D 0x00
if 0x1 jump @end
message @used MSG_NORMAL
closeonkeypress
doanimation 0x25
waitstate
call 0x1Be06F

#org @could
message @you MSG_NORMAL
release
end

#org @end
release
end

#org @question
= This tree could have a Pokemon\nin it. Use HEADBUTT?

#org @used
= [buffer1] used [buffer2]!

#org @you
= This tree could be HEADBUTTed!


Try this. It's XSE. In what way it does not work? Like, you click on the headbutt tree, and nothing happens, or something else? Because it worked perfectly in my ROM.

This is for the new version of XSE.

Last edited by Hiche..; December 26th, 2008 at 12:51 PM.
Reply With Quote
  #16    
Old December 26th, 2008, 12:41 PM
Lady Berlitz's Avatar
Lady Berlitz
Cinnamon ♪
 
Join Date: May 2007
Location: An igloo in Canada
Nature: Adamant
No, I get an error in XSE when I try to compile it into the ROM.
Quote:
Unknown keyword "jump" at line 19.
Reply With Quote
  #17    
Old December 26th, 2008, 12:53 PM
Hiche..
 
 
Join Date: Apr 2008
I edited it again.(Before you post now). replace jump with call. See it. Also, you have the new XSE, right? 1.1.1
Reply With Quote
  #18    
Old December 26th, 2008, 01:24 PM
HackMew's Avatar
HackMew
Mewtwo Strikes Back
 
Join Date: Jun 2006
Quote:
Originally Posted by Hiche View Post
I edited it again.(Before you post now). replace jump with call. See it. Also, you have the new XSE, right? 1.1.1
Remember after call you still need end.
__________________
Reply With Quote
  #19    
Old January 18th, 2009, 12:33 PM
hot_kage's Avatar
hot_kage
I am like a rose cute and calm
 
Join Date: Oct 2008
Location: Long Beach , California
Age: 21
Gender:
Nature: Naughty
Quote:
Originally Posted by Tropical Sunlight
#dynamic 0x800000

#org @1
#raw 0x7C 0x16 0x00
compare 0x800D 0x06
if 0x1 call @end
#raw 0x9D 0x00 0x0D 0x80
message @ha
boxset 5
compare LASTRESULT 0
if 0x1 goto @end
#raw 0x68
#raw 0x9C 0x25 0x00
waitstate
#raw 0x17 0x00 0x80 0x01 0x00
goto @jump
#org @jump
compare 0x8000 0x01
if 0x4 goto @move
release
end
#org @end
release
end
#org @move
applymovement 0xFF @move1
waitmovement 0x0
#raw 0x18 0x00 0x80 0x01 0x00
goto @jump

#org @ha
= It's some climbable rocks!\pWant to use VINE WHIP to\nclimb up them?

#org @move1
#raw 0x1E 0x1E 0x1E 0xFE
i found the various pointers don't have parameters
@end has none
@jump has none
Reply With Quote
  #20    
Old March 15th, 2009, 08:04 AM
Sonikku17's Avatar
Sonikku17
Wanderer
 
Join Date: Aug 2008
Age: 22
Nature: Impish
Hey, thanks for the scripts! I tried the rock climb script, and it pretty much worked. However, for some reason, it repeats the movements 5 times (for instance, if I wanted it to push me one step down, it does five steps and stops). Is there a way to fix this?
Reply With Quote
  #21    
Old March 15th, 2009, 03:31 PM
Dragonmaster91's Avatar
Dragonmaster91
It's just common sense!
 
Join Date: Apr 2008
Gender: Male
Nature: Adamant
Quote:
Originally Posted by hot_kage View Post
i found the various pointers don't have parameters
@end has none
@jump has none
Look harder. They are there.

Quote:
Originally Posted by Sonikku17 View Post
Hey, thanks for the scripts! I tried the rock climb script, and it pretty much worked. However, for some reason, it repeats the movements 5 times (for instance, if I wanted it to push me one step down, it does five steps and stops). Is there a way to fix this?
You change the movements in the script.

Applymovement @pointer

#org @pointer
#raw 0x(whatever)
#raw 0xFE

You change that part.

Code:
#dynamic 0x800000
 
#org @1
#raw 0x7C 0x16 0x00
compare 0x800D 0x06
if 0x1 call @end
#raw 0x9D 0x00 0x0D 0x80
message @ha
boxset 5
compare LASTRESULT 0
if 0x1 goto @end
#raw 0x68
#raw 0x9C 0x25 0x00
waitstate
#raw 0x17 0x00 0x80 0x01 0x00
goto @jump
#org @jump
compare 0x8000 0x01
if 0x4 goto @move
release
end
#org @end
release
end
#org @move
applymovement 0xFF @move1
waitmovement 0x0
#raw 0x18 0x00 0x80 0x01 0x00
goto @jump
 
#org @ha
= It's some climbable rocks!\pWant to use VINE WHIP to\nclimb down them?
 
#org @move1
#raw 0x1D 0x1D 0x1D 0xFE
To:
Code:
#org @move1
#raw 0x1D 0xFE

Last edited by Dragonmaster91; March 15th, 2009 at 03:37 PM.
Reply With Quote
  #22    
Old March 15th, 2009, 09:46 PM
0m3GA ARS3NAL's Avatar
0m3GA ARS3NAL
Im comin' home...
Community Supporter Tier 1
 
Join Date: Jan 2008
Location: Superjail Penitentiary
Age: 22
Gender: Male
Nature: Gentle
Hmm, this script seems useful indeed. A collaboration of scripts many people may want to use, all located in one place... Nice...

I may contribute in the future, if the thread does not die...
If it lasts a month, I'll post some fantastic scripts.
If not... well, I don't think I gotta explain that...

For this thread, I have a bit of advice... Try to enforce the format given, ESPECIALLY defining the ROM the script can be used in, if people start posting scripts that can only be used in Ruby, and then a FR/LG hacker comes, and uses it, well, things will end up a bit hectic... keep that in mind.
__________________
>Boot Jailbot
>Pass *****
.
.
Jailbot OS Ver 1.1.2
Greetings Warden
of Superjail Penitentiary
Awaiting user input...

>Display User_Info
╠══User Info══╣
Username:
0m3GA ARS3NAL
Age: 18
Sex: Male ♂
Race: Caucasian
Quote:
"What is this
I don't even..."

M/O: Often acts out to get attention, but recently has changed that. Has been studying up on hacking information and hopes to participate in more advanced hacking discussion.
╠══End of File══╣
Awaiting user input...

>
Reply With Quote
  #23    
Old June 17th, 2009, 03:09 PM
HackMew's Avatar
HackMew
Mewtwo Strikes Back
 
Join Date: Jun 2006
@ Spherical Ice:
Didn't you know that comparing LASTRESULT multiple times won't work? Each time you use the compare command, the LASTRESULT is updated. The if command checks the LASTRESULT, indeed. Another thing. You messed up the random command. Random work in the range (0, X + 1). So (0,9) would be (0,10). Also, 0x10 is not the same as 10, of course. Please don't mix hex and dec. You should have tested the script before posting it...
Anyway, here's the optimized (and working) version:

Spoiler:
#dynamic 0x800000

#org @start
lock
random 0xA
compare LASTRESULT 0x9
if 0x1 goto @lucky
msgbox @nothing 0x6
release
end

#org @lucky
msgbox @jackpot 0x6
giveitem 0x1A 0x1 0x0
release
end

#org @nothing
= [PLAYER] reeled up the bucket...\p...\pNothing!

#org @jackpot
= [PLAYER] reeled up the bucket...\p...\pJackpot!


EDIT: You should update your XSE too, since it's old.
__________________

Last edited by Spherical Ice; January 23rd, 2010 at 12:18 PM.
Reply With Quote
  #24    
Old June 17th, 2009, 11:11 PM
Spherical Ice's Avatar
Spherical Ice
Community Supporter
 
Join Date: Nov 2007
Location: UK
Send a message via Skype™ to Spherical Ice
I did test my script, and it worked fine! I used the LASTRESULT multiple times, as it was like that in diego's tutorial. On XSE, when I asked for a live update, it said that version 1.1.1 is the newest version. Thanks for the help, though, HackMew.
__________________
Reply With Quote
  #25    
Old June 18th, 2009, 07:37 AM
HackMew's Avatar
HackMew
Mewtwo Strikes Back
 
Join Date: Jun 2006
Quote:
Originally Posted by Spherical Ice View Post
I did test my script, and it worked fine! I used the LASTRESULT multiple times, as it was like that in diego's tutorial. On XSE, when I asked for a live update, it said that version 1.1.1 is the newest version. Thanks for the help, though, HackMew.
It seemed to work fine, then. You're welcome.
__________________
Reply With Quote
Reply
Quick Reply

Sponsored Links
Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Minimum Characters Per Post: 25



All times are UTC -8. The time now is 02:34 AM.


Style by Nymphadora, artwork by Sa-Dui.
Like our Facebook Page Follow us on Twitter © 2002 - 2014 The PokéCommunity™, pokecommunity.com.
Pokémon characters and images belong to The Pokémon Company International and Nintendo. This website is in no way affiliated with or endorsed by Nintendo, Creatures, GAMEFREAK, The Pokémon Company or The Pokémon Company International. We just love Pokémon.
All forum styles, their images (unless noted otherwise) and site designs are © 2002 - 2014 The PokéCommunity / PokéCommunity.com.
PokéCommunity™ is a trademark of The PokéCommunity. All rights reserved. Sponsor advertisements do not imply our endorsement of that product or service. User generated content remains the property of its creator.