;--------------
; SCENE 2 must be primary FIGHT scene (for automatic fights)
;
SCENE 2
#Include prtychk.txt
	THEME
 	MUSIC  battle.mid
#include steal.txt
#include banning.txt
#include class1.txt
;Quest stuff
;monsters
IF T100-T101 @oldmankillquest
@oldmankillquestfailed
;summoners
IF -T25 @normal
@curse
FIGHT 202
GOTO @skipnormal
@normal
;banned?
#include running.txt
	FIGHT
IF DEAD @skipnormal
#include find.txt
#include eat.txt
@skipnormal

;Desert stuff
COMPARE #<num.mapNum>, 11
	IF=	@inDesert
COMPARE #<num.mapNum>, 12
	IF=	@inDesert
GOTO @notdesert
@Indesert
H: I cannot go any further withour a drink.
IF I94 @water
H: Im have no water! Nothing to drink.
TAKE H10000
H: /a dies of thirst
GIVE T63
@water
H: Thank GOODNESS for this water, now I can continue.
TAKE I94
GIVE T64
@notdesert

;Death!
If won @live
;Steal cash
SET GPlostlvl, #<num.hostLevel>
SET GPlost, #<num.hostGP>
IF R10 @rand1
IF R11 @rand2
IF R13 @rand3
IF R16 @rand4
IF R20 @rand5
IF R25 @rand6
IF R31 @rand7
IF R38 @rand8
IF R46 @rand9
SET GPrand, '10'
GOTO @GPlost
@rand1
SET GPrand, '1'
GOTO @GPlost
@rand2
SET GPrand, '2'
GOTO @GPlost
@rand3
SET GPrand, '3'
GOTO @GPlost
@rand4
SET GPrand, '4'
GOTO @GPlost
@rand5
SET GPrand, '5'
GOTO @GPlost
@rand6
SET GPrand, '6'
GOTO @GPlost
@rand7
SET GPrand, '7'
GOTO @GPlost
@rand8
SET GPrand, '8'
GOTO @GPlost
@rand9
SET GPrand, '9'
GOTO @GPlost
@GPlost
DIV GPlostlvl, 20
DIV GPlost, 100
MUL GPlost, #<GPlostlvl>
MUL GPlost, #<GPrand>
COMPARE #<GPlost>, '0'
If= @skiplostGP
TAKE G#<GPlost>
H: Ive been robbed of #<GPlost> GP!
@skiplostGP
;resurection
	If alive @live
