Development: The Miscellaneous Script Thread

Logan · Feb 18, 2010

Code:

#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]!

Here is a public egg shop script. Feel free to change any of the text and any of script. Just give credit to Manipulation; okay? The Multichoice box at the top should contain 'Uncommon, Common and Rare' learn how to change them okay. I'm too lazy to explain it.

Common - $5000
Uncommon - $10000
Rare - $25000

Team Rocket's Raichu · Feb 28, 2010

Wow!...

I don't know what to say about this, except wow!

This will make hacks cooler. If I use these I will credit the makers.

EDIT: We should sticky this thread, if you ask me.

Logan · Feb 28, 2010

Just to inform everyone I've edited the script, if you're using it or plan to please update it with the newest version. The post was edited today.

NarutoActor · Mar 2, 2010

Okay well I liked harry's Idea for an egg shop, but I thought of a way where rare just gives you a higher percentage, while common just gives you a low percentage at a rare pokemon. This method means that even if you pick common you can get a rare egg(with luck), and if you pick rare you can get an un common pokemon(bad luck)

If you pick Rare
Chance of Rare Egg: 80%
Chance of Uncommon Egg: 20%
Chance of Common Egg:0%

If you pick uncommon:
Chance of Rare Egg:40%
Chance of Uncommon Egg:50%
Chance of Common Egg:10%

If you pick common:
Chance of Rare Egg:~13.33%
Chance of uncommon Egg:~16.66
Chance of Common Egg:70%

The way I would implement this is adding a message that states that you can buy a ticket, and green ticket has the best chance of a rare pokemon egg.Also that blue was the worse chance, but it is the cheapest.

Credits:
Manipulation (for original Egg Shop Script)
NarutoActor (For new method. )

Code:

Code:

#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 0x1E
goto @com

#org @com
compare 0x800D 0x0
if 0x1 goto @1 'Uses only 2 rare pokemon, which was ment only for an example; you can add more.
compare 0x800D 0x1
if 0x1 goto @1
compare 0x800D 0x2
if 0x1 goto @2
compare 0x800D 0x3
if 0x1 goto @2
compare 0x800D 0x4
if 0x1 goto @3
compare 0x800D 0x5
if 0x1 goto @6
compare 0x800D 0x6
if 0x1 goto @3
compare 0x800D 0x7
if 0x1 goto @3
compare 0x800D 0x8
if 0x1 goto @4
compare 0x800D 0x9
if 0x1 goto @4
compare 0x800D 0xA
if 0x1 goto @5
goto @7 'stop comparing, since all other posiablitys would take you to a common pkmn.

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

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

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

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

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

#org @6
giveegg 0x<common_species>
release
end

#org @7
random 0x1
compare LASTRESULT 0x0
if true goto @5
goto @6

#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 0xA
goto @com

#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 0x5
goto @com

#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]!

Side Notes: Feel Free to add more than 7 to change the percentages around, also re-arranging the Random <number> will change the percentages.

PeregrineFig · Mar 13, 2010

Name: Random Clefairy Battle script
ROM: FireRed (US Version)
Description: This is a simple little script, but it might come in handy for a newbie hacker. When you talk to the Clefairy a random value between 0 and F is drawn, and if it's 0, you battle the Clefairy for a chance to catch it, otherwise, it bounces away into the mountains and disappears until you re-enter the map.
Script:

Spoiler:

Comments: Obviously you can change the flag, pokemon and level, movements, etc to whatever you want. Just make sure to set the person ID to the same as the flag used, or the Clefairy won't vanish after battling it. Of course, you might also want it to stay there even after battling it once, in that case just get rid of the setflag command and leave the ID as 0000.
Credits: I wrote this myself, however, diegoisawesome's tutorial taught me quite a few things about XSE scripting.

Flowerchild · May 22, 2010

sab said:
effect: a random weather script
game: all gba games
credit: sab
script:

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

I tried the random weather script and it just said
"No dynamic start offset specified."
Does anyone know how to fix it?

Spherical Ice · May 22, 2010

Add "#dynamic 0xOFFSET" at the beginning, with 0xOFFSET being your offset.

Danny0317 · Jul 25, 2014

