Scriptwriter's Contest

[Kevin]

For round 2
Script Name: Find Zigzagoon
Script Game: FireRed
Entry:

Spoiler:

#dynamic 0x800000

#org @start
checkflag 0x828
lock
if 0x1 goto @continue
msgbox @msg1 0x2
end

#org @continue
checkflag 0x1000
if 0x1 goto @find
msgbox @msg2 0x2
applymovement 0x1 @move1
waitmovement 0x0
msgbox @msg3 0x2
applymovement 0x9 @move2
waitmovement 0x0
applymovement 0x1 @move3
msgbox @msg4 0x2
setflag 0x1000
end

#org @find
checkflag 0x1001
if 0x1 goto @end
msgbox @msg5 0x2
end

#org @end
lock
faceplayer
msgbox @msg6 0x2
release
end

#org @msg1
= Heh, I just caught this Zigzgoon!\nDon't you have a Pokemon yet?

#org @msg2
= Heh, I see you have a Pokemon now,\nlet's have a battle!

#org @move1
#raw 0x2
#raw 0xFE

#org @msg3
= Zigzagoon!

#org @move2
#raw 0x10
#raw 0x10
'raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0xFE

#org @move3
#raw 0x62
#raw 0x54
#raw 0x4
#raw 0xFE

#org @msg4
= It got away! Please, help me find\nit!

#org @msg5
= Please, you have to help me find\nmy Zigzagoon!

#org @msg6
= You found it! Hmmm...I guess I'm\nnot ready to become a trainer yet.\lI'll let you keep it! Just promise\lto take good care of it, ok?

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#dynamic 0x800000

//---------------
#org @start
checkflag 0x1000
if 0x1 goto @find
msgbox @zigzagoon 0x2
release
end

#org @find
givepokemon 0x120 0x5 0x0 0x0 0x0 0x0
fanfare 0x13
msgbox @got 0x2
hidesprite 0x9
setflag 0x1001
end

#org @zigzagoon
= Zigzagoon!

#org @got
= [player] found Zigzagoon!

first part is the trainer, second part is zigzagoon.

Video / Screenshots:

Hey pretty nice. =P

Update: Before I post the Judge Results for Day 1 I want Spherical Ice and Zeffy's judging results for Day 1. ^^

 

[icychill66]

(image no longer exists)
Round 2 Entry

Script Name: IV's For Macho Brace!
Game: Fire Red

Script Entry:

Spoiler:

#dynamic 0x800000

#org @start
lock
faceplayer
bufferfirstpokemon 0x0
checkflag 0x1240
if 0x1 goto @complete
checkflag 0x1239
if 0x1 goto @speedIVcheck
checkflag 0x1238
if 0x1 goto @specialdefenseIVcheck
checkflag 0x1237
if 0x1 goto @specialattackIVcheck
checkflag 0x1236
if 0x1 goto @defenseIVcheck
checkflag 0x1235
if 0x1 goto @attackIVcheck
setvar 0x8004 0x0
special 0x6 //////////This bit of code uses Jpan's Hacked Engine.
setvar 0x8005 0x0/////It checks the IV of the stat indicated by the
special2 0x8006 0x8///variable 0x8005 and returns it to 0x8006.
special 0x6
compare 0x8006 0x1F
if 0x1 goto @HPIVcheckSuccess
msgbox 0x8813BA7 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
release
end

#org @complete
lock
msgbox 0x8813B00 MSG_NORMAL '"Make sure to use that MACHO BRACE\..."
release
end

#org @speedIVcheck
setvar 0x8004 0x0
special 0x6
setvar 0x8005 0x3
special2 0x8006 0x8
special 0x6
compare 0x8006 0x1F
if 0x1 goto @speedSuccess
msgbox 0x88148D6 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
release
end

#org @specialdefenseIVcheck
setvar 0x8004 0x0
special 0x6
setvar 0x8005 0x4
special2 0x8006 0x8
special 0x6
compare 0x8006 0x1F
if 0x1 goto @specialDefenseSuccess
msgbox 0x88146B4 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
release
end

#org @specialattackIVcheck
setvar 0x8004 0x0
special 0x6
setvar 0x8005 0x4
special2 0x8006 0x8
special 0x6
compare 0x8006 0x1F
if 0x1 goto @specialAttackSuccess
msgbox 0x8814495 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
release
end