ACTOR	1,	"Ghost", joshMiscellaneous, 2, 25, 90
MUSIC  lost.mid
COMPARE #<num.hostClass> "35"
IF= @Dres
IF> @Mres
1: Death is not for the living.
1: You are dead but it is not your time.
1: I can transport you back to the soul brother, he will resurect you, is that what you want?
ASK 30
IF Qyes @warp
H: Not yet I want to explore the world between life and death.
1: So be it
SEL 1
MOVE 1, -10, -10, 1 
END
@Dres
1: Hah, Dead huh Sinner?
MOVE 1,25, -100
1: Well Im afraid I cannot help ya
END
@Mres
1: Another Dead monster?
1: There are a lot of you guys arround lately, well back to the fires of hell with ya!
WAIT 2
GOTO LINK 18, 1, 1
END
@warp
H: Being dead stinks.
1: Tell me about it....
1: Well see you when it is your time.
GOTO LINK 1, 3, 1
END
;Learning summons
@live
COMPARE #<num.hostClass> "35"
IF= @nonsummonerD
IF> @nonsummoner
IF T25 @curse
IF KM1-T1001 @goblin
IF KM1-T4 @goblin
IF KM2-T1002 @goblinF
IF KM3-T1003 @goblinI
IF KM4-T1004 @goblinH
IF KM5-T1005 @vine
IF KM6-T1006 @Dvine
IF KM7-T1007 @Tvine
IF KM8-T1008 @Glob
IF KM9-T1009 @FGlob
IF KM10-T1010 @IGlob
IF KM11-T1011 @EGlob
IF KM12-T1012 @GGlob
IF KM13-T1013 @GSpider
IF KM14-T1014 @ESpider
IF KM15-T1015 @DSpider
IF KM16-T1016 @HSpider
IF KM17-T1017 @Ghoul
IF KM18-T1018 @Ghoulish
IF KM19-T1019 @Ghost
IF KM20-T1020 @Ghastly
IF KM21-T1021 @MGhoul
IF KM22-T1022 @Crushpot
IF KM23-T1023 @Smasher
IF KM24-T1024 @Basher
IF KM25-T1025 @MSpike
IF KM26-T1026 @FSpike
IF KM27-T1027 @BSpike
IF KM28-T1028 @SSpike
IF KM29-T1029 @DBall
IF KM30-T1030 @DGhost
IF KM31-T1031 @DGhoul
IF KM32-T1032 @DGoblin
IF KM33-T1033 @DReaper
IF KM34-T1034 @Noob
IF KM35-T1035 @Adventurer
IF KM36-T1036 @Explorer
IF KM37-T1037 @Wariar1
IF KM38-T1038 @DarkMage1
IF KM39-T1039 @Ranger1
IF KM40-T1040 @Whitemage1
IF KM41-T1041 @Barbarian1
IF KM42-T1042 @Wariar2
IF KM43-T1043 @Darkmage2
IF KM44-T1044 @Ranger2
IF KM45-T1045 @Whitemage2
IF KM46-T1046 @Barbarian2
IF KM47-T1047 @Wariar3
IF KM48-T1048 @Darkmage3
IF KM49-T1049 @Ranger3
IF KM50-T1050 @Whitemage3
IF KM51-T1051 @Barbarian3
IF KM52-T1052 @Wariar4
IF KM53-T1053 @Darkmage4
IF KM54-T1054 @Ranger4
IF KM55-T1055 @Whitemage4
IF KM56-T1056 @barbarian4
IF KM57-T1057 @PKer
IF KM58-T1058 @Oldbie
IF KM59-T1059 @Wreastler
IF KM60-T1060 @Paladin
IF KM61-T1061 @Necromancer
IF KM62-T1062 @Knight
IF KM63-T1063 @Summoner
IF KM64-T1064 @Mhex
IF KM65-T1065 @Hex
IF KM66-T1066 @Ihex
IF KM67-T1067 @Fhex
IF KM68-T1068 @Lhex
IF KM69-T1069 @Dhex
IF KM70-T1070 @Dbeast
IF KM71-T1071 @Tbeast
IF KM72-T1072 @Qbeast
IF KM73-T1073 @Ibeast
IF KM74-T1074 @Fbeast
IF KM75-T1075 @Mbeast
IF KM76-T1076 @Sharkling
IF KM77-T1077 @Crocling
IF KM78-T1078 @Shark
IF KM79-T1079 @Crocodile
IF KM80-T1080 @KShark
IF KM81-T1081 @DCroc
IF KM82-T1082 @HShark
IF KM83-T1083 @HCroc
IF KM84-T1084 @MShark
IF KM85-T1085 @MCroc
IF KM86-T1086 @Krock
IF KM87-T1087 @RockB
IF KM88-T1088 @RockM
IF KM89-T1089 @RockG
IF KM90-T1090 @RockK
IF KM91-T1091 @CySnake
IF KM92-T1092 @CyKiller
IF KM93-T1093 @CyAnaconda
IF KM94-T1094 @CyIce
IF KM95-T1095 @CyFlame
IF KM96-T1096 @VenusSeed
IF KM97-T1097 @VenusPlant
IF KM98-T1098 @VernusTrap
IF KM99-T1099 @DeadlyTrap
IF KM100-T1100 @ToxicTrap
IF KM101-T1101 @Mite1
IF KM102-T1102 @Mite2
IF KM103-T1103 @Mite3
IF KM104-T1104 @Mite4
IF KM105-T1105 @Mite5
IF KM106-T1106 @Mite6
IF KM107-T1107 @Mite7
IF KM108-T1108 @Mite8
IF KM109-T1109 @Mite9
IF KM110-T1110 @Mite10
IF KM111-T1111 @BabySoar
IF KM112-T1112 @EggSoar
IF KM113-T1113 @IceSoar
IF KM114-T1114 @FlameSoar
IF KM115-T1115 @SpiritSoar
IF KM116-T1116 @Dornite
IF KM117-T1117 @Icenite
IF KM118-T1118 @Naturnite
IF KM119-T1119 @Earnite
IF KM120-T1120 @Deathnite
IF KM121-T1121 @Spirnite
IF KM122-T1122 @Lightnite
IF KM123-T1123 @Healnite
IF KM124-T1124 @ArmouredHoglet
IF KM125-T1125 @ArmouredHog
IF KM126-T1126 @ArmouredFlame
IF KM127-T1127 @ArmouredIce
IF KM128-T1128 @ArmouredLightning
IF KM129-T1129 @ArmouredHealer
IF KM130-T1130 @ArmouredKiller
IF KM131-T1131 @ArmouredSpirit
IF KM132-T1132 @Celude
IF KM133-T1133 @Celuder
IF KM134-T1134 @Celtude
IF KM135-T1135 @Celtuder
IF KM136-T1136 @Celterde
IF KM137-T1137 @Celterder
IF KM138-T1138 @Cellder
IF KM139-T1139 @Cellter
IF KM140-T1140 @Driller
IF KM141-T1141 @Drilltude
IF KM142-T1142 @Flametude
IF KM143-T1143 @Icetude
IF KM144-T1144 @Deathtude
IF KM145-T1145 @Lightude
IF KM146-T1146 @Spiritude
IF KM147-T1147 @Healtude
IF KM148-T1148 @Robobeastling
IF KM149-T1149 @Roboflame
IF KM140-T1150 @Roboice
IF KM141-T1151 @Robobeast
IF KM142-T1152 @Robosnakling
IF KM143-T1153 @Robolightning
IF KM144-T1154 @Roboearth
IF KM145-T1155 @Robosnake
IF KM146-T1156 @Robospiderling
IF KM147-T1157 @Robokiller
IF KM148-T1158 @Robomedic
IF KM149-T1159 @Robospider
IF KM202-T1202 @Rdragon
IF KM203-T1203 @Bdragon
IF KM204-T1204 @Odragon
IF KM205-T1205 @Wdragon
IF KM206-T1206 @BLdragon
IF KM500-T1500 @Gsummoner
IF KM601-T1601 @Ldeamon
IF KM602-T1602 @Ddeamon
END