Reviving this hella old thread for a script I just made and tested in Emerald. It's quite simple, but still pretty cool. The purpose of it is this:

Anyways, it's for Emerald and here's how it works. Italics means you can change anything there, and I just have it there to show the script.

Code:

#dynamic 0xE40000
#org @start
lock
faceplayer
msgbox @1 0x6 //just had that there, obviously not mandatory
goto @choose
end

#org @choose
special 0x28 //stores party in RAM
fadescreen 0x1
special 0x2A //Pokemon choosing screen
waitstate
compare LASTRESULT 0x0
if 0x5 goto @it //if all went well, like no cancelling, go to @it 
special 0x29 //restores party (In my case it won't be mandatory since I'm forcing the player to choose in @no, obviously you can change that like in the steven battle where he tells you to get ready or something
goto @no //if something bad did happen, goto @no

#org @it
special 0xFB //it updates your party I guess? Without it I still had 6 pokemon
msgbox @3 0x6
trainerbattle 0x3 0x10 0x0 @win
msgbox @4 0x6
special 0x29 //restore your party
release
end

#org @win
= Oh no.

#org @4
= I will now return your party.

#org @3
= Battle begin.

#org @no
msgbox @2 0x6
goto @choose //here for all of @no you can make it do something else, and it will be fine because your party has already been restored back with special 0x29

#org @2
= I said choose.

#org @1
= Choose.

and without my comments, and erased all of my stuff

Spoiler:

NOTE:As of now, losing the battle will leave you only with the pokemon you choose. I guess a solution for that would be putting special 0x29 in a level script, perhaps you can put a sethealingplace command IN the script somewhere, so when they lose they will go to that one and have a special 0x29 there. Sorry about that

Danny0317 · Jul 31, 2014

Hate to double post but it doesn't seem like anyone is gonna post here soon.
Okay, so my other script I'd like to share.
What it does: Okay, so you know when you use cut or an HM, your pokemon appears with the cool little background? Well, I found out how to make that happen with pokemon that aren't in your party. This could be good for scenes that a villain uses a pokemon to do something. I would post a video, but seeing as how I put a video in my other post, I don't wanna advertise or anything.

Code:

special 0x28 //stores party in RAM
callasm 0x8E40AA1 //Hackmew's routine, erases pokemon from party
callasm 0x8E40AA1
callasm 0x8E40AA1
callasm 0x8E40AA1
callasm 0x8E40AA1
callasm 0x8E40AF1 // Hackmew's routine, erases last pokemon from party
givepokemon 0x15F 0xA 0x0 0x0 0x0 0x0 //the pokemon you want to appear
checkattack 0x96 //like you would in an HM script, but put an attack you're 100% sure it has. Make the pokemon a level 1 if you want.
bufferpokemon 0x0 LASTRESULT
setanimation 0x0 LASTRESULT
doanimation 0x25
waitstate
special 0x29 //restores your party

Bugs I know: The player does an animation as well (raises pokeball). To fix that, move the camera 7 tiles or more to where you can't see the player like I did and then the script. Oh, it's for emerald, and for FR I haven't tried it, but if you wanna do it, replace special 0x28 to 0x27 and 0x29 to 0x28. Again, I haven't tried it, but it SHOULD work.

Logan · Jul 31, 2014

Dark Sneasel said:
stuff

Like the concept of that script and what it could do quite a lot, well done. :)

Danny0317 · Aug 7, 2014

Dark Sneasel said:
Reviving this hella old thread for a script I just made and tested in Emerald. It's quite simple, but still pretty cool. The purpose of it is this:

Anyways, it's for Emerald and here's how it works. Italics means you can change anything there, and I just have it there to show the script.

Code:

