
Label ReGen
Map=Random(1,1499)
KillLimit=5
Kills=#PARAM3
KilledJason=0
KilledMax=0
TourOver=0
EndTour=0
MaxMaps=80

If GetMapName(Map) = "-1"
	Goto ReGen
Endif

If GetMapName(Map) = ""
	Goto ReGen
Endif

If #PARAM1 >= MaxMaps
	TourOver=1
	Map=1
	EndTour=1
Endif

If #PARAM3 = KillLimit
	Map=1
	KilledMax=1
	EndTour=1
Endif


If GetUserMap(GetUserID("Jason")) <> #PARAM2
	KilledJason=1
Endif


Label NoMore

WarpUser(GetUserID("Jason"),Map,Random(0,10),Random(0,10))

WarpUser(GetUserID("deman9090"),Map,Random(0,10),Random(0,10))
WarpUser(GetUserID("ZombieFever"),Map,Random(0,10),Random(0,10))
WarpUser(GetUserID("Xenophobe"),Map,Random(0,10),Random(0,10))
WarpUser(GetUserID("Shawnathan"),Map,Random(0,10),Random(0,10))
WarpUser(GetUserID("kuntrykid"),Map,Random(0,10),Random(0,10))
WarpUser(GetUserID("Element"),Map,Random(0,10),Random(0,10))

If KilledJason = 1
	Kills=#PARAM3+1
	SendMessageToMap(Map,"Jason says, 'Idiots! If you kill me "+Floor(KillLimit-Kills)+" more times the tour will end!'",#MSG_SAY)
Elseif KilledMax = 1
	SendMessageToMap(Map,"Jason says, 'You killed me too many times... tour is over.'",#MSG_SAY)	
Elseif TourOver = 1
	SendMessageToMap(Map,"Jason says, 'The tour has ended. Thanks for participating.'",#MSG_SAY)
Else
SendMessageToMap(Map,"Jason says, 'Welcome to "+GetMapName(Map)+"! We will visit "+Floor(MaxMaps-#PARAM1)+" more maps...'",#MSG_SAY)
Endif

If EndTour = 0
Timer(444,Random(5000,25000),#PARAM1+1,Map,Kills)
Endif

Label End

Continue = 1