;Scene 4,5,6,7,8,9,10,11,12,13
;T1000=Swordsman Gear(Heavy)	1001=Fencer Sheilds		1002=Mage Books		1003=Necro Book		1004=Cleric Book
;T1005=Beserker Helm		1006=bard				1007=Mid Armor	1008= Archer Quiver
;1010=teleport
;1100=Necro Spells
;1101-1104 Geo Spells		1105-1108 Pyro Spells		1109-1112 Hydro Spells		1113-1116 Aero Spells

SCENE 13, eurostreet, scene, "Craftsman", 0, 0, 0
ACTOR 1, "Craftsman", josh97, 1, 24, 82
SEL 1
	MISSION 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 100, 101, 102
	' Aye I can help ye by crafting items, I just need some basic ingredients.
	' Always be checking in every 5 levels or so, I too learn how to make new items.
END

SCENE 12, eurostreet, scene, "Shop", 0, 0, 0
ACTOR 1, "Stall Owner", joshTownsfolk, 9, 24, 82
SEL 1
	OFFER 0
	' Hey, got your goods here.
	' Right click me to shop.
END
@Eventactorclick1
	MENU "Items=@items", "Helmets=@helms", "Armor=@arm", "Gloves=@gloves", "Belts=@belt", "Boots=@boots", "Teleport Spells=@tele"
END
@tele
IF -V10 @not
IF s260 @have
	' So your intrested in teleport spells eh..
	' All I can offer you is %s260.
IF C6 @free
	' It will cost you 400 gp.
	' Intrested?
	ASK 9999
	IF YES @ye
	' So be it.
END
@ye
	IF G400 @buy
	' You don't have 400 gp..
END
@not
' I can't let people below level 10 teleport out of Atlis.
END
@buy
HOST_TAKE G400
@free
HOST_GIVE S260
	' There ya go.
END
@have
	' You already have my only teleport spell.
END
@items
	OFFER 1, 2, 3, 4, 10, 11, 12, 13, 60, 61, 62, 63, 64
END
@helms
	OFFER 650, 651, 652, 653, 654, 655, 656, 657, 658, 659
END
@arm
	OFFER 700, 701, 702, 703, 704, 705, 706, 707, 708, 709
END
@gloves
	OFFER 800, 801, 802, 803, 804, 805, 806, 807, 808, 809
END
@belt
	OFFER 750, 751, 752, 753, 754, 755, 756, 757, 758, 759
END
@boots
	OFFER 850, 851, 852, 853, 854, 855, 856, 857, 858, 859
END

SCENE 4, eurostreet, scene, "Sword Master", 0, 0, 0
ACTOR 1, "Sword Master", npcs, 3, 24, 82
SEL 1
IF C1 @swordsmen
	' Greetings %1, I have nothing I can teach your class.
	' If you know any swordsmen tell them to stop by.
END
@swordsmen
	' Greetings %1, I see you are a swordsmen.
IF T1000 @cont
	HOST_GIVE L1
	HOST_GIVE H100
	HOST_GIVE M100
	HOST_TAKE G975
	' Ah a beginner at that, allow me teach you how to weild special Swordsmen equipment.
	HOST_GIVE T1000
	HOST_GIVE T1007
	' Here take this beginning gear also.
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I103
	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I111

	' You should go report to the training grounds now.
END
@cont
IF V10 @lvl10
	' I have nothing to offer right now. Come back when you are level 10.
END
@lvl10
	' Ah you are ready for new equipment, unfortunately you will need to buy it.
	' Equipment isn't easy to get, I can't just give it away.
	OFFER 120,121,122,123,124,200,201,202,203,204
END

SCENE 5, aztec, SCENE, "Healer", 0, 0, 0
	Actor 1, "Cleric", joshroyalty, 5, 14, 82
	SEL 1
	' Greetings.
	GIVE L1
	GIVE H3000
	GIVE M3000
	IF C5 @cleric
	' If you ever need healing return here.
	' I can also train fellow clerics.