#org @defenseIVcheck
#org 0x81389F
setvar 0x8004 0x0
special 0x6
setvar 0x8005 0x2
special2 0x8006 0x8
special 0x6
compare 0x8006 0x1F
if 0x1 goto @defenseSuccess
msgbox 0x881428B MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
release
end

#org @attackIVcheck
setvar 0x8004 0x0
special 0x6
setvar 0x8005 0x1
special2 0x8006 0x8
special 0x6
compare 0x8006 0x1F
if 0x1 goto @attackSuccess
msgbox 0x8813DA2 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
release
end

#org @HPIVcheckSuccess
lock
msgbox 0x8813C84 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
fanfare 0x13E
giveitem 0x3F 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
setflag 0x1235
msgbox 0x8813B66 MSG_NORMAL '"You should think about training\nt..."
release
end

#org @speedSuccess
lock
msgbox 0x88149B6 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
fanfare 0x13E
giveitem 0x42 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
setflag 0x1240
msgbox 0x8813AAC MSG_NORMAL '"Hah hoo! You have shown me the\npe..."
fanfare 0x13E
giveitem 0xB5 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
msgbox 0x8813A38 MSG_NORMAL '"The MACHO BRACE makes Pokemon\ndou..."
release
end

#org @specialDefenseSuccess
lock
msgbox 0x881479E MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
fanfare 0x13E
giveitem 0x46 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
setflag 0x1239
msgbox 0x8813B66 MSG_NORMAL '"You should think about training\nt..."
release
end

#org @specialAttackSuccess
lock
msgbox 0x881457E MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
fanfare 0x13E
giveitem 0x43 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
setflag 0x1238
msgbox 0x8813B66 MSG_NORMAL '"You should think about training\nt..."
release
end

#org @defenseSuccess
lock
msgbox 0x881436D MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
fanfare 0x13E
giveitem 0x41 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
setflag 0x1237
msgbox 0x8813B66 MSG_NORMAL '"You should think about training\nt..."
release
end

#org @attackSuccess
lock
msgbox 0x8813E83 MSG_NORMAL '"Hoo hah! They call me the Macho\nM..."
fanfare 0x13E
giveitem 0x40 0x1 MSG_OBTAIN
waitfanfare
closeonkeypress
setflag 0x1236
msgbox 0x8813B66 MSG_NORMAL '"You should think about training\nt..."
release
end


'---------
' Strings
'---------
#org 0x813BA7
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the HP\lstat.\p...\n...\pSadly, your [buffer1] is no such\ngem.

#org 0x813B00
= Make sure to use that MACHO BRACE\nat the EV Sector!\pIt will help your Pokemon grow\lfaster! Hoo hah!

#org 0x8148D6
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lSpeed stat.\p...\n...\pSadly, your [buffer1] is no such\ngem.

#org 0x8146B4
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lSpecial Defense stat.\p...\n...\pSadly, your [buffer1] is no such\ngem.

#org 0x814495
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lSpecial Attack stat.\p...\n...\pSadly, your [buffer1] is no such\ngem.

#org 0x81428B
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lDefense stat.\p...\n...\pSadly, your [buffer1] is no such\ngem.

#org 0x813DA2
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lAttack stat.\p...\n...\pSadly, your [buffer1] is no such\ngem.

#org 0x813C84
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the HP\lstat.\p...\n...\pHoo hah! Astounding!\nYour [buffer1]'s HP is flawless!\lI am truly impressed!\pHere, take this as a gift.

#org 0x813B66
= You should think about training\nthat Pokemon at the EV Sector!

#org 0x8149B6
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lSpeed stat.\p...\n...\pHoo hah! Astounding!\nYour [buffer1]'s Speed is flawless!\lI am truly impressed!\pHere, take this as a gift.

#org 0x813AAC
= Hah hoo! You have shown me the\nperfect Pokemon in each stat, so\lyou deserve this!

#org 0x813A38
= The MACHO BRACE makes Pokemon\ndouble the Effort Values reveived\lfrom battles!\pIt's the perfect way to train\nhard!

