Scripting Competition!

LightOfTruth · Jul 16, 2011

Why is no-one taking part in this event? It is a big shame as scripting is important part of anyone's hack :(

Shiny Quagsire · Jul 16, 2011

I think I'll whip up a script for my hack and this. Two questions:

1. Does the script have to be vanilla scripted, AKA, no custom ASM or specials (JPAN's engine)
2. If it can be custom, do we need to post the ASM?

UnderMybrella · Jul 17, 2011

do ya mean, script, or can we post, like, events made using ingame RMXP commands. (PS: I can't script)

LightOfTruth · Jul 17, 2011

I might enter something as I just new to this scripting :)

UnderMybrella · Jul 18, 2011

YEAH!!!!Note: This is for RMXP, with eventing. I breifly know what each thing does. Unfortunately I gave up hacking a few months ago, I was pretty decent at thet. Incidently, this is a computer event.

Spoiler:

Conditional branch: Account_Created==OFF
Text: To operate this computer, you need to pay $50. Would you like to pay this amount?
Show Choices: Yes, No.
When[Yes]
Conditional branch: Gold 50 or more.
Change Gold:-50
Text: Player payed $50 to turn the computer on.
Play SE: '006-System06',100,100.
[S-HIGHLIGHT]
Label: What to do.
[/S-HIGHLIGHT]
Text: What would you like to do?
Show Choices: Make an account, Browse the Internet, Download Apps to Phone, Shutdown.
When[Make an account]
Conditional Branch:Account_Created==ON
Text: Account Already Created.
Jump to label: What to do.
Else:
Text: Making an account cost $1000. Would you like to create an account?
Show Choices: Yes, No.
When[Yes]
Conditional Branch: Gold 1000 or more.
Control Switches: Account_Created ON
Gold-1000
Text: Account successfully created!
Jump to label: What to do.
Else
Text: You don't have enough money...
When[No]
Jump to label: What to do.
When[Browse the Internet]
Which website would you like to access?
Show Choices: Ebay.com, RMXP.com.au, Google.com, Page 2.

When[Ebay]
Text: What Would you like?
Show Choices: A New Phone, A Laptop, Pokeball Bonanza, Nothing.

When[A New Phone]
Label: Bid Phone
Text: The minimum Bid is $100. How much would you like to bid?
Control Variables:Player's_Gold==Gold.
Input Number: Player Bid, 3 digit(s)
Conditional Branch: Player bid<100
Text: Sorry, that is not a valid bet...
Jump to label: Bid Phone
Else
Conditional BranchPlayer Gold>=Player Bid.
Control Variables:Enemy Bid = Random no. (100...998)
Conditional Branch Player Bid>=Enemy Bid.
Change Gold:- Variable[Player Bid]
Control variables Player Bid = 0
Text: Congratulations! You won!
Jump to label: What to do.

Else
Text: Sorry, you lost....
Jump to label: What to do.
Else:
Text: You don't have enough money....
Jump to label: Bid Phone.

When [A Laptop]
Label:Bid Laptop
Text: The minimum Bid is $500. How much would you like to bid?
Control Variables:Player's_Gold==Gold.
Input Number: Player Bid, 4 digit(s)
Conditional Branch: Player bid<500
Text: Sorry, that is not a valid bet...
Jump to label: Bid Laptop.
Else
Conditional Branch:Player Gold>=Player Bid.
Control Variables:Enemy Bid = Random no. (100...998)
Conditional Branch:Player Bid>=Enemy Bid.
Change Gold:- Variable[Player Bid]
Change variable:Player Bid = 0
Text: Congratulations! You won!
Jump to label: What to do

Else
Text: Sorry, you lost....
Jump to label: What to do
Else:
Text: You don't have enough money....
Jump to label: Bid Laptop.

When[Pokeball Bonanza]
Text: For $20000, you can have 2 of every Pokeball. Would you like to buy it?
Show Choices: Yes, No.
When[Yes]
Control Variables: Player Gold = Gold
Conditional Branch PlayerGold>=20000
Change Gold: -20000
Text: You bought it!
Jump to label: What to do.
Else
You don't have enough money...
Jump to label: What to do.

When[Nothing]
Jump to label: What to do.

When[RMPX.com.au]
Text:RPG Maker XP( or RMXP for short) is a program used
to make RPG games on a computer. It will not work on
all computers, due to provider (Windows, Apple, Linux)
and the version your running (Win7, WinXP,OS X, etc).
Many games have been made
using Enterbrain's software,
costing $30. Hope you buy it!
Anglican.

When[Google.com]
Text: 404 Error!
Jump to label: What to do.

When[Page 2]
Show Choices: Abimon.yolasite.com, Abidex.com.Abimon, Close the Internet.

When[Abimon.yolasite.com]
Text:Check out this website online for a walkthrough and a few hints, as well as chatting with the Developer!(Note: This is not online yet!)

When[Abidex.com.Abimon]
Text:This domain is for sale
Jump to label: What to do

When[Close the Internet]
Jump to label: What to do.

When[download Apps to phone]
Text: Would you like to download the App Store?
Show Choices: Yes, No
When[Yes]
Conditional Branch: App Store Downloaded== OFF
Control Switches: App Store Downloaded On
Text: You downloaded the App Store!
Jump to label: What to do.

When[No]
Text: You didn't download the App store...
Jump to label: What to do.

When [Shutdown]
Text: Player turned off the computer.

Else
Text: You don't have enough money...

When[No]

Else
Player turned the computer on.
Jump to label: What to do.

Event Commands Used.

Spoiler:

Text: Most Basic of commands. Used to Display Text.

Show Choices: Does what the name says. Using this command will display choices and will execute certain things when a choice is chosen ingame.

Input Number: Select a variable and a number of digits, maybe 3. Eg. I chose Player Bid and three digits. When plyaing the game, I will be asked for a 3 digit number, Eg.001, 155 etc. The number is then stored in the variable chosen.

Conditional Branch:This command is pretty basic and I use it alot. It can check something, Eg. Is a script valid?, is a switch active?, is this variable greater than this one? etc. Using this can prevent a Player from entering a house after 2 days, after this is bought you can go here. In Pokemon games, you could use this for a cut event. when the player has a pokemon with cut, do this, if not, do this.

Call Common Event: Although it doesn't say it, this event is actually a common event in my game. This means I store it in a special place and I make it like any other event, without using triggers. By using this event and selecting the common event name(this one's called computer.?_?), and by setting the triggers, I have this event. Common Events are mainly used for long and complicated events(like this one) that are going to be used alot.

