The Miscellaneous Script Thread

[Tropical Sunlight]

Name: Bike Stand
ROMbase: Currently just FR/LG
Effect: It just activates the bike
Script:

Spoiler:

#dynamic 0x0FF5E1

#org @start
lock
special 0x157
release
end

Comments & Bugs: Just gets ON the bike, doesn't get OFF yet
Credits: IceCharizard, Tropical Sunlight, or ~Watermelon

[HackMew]

Originally Posted by ~Watermelon

Name: Bike Stand
ROMbase: Currently just FR/LG
Effect: It just activates the bike
Script:

Spoiler:

#dynamic 0x0FF5E1

#org @start
lock
special 0x157
release
end

Comments & Bugs: Just gets ON the bike, doesn't get OFF yet
Credits: IceCharizard, Tropical Sunlight, or ~Watermelon

Don't get me wrong but... seriously, why should someone credit you for a simple special anyone can put in his/her script? I mean, some special lists are available alredy o.O

[-DarK-]

Originally Posted by HackMew

Don't get me wrong but... seriously, why should someone credit you for a simple special anyone can put in his/her script? I mean, some special lists are available alredy o.O

I agree. Credits are only to be received for bigger and more complex scripts, otherwise you can put in a simple check/setflag script as well...

[Tropical Sunlight]

I'm sorry but I don't think anyone's gonna post a big script here...
This is the point... Maybe I'll try smth with the script

[Spherical Ice]

~Watermelon, I don't think I'll add it up, for the reasons mentioned above.

[Tropical Sunlight]

That's fine with me, I'm still trying smth out

[Full Metal]

Here is a much better bike mounting script.
It
A) checks for the player even having the bike
B) asks the player if he/she wants to mount it!
I've not yet tested it, but it should work.

Spoiler:

#dynamic 0x800000

#org @begin
lock
faceplayer
checkitem 0x168 0x1
if 0x1 jump @havebike
release
end

#org @havebike
message @yesno 0x5
if 0x0 goto @pushno
special 0x157
release
end

#org @pushno
release
end

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

And no credits needed o'course

[Tropical Sunlight]

Originally Posted by The blob of blobs

Here is a much better bike mounting script.
It
A) checks for the player even having the bike
B) asks the player if he/she wants to mount it!
I've not yet tested it, but it should work.

Spoiler:

#dynamic 0x800000

#org @begin
lock
faceplayer
checkitem 0x168 0x1
if 0x1 jump @havebike
release
end

#org @havebike
message @yesno 0x5
if 0x0 goto @pushno
special 0x157
release
end

#org @pushno
release
end

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

And no credits needed o'course

It is much better, put this one up!
Mine was just a special.

[HackMew]

Originally Posted by The blob of blobs

Here is a much better bike mounting script.
It
A) checks for the player even having the bike
B) asks the player if he/she wants to mount it!
I've not yet tested it, but it should work.

Spoiler:

#dynamic 0x800000

#org @begin
lock
faceplayer
checkitem 0x168 0x1
compare LASTRESULT 0x1
if 0x1 jump @havebike
release
end

#org @havebike
message @yesno 0x5
compare LASTRESULT 0x0
if 0x1 goto @pushno
special 0x157
release
end

#org @pushno
release
end

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

And no credits needed o'course

It should, but it won't. Since this is not the Script Help Thread, please post working, tested scripts only thanks. Fixes in bold. And here's the optimized script:

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?

[ExitWound]

Name: POKéDEX Given
ROMbase: Sapphire
Effect: Enables the POKéDEX in the start menu
Script: Not needed
Comments & Bugs: My script is complete except for 1 problem: what flag is set or what special is used to activate the POKéDEX in the start menu for Sapphire?

[Tropical Sunlight]

Originally Posted by ExitWound

Name: POKéDEX Given
ROMbase: Sapphire
Effect: Enables the POKéDEX in the start menu
Script: Not needed
Comments & Bugs: My script is complete except for 1 problem: what flag is set or what special is used to activate the POKéDEX in the start menu for Sapphire?

Eh... You need to post a script, maybe? O.o

Name: Honey Tree
ROMbase: Whatever, I used FR
Effect: A honey tree script which requires Honey in order to encounter a random Pokemon.
Script:

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_YESNO
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 & Bugs: You need to make a different flag for all the honey trees, unless you want to slather one tree and catch Pokemon on another.
I didn't debug the script, replace the Pokemon with the ones you prefer.
Also, you need the item honey.
I replaced it with Berry Juice, but again, whatever you prefer.

[ExitWound]

Originally Posted by Colorful Summer

Eh... You need to post a script, maybe? O.o

Well I didn't think my script was necessary but here it is:

Spoiler:

#dynamic 0x80731D

#org @start
checkflag 0x1005
if b_true goto @nevermind
applymovement 0xFF @1move
applymovement 0x21 @2move
waitmovement 0x0
msgbox @1msg 0x6
Something here to activate pokedex in start menu
fanfare 0x13E
msgbox @2msg 0x4
waitfanfare
closeonkeypress
fadescreen 0x1
applymovement 0x21 @3move
waitmovement 0x0
setflag 0x1005
fadescreen 0x0
release
end

#org @1msg
= [player], I almost forgot. You're\ngonna need this if you want to\lhave an easier journey.

#org @2msg
= [red_rs]You received a POKéDEX!

#org @nevermind
release
end

#org @1move
#raw 0x56 0x2 0xFE

#org @2move
#raw 0xB 0xFE

#org @3move
#raw 0x2F 0x2D 0x2D 0x54 0xFE

[Spherical Ice]

Originally Posted by ExitWound