#org 0x81479E
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lSpecial Defense stat.\p...\n...\pHoo hah! Astounding!\nYour [buffer1]'s Special Defense is\lflawless! I am truly impressed!\pHere, take this as a gift.

#org 0x81457E
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lSpecial Attack stat.\p...\n...\pHoo hah! Astounding!\nYour [buffer1]'s Special Attack is\lflawless! I am truly impressed!\pHere, take this as a gift.

#org 0x81436D
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lDefense stat.\p...\n...\pHoo hah! Astounding!\nYour [buffer1]'s Defense is flawless!\lI am truly impressed!\pHere, take this as a gift.

#org 0x813E83
= Hoo hah! They call me the Macho\nMan around here!\pI am always in search of the\ntoughest Pokemon in the region!\pRight now, I'm looking for a\nnaturally gifted Pokemon in the\lAttack stat.\p...\n...\pHoo hah! Astounding!\nYour [buffer1]'s Attack is flawless!\lI am truly impressed!\pHere, take this as a gift.

Video: Just a link this time...
Script Contest Round 2 Video

Comments: This also isn't the really complicated one I was talking about, but I love it! This is how you can obtain the Macho Brace in The Tempest. You have to show a Pokemon to this guy that has a flawless IV in each stat. So, it checks the IV of the first Pokemon to see if it's 31. If it is, you have to show him a 31 in the next stat. It goes HP, ATT, DEF, SP ATT, SP DEF, SPEED. The video is rather tedious, but it shows that the script works perfectly.

 

[Shiny Quagsire]

Aw grrrr, I can't make my script until tomorrow. I have relatives, so I couldn't work on it today. I'll make one tomorrow if it's not too late.

 

[Kevin]

Don't worry tomorrow is judging day, but you can still get your script in. ^__^

 

[Shiny Quagsire]

I live in GMT -8:00, so my tomorrow might be different from yours :P
It's late where I am, so yea :)

 

[Kevin]

Here is EST, and it's 11:20 pm. ^^ Don't worry.

 

[icychill66]

I'm so surprised more people didn't join this competition! There are a million hackers over in the Emulation section. You'd think more than 4, or however many have submitted, would submit their scripts. Oh well. Good luck you guys!

 

[Zeffy]

Round 3 - Freestyle

Yup, do whatever you want with the script! Whether it'd be from a battle to a quest+battle, whatever you want! ^_^
Oh and if you want to join Round 3, then submit a script for Round 1, Round 2, AND Round 3. Good luck!

 

[mervyn797]

man.. i withdraw from day 2 and 3. my math exam today was aweful.... im really depressed... :'( its so terrible...

 

[Kevin]

I'm so surprised more people didn't join this competition! There are a million hackers over in the Emulation section. You'd think more than 4, or however many have submitted, would submit their scripts. Oh well. Good luck you guys!

LOL right.

Round 3 - Freestyle

Yup, do whatever you want with the script! Whether it'd be from a battle to a quest+battle, whatever you want! ^_^
Oh and if you want to join Round 3, then submit a script for Round 1, Round 2, AND Round 3. Good luck!

Yah dude wake up earlier or stay up later so we can judge << =p

man.. i withdraw from day 2 and 3. my math exam today was aweful.... im really depressed... :'( its so terrible...

Ah I see thanks for participating.

 

[Shiny Quagsire]

Round 2 Entry

Script Name: Shard de Battle
Game Name: Fire Red
Script:

Spoiler:

#dynamic 0x800000
#org @start
lock
applymovement 0x2 @up
pause 0x1
applymovement 0x2 @right
pause 0x2
applymovement 0x2 @down
pause 0x3
applymovement 0x2 @left
pause 0x4
applymovement 0x2 @up
pause 0x5
applymovement 0x2 @right
pause 0x6
applymovement 0x2 @down
pause 0x7
applymovement 0x2 @left
pause 0x8
applymovement 0x2 @up
pause 0x9
applymovement 0x2 @right
pause 0xa
applymovement 0x2 @down
pause 0xb
applymovement 0x2 @left
pause 0xc
applymovement 0x2 @up
pause 0xd
applymovement 0x2 @right
pause 0xe
applymovement 0x2 @down
pause 0xf
applymovement 0x2 @face
pause 0x10
checkitem 0x30 0x1
compare lastresult 0x1
if 0x1 call @trade
checkitem 0x31 0x1
compare lastresult 0x1
if 0x1 goto @trade
checkitem 0x32 0x1
compare lastresult 0x1
if 0x1 goto @trade
checkitem 0x33 0x1
compare lastresult 0x1
if 0x1 goto @trade
msgbox @shard 0x2
release
end