Label & Jump To Label: These are kinda important. Labels are places in an event you want to come back to if the player does something(like says in the intro, when Oak asks "So your a boy?"
and you answer no, there would be a label with Gender above" are you a boy, or a girl?".) Jump to labe would then be used under Show Choices: Yes, no. When [No] Jump To label: Gender.

The Controls: These are Control switches, control variables and control selfswitch.
Switches: Lets you switch switches on and off
Variables: Lets you Set, add to, subtract from, multiply by, divide by and mod(??) variables. You have alot of ways to se bnt the number including, but not limited to, a constant, a random number between ? and ?, Gold, etc
Self switches: Set selfwitches on and off. You only have 4 and they apply only to one event.

Change Gold: There are a few change command, but I only use 1, Change gold. this will, basically, change your gold. It will either add or subtract from your current gold. You can use a variable to set the number or it can be a constant number.

Play SE: i think SE means Sound Effect, so that means.... this plays a sound effect. You can set the volume and pitch.

EDIT: ARRH!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! STUPID RMXP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! For some reason, stupid RMXP is BYPASSING part of my event!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! So unless you will accept only the text, this entry will have to be cancelled.

with regards to my script, I just need to tweak it a bit and it should work.
And, has no-one else has entered?!?!?!?

The Void · Jul 18, 2011

Yay! A scripting contest! *gladly joins*

Video:

Script:

Spoiler:

What does this script do?
Displays one message and engages the player into a battle against Nidoking, with whom I replaced with Dialga's sprites and stats.

Cutlerine · Jul 19, 2011

Might I be so bold as to inquire when the deadline for submissions for this contest is? I'd like to participate, but couldn't find that information in the first post.

Zeffy · Jul 19, 2011

If I may ask, is this event still going on? I might have plans of joining it, if ever I get the chance.

Kevin · Jul 19, 2011