END
@cleric
	IF T1004 @cont
	' Still learning in the ways of Holy I see..
	' Here my son, take this gear.
	SET book, 0
	HOST_GIVE T1004
	HOST_GIVE T1007
	TAKE G975
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I108
	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I117
	' My son you should goto the Training Grounds.
	' Return when you need more training.
END
@cont
	IF V10 @lvl10
	' I can do nothing for you now my son.
	' Return when you are more experienced.
END
@lvl10
	OFFER 600, 601, 602, 603, 604
	' Here is some gear for you to purchase.
	' Right click on me to write more books.
END
@eventactorclick1
	IF C5 @cont1
END
@cont1
	EJECT "C5"
	IF V10 @cont2
END
@cont2
	COMPARE #<book>,	 "0"
	IF= @book0
	COMPARE #<book>, "1"
	IF= @book1
	COMPARE #<book>, "2"	
	IF= @book2
	COMPARE #<book>, "3"	
	IF= @book3
	COMPARE #<book>, "4"	
	IF= @book4
	COMPARE #<book>, "5"	
	IF= @book5
	COMPARE #<book>, "6"	
	IF= @book6
	COMPARE #<book>, "7"	
	IF= @book7
	COMPARE #<book>, "8"	
	IF= @book8
	COMPARE #<book>, "9"	
	IF= @book9
	' You already have the best book I can make you my son.
END
@book0
	' For your book I will need only 1 page.
	COMPARE #<num.item20> "1"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20
	TAKE I108
	GIVE I1400
	ADD book, 1
END
@book1
	' For your book I will need only 3 pages.
	COMPARE #<num.item20> "3"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.3
	TAKE I1400
	GIVE I1401
	ADD book, 1
END
@book2
	' For your book I will need only 6 pages.
	COMPARE #<num.item20> "6"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.6
	TAKE I1401
	GIVE I1402
	ADD book, 1
END
@book3
	' For your book I will need only 9 pages.
	COMPARE #<num.item20> "9"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.9
	TAKE I1402
	GIVE I1403
	ADD book, 1
END
@book4
	' For your book I will need only 12 pages.
	COMPARE #<num.item20> "12"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.12
	TAKE I1403
	GIVE I1404
	ADD book, 1
END
@book5
	' For your book I will need only 15 pages.
	COMPARE #<num.item20> "15"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.15
	TAKE I1404
	GIVE I1405
	ADD book, 1
END
@book6
	' For your book I will need only 18 pages.
	COMPARE #<num.item20> "18"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.18
	TAKE I1405
	GIVE I1406
	ADD book, 1
END
@book7
	' For your book I will need only 21 pages.
	COMPARE #<num.item20> "21"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.21
	TAKE I1406
	GIVE I1407
	ADD book, 1
END
@book8
	' For your book I will need only 24 pages.
	COMPARE #<num.item20> "24"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.24
	TAKE I1407
	GIVE I1408
	ADD book, 1
END
@book9
	' For your book I will need only 27 pages.
	COMPARE #<num.item20> "27"
	IF< @morepages
	WAIT 3

	' Here is your new book.
	TAKE I20.27
	TAKE I1408
	GIVE I1409
	ADD book, 1
END
@morepages
	' You don't have enough pages for a new book.
END

SCENE 6, eurostreet, SCENE, "Fencing Master", 0, 0, 0
	Actor 1, "Fencing Master", npcs, 5, 24, 82
	SEL 1
	IF C2 @fencer
	' Greetings.
	' You aren't a fencer, there is nothing I can teach you.
	' Tell your fencer friends about me.
END
@fencer
	' Greetings %1, I see you are a fencer.
	IF T1001 @cont
	HOST_GIVE L1
	HOST_GIVE H100
	HOST_GIVE M100
	HOST_TAKE G975
	' Ah a newbie even.
	' Allow me to teach you to weild fencer sheilds.
	HOST_GIVE T1001
	HOST_GIVE T1007
	' Here also take this low level gear.
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I105
	HOST_GIVE I109
	HOST_GIVE I110
	HOST_GIVE I115
	' You should goto the training grounds now.