#org @trade
msgbox @shardtrade 0x5
compare lastresult 0x0
if 0x1 goto @end
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @nored
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @noblue
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @noyellow
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @nogreen
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25 'This is a command in JPAN's Hacked Engine
setvar 0x8006 0x1
loadpointer 0x0 @second
special 0x25
setvar 0x8006 0x2
loadpointer 0x0 @third
special 0x25
setvar 0x8006 0x3
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle2
compare lastresult 0x2
if 0x1 goto @wildbattle3
compare lastresult 0x3
if 0x1 goto @wildbattle4
release
end

#org @nored
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @noredblue
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @noyellowred
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @nogreenred
setvar 0x8006 0x0
loadpointer 0x0 @second
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @third
special 0x25
setvar 0x8006 0x2
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle2
compare lastresult 0x1
if 0x1 goto @wildbattle3
compare lastresult 0x2
if 0x1 goto @wildbattle4
release
end

#org @noblue
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @noredblue
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @noyellowblue
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @nogreenblue
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @third
special 0x25
setvar 0x8006 0x2
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle3
compare lastresult 0x2
if 0x1 goto @wildbattle4
release
end

#org @noyellow
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @noyellowred
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @noyellowblue
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @noyellowgreen
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @second
special 0x25
setvar 0x8006 0x2
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle2
compare lastresult 0x2
if 0x1 goto @wildbattle4
release
end

#org @nogreen
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @nogreenred
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @nogreenblue
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @noyellowgreen
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @second
special 0x25
setvar 0x8006 0x2
loadpointer 0x0 @third
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle2
compare lastresult 0x2
if 0x1 goto @wildbattle3
release
end

#org @noredblue
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @green
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @yellow
setvar 0x8006 0x0
loadpointer 0x0 @third
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle3
compare lastresult 0x1
if 0x1 goto @wildbattle4
release
end

#org @noyellowred
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @green
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @blue
setvar 0x8006 0x0
loadpointer 0x0 @second
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle3
compare lastresult 0x1
if 0x1 goto @wildbattle4
release
end

#org @nogreenred
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @noredblue
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @noyellowred
setvar 0x8006 0x0
loadpointer 0x0 @second
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @third
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle2
compare lastresult 0x1
if 0x1 goto @wildbattle3
release
end

#org @noyellowblue
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @green
checkitem 0x33 0x1
compare lastresult 0x1
if 0x0 goto @red
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle4
release
end

#org @nogreenblue
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @yellow
checkitem 0x32 0x1
compare lastresult 0x1
if 0x0 goto @red
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @third
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle3
release
end

#org @noyellowgreen
checkitem 0x30 0x1
compare lastresult 0x1
if 0x0 goto @noyellowred
checkitem 0x31 0x1
compare lastresult 0x1
if 0x0 goto @noyellowblue
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
setvar 0x8006 0x1
loadpointer 0x0 @second
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
compare lastresult 0x1
if 0x1 goto @wildbattle2
release
end

#org @red
setvar 0x8006 0x0
loadpointer 0x0 @first
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle1
release
end

#org @blue
setvar 0x8006 0x0
loadpointer 0x0 @second
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle2
release
end

#org @yellow
setvar 0x8006 0x0
loadpointer 0x0 @third
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle3
release
end

#org @green
setvar 0x8006 0x0
loadpointer 0x0 @fourth
special 0x25
msgbox @which 0x4
multichoice 0x0 0x0 0x22 0x0
closeonkeypress
compare lastresult 0x0
if 0x1 goto @wildbattle4
release
end

#org @wildbattle1 'red
random 0xA
compare lastresult 0x9
if 0x1 call @shiny
pause 0x20
removeitem 0x30 0x1
special 0x97 'Wild Grass Battle function in JPAN's engine
resetweather
doweather
release
end

