+CREDITS

Project Gretok

Managed by Phoenix Star and Kopana
Core elements by Phoenix Star
Classes and Class Tokens by Phoenix Star
World maps and scenes by Phoenix Star
Skins by Kopana and Radical Ed
Class equipment by Phoenix Star
Music selected by Phoenix Star, Bob Goss, Cheesemz, and Ginji
Beastmaster Quest by Bob Goss
Skill halls by Phoenix Star
Rare items and treasures by Phoenix Star
Healer revised by Link

Project Phlego

Based on the ideas of Kieran and Kopana
Project management by Kieran
Core elements by Phoenix Star
Scripting by Bob Goss and Phoenix Star
God class by Kieran
Dog class and cheat protection by Phoenix Star
God areas by Phoenix Star
God bug fix by Hugna

Project Miner

Mining:
Based on the ideas of Phoenix Star
Core scripting by Hugna
Items by Phoenix Star
Cheat protection by Phoenix Star

Smithing:
Item remaking by Phoenix Star
Smelting Scene by Phoenix Star
Forging Scene by Zero

Enchanting:
Based on the ideas of Phoenix Star
Rune names by Phoenix Star and the winners of the Runemakers Contest.

Project Alchemy

Based on the ideas of Hugna
Herb names by Phoenix Star

Special thanks to:
Mavra, for the random acts of kindness.
Baby, for reporting the rare item exploit.
Link, for quest scripting.
Cheesemz, for the MIDI help.
Zero, for making all future skills.
WoSAddict.com, for a WoS-dedicated hosting service.  
Runescape, for inspiration.
Rast Blackwing, for making Dragon Destiny which inspired the dragon, vampire, and werewolf classes.

All unmentioned ideas and software property of their respective owners.  
Gretok is a WDU project.  
-CREDITS