END
@cont
	IF v10 @lvl10
	' I have nothing to offer you return when you are level 10.
END
@lvl10
	' Here is some equipment for you, not for free of course.
	OFFER 300, 301, 302, 303, 304, 250, 251, 252, 253, 254
	' Right click me for Guantlet options.
@end
END
@eventactorclick1
IF -C2 @end
EJECT "C1000"
@cheesey
SET mlabl, "Tickets: #<tick>=@cheesey"
MENU "Earn Tickets=@e1", "Spend Tickets=@s1", "#<mlabl>"
END
@s1
' You have #<tick> tickets right now.
' It will cost 1 ticket to fight a monster and have a 30%% chance drop of a new gauntlet.
COMPARE #<tick>, "0"
IF= @spoor
IF DEAD @sdead
' Do you accept?
ASK 9999
IF YES @s2
' Very well then.
END
@spoor
' You don't have any tickets.
END
@sdead
' You can't fight while dead.
END
@sbest
' You already have the best Gauntlets for now!
@s2
IF I4709 @sbest
SUB tick, "1"
' Here comes the monster!.
MOVE 1, 24, 12
IF I4700 @sfight1
IF I4701 @sfight2
IF I4702 @sfight3
IF I4703 @sfight4
IF I4704 @sfight5
IF I4705 @sfight6
IF I4706 @sfight7
IF I4707 @sfight8
IF I4708 @sfight9
SET temp, "4700"
SET tempo, "0"
FIGHT 3020
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight1
SET temp, "4701"
SET tempo, "4700"
FIGHT 3021
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight2
SET temp, "4702"
SET tempo, "4701"
FIGHT 3022
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight3
SET temp, "4703"
SET tempo, "4702"
FIGHT 3023
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight4
SET temp, "4704"
SET tempo, "4703"
FIGHT 3024
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight5
SET temp, "4705"
SET tempo, "4704"
FIGHT 3025
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight6
SET temp, "4706"
SET tempo, "4705"
FIGHT 3026
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight7
SET temp, "4707"
SET tempo, "4706"
FIGHT 3027
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight8
SET temp, "4708"
SET tempo, "4707"
FIGHT 3028
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@fight9
SET temp, "4709"
SET tempo, "4708"
FIGHT 3029
IF WIN @prizerandom
' Too bad.
MOVE 1, 24, 82
END
@prizerandom
MOVE 1, 24, 82
IF R30 @prizeget
END
@prizeget
N: You found your next pair of gauntlets!
HOST_GIVE I#<temp>
HOST_TAKE I#<tempo>
END
@e1
' To earn tickets you will be placed in a random maze.
' Reach the end in the alotted time to get a ticket.
' It costs 50 GP to try.
' As of this version 1.0026 there is only one maze sadly.
IF -G50 @epoor
IF DEAD @edead
' Do you accept the challenge?
ASK 9999
IF YES @e2
' Very well then.
END
@edead
' You can't do the maze while dead..
END
@epoor
' You can't afford the maze right now.
END
@e2
' Here we go!
COUNTDOWN 20
GOTO LINK 5, 0
END

Scene 7, eurostreet, SCENE, "Bard Master", 0, 0, 0
	Actor 1, "Bard Master", npcs, 7, 24, 82
	SEL 1
	IF C8 @bard
	' Hey.
	' Your not a bard there isn't much I can do for you.

	' I'm sorry.
END
@bard
	' Hello, %1 I see you are a bard.
	IF t1006 @cont
	HOST_GIVE L1
	HOST_GIVE H100
	HOST_GIVE M100
	HOST_TAKE G975
	' Still learning huh?
	' Let me teach you some songs.
	HOST_GIVE T1006
	' Here is some starting gear as well.
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I114
	' There ya go, go report to the training grounds now.