#org @wildbattle2 'blue
random 0xA
compare lastresult 0x9
if 0x1 call @shiny
random 0xA 'random for rain
compare lastresult 0x0
if 0x1 call @rain
compare lastresult 0x1
if 0x1 call @rain
compare lastresult 0x2
if 0x1 call @rain
compare lastresult 0x3
if 0x1 call @rain
compare lastresult 0x4
if 0x1 call @rain
pause 0x20
removeitem 0x31 0x1
special 0x98 'Wild Water Battle function in JPAN's engine
resetweather
doweather
release
end

#org @wildbattle3 'yellow
random 0xA
compare lastresult 0x9
if 0x1 call @shiny
setweather 0x8
doweather
pause 0x20
removeitem 0x32 0x1
special 0xAB 'Wild "tree" battle
resetweather
doweather
release
end

#org @wildbattle4 'green
random 0xA
compare lastresult 0x9
if 0x1 call @shiny
removeitem 0x33 0x1
special 0x97 'Wild Grass Battle function in JPAN's engine
resetweather
doweather
release
end

#org @rain
setweather 0x3
doweather
return

#org @shiny
special 0x51
return

#org @end
release
end

#org @shard
= Shard de Battle!\nShard de Battle!\lTrade ya a shard for a POKéMON\lbattle yah!

#org @shardtrade
= Shard de Battle!\nShard de Battle!\lWould you like to trade a shard\lfor a wild POKéMON battle?

#org @first
= RED SHARD

#org @second
= BLUE SHARD

#org @third
= YELLOW SHARD

#org @fourth
= GREEN SHARD

#org @which
= Which shard do you want to trade?

#org @up
#raw 0x1 0xFE

#org @down
#raw 0x0 0xFE

#org @left
#raw 0x2 0xFE

#org @right
#raw 0x3 0xFE

#org @face
#raw 0x4a 0xfe

JPAN's Functions Used: Specials 0x25, 0x97, 0x98 and the multichoice RAM pointers

Video: Coming Soon...

 

[altariaking]

Late round 3 entry!
Script Name: Prof Rowan appears
Game Name: Fire Red
Script:

Spoiler:

#dynamic 0x800000

//---------------
#org @start
checkflag 0x1010
if 0x1 goto @snippet1
checkgender
compare LASTRESULT 0x1
if 0x1 goto @snippet2
applymovement 0x5 @move1
waitmovement 0x0
msgbox @string1 MSG_FACE //"[rival]: [player]!\n[orange_fr][.]..."
applymovement 0x5 @move2
applymovement MOVE_PLAYER @move3
waitmovement 0x0
msgbox @string2 MSG_FACE //"Well, let's go!\nHuh, what do you ..."
applymovement 0x5 @move4
waitmovement 0x0
msgbox @string3 MSG_FACE //"[lightblue2_fr]WAIT!"
showsprite 0x4
applymovement 0x5 @move5
applymovement MOVE_PLAYER @move6
applymovement 0x4 @move7
waitmovement 0x2
msgbox @string4 MSG_FACE //"???: [lightblue2_fr]What were you ..."
applymovement 0x4 @move8
waitmovement 0x0
showsprite 0x6
applymovement 0x6 @move9
waitmovement 0x0
msgbox @string5 MSG_FACE //"Rowan:[lightblue2_fr] Ah, Dawn, ex..."
fadescreen 0x0
hidesprite 0x5
hidesprite 0x4
hidesprite 0x6
hidesprite 0x2
setflag 0x1010
setflag 0x1011
setflag 0x1012
setflag 0x1013
warp 0x5 0x0 0x1 0x6 0x12
setvar 0x4010 0x1
end

//---------------
#org @snippet1
release
end