; STORY Section
; This has the 'back story' which scrolls by at the very beginning.  Most people will
; skip over this.  
; a line of text beginning with | will be centered, otherwise text is left-justified.
; Each line of text will be its own paragraph, which will word-wrap nicely (we hope)
; within paragraphs.
; don't be TOO long-winded here or people will get irritated.
; note that leading spaces in a paragraph are significant and would cause the first line
; to be indented.
;
; Special commands, one per line, control text which follows
;
; :C red,green,blue			set text color (as in ":C 255,0,0" for bright red)
; :S size					set text size  (200 is 'normal')
; :F fontName				set text font name  (use ":F  " to restore default font
;
; Note: There is a long pause just after the world is selected and before the scrolling back-story
; appears.  Normally the screen would just be black at this time.  However, you can add a file to
; your world's ART folder called "splash.jpg"
;
; If "worlds\myworldname\art\splash.jpg" exists, then that image will be displayed statickly during
; the lengthy map-loading delay.  You can't control how long the splash will be seen, however.  It
; will be seen longer on slower computers.
+STORY
:S 200
:C 255,255,0
|Gretok
:S 75
:C 255,255,255
|~~~
|by the World Dev Union
|~~~ 
:S 90
:C 204,153,0
The world of Gretok was once very peaceful.  One day, the evil necromancer Sessath overthrew the king and declared himself ruler of all Gretok.  Many knights tried in vain to stop him.  
The people of Gretok called upon the gods to rid them of the evil.  The gods replied that Sessath was an immortal, and that he could not be destroyed.  The gods met to discuss the situation.  They agreed to seal the evil away.  
The gods managed to lock away the necromancer in a glass crystal, but Sessath set a curse upon Gretok.  As long as Sessath was imprisoned in the crystal, monsters, wyrms, and outlaws would plague the world.
The gods did not give in to Sessath's curse.  They left Sessath in the crystal, for his freedom would be worse than any curse.  
Sessath's son Trellak vowed to set his father free from the crystal and become the prince of Gretok.
The people caught wind of this act, and called upon the gods to bestow upon them a hero that was the bane of all evil.
Meanwhile, Trellak travelled to South Gretok and set his father free.  The curse of Sessath did not pass with his release.  Sessath continued summoning more monsters and wyrms, while corrupting the people of South Gretok.
The gods knew that there was little time to spare.  They had to find a hero.  You have been chosen to be this hero.  You have been blessed with the power to destroy evil, and restore the peace this world once had.
You have been sent to Gretok before being properly trained.  The gods hoped that you would work with others to defeat the evil.
Your journey starts at the Well of Souls, where all souls enter before choosing their life.
You may encounter other heroes sent by the gods that will help you on your quest.  The gods themselves may incarnate into the physical world.  They may help you if you please them, or harm you if you anger them.  
:F Arial Italic
:C 255,0,0
Prepare yourself...
-STORY


+TERRAINS
;	arg0	arg1				arg2
;
	0,		"No Hindrance",		0
	1,		"Lava",				10
	2,		"Electricity",		10
	3,		"Desert",					0
	4,		"Deep Water",		0
	5,		"Clouds",			0
	6,		"",					0
	7,		"",					0
	8,		"Healing",			-10
	9,		"Mountains",			0
-TERRAINS


+EQUIP
;	arg0	arg1
;	ID		Name

  	0,		"Helm"
 	1,		"Torso"
 	10,		"Boots/Pants"
 	11,		"Shield"
 	12,		"Ring"
 	13,		"Amulet"
-EQUIP


+THEMES
#include themes.txt
-THEMES


+MAPS
#include maps.txt
-MAPS

+TOKENS
	1,"You have agreed to obey the golden rule."
;	Beastmaster
	2,"You agreed to help the beastmaster find his pet Slobber."
	3,"You found the beastmaster's Slobber."
	4,"The beastmaster taught you Enchant and Tame."
;	Curse of Sessath
	5,"From within the Halo Hall, Phoenix Star told you how to kill Sessath."
	6,"You got the Frog Boots from the Beastmaster."
	7,"The Swamp Guardian gave you the Lava Boots."
	8,"With the mythic items, you got the Electricity Boots from Phoenix Star."
	9,"You killed Trellak."
	10,"You defeated Sessath and found out that he was a god."
	11,"Hugna gave you the Mythic Pick."
;	Serpentine Smith (Serpentine Quest)
	12,"The serpentine smith told you to get her prototypes."
	13,"You gave the prototypes to the smith, and she morphed you into a serpentine."
;	Monster Seeker Quests (Dragon/Vampire/Werewolf Quest)
	14,"You read how a group of adventurers transformed to defeat a great evil."
;	Dragon Seeker
	15,"The serpentine sage told you to get him things for dragon study."
	16,"You killed a green wyrm and took its blood."
	17,"You tamed a baby wyrm and took it to the sage to extract essence."
	18,"You killed a black wyrm and got its scales."
	19,"The sage concocted a potion that transformed you into a dragon."
;	Truth about the Wyrms
	20,"You agreed to help the sage teach the serpentines about wyrms."
	21,"The chief has to step up on security, and has to talk to the smith."
	22,"The chief is following you to the green wyrm lair."
	23,"The wyrm wasn't in the cave."
	24,"The wyrm tried to lay siege to the city.  All serpentines now follow your cause."
;	Class Tokens
	998,"You chose to be a mortal."
	999,"You chose to be a God of Gretok."
	1000,"."
	1001,"You are a knight."
	1002,"You are a mage."
	1003,"You are a ranger."
	1004,"You are a serpentine."
	1005,"You are a dragon."
	1006,"You are a ninja."
	1007,"You are a werewolf."
	1008,"You are a cleric."
	1009,"You are a vampire."
	1010,"You are a samurai."
	1011,"You are a demon."
	1012,"You are a phoenix."
	1013,"You are a hero of Gretok."
	1087,"You have upset the gods."
	1088,"You are a God of Gretok."
; Equip Tokens
	1100,"You can equip normal helms."
	1101,"You can equip normal armor."
	1102,"You can equip normal boots."
	1103,"You can equip normal shields."
	1104,"You can equip dragon armor."
	1105,"You can equip fangs."
	1106,"You can equip shuriken."
	1107,"You can equip bracers."
	1108,"You can equip wyrmhide armor."
;End Tokens
-TOKENS


+ELEMENTS
	0,		"Life"		
	1,		"Water"			
	2,		"Nature"			
	3,		"Earth"			
	4,		"Death"		
	5,		"Fire"		
	6,		"Spirit"		
	7,		"Air"	
	8,		"Trainer"
;End Elements
-ELEMENTS


+HANDS
; arg0		arg1		arg2		arg3
;  ID		Name		Range		SoundFX
;
0,"Blade",30,"sword1.wav"
1,"Staff",20,"staff.wav"
2,"Ranged",100,"sword8.wav"
3,"Music",50,"chirp4.wav"
4,"Fist/Claw",20,"fist.wav"
5,"Thrown",80,"dart.wav"
6,"Book",70,"chant6.wav"
7,"Hex",90,"crow1.wav"
;End Hands
-HANDS


+ITEMS
#include items.txt
-ITEMS


+SPELLS
#include spells.txt
-SPELLS


+MONSTERS
#include monsters.txt
-MONSTERS


+GROUPS
#include groups.txt
-GROUPS


+LEVELS
#include levels.txt
-LEVELS


+SCENES

SCENE 0		temple, WELL, "Well of Souls", 2, 7
#include proxbeta.txt

	THEME	1
	MUSIC	LINKWORLDS.mid
	ACTOR	1,	"The Blind Sage", joshMiscellaneous, 32, 0, 60
	SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60
	WAIT	1.0
	' Welcome to the Well of Souls, traveler.
	MOVE	1,	45, 60
	' I can help you create a new soul, or restore a treasured one.
	MOVE	1,	30, 70
	' When you are ready, select your soul and then incarnate into the physical world.
	MOVE	1,	40, 75
	' Notice the buttons along the bottom of your screen.  Point to a button to see its name.
	' Press the NEW button to create a new soul, and select its skin and abilities.
	MOVE	1,	25, 70
	' Press the RESTORE button to select an old soul, and resume its struggle.
	MOVE	1,	35, 65
	' Press the INCARNATE button to enter the physical world again.
	MOVE	1,	30, 70
	' Press the MAP button to see what other souls roam the world.
	MOVE	1,	40, 77
	' Press the HAUNT button to spy invisibly over another incarnated soul.
	MOVE	1,	20, 70
	' You may rest here safely, for as long as you like.
END

;--------------
; SCENE 1 must be primary CAMP scene
;
SCENE 1
#include proxbeta.txt
	THEME
;	MUSIC   (no music in camp scene, just theme)
; Check is this is a PK Attack (uses CAMP scene, not FIGHT scene, oddly enough)

	COMPARE #<num.isPKAttack>, 1
	IF= @pk
	COMPARE #<num.isPKAttack>, 2
	IF= @pk	

; Gods and Dogs
	COMPARE #<num.peopleInScene>,1
	IF= @check
END
@check
	#include dogs.txt
	#include gods.bmp
END

;
; It *is* a PK Attack, so we set up some special rules to make it exciting.
;
@pk
; If you have an aggressive rating of over 3000, you can't pk attack anyone.
IF F4, @skipsnert
COMPARE #<num.hostAggressiveness>, 3000
IF> @snert
@skipsnert

; Set map flags: 16(ladder), 4(pk)
	FLAGS	20

; Lock the room
	LOCK 1

	; Announce to the players that this is a special place
	N: PK Attack! 
	N: Locked Camp!
	N: Reporting to ladder!

	; we have to END or they can't fight
	END

@eventPkAttackDone

	; maybe someday this event will work, and we can unlock the camp as soon as 
	; only one side is left standing

	LOCK 0
	FLAGS 0
	END

@snert
N: PKing now would be snerting.  
FLAGS 136
N: You can't PK this person right now.  
END

;--------------
; SCENE 2 must be primary FIGHT scene (for automatic fights)
;
SCENE 2
#include proxbeta.txt
	THEME

; Random fight music
;	SET monster.id, #<monster.lastFightId1>
;	COMPARE #<num.hostLevel>, #<monster.level>
;	IF< @battlemidiset
; Fight MIDI Set
	SET music, %R11
	COMPARE #<music>,1
	IF= @fight1
	COMPARE #<music>,2
	IF= @fight2
	COMPARE #<music>,3
	IF= @fight3
	COMPARE #<music>,4
	IF= @fight4
	COMPARE #<music>,5
	IF= @fight5
	COMPARE #<music>,6
	IF= @fight6
	COMPARE #<music>,7
	IF= @fight7
	COMPARE #<music>,8
	IF= @fight8
	COMPARE #<music>,9
	IF= @fight9
	COMPARE #<music>,10
	IF= @fight10
; Battle MIDI Set
	SET music, %R4
	COMPARE #<music>,1
	IF= @battle1
	COMPARE #<music>,2
	IF= @battle2
	COMPARE #<music>,3
	IF= @battle3
	COMPARE #<music>,4
	IF= @battle4

; Defaults to mortal.mid if, for whatever reason, the random fight music gives a number that's not from 1 through 9.
	MUSIC  mortal.mid
	GOTO @startfight
@fight1
	MUSIC fight1.mid
	GOTO @startfight
@fight2
	MUSIC fight2.mid
	GOTO @startfight
@fight3
	MUSIC fight3.mid
	GOTO @startfight
@fight4
	MUSIC fight4.mid
	GOTO @startfight
@fight5
	MUSIC fight5.mid
	GOTO @startfight
@fight6
	MUSIC fight6.mid
	GOTO @startfight
@fight7
	MUSIC fight7.mid
	GOTO @startfight
@fight8
	MUSIC fight8.mid
	GOTO @startfight
@fight9
	MUSIC fight9.mid
	GOTO @startfight
@fight10
	MUSIC fight10.mid
	GOTO @startfight
@battle1
	MUSIC battle1.mid
	GOTO @startfight
@battle2
	MUSIC battle2.mid
	GOTO @startfight
@battle3
	MUSIC battle3.mid
	GOTO @startfight
@battle4
	MUSIC battle4.mid
	GOTO @startfight

@startfight
	FIGHT

; Special Events!
IF WIN, @specialeventcheck
END
@specialeventcheck
COMPARE #<num.serverTimeMonth>,1
IF= @janEvents
COMPARE #<num.serverTimeMonth>,2
IF= @febEvents
COMPARE #<num.serverTimeMonth>,3
IF= @marEvents
COMPARE #<num.serverTimeMonth>,4
IF= @aprEvents
COMPARE #<num.serverTimeMonth>,5
IF= @mayEvents
COMPARE #<num.serverTimeMonth>,6
IF= @juneEvents
COMPARE #<num.serverTimeMonth>,7
IF= @julyEvents
COMPARE #<num.serverTimeMonth>,8
IF= @augEvents
COMPARE #<num.serverTimeMonth>,9
IF= @septEvents
COMPARE #<num.serverTimeMonth>,10
IF= @octEvents
COMPARE #<num.serverTimeMonth>,11
IF= @novEvents
COMPARE #<num.serverTimeMonth>,12
IF= @decEvents
END

@janEvents
COMPARE #<num.serverTimeDay>,1
IF= @newyear
END
@febEvents
END
@marEvents
END
@aprEvents
END
@mayEvents
END
@juneEvents
END
@julyEvents
COMPARE #<num.serverTimeDay>,4
IF= @fourthofjuly
END
@augEvents
END
@septEvents
COMPARE #<num.serverTimeDay>,17
IF= @gretokday
END
@octEvents
COMPARE #<num.serverTimeDay>,2
IF= @forumanniversary
END
@novEvents
COMPARE #<num.serverTimeDay>,22
IF= @serpentineday
END
@decEvents
COMPARE #<num.serverTimeDay>,5
IF= @wdusite
COMPARE #<num.serverTimeDay>,25
IF= @christmas
END

@newyear
N: New Year's Bonus!
N: +300 GP for winning!
GIVE G300
END

@fourthofjuly
N: Independance Day Bonus!
N: +250 GP for winning!
GIVE G250
END

@gretokday
N: Gretok New Year!
N: +500 GP for winning!
GIVE G500
END

@forumanniversary
N: WDU Forum Anniversary!
N: +100 GP for winning!
GIVE G100
END

@serpentineday
N: Serpentine Day Bonus!
N +50 GP for winning!
GIVE G50
END

@wdusite
N: WDU Site Anniversary!
N: +500 GP for winning!
GIVE G500
END

@christmas
N: Christmas Bonus!
N: +500 GP for winning!
GIVE G500
END

;--------------
; SCENE 3 (this is the evergreen starting scene on the main map, where you can return to be healed)
;
SCENE 3		aztec
#include proxbeta.txt
	THEME	0
	MUSIC	LINKWORLDS.mid
	ACTOR	1,	"Soul Brother", joshRoyalty, 5, 25, 90
	POSE	5, 5, 13
	SEL		1
	MOVE	1,	15, 80

	IF T1, @agreed
	' Greetings, new soul. You are about to embark upon an amazing voyage of discovery.
	' When sharing your journey with other souls, it is important that you obey the golden rule.
	' Do you agree to obey the golden rule? (type YES or NO)
;	Class tokens done
	ASK 65000
	IF -YES, @saidNo
	' Thank you, my child.  You shall never regret your decision.
	' Push the SHOP button when it appears.  You might find better equipment is available for you as your level increases.
	GIVE T1
	GOTO @agreed
@saidNo
	' It is a sorry state that the world has fallen into.  You sadden me.
	' I cannot bring myself to give sustenance to such a renegade as you.
	' Begone!
	MOVE	1, -30, 80
	END

@agreed
	IF ALIVE, @skip1
	' You seem to be dead, let me resurrect you.
	WAIT    4.0
	SOUND	"thunder1.wav"
	WAIT	1.0
@skip1
	MOVE	1,	10, 75
	GIVE	L1
	GIVE	H50000
	GIVE	M50000
	IF I20,@skipTicket
	GIVE	I20				; give him a ticket home
@skipTicket
	; offer EVERYTHING under level 10
	OFFER2	0,9
	' Blessings upon you, Soul.
	' You are always welcome here, to rest and recover... 
END





;--------------
; SCENE 4 Generic Casino
;
SCENE 4		aztec
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Steven", joshRoyalty, 2, 25, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END




;---------
; general armor shop

SCENE 5 shop
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Suicide", joshTownsFolk, 17, 25, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,40,10,0,40,11,0,40,21
	' Finest armor in Gretok!
END

;---------
; general weapons shop

SCENE 6 shop
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Kopana", joshTownsfolk, 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,40,12,0,40,13,0,40,14,0,40,15
	' Finest weapons in Gretok!
END

;---------
; general baubles shop

SCENE 7 shop
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Radical Ed", joshTownsFolk, 24, 25, 90
	POSE	24,25
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,40,22,0,40,23
	' Finest rings and amulets in Gretok!
END


;---------
; Dart shop
;
SCENE 8 shop
#include proxbeta.txt
	THEME	0
	MUSIC	shop.mid
	ACTOR	1,	"Kieran", joshTownsFolk, 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER	735,736,737,738,739,740,741

	' Welcome to my dart shop.  Would you care for one of my darts?
END

;---------
; seed shop
;
SCENE 9 shop
#include proxbeta.txt
	THEME	0
	MUSIC	shop.mid
	ACTOR	1,	"Cheesemz", joshTownsFolk, 9, 25, 90
	POSE	9,	9,	10
	SEL		1
	MOVE	1,	15, 80
	OFFER	14,15,16,17,18,19
	' Seeds from the gods!
END

;---------
; Class Armor Shop
SCENE 10 shop
#include proxbeta.txt
	THEME	0
	MUSIC	shop.mid
	ACTOR	1,	"Phoenix Star", joshtownsfolk, 12, 25, 90
	SEL		1
	POSE	12, 12, 11
	FACE	1,1
	POSE	11,12
	OFFER	102,103,104,105,116,117,118,29
	' I just got some desert goggles from Port Targon.  
	' If you want to make it to Eastern Gretok, you'll need a pair
END
;
; Blackjack Table
;
SCENE 11 shop SCENE, "Blackjack Table"
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Ginji", joshTownsFolk, 15
	GAME	4
	' Perhaps you would care to pass the time playing cards?
	' We could arrange a small wager to make it interesting?
END

;
; Pokegatchi Pen
;
SCENE 12 shop SCENE, "Pet Pen"
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Rebecca", joshTownsFolk, 24, 25, 90
	POSE	24,25,4
	MOVE	1,	15, 80
	GAME	5
	' Have you checked in on your pets recently?
	' You know, you can check them at any time by typing /pet.
END

;
; Asteroids Game
;
SCENE 13 shop SCENE, "Arcade"
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Ramona", joshTownsFolk, 24, 25, 90
	POSE	24,25,4
	MOVE	1,	15, 80
	GAME	6
	' We're not sure where this magical device came from.
	' But press your game button for a peek at it.
END

;
; Stock market
;
SCENE 14 shop SCENE, "Dow Bones"
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Phyllis", joshTownsFolk, 24, 25, 90
	POSE	24,25,4
	MOVE	1,	15, 80
	GAME	7
	' You look burdened down under the weight of your gold pieces.
	' Perhaps you would like to convert some of it into attractive paper equities?
	' Press the GAME button to open the market exchange screen.
END


;
; Tetris
;
SCENE 15 shop SCENE, "Hall of Mystery"
#include proxbeta.txt
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Charlotte", joshTownsFolk, 24, 25, 90
	POSE	24,25,4
	MOVE	1,	15, 80
	GAME	8
	' Help us, oh mighty adventurer. An evil sorcerer has left behind this devilish game.
	' We cannot escape its tyrannical grasp!
END

; Treasure Teleport
SCENE 20 Coastal
#include proxbeta.txt
	SET TType, %R17
	THEME 0
	ACTOR 1, "Treasure", joshMiscellaneous, 24, 20, 80
	N: Right-click the treasure to dig.
	TAKE I298
END
@eventActorClick1
	COMPARE #<TType>, 0
	IF= @found
	COMPARE #<TType>, 1
	IF= @type1
	COMPARE #<TType>, 2
	IF= @type2
	COMPARE #<TType>, 3
	IF= @type3
	COMPARE #<TType>, 4
	IF= @type4
	COMPARE #<TType>, 5
	IF= @type5
	COMPARE #<TType>, 6
	IF= @type6
	COMPARE #<TType>, 7
	IF= @type7
	COMPARE #<TType>, 8
	IF= @type8
	COMPARE #<TType>, 9
	IF= @type9
	COMPARE #<TType>, 10
	IF= @type10
	COMPARE #<TType>, 11
	IF= @type11
	COMPARE #<TType>, 12
	IF= @type12
	COMPARE #<TType>, 13
	IF= @type13
	COMPARE #<TType>, 14
	IF= @type14
	COMPARE #<TType>, 15
	IF= @type15
	COMPARE #<TType>, 16
	IF= @type16
	COMPARE #<TType>, 17
	IF= @type17

	H: Oops, a bug!  Better report this!
@type1
	H: Hey, I found a %I272!
	GIVE I272
	GOTO @found
@type2
	H: Hey, I found an %I276!
	GIVE I276
	GOTO @found
@type3
	H: Hey, I found a %I280!
	GIVE I280
	GOTO @found
@type4
	H: Hey, I found a %I284!
	GIVE I284
	GOTO @found
@type5
	H: Hey, I found some %I285!
	GIVE I285
	GOTO @found
@type6
	H: Hey, I found some %I286!
	GIVE I286
	GOTO @found
@type7
	H: Hey, I found a %I287!
	GIVE I287
	GOTO @found
@type8
	H: Hey, I found an %I288!
	GIVE I288
	GOTO @found
@type9
	H: Hey, I found a %I289!
	GIVE I289
	GOTO @found
@type10
	H: Hey, I found a %I290!
	GIVE I290
	GOTO @found
@type11
	H: Hey, I found an %I291!
	GIVE I291
	GOTO @found
@type12
	H: Hey, I found a %I292!
	GIVE I292
	GOTO @found
@type13
	H: Hey, I found a %I293!
	GIVE I293
	GOTO @found
@type14
	H: Hey, I found %I318!
	GIVE I318
	GOTO @found
@type15
	H: Hey, I found an %I423!
	GIVE I423
	GOTO @found
@type16
	H: Hey, I found some %I388!
	GIVE I388
	GOTO @found
@type17
	H: Hey, I found some %I489!
	GIVE I489
	GOTO @found
; The following line is in case I accidentally bug something up.
H: Oops, a bug!  Better report this!
@found
	SET TType 0
	WAIT 2
	GOTO SCENE 3
END
; Include Files
; This is usually the cause of any scene bugs that I create, because I rarely update this when I need to.  
#include beastmaster.txt
#include phlego.txt
#include Halls.txt
#include lairs.txt
#include mintaka.txt
#include serpentine.txt
#include eastern.txt
#include docks.txt
#include smithing.txt
-SCENES

; Gretok is a WDU project.  Do not use anything from this world, or any mods of them without the original creator's permission.
; blank line