;preventing devils from getting summons
@nonsummonerD
END

@oldmankillquest
COMPARE #<num.mapnum>, 18
IF= @oldmankillquestfailed
IF R10 @oldmankillfind
GOTO @oldmankillquestfailed
END

@oldmankillfind
GOTO SCENE 83
END

;giving various summons
@goblin
HOST_GIVE T1001
HOST_GIVE T4
GOTO @live
END

@goblinF
HOST_GIVE T1002
GOTO @live
END

@goblinI
HOST_GIVE T1003
GOTO @live
END

@goblinH
HOST_GIVE T1004
GOTO @live
END

@vine
HOST_GIVE T1005
GOTO @live
END

@Dvine
HOST_GIVE T1006
GOTO @live
END

@Tvine
HOST_GIVE T1007
GOTO @live
END

@Glob
HOST_GIVE T1008
GOTO @live
END

@FGlob
HOST_GIVE T1009
GOTO @live
END

@IGlob
HOST_GIVE T1010
GOTO @live
END

@EGlob
HOST_GIVE T1011
GOTO @live
END

@GGlob
HOST_GIVE T1012
GOTO @live
END

@GSpider
HOST_GIVE T1013
GOTO @live
END

@ESpider
HOST_GIVE T1014
GOTO @live
END

@DSpider
HOST_GIVE T1015
GOTO @live
END