END
@cont
	IF V10 @lvl10
	' Come back when your level 10.
END
@lvl10
	' Here's some harps you can buy.
	OFFER 350, 351, 352, 353, 354
END

Scene 8, eurostreet, SCENE, "Archer Master", 0, 0, 0
	ACTOR 1, "Archer Master", npcs, 11, 24, 82

	SEL 1
	IF C4 @archer
	' Hello.
	' I can only help Archers.
	' Please leave.
@end
END
@archer
	' Hello fellow archer.
	IF T1008 @cont
	HOST_GIVE L1
	HOST_GIVE H100
	HOST_GIVE M100
	' Ah you can't weild a bow yet.
	' Here is some starting gear go practice in the training grounds.
	TAKE G975
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE T1008
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I113
	HOST_GIVE I119
END
@cont
	IF V10 @lvl10
	' You should continue training at the training grounds.
END
@lvl10
	' Here are some other items you could use.
	OFFER 400, 401, 402, 403, 404, 450, 451, 452
	' Right click me for bootie options.
END
@eventactorclick1
IF -c4 @end
MENU "Imbue Element=@ce1", "Upgrade Element=@ue1", "Buy New Pair=@bn1"
END
@ue1
' What element for upgrade?
ASK 9999
IF Qpyro @uep
IF Qaero @uea
IF Qhydro @ueh
IF Qgeo @ueg
' What element is that?
' Please only use the short names, Geo, Hydro, Pyro, Aero.
END
@uep
SET eletemp, "1"
GOTO @ue2
@uea
SET eletemp, "4"
GOTO @ue2
@ueh
SET eletemp, "2"
GOTO @ue2
@ueg
SET eletemp, "3"
GOTO @ue2
END
@ue2
' Check your booties for the level label and tell me what level it is.
ASK 9999
COMPARE #<lastask>, "5"
IF> @nope
IF -I46#<eletemp>#<lastask> @nope2
@llpp
SET lvlte, #<lastask>
ADD lvlte, "1"
SET lvlt, #<lastask>
SET tempoo, #<lastask>
SET tempo, #<lastask>
ADD tempoo, "1"
ADD tempo, "1"
MUL tempoo, "250"
MUL tempo, #<tempoo>
' This will cost #<tempo> GP.
IF -G#<tempo> @nope3
' Are you sure?
ASK 9999
IF yes @ue3
' Ok if you change your mind come back.
END
@ue3
HOST_TAKE I46#<eletemp>#<lvlt>
HOST_GIVE I46#<eletemp>#<lvlte>
' Your booties have been upgraded
END
@nope
' Booties don't go that high of a level.
END
@nope2
' You don't have a pair that level.
END
@nope3
' You can't afford this upgrade.
END
@nope4
' You can't afford to Imbue a pair.
END
@ce1
IF I4600 @ce2
' You don't have any booties.
END
@ce2
' This will cost 200 GP, are you sure?
IF -G200 @nope4
ASK 9999
IF YES @cee2
' Ok then.
END
@cee2
' What element do you want it imbued with?
ASK 99999
IF QPyro @ce2p
IF QAero @ce2a
IF QGeo	@ce2g
IF QHydro @ce2h
' What element is that?
' Please check for typos, and only use the short names, Pyro, Hydro, Geo, Aero.
END
@ce2p
HOST_TAKE G200
' Pyro boots coming up.
HOST_TAKE I4600
HOST_GIVE I4610
WAIT 1
' There you go.
END
@ce2a
HOST_TAKE G200
' Aero Boots coming up.
HOST_TAKE I4600
HOST_GIVE I4640
WAIT 1
' There you go.
END
@ce2g
HOST_TAKE G200
' Geo boots coming up.
HOST_TAKE I4600
HOST_GIVE I4630
WAIT 1
' There you go.
END
@ce2h
HOST_TAKE G200
' Hydro boots coming up.
HOST_TAKE I4600
HOST_GIVE I4620
WAIT 1
' There you go.
END
@bn1
' A pair of booties will cost 300 GP.
IF G300 @bn2
' You don't have enough money.
END
@bn2
' Do you want to buy a pair?
ASK 9999
IF YES @bn3
' Ok then.
END
@bn3
HOST_TAKE G300
HOST_GIVE I4600
END
Scene 9, eurostreet, SCENE, "Beserker Master", 0, 0, 0
	ACTOR 1, "Berserker Master", npcs, 10, 24, 82
	SEL 1
	IF C3 @zerker
	' Aye, I got nothing to teach you.
	' Begone with you.