I'll try and post my script (tomorrow because it's on my computer at home).

NurseBarbra · Jul 19, 2011

Yes it's still going on, so you have time.

Sawakita · Jul 19, 2011

This is my entry (I know, the video quality is low). The ROM used is pokemon Wood, my hack, which is based on Pokemon Blue.
Video:

Code:
Don't steal, please.

Spoiler:

Code:

Map01_Script:
	call $3c3c
	ld hl,.Parts\@
	ld a,[$d5f4]
	jp JumpPtrID
.Parts\@
	dw Map01_Script00
	dw Map01_Script01
	dw Map01_Script02

Map01_Script00:
	ld a,[$d748]
	bit 0,a
	ret nz
	ld a,[$d361]
	cp a,10
	ret nz
	ld a,[$d362]
	cp a,$1d
	ret nz
	ld a,2
	ld [$ff8c],a
	ld a,$08
	ld [$ff8d],a
	call $34a6
	call $2429
	call Delay3
	ld a,2
	ld [$cd4f],a
	ld a,0
	ld [$cd50],a
	ld a,$4c
	call Predef
	ld a,1
	ld [$ff8c],a
	call $2920
	xor a
	ld [$ffb4],a
	ld a,[W_PartOfDayID]
	cp a,2
	jr nz,.timeOK\@
	ld a,3
	ld [$ff8c],a
	call $2920
	jr .pushD\@
.timeOK\@
	ld a,5
	ld [$ff8c],a
	call $2920
	ld hl,$d748
	bit 1,[hl]
	res 1,[hl]
	jr nz,.pushD\@
	set 0,[hl]
	ld a,KeyU
	jr .pushUD\@
.pushD\@
	ld a,KeyD
.pushUD\@
	ld [$d715],a
	call MyForceMove
	ld a,1
.End\@
	ld [$d5f4],a
	ret
Map01_Script01:
	ld a,[$cd38]
	and a
	ret nz
	call Delay3
	ld a,0
	ld [$d5f4],a
	ret
Map01_Script02:
	ret

MyForceMove:
	call $3486
	ld a,1
	ld [$cd38],a
	ld a,[$d715]
	ld [$ccd3],a
	xor a
	ld [$c109],a
	ld [$cd6b],a
	ret
Map01_Text:
	dw Map01_Text00
	dw Map01_Text04
	dw Map01_Text01
	dw Map01_Text02
	dw Map01_Text03
	
Map01_Text00:
	TX_FAR xText00
	TX_ASM
	ld hl,.CheckingTimeText1\@
	call PrintText	;$3c49
	ld a,$63
	call Predef
	jp EndTX_ASM	;$24d7
.CheckingTimeText1\@
	db $00,$82,$A7,$A4,$A2,$AA,$A8,$AD,$A6,$7F,$93,$A8,$AC,$A4,$E8,$E8,$E8,$57
Map01_Text01:
	TX_FAR xText01
	TX_NULL
Map01_Text02:
	TX_FAR xText02
	TX_NULL
Map01_Text03:
	TX_FAR xText03
	TX_NULL
Map01_Text04:
	TX_FAR xText04
	TX_NULL

;Map01's Texts:
xText00:
	db 0,G_,U_,A_,R_,D_,COL_,__,H_,e_,y_,__,T_,h_,e_,r_,e_,ESCL_,newn
	db H_,m_,$e8,$e8,$e8,newl
	db W_,h_,a_,t_,_s_,__,t_,h_,e_,__,t_,i_,m_,e_,QUES_
	db TX_ENDAB
xText01:
	db 0,S_,o_,r_,r_,y_,COMMA_,__,i_,t_,_s_,__,t_,o_,o_,newn
	db l_,a_,t_,e_,STOP_,__,C_,o_,m_,e_,__,b_,a_,c_,k_,newp
	db t_,o_,m_,o_,r_,r_,o_,w_,ESCL_
	db TX_END
xText02:
	db 0,G_,U_,A_,R_,D_,COL_,__,O_,k_,COMMA_,__,Y_,o_,u_,__,c_,a_,n_,newn
	db P_,a_,s_,s_,STOP_
	db TX_END