Well I didn't think my script was necessary but here it is:

Spoiler:

#dynamic 0x80731D

#org @start
checkflag 0x1005
if b_true goto @nevermind
applymovement 0xFF @1move
applymovement 0x21 @2move
waitmovement 0x0
msgbox @1msg 0x6
Something here to activate pokedex in start menu
fanfare 0x13E
msgbox @2msg 0x4
waitfanfare
closeonkeypress
fadescreen 0x1
applymovement 0x21 @3move
waitmovement 0x0
setflag 0x1005
fadescreen 0x0
release
end

#org @1msg
= [player], I almost forgot. You're\ngonna need this if you want to\lhave an easier journey.

#org @2msg
= [red_rs]You received a POKéDEX!

#org @nevermind
release
end

#org @1move
#raw 0x56 0x2 0xFE

#org @2move
#raw 0xB 0xFE

#org @3move
#raw 0x2F 0x2D 0x2D 0x54 0xFE

You seem to have misunderstood the purpose of this thread. It's for posting completed, workig scripts that most hackers will find useful to use in their hacks. For help on the scripts, the Script Help Thread is where you should be. If you do happen to understand this thread, and you're posting that script for other people, I can't really see why other would want to use the movement stuff, etc. The flag for activating the National Dex can be found in scripting tutorials, such as diegoisawesome's.

[sab]

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

[558122_DG]

cool...those are pretty custom scripts I've seen em at work in your hack and they seem pretty nice to me maybe you should post the vid of them at work that will make this post better, and maybe an explanation of how they work

[sky_queen3]

Hmm, these look like fun. :D

[Haku.]

Stealing script.
Works for FR/LG only!

Spoiler:

#dynamic 0x[offset]
#org @start
msgbox @1 0x5
compare LASTRESULT 0x01
if 0x01 goto @yes
release
end

#org @yes
random 0x02
compare LASTRESULT 0x0
if 0x1 goto @steal
compare LASTRESULT 0x1
if 0x1 goto @caught
end

#org @steal
random 0x02
compare lastresult 0x0
if 0x1 goto @pokeball
compare lastresult 0x01
if 0x1 goto @potions
end

#org @caught
msgbox @2 0x6
warp 0x[map bank] 0x[map no.] 0xFF 0x[x position] 0x[Y position]
end

#org @pokeball
random 0x03
compare lastresult 0x0
if 0x1 goto @1pokeball
compare lastresult 0x01
if 0x2 goto @2pokeball
compare lastresult 0x02
if 0x3 goto @3 pokeball
end

#org @1pokeball
giveitem 0x04 0x1 MSG_OBTAIN
closeonkeypress
release
end

#org @2pokeball
giveitem 0x04 0x02 MSG_OBTAIN
closeonkeypress
release
end

#org @3pokeball
giveitem 0x04 0x03 MSG_OBTAIN
closeonkeypress
release
End

#org @potions
random 0x3
compare lastresult 0x0
if 0x1 goto @1potion
compare lastresult 0x01
if 0x2 goto @2potion
compare lastresult 0x02
if 0x3 goto @3potion
end

#org @1potion
giveitem 0xD 0x1 MSG_OBTAIN
closeonkeypress
release
end

#org @2potion
giveitem 0xD 0x2 MSG_OBTAIN
closeonkeypress
release
end

#org @3potion
giveitem 0xD 0x3 MSG_OBTAIN
closeonkeypress
release
end

#org @1
= Do you want to steal some items?

#org @2
= Hey you!What are you doing!Get out from here!

[altariaking]

these scripts are really good

[Spherical Ice]

Why not just bump the old one - you can do it in Docs and Tuts. -.-''

[lilfabbro]

where would i put these scripts do i set them on tiles or what? and the steal script is that to steal other trainers pokemon?

[Spherical Ice]

The thief one is a script that allows you to steal items from a PokéMart if the author of the hack positions the script on a script tile which is wherever the stock that is being stolen is, and yes, a majority, if not all, of these scripts are to be put on Script tiles, i.e the green tiles with a yellow S.

I still think all three of the Misc XSE Script threads should just be merged. Harry, could you do the honours? (That is if the OP agrees.)

[lilfabbro]

thanks master, and im not that noob lol, i just didnt know wether they were tile scripts or somthing else but thanks for the help

[thedgr05]

Here's one FR/LG Only:
Weird Tree:

Spoiler:

'---------------
#org 0x(offset)
special 0x187
compare LASTRESULT 0x2
if 0x1 call 0x81A7AE0
special 0x188
compare 0x4025 0x1F4
if 0x0 call 0x87800B0
msgbox 0x8780100 MSG_FACE '"It's a weird tree.\pWhat's that[.]..."
giveitem 0x8B 0x1 MSG_OBTAIN
releaseall
special 0x197
end
'---------------
#org 0x1A7AE0
release
end
'---------------
#org 0x7800B0
msgbox 0x87800C0 MSG_FACE '"It's a weird tree.\pWait a sec[.]\..."
end

'---------
' Strings
'---------
#org 0x780100
= It's a weird tree.\pWhat's that[.]\pIt's a BERRY!!!
#org 0x7800C0
= It's a weird tree.\pWait a sec[.]\pNah, nothing here.

EDIT: This goes in the singpost type (the red squares with an S in Adv map)

[altariaking]

for some reason xse keeps saying, when I try to compile the thief script, that "compare LASTRESULT" is an unknown word, how come?

[Spherical Ice]

If LASTRESULT isn't working, I believe you should use 0x800D, but don't quote me on that. The Script Help Thread is really where you should go, altariaking. :/