@HSpider
HOST_GIVE T1016
GOTO @live
END

@Ghoul
HOST_GIVE T1017
GOTO @live
END

@Ghoulish
HOST_GIVE T1018
GOTO @live
END

@Ghost
HOST_GIVE T1019
GOTO @live
END

@Ghastly
HOST_GIVE T1020
GOTO @live
END

@MGhoul
HOST_GIVE T1021
GOTO @live
END

@Crushpot
HOST_GIVE T1022
GOTO @live
END

@Smasher
HOST_GIVE T1023
GOTO @live
END

@Basher
HOST_GIVE T1024
GOTO @live
END

@MSpike
HOST_GIVE T1025
GOTO @live
END

@FSpike
HOST_GIVE T1026
GOTO @live
END

@BSpike
HOST_GIVE T1027
GOTO @live
END

@SSpike
HOST_GIVE T1028
GOTO @live
END

@DBall
HOST_GIVE T1029
GOTO @live
END

@DGhost
HOST_GIVE T1030
GOTO @live
END

@DGhoul
HOST_GIVE T1031
GOTO @live
END

@DGoblin
HOST_GIVE T1032
GOTO @live
END

@DReaper
HOST_GIVE T1033
GOTO @live
END

@Noob
HOST_GIVE T1034
GOTO @live
END

@Adventurer
HOST_GIVE T1035
GOTO @live
END

@Explorer
HOST_GIVE T1036
GOTO @live
END

@Wariar1
HOST_GIVE T1037
GOTO @live
END

@DarkMage1
HOST_GIVE T1038
GOTO @live
END

@Ranger1
HOST_GIVE T1039
GOTO @live
END

@Whitemage1
HOST_GIVE T1040
GOTO @live
END

@Barbarian1
HOST_GIVE T1041
GOTO @live
END

@Wariar2
HOST_GIVE T1042
GOTO @live
END

@Darkmage2
HOST_GIVE T1043
GOTO @live
END

@Ranger2
HOST_GIVE T1044
GOTO @live
END

@Whitemage2
HOST_GIVE T1045
GOTO @live
END

@Barbarian2
HOST_GIVE T1046
GOTO @live
END

@Wariar3
HOST_GIVE T1047
GOTO @live
END
@Darkmage3
HOST_GIVE T1048
GOTO @live
END

@Ranger3
HOST_GIVE T1049
GOTO @live
END

@Whitemage3
HOST_GIVE T1050
GOTO @live
END

@Barbarian3
HOST_GIVE T1051
GOTO @live
END

@Wariar4
HOST_GIVE T1052
GOTO @live
END

@Darkmage4
HOST_GIVE T1053
GOTO @live
END

@Ranger4
HOST_GIVE T1054
GOTO @live
END

@Whitemage4
HOST_GIVE T1055
GOTO @live
END

@barbarian4
HOST_GIVE T1056
GOTO @live
END

@PKer
HOST_GIVE T1057
GOTO @live
END

@Oldbie
HOST_GIVE T1058
GOTO @live
END

@Wreastler
HOST_GIVE T1059
GOTO @live
END

@Paladin
HOST_GIVE T1060
GOTO @live
END

@Necromancer
HOST_GIVE T1061
GOTO @live
END

@Knight
HOST_GIVE T1062
GOTO @live
END

@Summoner
HOST_GIVE T1063
GOTO @live
END

@Mhex
HOST_GIVE T1064
GOTO @live
END

@Hex
HOST_GIVE T1065
GOTO @live
END

@Ihex
HOST_GIVE T1066
GOTO @live
END

@Fhex
HOST_GIVE T1067
GOTO @live
END

@Lhex
HOST_GIVE T1068
GOTO @live
END

@Dhex
HOST_GIVE T1069
GOTO @live
END

@Dbeast
HOST_GIVE T1070
GOTO @live
END

