; Use 3260-3300
SCENE 261, jaord, SCENE, "Porten"
ACTOR 1, "Imperial Guardship", mj17, 1, 50, 70
IF T3262, @death
IF T3261+XP, @bad
IF T3261-XP, @good
IF T3260, @soon
IF T3300, @emperor
1: Ha!  So, %1 finally comes!
1: Ghan has expected you for years now!  Your powers do not even begin to compare to his!
1: The only way to him is past the system wide shield he created around his planet.
1: Hahahhahaha!
1: I suppose you want to know how to get past this force field?
1: What could you possibly have that I need?
1: And you dare not challenge me in combat, for I can call hundreds of ships to protect me!
1: Do you have any ideas? (ANSWER)
ASK 999999
SET rid, "#<lastAsk>"
1: #<rid>??? That is ridiculous!  
1: Here, how about this....
1: For the longest time, my boss has demanded I keep in maintenence constantly.
1: I am coming up on another fix up.
1: I despise doing this, but it must be done.
1: If you could go to the planet of Alpen for me, and get the supplies..
1: Well, I would be most greatful.  You must hurry, though!
COUNTDOWN 180
GIVE T3260
1: I expect you back very soon! 
END
@soon
1: Hurry up!
END
@bad
TAKE T3261
1: You were too slow, I had to go it myself using the crappy materials around here!
1: However, this was just a temporary fix.
COUNTDOWN 180
1: If you want to try again, now is your chance.
END
@good
1: Excellent!
GIVE T3262
GIVE I55
1: This makes my day much easier!
1: Please, take this engine.
1: It will allow you past the forcefield that is in place.
1: You will be destroyed by Ghan, though!
1: Hahahahhaha!
END
@death
GIVE L1
GIVE H6000
GIVE M6000
1: You are going to be killed!
END
@emperor
GIVE L1
GIVE H6000
GIVE M6000
1: Allmighty Emperor...
1: I grovel before thee!
END
;--------
;--------
SCENE 262, grayb1, SCENE, "Alpen"
IF T3261, @nomore
ACTOR 1, "Guard", mj16, 1, 50, 70
IF T3263, @die
IF T3260, @stuff
1: Welcome to Alpen.
GIVE L1
GIVE H6000
GIVE M6000
1: Please enjoy your stay.
END
@stuff
1: He sent YOU to pick up the stuff?
1: In that case.. whats the password?
1: You have 5 seconds to comply.
WAIT 3.0
1: 2....
WAIT 1.0
1: 1....
1: 0.
1: So, you thought you could get by us and take our supplies, huh?
@die
1: Prepare to die, scum!
MOVE 1, 200, 200
GIVE T3263
FIGHT 293, 293, 290
IF ALIVE, @won
1: Scum...
END
@won
PARTY ALIVE
GIVE T3261
ACTOR 2, "Computer"
2: Salvage.. Aquired...
END
@nomore
ACTOR 2, "Skill"
2: You sneak on board and use their facilities.
GIVE L1
GIVE H6000
GIVE M6000
END
;-------
;-------
SCENE 270, redy1, "Exodus"
ACTOR 1, "Emperor Ghan", final, 1, 20, 90
LOCK 1
PARTY G#<num.hostGP>
PARTY C#<num.hostClass> 
PARTY V#<num.hostLevel>
MUSIC nosuchsongisreallyexistingbeing
1: Welcome, %1.
1: We meet at last.
1: I know you will to destroy me, as most do.  I am prepared.
1: This fight shall decide it all, yes?  Who will rule the universe?
1: Only the heavens know.
FX 4
MUSIC endboss.mid
WEATHER 60
MOVE 1, 200, 200, 1
FIGHT 295
IF ALIVE, @victor
1: And the victor is shown to be me.
1: Better luck next time...
END
@victor
PARTY ALIVE
GIVE T3300
GOTO SCENE 271
END
;--------
SCENE 271, black, CUT, "End Credits"
IF R75, @othermid
MUSIC youwon.mid
@cont
ACTOR 1, "", final, 0, 70, 130
WAIT 20
GOTO SCENE 52
END
@othermid
MUSIC end.mid
GOTO @cont
END
;---------
SCENE 272, ara, CUT, "Nanites Trade In"
@top
MOVE 6, 200, 200, 1
ACTOR 1, "Nanite Collector", joshtownies, 9, 30, 70
BKGND ara
IF I104, @takeadd
COMPARE "#<nans>", "30"
IF= @z
IF> @z
COMPARE "#<nans>", "20"
IF= @y
IF> @y
COMPARE "#<nans>", "10"
IF= @x
IF> @x
1: You need give me ten Nanites for me to create your first prize.
1: You currently have collected #<nans> nanites.
END
@takeadd
ADD nans, "1"
TAKE I104
GOTO @top
END
@eventActorClick1
COMPARE "#<nans>", "30"
IF= @z2
IF> @z2
COMPARE "#<nans>", "20"
IF= @2y
IF> @2y
COMPARE "#<nans>", "10"
IF= @2x
IF> @2x