xText04:
	db 0,G_,U_,A_,R_,D_,COL_,__,H_,u_,h_,QUES_,__,N_,i_,c_,e_,newn
	db d_,a_,y_,COMMA_,__,e_,h_,QUES_
	db TX_END
xText03:
	db 0,G_,U_,A_,R_,D_,COL_,__,O_,k_,COMMA_,__,g_,o_,newn
	db a_,h_,e_,a_,d_,COMMA_,__,p_,l_,e_,a_,s_,e_,STOP_
	db TX_END

;============

Map2b_Text:
	dw Map2b_Text00
	dw Map2b_Text01
	dw Map2b_Text02
	dw Map2b_Text03
	dw Map2b_Text04
	dw Map2b_Text05
	dw Map2b_Text06
	
Map2b_Text00:
	db $08
	ld a,[$d748]
	bit 2,a
	jr nz,.noBatt\@
	ld a,1
	ld [$cd4f],a
	ld a,0
	ld [$cd50],a
	ld a,$4c
	call Predef
	ld a,$ff
	ld [$c0ee],a
	call $23b1
	ld c,$02
	ld a,$de
	call $23a1
	ld hl,.Text0\@
	call PrintText
	call $35ec
	ld a,[$cc26]
	and a
	jr z,.skip\@
	ld a,$ff
	call $23b1
	call $2307
	ld hl,Map2b_Text04
	call PrintText
	ld a,3
	jr .End\@
.skip\@
	ld hl,Map2b_Text03
	call PrintText
	ld a,(LASS + $C8)
	ld [$d059],a
	ld a,5
	ld [$d05d],a
	ld a,2
.End\@
	ld [$d5f5],a
	jp $24d7
.noBatt\@
	ld hl,Map2b_Text05
	call PrintText
	jp $24d7
.Text0\@
	db 0,L_,A_,S_,S_,COL_,__,H_,i_,ESCL_,__,D_,o_,__,y_,o_,u_,newn
	db s_,e_,e_,__,t_,h_,e_,__,p_,o_,k_,ee_,m_,o_,n_,newl
	db o_,n_,__,t_,h_,i_,s_,__,t_,a_,b_,l_,e_,QUES_,newl
	db Y_,o_,u_,__,c_,a_,n_,__,h_,a_,v_,e_,__,i_,t_,newl
	db i_,f_,__,y_,o_,u_,__,w_,i_,n_,__,a_,newl
	db b_,a_,t_,t_,l_,e_,__,a_,g_,a_,i_,n_,s_,t_,newl
	db m_,e_,STOP_,__,W_,i_,l_,l_,__,y_,o_,u_,QUES_
	db TX_END

Map2b_Text01:
	db $08
	ld hl,.Text0\@
	call PrintText
	ld a,2
	ld [$cc4d],a
	ld a,Hide
	call Predef
	ld bc,(DRATINI << 8 | 5)
	call $3e48
	jr c,.ok\@
	ld a,2
	ld [$cc4d],a
	ld a,Show
	call Predef
	ld hl,Map2b_Text06
	call PrintText
	jr .End\@
.ok\@
	ld hl,$d748
	set 3,[hl]
.End\@
	jp $24d7
.Text0\@
	db 0,L_,A_,S_,S_,COL_,__,O_,k_,COMMA_,__,y_,o_,u_,__,c_,a_,n_,newn
	db h_,a_,v_,e_,__,t_,h_,i_,s_,ESCL_
	db TX_ENDAB

Map2b_Text02:
	db $10
	TX_NULL
Map2b_Text03:
	db 0,N_,i_,c_,e_,ESCL_
	db TX_END
Map2b_Text04:
	db 0,O_,k_,COMMA_,__,y_,o_,u_,r_,__,c_,h_,o_,i_,c_,e_,$e8,$e8,$e8
	db TX_END
Map2b_Text05:
	db 0,D_,o_,__,y_,o_,u_,__,l_,i_,k_,e_,__,t_,h_,e_,newn
	db P_,o_,k_,ee_,m_,o_,n_,__,I_,__,g_,a_,v_,e_,newl
	db y_,o_,u_,QUES_
	db TX_END
Map2b_Text06:
	db 0,Y_,o_,u_,__,h_,a_,v_,e_,__,n_,o_,__,r_,o_,o_,m_,newn
	db f_,o_,r_,__,t_,h_,i_,s_,ESCL_
	db TX_END