END
@zerker
	' Ah, a beserker, I haven't seen your kind in awhile.
	IF T1005 @cont
	HOST_GIVE L1
	HOST_GIVE H100
	HOST_GIVE M100
	' Aye, but you be a newbie.
	' Take this gear and go train.
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	TAKE G975
	HOST_GIVE T1005
	HOST_GIVE T1007
	HOST_GIVE I100
	HOST_GIVE I104
	HOST_GIVE I102
	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I116
END
@cont
	IF V10 @lvl10
	' Aye, get out of my sight until ye are level 10.
END
@lvl10
	' Ah, you are ready for these better items.
	OFFER 500, 501,582, 503, 504, 550, 551, 552, 553, 554
IF T1011 @skip
' Aye!
' You have no fighting style!
' Allow me to teach you an offensive, calm, and defensive fighting style.
HOST_GIVE I1500
HOST_GIVE I1510
HOST_GIVE I1520
HOST_GIVE T1011
SET ofightn, "100"
SET cfightn, "100"
SET dfightn, "100"
' As you hunt and win fights with these styles you will level them up.
' A true master would use all 3 styles, but that could take a very long time.
@skip
END

SCENE 10, eurostreet, SCENE, "Necro Master", 0, 0, 0
	Actor 1, "Necromancer", npcs, 6, 14, 82
	SEL 1
	FX 3
	IF c7 @necro
	' Get away from me you normal.
END
@Necro
	IF T1003 @cont
	HOST_GIVE L1
	TAKE G975
	HOST_GIVE H100
	HOST_GIVE M100
	' You are...
	' A necromancer, I sense great evil in you.
	' You will want this equipment.
	' Return to me when you are level 10.
	SET book, 0
	HOST_GIVE T1003
	HOST_GIVE T1100
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I107

	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I118
END
@cont
	IF V10 @lvl10
	' What did I tell you earlier?
	' Now leave.
END
@lvl10
	OFFER 900, 901, 902, 903, 904
	' Here is new gear for you, buy it and leave.
	' Or right click on me to write books.
END
@eventactorclick1
	IF C7 @cont1
END
@cont1
	EJECT "C7"
	IF V10 @cont2
END
@cont2
	COMPARE #<book>,	 "0"
	IF= @book0
	COMPARE #<book>, "1"
	IF= @book1
	COMPARE #<book>, "2"	
	IF= @book2
	COMPARE #<book>, "3"	
	IF= @book3
	COMPARE #<book>, "4"	
	IF= @book4
	COMPARE #<book>, "5"	
	IF= @book5
	COMPARE #<book>, "6"	
	IF= @book6
	COMPARE #<book>, "7"	
	IF= @book7
	COMPARE #<book>, "8"	
	IF= @book8
	COMPARE #<book>, "9"	
	IF= @book9
	' Books don't get any better.
END
@book0
	' For your book I will need only 1 page.
	COMPARE #<num.item20> "1"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20
	TAKE I107
	GIVE I1420
	ADD book, 1
END
@book1
	' For your book I will need only 3 pages.
	COMPARE #<num.item20> "3"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.3
	TAKE I1420
	GIVE I1421
	ADD book, 1
END
@book2
	' For your book I will need only 6 pages.
	COMPARE #<num.item20> "6"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.9
	TAKE I20.6
	TAKE I1421
	GIVE I1422
	ADD book, 1