//---------------
#org @snippet2
applymovement 0x5 @move1
waitmovement 0x0
msgbox @string1 MSG_FACE //"[rival]: [player]!\n[orange_fr][.]..."
applymovement 0x5 @move2
applymovement MOVE_PLAYER @move3
waitmovement 0x0
msgbox @string2 MSG_FACE //"Well, let's go!\nHuh, what do you ..."
applymovement 0x5 @move4
waitmovement 0x0
msgbox @string3 MSG_FACE //"[lightblue2_fr]WAIT!"
showsprite 0x4
applymovement 0x5 @move5
applymovement MOVE_PLAYER @move6
applymovement 0x4 @move7
waitmovement 0x2
msgbox @string4 MSG_FACE //"???: [lightblue2_fr]What were you ..."
applymovement 0x4 @move8
waitmovement 0x0
showsprite 0x2
applymovement 0x2 @move9
waitmovement 0x0
msgbox @string6 MSG_FACE //"Rowan:[lightblue2_fr] Ah, Lucas, e..."
fadescreen 0x0
hidesprite 0x5
hidesprite 0x4
hidesprite 0x6
hidesprite 0x2
setflag 0x1010
setflag 0x1011
setflag 0x1012
setflag 0x1013
warp 0x5 0x0 0x1 0x6 0x12
setvar 0x4010 0x1
end


//---------
// Strings
//---------
#org @string1
= [rival]: [player]!\n[orange_fr][.]Well you took your time[.]\lAnyway, you know that old dude?\l[lightblue2_fr]Prof Rowan? [orange_fr]We're going to go and\lask him for a Pokemon.\lCome on!

#org @string2
= Well, let's go!\nHuh, what do you mean there are\lwild Pokemon?\lWe won't be there long enough for\lthem to attack us anyway.\lWell. here goes!

#org @string3
= [lightblue2_fr]WAIT!

#org @string4
= ???: [lightblue2_fr]What were you two youngsters\ndoing!?\lGoing into the grass without a\lPokemon is dangerous!\p[black_fr][rival]: [orange_fr]Hey, [black_fr][player], [orange_fr]this old man\nis [lightblue2_fr]Proffesor Rowan!\p[black_fr]Rowan: [lightblue2_fr]Correct, now, I will ask\nagain, what were you doing?\p[black_fr][rival]: [orange_fr]Well, uhhh, we wanted to\nask[.]\l[.]\l[.]\lWe would like a Pokemon please.\p[black_fr]Rowan: [lightblue2_fr]Hm. It worries me what kids\nlike you would do with a Pokemon,\lespecially after seeing that.\p[black_fr][rival]: [orange_fr]Oh.\nWell, at least give one to my\lfriend. I mean, it was me who\ltried to run into the grass.\p[black_fr]Rowan: [lightblue2_fr]Hm, how big of you. Very\nwell, I shall give you both a\lPokemon.\lIf only I could find-

#org @string5
= Rowan:[lightblue2_fr] Ah, Dawn, excellent work.\nI was about to give these two\lyoung hooligans I just met a\lPokemon.\p[black_fr]Dawn: [red_fr]WHAT!\nThese are really rare Pokemon, are\lyou sure?\p[black_fr]Rowan: [lightblue2_fr]Yes. I'm sure.\nNow, let's all get back to the\llab.

#org @string6
= Rowan:[lightblue2_fr] Ah, Lucas, excellent work.\nI was about to give these two\lyoung hooligans I just met a\lPokemon.\p[black_fr]Lucas: [red_fr]WHAT!\nThese are really rare Pokemon, are\lyou sure?\p[black_fr]Rowan: [lightblue2_fr]Yes. I'm sure.\nNow, let's all get back to the\llab.


//-----------
// Movements
//-----------
#org @move1
#raw 0x62 //Exclamation Mark (!)
#raw 0x10 //Step Down (Normal)
#raw 0x10 //Step Down (Normal)
#raw 0xFE //End of Movements

#org @move2
#raw 0x13 //Step Right (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0xFE //End of Movements

#org @move3
#raw 0x11 //Step Up (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x11 //Step Up (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0xFE //End of Movements

#org @move4
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0xFE //End of Movements

#org @move5
#raw 0x2F //Face Left (Delayed)
#raw 0x62 //Exclamation Mark (!)
#raw 0xFE //End of Movements

#org @move6
#raw 0x2F //Face Left (Delayed)
#raw 0x62 //Exclamation Mark (!)
#raw 0xFE //End of Movements

#org @move7
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0xFE //End of Movements

#org @move8
#raw 0x2D //Face Down (Delayed)
#raw 0x2E //Face Up (Delayed)
#raw 0x3 //Face Right
#raw 0x62 //Exclamation Mark (!)
#raw 0xFE //End of Movements