@x
1: You have #<nans> nanites.  You need 20 to have the next level of options.
1: Right Click me to bring this menu back up.
@2x
MENU "Arcade=@arcade", "Quotes=@quotes"
END
@y
1: You have #<nans> nanites.  You need to have 30 for the final level of options.
1: Right Click me to bring this menu back up.
@2y
MENU "Jukebox=@juke", "Arcade=@arcade", "Quotes=@quotes"
END
@z
1: Right Click me to bring this menu back up.
@z2
MENU "Jukebox=@juke", "Arcade=@arcade", "Quotes=@quotes", "Arena=@arena", "Gallery=@gallery"
END
;----------------
;---------------
;-------------
;----------------
;------------------
;Juke Box
@juke
BKGND music
MOVE 1, 200, 200, 1
ACTOR 2, "", cred4, 0, 90, 113
ACTOR 3, "", cred6, 0, 58, 101
@jukecont
END
@eventActorClick2
1: Mearly make a selection.  Right click the button to choose another song.
ASK 99999999
IF QA, @a
IF QB, @b
IF QC, @c
IF QD, @d
IF QE, @e
IF QF, @f
IF QG, @g
IF QH, @h
IF QI, @I
IF Q10, @10
IF Q11, @11
IF Q12, @12
IF Q13, @13
IF Q14, @14
IF Q15, @15
IF Q16, @16
IF Q17, @17
IF Q18, @18
IF Q19, @19
IF Q20, @20
IF Q21, @21
IF Q22, @22
IF Q23, @23
IF Q24, @24
IF Q25, @25
IF Q26, @26
IF Q27, @27
IF Q28, @28
IF Q29, @29
IF Q30, @30
IF Q31, @31
IF Q32, @32
IF Q33, @33
@back
END
@eventActorClick3
MOVE 2, 200, 200, 1
MOVE 3, 200, 200, 1
MOVE 1, 30, 70, 1
GOTO @top
END
@a
MUSIC Introduction.mid
GOTO @back
END
@b
MUSIC ab.mid
GOTO @back
END
@c
MUSIC are.mid
GOTO @back
END
@d
MUSIC bof.mid
GOTO @back
END
@e
MUSIC Arena.mid
GOTO @back
END
@f
MUSIC attack.mid
GOTO @back
END
@g
MUSIC b1.mid
GOTO @back
END
@h
MUSIC b2.mid
GOTO @back
END
@i
MUSIC b3.mid
GOTO @back
END
@10
MUSIC b4.mid
GOTO @back
END
@11
MUSIC b5.mid
GOTO @back
END
@12
MUSIC b6.mid
GOTO @back
END
@13
MUSIC endo.mid
GOTO @back
END
@14
MUSIC endl.mid
GOTO @back
END
@15
MUSIC endboss.mid
GOTO @back
END
@16
MUSIC Everspace.mid
GOTO @back
END
@17
MUSIC exodus.mid
GOTO @back
END
@18
MUSIC febag.mid
GOTO @back
END
@19
MUSIC evil.mid
GOTO @back
END
@20
MUSIC HighLevelHaven.mid
GOTO @back
END
@21
MUSIC Impdrive.mid
GOTO @back
END
@22
MUSIC Jumpoints.mid
GOTO @back
END
@23
MUSIC outworld2.mid
GOTO @back
END
@24
MUSIC penguin.mid
GOTO @back
END
@25
MUSIC PillerinianNebula.mid
GOTO @back
END
@26
MUSIC rank.mid
GOTO @back
END
@27
MUSIC Rewag.mid
GOTO @back
END
@28
MUSIC sysAlph.mid
GOTO @back
END
@29
MUSIC victory.mid
GOTO @back
END
@30
MUSIC TimeTravel.mid
GOTO @back
END
@31
MUSIC Warpath.mid
GOTO @back
END
@32
MUSIC yu1.mid
GOTO @back
END
@33
MUSIC end.mid
GOTO @back
END
;----------------
;---------------
;-------------
;----------------
;------------------
;END Juke Box
;----------
;----------
;---------
;-------
@arena
GOTO SCENE 273
END
;--------
;-------
;--------
;--------
;-------
@arcade
MOVE 1, 200, 200, 1
ACTOR 6, "Nanite Collector", joshtownies, 9, 30, 70
BKGND metal
@continueit
1: Please enter the number of the game you would like to play, or exit to exit.
@eventActorClick6
MENU "Slots=@1","Racing=@2","Search for Pi=@3","Blackjack=@4","Asteroids=@6","Stock Market=@7","Quadris(Tetris)=@8","Exit=@exit"
END
@1
GAME 1
1: Slots it is.
END
@2
GAME 2
1: Racing it is.
END
@3
GAME 3
1: The search for Pi it is.
END
@4
GAME 4
1: Blackjack it is.
END
@6
GAME 6
1: Asteroids it is.
END
@7
GAME 7
1: Stock Market it is.
END
@8
GAME 8
1: Quadris (Tetris) it is.
END
@exit
GOTO @top
END
;----------
;----------
;----------
;----------
;----------
@gallery
1: How long would you like in between each slide? (In seconds)
ASK 99999999
SET timerit, "#<lastAsk>"
COMPARE "#<timerit>", "1"
IF< @toosmall
MOVE 1, 200, 200, 1
MUSIC end.mid
@bgsagain
BKGND after1
WAIT #<timerit>
BKGND after2
WAIT #<timerit>
BKGND airlock
WAIT #<timerit>
BKGND alien
WAIT #<timerit>
BKGND alien1
WAIT #<timerit>
BKGND alientemple
WAIT #<timerit>
BKGND ap1
WAIT #<timerit>
BKGND ap2
WAIT #<timerit>
BKGND ara
WAIT #<timerit>
BKGND are
WAIT #<timerit>
BKGND armor
WAIT #<timerit>
BKGND Asteroids
WAIT #<timerit>
BKGND bank
WAIT #<timerit>
BKGND bgw1
WAIT #<timerit>
BKGND blue1
WAIT #<timerit>
BKGND bow1
WAIT #<timerit>
BKGND cop
WAIT #<timerit>
BKGND danscan
WAIT #<timerit>
BKGND desert1
WAIT #<timerit>
BKGND desert2
WAIT #<timerit>
BKGND energy
WAIT #<timerit>
BKGND fighterbg
WAIT #<timerit>
BKGND fort
WAIT #<timerit>
BKGND General
WAIT #<timerit>
BKGND ggw1
WAIT #<timerit>
BKGND gop
WAIT #<timerit>
BKGND grayb1
WAIT #<timerit>
BKGND greeno1
WAIT #<timerit>
BKGND greeno2
WAIT #<timerit>
BKGND guy
WAIT #<timerit>
BKGND ice
WAIT #<timerit>
BKGND jaord
WAIT #<timerit>
BKGND l1
WAIT #<timerit>
BKGND lance2
WAIT #<timerit>
BKGND mamship
WAIT #<timerit>
BKGND metal
WAIT #<timerit>
BKGND np1t
WAIT #<timerit>
BKGND opw1
WAIT #<timerit>
BKGND prodfac
WAIT #<timerit>
BKGND redy1
WAIT #<timerit>
BKGND respace
WAIT #<timerit>
BKGND rewag2
WAIT #<timerit>
BKGND rgw1
WAIT #<timerit>
BKGND Scene1
WAIT #<timerit>
BKGND Scene2
WAIT #<timerit>
BKGND Scene3
WAIT #<timerit>
BKGND Scene4
WAIT #<timerit>
BKGND Scene5
WAIT #<timerit>
BKGND Scene6
WAIT #<timerit>
BKGND Scene7
WAIT #<timerit>
BKGND Scene8
WAIT #<timerit>
BKGND Scene9
WAIT #<timerit>
BKGND Scene10
WAIT #<timerit>
BKGND Scene11
WAIT #<timerit>
BKGND Scene12
WAIT #<timerit>
BKGND sf
WAIT #<timerit>
BKGND skill
WAIT #<timerit>
BKGND Solar
WAIT #<timerit>
BKGND spaceport
WAIT #<timerit>
BKGND Stars
WAIT #<timerit>
BKGND stock
WAIT #<timerit>
BKGND uhlan2
WAIT #<timerit>
BKGND warp1
WAIT #<timerit>
BKGND warp2
WAIT #<timerit>
BKGND warp4
WAIT #<timerit>
BKGND warp5
WAIT #<timerit>
BKGND warp6
WAIT #<timerit>
BKGND warpg
WAIT #<timerit>
BKGND warpr
WAIT #<timerit>
BKGND warpw
WAIT #<timerit>
BKGND warpwarp
WAIT #<timerit>
BKGND warpy
WAIT #<timerit>
BKGND watch
WAIT #<timerit>
BKGND water
WAIT #<timerit>
BKGND water2
WAIT #<timerit>
BKGND watercity
WAIT #<timerit>
BKGND watercity2
WAIT #<timerit>
BKGND yellowo1
GOTO @bgsagain
END
@toosmall
1: You must wait at least 1 second between frames.
GOTO @gallery
END
;----------
;----------
;----------
;--------
@quotes
GOTO SCENE 274
END
;-----------
SCENE 274, ice, CUT, "Quotes"
MUSIC outworld2.mid
ACTOR 1, "Quotemaster", la1, 1, 30, 50
1: This is a large collection of Dan "Merlin" Millers favorite quotes.
MOVE 1, 200, 200, 1
@retop
WAIT 7.5
IF Qexit, @exit
SET randomquote, "%r30"
GOTO @#<randomquote>
@0
GOTO @retop
@1
1: "Light a fire for a man and keep him warm for a hour.  Light a man on fire and keep him warm for the rest of his life."
1: -Dan Merlin Miller
GOTO @retop
END
@2
1: " No one is perfect, but some of us are closer than others."
GOTO @retop
END
@3
1:  "Montana --- At least our cows are sane!" 
GOTO @retop
END
@4
1: " The drunker I sit here, The longer I get. "
GOTO @retop
END
@5
1: " Power corrupts, but we need electricity. "
GOTO @retop
END
@6
1: "Knowledge is power, and power corrupts."
1: -J.C. Boyle
GOTO @retop
END
@7
1: " Nothing is impossible for anyone impervious to reason "
GOTO @retop
END
@8
1: "One seventh of your life is spent on Monday."
GOTO @retop
END
@9
1: "Why are you wasting your time reading quotes?"
GOTO @retop
END
@10
1: "Profanity, the language of computer professionals"
GOTO @retop
END
@11
1: "Practice safe eating -- always use condiments."
GOTO @retop
END
@12
1: "Warning: Dates in Calendar are closer than they appear." 
GOTO @retop
END
@13
1: " Let's split up, we can do more damage that way. "
GOTO @retop
END
@14
1: " You are validating my inherent mistrust of strangers."
GOTO @retop
END
@15
1: "If you shoot a mime, should you use a silencer? "
GOTO @retop
END
@16
1: "If 75% of all accidents happen within 5 miles of home, why not move 10 miles away?"
GOTO @retop
END
@17
1: " Space is an illusion, disk space doubly so. "
GOTO @retop
END
@18
1: " A cynic smells flowers and looks for the casket. "
GOTO @retop
END
@19
1: "Hell is full. The damned are now in Tech Support."
GOTO @retop
END
@20
1: "Don't be sexist, chicks hate that!"
GOTO @retop
END
@21
1: "Age is a very high price to pay for maturity."
GOTO @retop
END
@22
1: " Conscience is what hurts when everything else feels good. "
GOTO @retop
END
@23
1: " Never hit a man with glasses. Use your fist. "
GOTO @retop
END
@24
1: " Its a JOKE, like the funny kind but different. "
GOTO @retop
END
@25
1: " No, my powers can only be used for good."
GOTO @retop
END
@26
1: " I distinctly remember forgetting that. "
GOTO @retop
END
@27
1: " Pandemonium doesn't reign here... It pours! "
GOTO @retop
END
@28
1: " A good plan today is better than a perfect plan tomorrow."
GOTO @retop
END
@29
1: " Figures won't lie, but liars will figure. "
GOTO @retop
END
@30
1: "Non-dairy creamer is flammable."
GOTO @retop
END
@exit
GOTO SCENE 272
END
;--------
SCENE 273, ara, SCENE, "Arena"
MUSIC are.mid
ACTOR 1, "Moderator", la1, 1, 30, 50
COMPARE "#<arenabeen>, "1"
IF= @skip
1: Welcome to the Arena.
1: Here, you can battle *any* monster you wish too.
1: To fight a monster, mearly type in the number of the monster you wish to fight.
1: For a listing of all of the monsters, and their monster number, see your Book of Demons.
SET arenabeen, "1"
@skip
1: Please type the number of the monster you wish to fight, or type exit.
ASK 99999
IF Qexit, @exit
set monsterfight, "#<lastAsk>"
1: Prepare to fight...
wait 2.0
FIGHT #<lastAsk>
IF DEAD, @dead
GIVE L1
GIVE M6000
GIVE H6000
@reask
1: Good fight!  Would you like to fight again? (YES/NO)
ASK 999999
IF YES, @skip
IF NO, @exit
GOTO @reask
END
@dead
GIVE L1
GIVE H6000
GIVE M6000
1: Good try, would you like to fight again? (YES/NO)
ASK 99999
IF YES, @skip
1: No?  Okay.
GOTO @exit
END
@exit
GOTO SCENE 272
END
;-------------
;---------
;-----------
;---