END
@book3
	' For your book I will need only 9 pages.
	COMPARE #<num.item20> "9"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TKAE I20.9
	TAKE I1422
	GIVE I1423
	ADD book, 1
END
@book4
	' For your book I will need only 12 pages.
	COMPARE #<num.item20> "12"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.12
	TAKE I1423
	GIVE I1424
	ADD book, 1
END
@book5
	' For your book I will need only 15 pages.
	COMPARE #<num.item20> "15"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.15
	TAKE I1424
	GIVE I1425
	ADD book, 1
END
@book6
	' For your book I will need only 18 pages.
	COMPARE #<num.item20> "18"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.18
	TAKE I1425
	GIVE I1426
	ADD book, 1
END
@book7
	' For your book I will need only 21 pages.
	COMPARE #<num.item20> "21"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.21
	TAKE I1426
	GIVE I1427
	ADD book, 1
END
@book8
	' For your book I will need only 24 pages.
	COMPARE #<num.item20> "24"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.24
	TAKE I1427
	GIVE I1428
	ADD book, 1
END
@book9
	' For your book I will need only 27 pages.
	COMPARE #<num.item20> "27"
	IF< @morepages
	WAIT 3
	TAKE I20.27
	TAKE I1428
	GIVE I1429
	ADD book, 1
END
@morepages
	' You will need more pages then that..
END

SCENE 11, eurostreet, SCENE, "Mage Master", 0, 0, 0
	Actor 1, "Mage Master", npcs, 8, 14, 82
	SEL 1
	' Good morn.
	IF C6 @mage
	' Oh boy, you don't quite look like a Mage to me.
	' There is nothing this old man can do for you..
END
@mage
	IF T1002 @cont
	' Ah, but a novice huh.
	' Here young 'en take this gear.
	SET book, 0
	SET ele, 0
	HOST_GIVE L1
	HOST_GIVE H100
	HOST_GIVE M100
	HOST_GIVE T1002
	TAKE G975
	SET num.TrophyBagWidth, 5
	SET num.TrophyBagHeight, 5
	HOST_GIVE I100
	HOST_GIVE I101
	HOST_GIVE I102
	HOST_GIVE I106
	HOST_GIVE I105
	HOST_GIVE I110
	HOST_GIVE I112
@ftr
	' Please choose your first element.
	MENU "Pyro=@fp", "Hydro=@fh", "Aero=@fa", "Geo=@fg"
GOTO @ftr
@fp
	HOST_GIVE T1105
GOTO @c
@fh
	HOST_GIVE T1109
GOTO @c
@fa
	HOST_GIVE T1113
GOTO @c
@fg
	HOST_GIVE T1101
GOTO @c
@c
	' You should train at the training grounds.
	' I remember those days...
END
@cont
	IF V10 @lvl10
	' I can do nothing for you now my son.
	' Return when you are more experienced.
END
@lvl10
	OFFER 950, 951, 952, 953, 954
	' Here is some gear for you to purchase.
	' Or right click on me to write books or continue your spell knowledge.
END
@eventactorclick1
	IF C6 @cont1
END
@cont1
	EJECT "C6"
	IF V10 @cont2
END
@cont2
MENU "Write Book=@bo", "Elementals=@ele"
END
@bo
	COMPARE #<book>,	 "0"
	IF= @book0
	COMPARE #<book>, "1"
	IF= @book1
	COMPARE #<book>, "2"	
	IF= @book2
	COMPARE #<book>, "3"	
	IF= @book3
	COMPARE #<book>, "4"	
	IF= @book4
	COMPARE #<book>, "5"	
	IF= @book5
	COMPARE #<book>, "6"	
	IF= @book6
	COMPARE #<book>, "7"	
	IF= @book7
	COMPARE #<book>, "8"	
	IF= @book8
	COMPARE #<book>, "9"	
	IF= @book9
	' You already have the best book I can make you my son.
