;'Arena Monster Spawn' script

MSG=Lower(GetUserMessage(#USERID))

If MSG="reset"
	SendMessageToUser(#USERID,"Creatures cleaned out.",#MSG_SAY)
	
	i = 0
	While i < 16
		DamageMonster(119,i,30000)
		i=i+1
	Wend
EndIf

Monster = 122

If MSG="1"
	SendMessageToUser(#USERID,"Creature 1 spawned.",#MSG_SAY)
	Monster = 122
ElseIf MSG="2"
	SendMessageToUser(#USERID,"Creature 2 spawned.",#MSG_SAY)
	Monster = 123
ElseIf MSG="3"
	SendMessageToUser(#USERID,"Creature 3 spawned.",#MSG_SAY)
	Monster = 124
ElseIf MSG="4"
	SendMessageToUser(#USERID,"Creature 4 spawned.",#MSG_SAY)
	Monster = 125
ElseIf MSG="5"
	SendMessageToUser(#USERID,"Creature 5 spawned.",#MSG_SAY)
	Monster = 126
ElseIf MSG="6"
	SendMessageToUser(#USERID,"Creature 6 spawned.",#MSG_SAY)
	Monster = 127
ElseIf MSG="7"
	SendMessageToUser(#USERID,"Creature 7 spawned.",#MSG_SAY)
	Monster = 128
ElseIf MSG="8"
	SendMessageToUser(#USERID,"Creature 8 spawned.",#MSG_SAY)
	Monster = 129
ElseIf MSG="9"
	SendMessageToUser(#USERID,"Creature 9 spawned.",#MSG_SAY)
	Monster = 130
ElseIf MSG="10"
	SendMessageToUser(#USERID,"Creature 10 spawned.",#MSG_SAY)
	Monster = 131
Else
	SendMessageToUser(#USERID,"Enter the level (1-10) of the creature you wish to spawn, or type 'reset' to clear them out.",#MSG_SAY)
	GoTo END
EndIf

SpawnMonster(119,Monster,Random(5,15),Random(8,15))

Label END

Continue = 1