Map2b_Script:
	call $3c3c
	ld hl,.Ptrs\@
	ld a,[$d5f5]
	jp JumpPtrID
.Ptrs\@
	dw Map2b_Script00
	dw Map2b_Script01
	dw Map2b_Script02
	dw Map2b_Script03
Map2b_Script00:
	ld hl,$d748
	bit 1,[hl]
	jr nz,.End\@
	call $2429
	call Delay3
	ld de,.myPath\@
	ld hl,$ccd3
	call $350c
	dec a
	ld [$cd38],a
	call $3486
	xor a
	ld [$c109],a
	ld [$cd6b],a
	ld a,1
	ld [$d5f5],a
.End\@
	ret
.myPath\@
	db KeyU,4,$FF
Map2b_Script01:
	ld a,[$cd38]
	and a
	ret nz
	ld a,1
	ld [$ff8c],a
	ld a,$08
	ld [$ff8d],a
	call $34a6
	call $2429
	call Delay3
	xor a
	ld [$ffb4],a
	ld a,$01
	ld [$d528],a
	ld a,1
	ld [$ff8c],a
	call $2920
	ret
Map2b_Script02:
	ld a,[$d057]
	cp $ff
	jr z,.End\@
	ld hl,$d748
	set 1,[hl]
	set 2,[hl]
.End\@
	call $2307
	ld a,3
	ld [$d5f5],a
Map2b_Script03:
	ld a,[$d748]
	bit 2,a
	ret z
	bit 3,a
	ret nz
	ld a,2
	ld [$ff8c],a
	jp $2920

What does this script do?
If you step in front of this house a person stops you. The script checks if it's night or day(/morning) and according to it you're pushed away or pushed inside the house. Inside the house another trigger is activated, which takes you in front of the lass that notices you (Rival's music starts) and offers a rare pokemon if you win in a fight against her. If you accept a trainer battle starts; you'll receive the pokemon only if you win, obviously.

UnderMybrella · Jul 20, 2011

mute before playing.

LightOfTruth · Jul 20, 2011

Is pictures of the script in action fine?

esperance · Jul 20, 2011

I'd like to enter.

Video
Youtube took too long, so here is a download.

Script

Spoiler:

What it Does
You fight a guy, walk forward, see Ho-oh fly around and fight with Giovanni, you battle Giovanni, Ho-oh flies around, and you fight Ho-oh.

Download: Here.

Cutlerine · Jul 20, 2011

Video:

Script:

Spoiler:

What it does: You walk onto Route 1, spy some Team Rocket members and their Obscenely Large Bomb in the distance - and resolve immediately to stop them blowing up Route 1, with or without the aid of the local citizenry.

Kevin · Jul 20, 2011

Video:

Script:

Spoiler:

What does this script do?
It shows you choosing your starter Pokemon and receiving a PokeDex.

LightOfTruth · Aug 2, 2011

Good now we just got the map-off :)

esperance · Aug 3, 2011

Congrats to the other winners! Those were some really impressive scripts. :)

Quick question. How did the scoring system work?

Sawakita · Aug 3, 2011

Nice scripts, congratulations to everyone!

Scripting Competition!

More options

LightOfTruth

Member

Shiny Quagsire

I'm Still Alive, Elsewhere

UnderMybrella

Wandering Programmer

LightOfTruth

Member

UnderMybrella

Wandering Programmer

The Void

hiiiii

Cutlerine

Gone. May or may not return.

Zeffy

g'day

Kevin

kevin del rey

NurseBarbra

くら　くら？

Sawakita

Not Invented Here

UnderMybrella

Wandering Programmer

LightOfTruth

Member

esperance

Cutlerine

Gone. May or may not return.

Kevin

kevin del rey

LightOfTruth

Member

esperance

Sawakita

Not Invented Here

Scripting Competition!

Member

I'm Still Alive, Elsewhere

Wandering Programmer

Member

Wandering Programmer

hiiiii

Gone. May or may not return.

g'day

kevin del rey

くら くら？

Not Invented Here

Wandering Programmer

Member

Gone. May or may not return.

kevin del rey

Member

Not Invented Here

くら　くら？