END
@book0
	' For your book I will need only 1 page.
	COMPARE #<num.item20> "1"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20
	TAKE I106
	GIVE I1430
	ADD book, 1
END
@book1
	' For your book I will need only 3 pages.
	COMPARE #<num.item20> "3"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.3
	TAKE I1430
	GIVE I1431
	ADD book, 1
END
@book2
	' For your book I will need only 6 pages.
	COMPARE #<num.item20> "6"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.6
	TAKE I1431
	GIVE I1432
	ADD book, 1
END
@book3
	' For your book I will need only 9 pages.
	COMPARE #<num.item20> "9"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.9
	TAKE I1432
	GIVE I1433
	ADD book, 1
END
@book4
	' For your book I will need only 12 pages.
	COMPARE #<num.item20> "12"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.12
	TAKE I1433
	GIVE I1434
	ADD book, 1
END
@book5
	' For your book I will need only 15 pages.
	COMPARE #<num.item20> "15"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.15
	TAKE I1434
	GIVE I1435
	ADD book, 1
END
@book6
	' For your book I will need only 18 pages.
	COMPARE #<num.item20> "18"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.18
	TAKE I1435
	GIVE I1436
	ADD book, 1
END
@book7
	' For your book I will need only 21 pages.
	COMPARE #<num.item20> "21"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.21
	TAKE I1436
	GIVE I1437
	ADD book, 1
END
@book8
	' For your book I will need only 24 pages.
	COMPARE #<num.item20> "24"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.24
	TAKE I1437
	GIVE I1438
	ADD book, 1
END
@book9
	' For your book I will need only 27 pages.
	COMPARE #<num.item20> "27"
	IF< @morepages
	WAIT 3
	' Here is your new book.
	TAKE I20.27
	TAKE I1438
	GIVE I1439
	ADD book, 1
END
@morepages
	' You don't have enough pages for a new book.
END
@ele
COMPARE #<ele>, 0
IF= @1t
COMPARE #<ele>, 1
IF= @2t
COMPARE #<ele>, 2
IF= @3t
COMPARE #<ele>, 3
IF= @4t
COMPARE #<ele>, 4
IF= @5t
	' There is no more I can teach you..
END
@1t
IF V15 @ct
GOTO @not
END
@2t
IF V30 @ct
GOTO @not
END
@3t
IF V45 @ct
GOTO @not
END
@4t
IF V60 @ct
GOTO @not
END
@5t
IF V75 @ct
GOTO @not
END
@not
' Your not a high enough level for more training.
END
@ct
' Choose an element.
MENU "Aero=@caw", "Geo=@cgw", "Hydro=@chw", "Pyro=@cpw"
GOTO @ct
@caw
IF T1115 @em
IF T1114 @aw2

IF T1113 @aw1
HOST_GIVE T1113
ADD ele, "1"
END
@aw1
HOST_GIVE T1114
ADD ele, "1"
END
@aw2
HOST_GIVE T1115
ADD ele, "1"
END
@cgw
IF T1103 @em
IF T1102 @gw2
IF T1101 @gw1
HOST_GIVE T1101
ADD ele, "1"
END
@gw1
HOST_GIVE T1102
ADD ele, "1"
END
@gw2
HOST_GIVE T1103
ADD ele, "1"
END
@chw
IF T1111 @em
IF T1110 @gh2
IF T1109 @gh1
HOST_GIVE T1109
ADD ele, "1"
END
@gh1
HOST_GIVE T1110
ADD ele, "1"
END
@gh2
HOST_GIVE T1111
ADD ele, "1"
END
@cpw
IF T1107 @em
IF T1106 @pw2
IF T1105 @pw1
HOST_GIVE T1105
ADD ele, "1"
END
@pw1
HOST_GIVE T1106
ADD ele, "1"
END
@pw2
HOST_GIVE T1107
ADD ele, "1"
END
@em
' That element is maxed
' Choose another one.
GOTO @ct
END


;blank line