@Tbeast
HOST_GIVE T1071
GOTO @live
END

@Qbeast
HOST_GIVE T1072
GOTO @live
END

@Ibeast
HOST_GIVE T1073
GOTO @live
END

@Fbeast
HOST_GIVE T1074
GOTO @live
END

@Mbeast
HOST_GIVE T1075
GOTO @live
END

@Sharkling
HOST_GIVE T1076
GOTO @live
END

@Crocling
HOST_GIVE T1077
GOTO @live
END

@Shark
HOST_GIVE T1078
GOTO @live
END

@Crocodile
HOST_GIVE T1079
GOTO @live
END

@KShark
HOST_GIVE T1080
GOTO @live
END

@DCroc
HOST_GIVE T1081
GOTO @live
END

@HShark
HOST_GIVE T1082
GOTO @live
END

@HCroc
HOST_GIVE T1083
GOTO @live
END

@MShark
HOST_GIVE T1084
GOTO @live
END

@MCroc
HOST_GIVE T1085
GOTO @live
END

@Krock
HOST_GIVE T1086
GOTO @live
END

@RockB
HOST_GIVE T1087
GOTO @live
END

@RockM
HOST_GIVE T1088
GOTO @live
END

@RockG
HOST_GIVE T1089
GOTO @live
END

@RockK
HOST_GIVE T1090
GOTO @live
END

@CySnake
HOST_GIVE T1091
GOTO @live
END

@CyKiller
HOST_GIVE T1092
GOTO @live
END

@CyAnaconda
HOST_GIVE T1093
GOTO @live
END

@CyIce
HOST_GIVE T1094
GOTO @live
END

@CyFlame
HOST_GIVE T1095
GOTO @live
END

@VenusSeed
HOST_GIVE T1096
GOTO @live
END

@VenusPlant
HOST_GIVE T1097
GOTO @live
END

@VernusTrap
HOST_GIVE T1098
GOTO @live
END

@DeadlyTrap
HOST_GIVE T1099
GOTO @live
END

@ToxicTrap
HOST_GIVE T1100
GOTO @live
END

@Mite1
HOST_GIVE T1101
GOTO @live
END

@Mite2
HOST_GIVE T1102
GOTO @live
END

@Mite3
HOST_GIVE T1103
GOTO @live
END

@Mite4
HOST_GIVE T1104
GOTO @live
END

@Mite5
HOST_GIVE T1105
GOTO @live
END

@Mite6
HOST_GIVE T1106
GOTO @live
END

@Mite7
HOST_GIVE T1107
GOTO @live
END

@Mite8
HOST_GIVE T1108
GOTO @live
END

@Mite9
HOST_GIVE T1109
GOTO @live
END

@Mite10
HOST_GIVE T1110
GOTO @live
END

@BabySoar
HOST_GIVE T1111
GOTO @live
END

@EggSoar
HOST_GIVE T1112
GOTO @live
END

@IceSoar
HOST_GIVE T1113
GOTO @live
END

@FlameSoar
HOST_GIVE T1114
GOTO @live
END

@SpiritSoar
HOST_GIVE T1115
GOTO @live
END

@Dornite
HOST_GIVE T1116
GOTO @live
END

@Icenite
HOST_GIVE T1117
GOTO @live
END

@Naturnite
HOST_GIVE T1118
GOTO @live
END

@Earnite
HOST_GIVE T1119
GOTO @live
END

@Deathnite
HOST_GIVE T1120
GOTO @live
END

@Spirnite
HOST_GIVE T1121
GOTO @live
END

@Lightnite
HOST_GIVE T1122
GOTO @live
END

@Healnite
HOST_GIVE T1123
GOTO @live
END

@ArmouredHoglet
HOST_GIVE T1124
GOTO @live
END

@ArmouredHog
HOST_GIVE T1125
GOTO @live
END

@ArmouredFlame
HOST_GIVE T1126
GOTO @live
END