#org @move9
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x13 //Step Right (Normal)
#raw 0x2E //Face Up (Delayed)
#raw 0xFE //End of Movements

screenshot:

P.S Hope everyone had fun!

 

[DrFuji]

Script Name: Cloud Temple Level Script
Game Name: Fire Red
Script:

Spoiler:

#dynamic 0x800000

#org @start
pause 0x2F
special 0x113
applymovement 0x7F @CameraMove1
waitmovement 0x0
special 0x114
pause 0xF
msgbox @Grunt1 0x4
closeonkeypress
setweather 0x3
doweather
applymovement 0x1 @Move1
applymovement 0x2 @Move1
waitmovement 0x0
pause 0xA
applymovement 0x3 @Move2
sound 0x15
waitmovement 0x0
msgbox @Grunt2 0x6
msgbox @Giovanni1 0x6
msgbox @Grunt3 0x6
applymovement 0x3 @LookUp
msgbox @GruntX 0x6
applymovement 0x3 @LookLeft
waitmovement 0x0
pause 0x19
applymovement 0x3 @LookRight
waitmovement 0x0
pause 0x19
applymovement 0x3 @LookLeft
pause 0x19
waitmovement 0x0
applymovement 0x3 @Move4
waitmovement 0x0
setweather 0x5
doweather
pause 0x19
msgbox @Grunt4 0x6
applymovement 0x1 @LookLeft
waitmovement 0x0
msgbox @Giovanni2 0x6
pause 0x5
applymovement 0x4 @GruntExclamation
applymovement 0x1 @LookLeft
applymovement 0x3 @LookLeft
sound 0x15
waitmovement 0x0
pause 0x1B
applymovement 0x4 @StepDownFaceRight
waitmovement 0x0
applymovement 0x1 @LookUp
waitmovement 0x0
msgbox @RadioPickup1 0x6
applymovement 0x1 @StepUp
waitmovement 0x0
special 0x113
applymovement 0x7F @CameraMove2
applymovement 0x1 @CameraMove2
waitmovement 0x0
special 0x114
msgbox @Giovanni3 0x6
applymovement 0x4 @LookDown
waitmovement 0x0
msgbox @RadioPickup2 0x6
applymovement 0x4 @LookRight
waitmovement 0x0
msgbox @RadioPickup4 0x6
setweather 0xD
doweather
msgbox @Giovanni4 0x6
msgbox @RadioPickup3 0x6
applymovement 0x4 @StepUp
waitmovement 0x0
applymovement 0x4 @LookLeft
waitmovement 0x0
pause 0x25
special 0x113
applymovement 0x7F @StepRightUp
applymovement 0x01 @StepRightUp
waitmovement 0x0
special 0x114
applymovement 0x3 @LookRight
applymovement 0x1 @LookUp
waitmovement 0x0
pause 0x40
msgbox @Giovanni5 0x6
setvar 0x4040 0x1
warpmuted 0x5 0x1 0x0 0x0 0x0
release
end

#org @StepDownFaceRight
#raw 0x10
#raw 0x03
#raw 0xFE

#org @StepRight
#raw 0x13
#raw 0xFE

#org @StepRightUp
#raw 0x13
#raw 0x11
#raw 0xFE

#org @StepUp
#raw 0x11
#raw 0xFE

#org @CameraMove1
#raw 0x0C
#raw 0x0C
#raw 0x0C
#raw 0x0C
#raw 0x0C
#raw 0xFE

#org @Move1
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0xFE

#org @LookRight
#raw 0x03
#raw 0xFE

#org @LookUp
#raw 0x01
#raw 0xFE

#org @LookDown
#raw 0x00
#raw 0xFE

#org @Move2
#raw 0x00
#raw 0x62
#raw 0xFE

#org @LookLeft
#raw 0x02
#raw 0xFE

#org @Move4
#raw 0x12
#raw 0x10
#raw 0x10
#raw 0x03
#raw 0xFE

#org @CameraMove5
#raw 0x0F
#raw 0xFE

#org @GruntExclamation
#raw 0x0
#raw 0x62
#raw 0xFE

#org @CameraMove2
#raw 0x12
#raw 0xFE