#dynamic 0xE40000 #org @start lock faceplayer msgbox @1 0x6 //just had that there, obviously not mandatory goto @choose end #org @choose special 0x28 //stores party in RAM fadescreen 0x1 special 0x2A //Pokemon choosing screen waitstate compare LASTRESULT 0x0 if 0x5 goto @it //if all went well, like no cancelling, go to @it special 0x29 //restores party (In my case it won't be mandatory since I'm forcing the player to choose in @no, obviously you can change that like in the steven battle where he tells you to get ready or something goto @no //if something bad did happen, goto @no #org @it special 0xFB //it updates your party I guess? Without it I still had 6 pokemon msgbox @3 0x6 trainerbattle 0x3 0x10 0x0 @win msgbox @4 0x6 special 0x29 //restore your party release end #org @win = Oh no. #org @4 = I will now return your party. #org @3 = Battle begin. #org @no msgbox @2 0x6 goto @choose //here for all of @no you can make it do something else, and it will be fine because your party has already been restored back with special 0x29 #org @2 = I said choose. #org @1 = Choose.

and without my comments, and erased all of my stuff

Spoiler:

Code:

#dynamic 0xE40000 #org @start lock faceplayer goto @choose end #org @choose special 0x28 fadescreen 0x1 special 0x2A waitstate compare LASTRESULT 0x0 if 0x5 goto @it special 0x29 goto @no #org @it special 0xFB INSERT YOUR STUFF HERE special 0x29 release end #org @no

NOTE:As of now, losing the battle will leave you only with the pokemon you choose. I guess a solution for that would be putting special 0x29 in a level script, perhaps you can put a sethealingplace command IN the script somewhere, so when they lose they will go to that one and have a special 0x29 there. Sorry about that

So diegoisawesome showed me that your stats don't update after. To fix that, first insert this routine:

Code:

.text
.align 2
.thumb
.thumb_func
.global ParkHack