@ArmouredIce
HOST_GIVE T1127
GOTO @live
END

@ArmouredLightning
HOST_GIVE T1128
GOTO @live
END

@ArmouredHealer
HOST_GIVE T1129
GOTO @live
END

@ArmouredKiller
HOST_GIVE T1130
GOTO @live
END

@ArmouredSpirit
HOST_GIVE T1131
GOTO @live
END

@Celude
HOST_GIVE T1132
GOTO @live
END

@Celuder
HOST_GIVE T1133
GOTO @live
END

@Celtude
HOST_GIVE T1134
GOTO @live
END

@Celtuder
HOST_GIVE T1135
GOTO @live
END

@Celterde
HOST_GIVE T1136
GOTO @live
END

@Celterder
HOST_GIVE T1137
GOTO @live
END

@Cellder
HOST_GIVE T1138
GOTO @live
END

@Cellter
HOST_GIVE T1139
GOTO @live
END

@Driller
HOST_GIVE T1140
GOTO @live
END

@Drilltude
HOST_GIVE T1141
GOTO @live
END

@Flametude
HOST_GIVE T1142
GOTO @live
END

@Icetude
HOST_GIVE T1143
GOTO @live
END

@Deathtude
HOST_GIVE T1144
GOTO @live
END

@Lightude
HOST_GIVE T1145
GOTO @live
END

@Spiritude
HOST_GIVE T1146
GOTO @live
END

@Healtude
HOST_GIVE T1147
GOTO @live
END

@Robobeastling
HOST_GIVE T1148
GOTO @live
END

@Roboflame
HOST_GIVE T1149
GOTO @live
END

@Roboice
HOST_GIVE T1150
GOTO @live
END

@Robobeast
HOST_GIVE T1151
GOTO @live
END

@Robosnakling
HOST_GIVE T1152
GOTO @live
END

@Robolightning
HOST_GIVE T1153
GOTO @live
END

@Roboearth
HOST_GIVE T1154
GOTO @live
END

@Robosnake
HOST_GIVE T1155
GOTO @live
END

@Robospiderling
HOST_GIVE T1156
GOTO @live
END

@Robokiller
HOST_GIVE T1157
GOTO @live
END

@Robomedic
HOST_GIVE T1158
GOTO @live
END

@Robospider
HOST_GIVE T1159
GOTO @live
END

@Rdragon
HOST_GIVE T1202
GOTO @live
END

@Bdragon
HOST_GIVE T1203
GOTO @live
END

@Odragon
HOST_GIVE T1204
GOTO @live
END

@Wdragon
HOST_GIVE T1305
GOTO @live
END

@BLdragon
HOST_GIVE T1206
GOTO @live
END

@Gsummoner
HOST_GIVE T1500
GOTO @live
END

@Ldeamon
HOST_GIVE T1601
GOTO @live
END

@Ddeamon
HOST_GIVE T1602
GOTO @live
END

;checking if monsters need a morph
@nonsummoner
;IF KM202-T1302 @Rdragonmorph
;IF KM203-T1303 @Bdragonmorph
;IF KM204-T1304 @Odragonmorph
;IF KM205-T1305 @Wdragonmorph
;IF KM206-T1306 @BLdragonmorph
;IF KM601-T1701 @Ldeamonmorph
;IF KM602-T1702 @Ddeamonmorph
END

;giving monsters various morphs
@Rdragonmorph
HOST_GIVE T1302
GOTO @nonsummoner

@Bdragonmorph
HOST_GIVE T1303
GOTO @nonsummoner

@Odragonmorph
HOST_GIVE T1304
GOTO @nonsummoner

@Wdragonmorph
HOST_GIVE T1305
GOTO @nonsummoner

@BLdragonmorph
HOST_GIVE T1306
GOTO @nonsummoner

@Ldeamonmorph
HOST_GIVE T1701
GOTO @nonsummoner

@Ddeamonmorph
HOST_GIVE T1702
GOTO @nonsummoner