#org @StepLeft
#raw 0x12
#raw 0xFE

#org @Grunt1
= [black_fr]Admin:[blue_fr] Ok, everything is fine.\nHe'll see how well the dig went,\land everything will be fine...\l...\l...\lI hope...

#org @Grunt2
= [black_fr]Admin:[blue_fr] Ah, Sir!\nThe excavations have finished, and\lwe may have found the entry point.\pThe demolitions team will begin the\npenetration once you give the word!

#org @Giovanni1
= [black_fr]???:[blue_fr] Excellent, your workers have\ndone tremendous work so far, and I\lhope to congratulate them in\lperson later.\pHowever, I'm not here for that: new\ninformation has come to light.\pOnce we gain access, nobody is to\nenter the cavern, bar me.

#org @Grunt3
= [black_fr]Admin:[blue_fr] As you command, Sir.

#org @GruntX
= [black_fr]Admin:[blue_fr] Here is the incursion point,\nand I assure you that none of my\lmen will be given the oppertunity\lto even sneak a glimpse inside.

#org @Grunt4
= [black_fr]Admin:[blue_fr] Could I ask, Sir, what exactly\nare we searching for?\pI mean, we're going through a heap\nof trouble to get inside these ruins.

#org @Giovanni2
= [black_fr]???:[blue_fr] What I am searching for is none\nof your concern. Your task is to\lget me in: that is all.\pIf I were you, I'd shut my mouth\nbefore I was busted down to a grunt!

#org @RadioPickup1
= [black_fr]Grunt:[red_fr] Sir, an faint radio broadcast\nis airing on ALL frequencies...\pIt seems to be intended for you, Sir.

#org @Giovanni3
= [black_fr]???:[blue_fr] What?!\nWhat is it saying?!

#org @RadioPickup2
= [black_fr]Grunt:[red_fr] Hold on a sec...\p...\pOk...\pAhem, we are Team Rocket!\nAfter three years of preparation,\lwe have risen again from the ashes!\pGiovanni! Can you hear?\nWe did it!\pWhere is our boss?\nIs he listening?

#org @RadioPickup4
= [red_fr]What should we do, Sir?

#org @Giovanni4
= [black_fr]Giovanni:[blue_fr] Don't react, everything\nwill be fine.\pThose Johto imbeciles still think they\ncan find me, but they don't have\la chance.

#org @RadioPickup3
= [black_fr]Grunt:[red_fr] Understood, Sir.\nI will monitor the situation.

#org @Giovanni5
= [black_fr]Giovanni:[blue_fr] No chance whatsoever...

Video:

Spoiler:

There was no way I was going to be able to make a fresh script like I've been doing, so this is one of my earlier and probably most plot-engaging scripts. Its basically a 'cutscene' in which stuff happens and so on.

 

[Shiny Quagsire]

Aw darn, people are pulling their old scripts. :(
I'm making a minigame. It's going quite well actually :)

 

[Kevin]

The Winner is Altariaking with 87 points for 1st place!
Dr Fuji is 2nd with 85 points!
Shiny Quagsire wins 3rd place with 82!
Those who didn't win will still get an emblem for participating! Thanks for joining! ^_^

 

[altariaking]

No way. I actually won that?

 

[Kevin]

Yep. I dunno when you'll get your emblem. Probably... when I ask my staff supervisor.

 

[altariaking]

Ok...well, I just want to say something to the others who entered.

It's not about winning, nor losing, it's about taking part. And also....HA! I WON! SUCK IT, SUCK IT LONG AND HARD! HAHAHAHAHAHAHA!!!!!

 

[Shiny Quagsire]

So wait, it ended early? I thought there was still a round three to win.
Oh well, I'll just keep making my minigame :)

 

[Kevin]

Ok...well, I just want to say something to the others who entered.

It's not about winning, nor losing, it's about taking part. And also....HA! I WON! SUCK IT, SUCK IT LONG AND HARD! HAHAHAHAHAHAHA!!!!!

Um, ok.

So wait, it ended early? I thought there was still a round three to win.
Oh well, I'll just keep making my minigame :)

Hehe okay. The reason for that is Zeffy is gone for exams and such, and my internet stopped working so I have to go on this slow computer ;[
Good job to all.