start:		ldr r0, addr1
		ldr r1, val1
		ldr r0, [r0]
		add r0, r0, r1
		ldr r1, addr2
		ldrh r1, [r1]
		strb r1, [r0]
		mov r1, #0x0
		strb r1, [r0, #0x2]
		strb r1, [r0, #0x4]
		strb r1, [r0, #0x6]
		strb r1, [r0, #0x8]
		strb r1, [r0, #0xA]
		bx lr

.align 2
addr1:		.word 0x03005D90
addr2:		.word 0x020375F0
val1:		.word 0x00000CAA

(credit diegoisawesome for it)

And then this

#org @it
callasm 0x(offset + 1) //sets proper slot for 0xEA
special 0xFB //removes all other Pokémon
msgbox @3 0x6
trainerbattle 0x3 0x10 0x0 @win
msgbox @4 0x6
setvar 0x8004 0x6
special 0xEA //store new stats into temporary space
special 0x29 //restore your party from temporary space
release
end

loster313 · Nov 16, 2016

wow awesome a collaboration on lot of useful scripts, i myself have found 2 cool working scripts:D

tkim · Jun 24, 2017

Name: Stats Judge
ROM info: Pok?mon: FireRed Version [BPRE] (U) v1.0
Effect: Reads selected Pok?mon's IVs and stores them at vars 0x8004-0x800A
Script:

Spoiler:

Comments & Bugs: No bugs. Inefficient, which is due to my lack of ASM knowledge but nonetheless works exactly like Emerald ingame. Change flags if needed. Must use my asm routine for this script (change the orange text in the script as instructed): https://www.pokecommunity.com/showpost.php?p=9648919&postcount=1182
Credits: tkim

bitelaserkhalif · Sep 7, 2017

Here's some of my scripts that would appear in my rom hack.

1. Gives the Tickets for Lugia Ho-oh and Deoxys, and makes them check both.

Spoiler:

2.Pokemon Shop, buy pokemon here!

Spoiler:

Name: Buy Pokemons!!
ROM: Fire Red US V1.0
Effect:Asks if you want to buy Pokemon
Script:

Spoiler:

Comments & Bugs: Cannot buy Pokemon if party is full! To write this script, first fully compile, then take note of the @main offset. Then, delete @main, (there's deletion points start and finish), to make sure you're compiling @start only. After that don't hit compile, replace the one that pointing to @main with the offset that you have been noted earlier, to save space and efficiency.
Credits:bitelaserkhalif

3. Mining Rocks

Spoiler:

Name: Mining Rocks!
ROM: Fire Red US V1.0
Effect:Mini game that has chance to gives you shards, pearl, stones, unobtainable items (like Max revive but no rare candy and masterballs!!) and shoal related item (still finding usage tho on FRLG). Oh btw, this also gives wild Hoenn pokemon battle, keep your eye on it or else bad thing happens.
Script:

Spoiler:

Code:

#dynamic 0x750000

' This is prototype of random GASGASGAS mining system. sorta of
' minigame.
' Reward: shards, nuggets, pearl, wild pokemon, shoal items->shell bell

#org @start
lock
checkattack 0x5B 'dig
compare LASTRESULT 0x06
if 0x01 goto @cancel 'failure
setanimation 0x00 LASTRESULT 'The Pokémon animation is set with the Pokémon who knows the attack
bufferpartypokemon 0x00 LASTRESULT 'Puts the Pokémon who knows the attack into [buffer1]
bufferattack 0x01 0x5B 'Puts the attack name into [buffer2]
msgbox @msg1 MSG_YESNO
compare LASTRESULT 0X0
if 0x1 goto @end
msgbox @msg5 0x04 '"[buffer1] used [buffer2]!" >> Keep open
closeonkeypress 'Close the msgbox when a key is pressed
doanimation 0x25 'Shows the Pokémon animation
waitstate
goto @mining


#org @mining
pause 0x40 '2second pause
random 0x23 'RNG with 35 chances.

'mining machine

'the valuable items

compare LASTRESULT 0x0
if 0x1 goto @stardust
compare LASTRESULT 0x1
if 0x1 goto @stardust
compare LASTRESULT 0x2
if 0x1 goto @nugget
compare LASTRESULT 0x3
if 0x1 goto @starpiece
compare LASTRESULT 0x4
if 0x1 goto @nugget
compare LASTRESULT 0x5
if 0x1 goto @stardust

'wild
compare LASTRESULT 0x6
if 0x1 goto @wild1
compare LASTRESULT 0x7
if 0x1 goto @wild1
compare LASTRESULT 0x8
if 0x1 goto @wild2
compare LASTRESULT 0x9
if 0x1 goto @wild2
compare LASTRESULT 0xA
if 0x1 goto @wild3

'shards
compare LASTRESULT 0xB
if 0x1 goto @blueshard
compare LASTRESULT 0xC
if 0x1 goto @redshard
compare LASTRESULT 0xD
if 0x1 goto @yellowshard
compare LASTRESULT 0xE
if 0x1 goto @greenshard
compare LASTRESULT 0xF
if 0x1 goto @heartscale

'stones
compare LASTRESULT 0x10
if 0x1 goto @firestone
compare LASTRESULT 0x11
if 0x1 goto @moonstone
compare LASTRESULT 0x12
if 0x1 goto @waterstone
compare LASTRESULT 0x13
if 0x1 goto @leafstone
compare LASTRESULT 0x14
if 0x1 goto @thunderstone

'failures
compare LASTRESULT 0x15
if 0x1 goto @failure
compare LASTRESULT 0x16
if 0x1 goto @failure
compare LASTRESULT 0x17
if 0x1 goto @failure
compare LASTRESULT 0x18
if 0x1 goto @failure
compare LASTRESULT 0x19
if 0x1 goto @failure

'other
compare LASTRESULT 0x1A
if 0x1 goto @shoalsalt
compare LASTRESULT 0x1B
if 0x1 goto @shoalshell
compare LASTRESULT 0x1C
if 0x1 goto @shoalsalt
compare LASTRESULT 0x1D
if 0x1 goto @shoalshell
compare LASTRESULT 0x1E
if 0x1 goto @maxrevive

'other
compare LASTRESULT 0x1F
if 0x1 goto @maxrevive
compare LASTRESULT 0x20
if 0x1 goto @maxelixir
compare LASTRESULT 0x21
if 0x1 goto @berryjuice
compare LASTRESULT 0x22
if 0x1 goto @berryjuice
compare LASTRESULT 0x23
if 0x1 goto @maxelixir

'---------ITEMS-----------

#org @stardust
checkitemroom 0x6C 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x6C 0x1 0x0
goto @end

#org @nugget
checkitemroom 0x6E 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x6E 0x1 0x0
goto @end

#org @starpiece
checkitemroom 0x6D 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x6D 0x1 0x0
goto @end

'-------------------------

#org @blueshard
checkitemroom 0x31 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x31 0x1 0x0
goto @end

#org @redshard
checkitemroom 0x30 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x30 0x1 0x0
goto @end

#org @yellowshard
checkitemroom 0x32 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x32 0x1 0x0
goto @end

#org @greenshard
checkitemroom 0x33 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x33 0x1 0x0
goto @end

#org @heartscale
checkitemroom 0x6F 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x6F 0x1 0x0
goto @end

'-------------------------

#org @firestone
checkitemroom 0x5F 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x5F 0x1 0x0
goto @end

#org @moonstone
checkitemroom 0x5E 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x5E 0x1 0x0
goto @end

#org @waterstone
checkitemroom 0x61 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x61 0x1 0x0
goto @end

#org @leafstone
checkitemroom 0x62 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x62 0x1 0x0
goto @end

#org @thunderstone
checkitemroom 0x60 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x60 0x1 0x0
goto @end


'-------------------------

#org @shoalsalt
checkitemroom 0x2E 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x2E 0x1 0x0
goto @end

#org @shoalshell
checkitemroom 0x2F 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x2F 0x1 0x0
goto @end

#org @maxrevive
checkitemroom 0x61 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x61 0x1 0x0
goto @end

#org @maxelixir
checkitemroom 0x25 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x25 0x1 0x0
goto @end

#org @berryjuice
checkitemroom 0x2C 0x1
compare LASTRESULT 0x0
if 0x1 goto @full
giveitem 0x2C 0x1 0x0
goto @end

'-------------------------


'------WILD POKEMON-------

#org @wild1
wildbattle 0x17E 0X19 0X8B
goto @end

#org @wild2
wildbattle 0x172 0X19 0X8B
goto @end

#org @wild3
wildbattle 0x13E 0X19 0X8B
goto @end

'-------------------------

#org @cancel
msgbox @msg2 MSG_NORMAL
goto @end

#org @failure
msgbox @msg3 MSG_NORMAL
goto @end

#org @full
msgbox @msg4 MSG_NORMAL
goto @end

#org @end
release
end

' Messages to shown:
#org @msg1
= This is a Digging spot. You can\nuse DIG to mine here.\pDo you want to use it?

#org @msg2
= This is a Digging spot. You can\nuse DIG to mine here. But you\lcan't do it.

#org @msg3
= Digging failed. No items.

#org @msg4
= BAG is full. Digging is stopped.

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

Comments & Bugs: Cannot mine and put bag if party is full, National dex problem may hinder due to wild pokemons are hoenn ones, keeping it as is if there's no National Dex encounters decamark glitch pokemon (this can be changed). Also add script efficiency problem.
Credits: bitelaserkhalif, based on headbutt script

4.Fossil Guy+

Spoiler:

Name: Fossil Guy+
ROM: Fire Red US V1.0
Effect:Revives pokemon fossil, all of them (including hoenn ones). Also somewhat faster and you don't need to leave room!!
Script:

Spoiler:

Code:

#dynamic 0x750000
'---------------------------------------
#org @start
lock
faceplayer
msgbox @msg_1 MSG_YESNO
compare LASTRESULT 0x0
if 0x1 goto @end
countpokemon
compare LASTRESULT 0x6
if 0x1 goto @full
goto @fossilcheck
'---------------------------------------


'---------------------------------------
#org @full
MSGBOX @msg_3 MSG_NORMAL
goto @end
'---------------------------------------

'---------------------------------------
#org @nofossils
MSGBOX @msg_6 MSG_NORMAL
goto @end
'---------------------------------------

'---------------------------------------
#org @end
release
end
'---------------------------------------

#org @fossilcheck
'-----FOSSILCHECKING-----
checkitem 0x165 0x1
compare LASTRESULT 0x1
if 0x1 goto @helix
checkitem 0x166 0x1
compare LASTRESULT 0x1
if 0x1 goto @dome
checkitem 0x162 0x1
compare LASTRESULT 0x1
if 0x1 goto @amber
checkitem 0x11E 0x1
compare LASTRESULT 0x1
if 0x1 goto @root
checkitem 0x11F 0x1
compare LASTRESULT 0x1
if 0x1 goto @claw
goto @nofossils

'---------=---------------=-------------------=

#org @helix 'omanit
setvar 0x4001 0x165
bufferitem 0x0 0x4001
msgbox @msg_4 MSG_NORMAL
waitmsg
pause 0x6
removeitem 0x4001 0x1
bufferpokemon 0x0 0x8A
msgbox @msg_5 MSG_NORMAL
givepokemon 0x8A 0xF 0x0 0x0 0x0 0x0
goto @end

#org @dome 'akbuto
setvar 0x4001 0x166
bufferitem 0x0 0x4001
msgbox @msg_4 MSG_NORMAL
waitmsg
pause 0x6
removeitem 0x4001 0x1
bufferpokemon 0x0 0x8C
msgbox @msg_5 MSG_NORMAL
givepokemon 0x8C 0xF 0x0 0x0 0x0 0x0
goto @end

#org @amber 'ptera
setvar 0x4001 0x166
bufferitem 0x0 0x4001
msgbox @msg_4 MSG_NORMAL
waitmsg
pause 0x6
removeitem 0x4001 0x1
bufferpokemon 0x0 0x8E
msgbox @msg_5 MSG_NORMAL
givepokemon 0x8E 0xF 0x0 0x0 0x0 0x0
goto @end

#org @root
setvar 0x4001 0x11E
bufferitem 0x0 0x4001
msgbox @msg_4 MSG_NORMAL
waitmsg
pause 0x6
removeitem 0x4001 0x1
bufferpokemon 0x0 0x184
msgbox @msg_5 MSG_NORMAL
givepokemon 0X184 0xF 0x0 0x0 0x0 0x0
goto @end

#org @claw
setvar 0x4001 0x11F
bufferitem 0x0 0x4001
msgbox @msg_4 MSG_NORMAL
waitmsg
pause 0x6
removeitem 0x4001 0x1
bufferpokemon 0x0 0x186
msgbox @msg_5 MSG_NORMAL
givepokemon 0x186 0xF 0x0 0x0 0x0 0x0
goto @end


'------------------=MSG=-----------------------
#org @msg_1
= I can resurrect your fossil\nquickly and efficiently with my\lmachine. Do you want me to do\lthat?

#org @msg_2
= No?\nBut you didn't even try it!

#org @msg_3
= Ummm[.] Your party is full.\nIf you force me to do that, your\lfossil will be gone.

#org @msg_4
= [player] gives him a [buffer1], and\nwaited.


#org @msg_5
= DOCTOR: Okay, here you go.\nA [buffer1] has been revived.

#org @msg_6
= Are you kidding me? You didn't\neven have one!!

Comments & Bugs: Cannot revive if the party is full, the fossil is checked by order not by multichoice for simplicity sake.
Credits:bitelaserkhalif

Lunos · Oct 27, 2017

Name: Randomized Berry Tree
ROM info: Pok?mon Ruby v1.0 (AXVE) (USA), Pok?mon Fire Red v1.0 (BPRE) (USA), Pok?mon Emerald (BPEE) (USA)
Effect: May give a random berry to the Player upon interacting with whatever you put the script to.
Script:

Spoiler:

Comments & Bugs: Insert the script as a signpost in Advance Map. Having clarified that, the script is working as intended but I'd prolly make it so #org @berry once per day (if I knew how to do that.. hahaha), in which case, I would also remove or modify the chance of getting a berry in the 8th Line of the script to make it a little bit easier, but that's just me.

TheHunterManX · Oct 28, 2017

Here is a script that I used a lot in a romhack not too long ago. Needs Special 0x2E from JPAN's Hacked Engine.

Name: LR Text Change
Rom Info: 1636 - Pok?mon Fire Red v1.0 (BPRE)
Effect: Holding the L button will change the offset it goes to, i.e. a different message box.
Script:

Spoiler:

BluRose · Oct 29, 2017

TheHunterManX said:
Here is a script that I used a lot in a romhack not too long ago. Needs Special 0x2E from JPAN's Hacked Engine.

Name: LR Text Change
Rom Info: 1636 - Pok?mon Fire Red v1.0 (BPRE)
Effect: Holding the L button will change the offset it goes to, i.e. a different message box.
Script:

Spoiler:

'---------------
//Before starting game, make sure JPAN's Special 0x2E is in the game
#erase 0x800000 0x81 //Change with your offset
#dynamic 0x800000 //Change with your offset
#org @start
//If you put this script in a person event, add faceplayer
lock //Erase if you are using a script instead
special2 0x800D 0x2E //Special to check for keypress, then stored in LASTRESULT
compare 0x800D 0x2 //0x0 is no keypress, 0x1 is R, 0x2 is L, 0x3 is both
if 0x1 goto @left //Checks if the compare is valid. If so, goes to @left
goto @end //Goes to @end
#org @left
msgbox @msg 0x6 //displays @msg normally
release
end
#org @end
msgbox @msg2 0x6 //displays @msg2 normally
release
end
#org @msg
= Did you just hold the L button?
#org @msg2
= Try holding the L button, before\ntalking to me.
#org @nothing //Makes finding how much space to erase easier, does nothing else

just a nitpicky thing

Spoiler:

TheHunterManX · Oct 30, 2017

Well, either way is acceptable, so I guess it works. Anyways, I have a new script. Needs JPAN's hacked engine in order for the math to work.
Name: Randomized starter
Rom Info: 1636 - Pok?mon Fire Red v1.0 (BPRE)
Effect: Gives a randomized starter from gen 1-3 if you don't have one.
Script:

Spoiler:

P.S. This script is flexible and expandable, so if you have for example generation 4 in the game, just add:

Spoiler:

sylingga · Apr 26, 2023

Danny0317 said:
Hate to double post but it doesn't seem like anyone is gonna post here soon.
Okay, so my other script I'd like to share.
What it does: Okay, so you know when you use cut or an HM, your pokemon appears with the cool little background? Well, I found out how to make that happen with pokemon that aren't in your party. This could be good for scenes that a villain uses a pokemon to do something. I would post a video, but seeing as how I put a video in my other post, I don't wanna advertise or anything.

Code:

special 0x28 //stores party in RAM callasm 0x8E40AA1 //Hackmew's routine, erases pokemon from party callasm 0x8E40AA1 callasm 0x8E40AA1 callasm 0x8E40AA1 callasm 0x8E40AA1 callasm 0x8E40AF1 // Hackmew's routine, erases last pokemon from party givepokemon 0x15F 0xA 0x0 0x0 0x0 0x0 //the pokemon you want to appear checkattack 0x96 //like you would in an HM script, but put an attack you're 100% sure it has. Make the pokemon a level 1 if you want. bufferpokemon 0x0 LASTRESULT setanimation 0x0 LASTRESULT doanimation 0x25 waitstate special 0x29 //restores your party

Bugs I know: The player does an animation as well (raises pokeball). To fix that, move the camera 7 tiles or more to where you can't see the player like I did and then the script. Oh, it's for emerald, and for FR I haven't tried it, but if you wanna do it, replace special 0x28 to 0x27 and 0x29 to 0x28. Again, I haven't tried it, but it SHOULD work.

Sorry to reply old post.
Wanna know, do we need to insert other routine before,
or we can just use the script in Vanilla FR rom?

Development: The Miscellaneous Script Thread

More options

Logan

[img]http://pldh.net/media/pokecons_action/403.gif

Team Rocket's Raichu

Bye-Bye!

Logan

[img]http://pldh.net/media/pokecons_action/403.gif

NarutoActor

The rocks cry out to me

PeregrineFig

Starting Pokémon Obsidian

Flowerchild

fleeting assembly

Spherical Ice

Danny0317

Fluorite's back, brah

Danny0317

Fluorite's back, brah

Logan

[img]http://pldh.net/media/pokecons_action/403.gif

Danny0317

Fluorite's back, brah

loster313

tkim

bitelaserkhalif

Falcon Punch!!

Lunos

Random Uruguayan User

TheHunterManX

BluRose

blu rass

TheHunterManX

sylingga

Red Everywhere