;'Hunter' NPC script

If Lower(GetUserMessage(#USERID))="cancel"
	SetUserFlag(#USERID,38,0)
	SetUserFlag(#USERID,39,0)
	SendMessageToUser(#USERID,"The hunter says,'Alright, I'll find someone else to do it for me.'",#MSG_SAY)
	GoTo END
ElseIf Lower(GetUserMessage(#USERID))="reset"
	SetUserFlag(#USERID,38,0)
	SetUserFlag(#USERID,39,0)
	SendMessageToUser(#USERID,"The hunter says,'Alright, I'll find someone else to do it for me.'",#MSG_SAY)
	GoTo END
EndIf

If GetUserFlag(#USERID,38) = 1
	If GetUserFlag(#USERID,39) > 0
		If GetUserFlag(#USERID,39) < 100
			SendMessageToUser(#USERID,"The hunter says,'You killed "+GetUserFlag(#USERID,39)+" snakes, of the 100 I asked you to. Come back when you finish the job.'",#MSG_SAY)
		Else
			SendMessageToUser(#USERID,"The hunter says,'You've killed 100 snakes for me? Good, saved me a bit of trouble, you have. Here's something for -your- trouble.'",#MSG_SAY)
			If IsInvFull(#USERID) = 1
				SendMessageToUser(#USERID,"Your inventory is full, get rid of a item and talk to me again.",#MSG_CRITICAL)
			Else
				SetUserFlag(#USERID,38,0)
				SetUserFlag(#USERID,39,0)
				GiveItem(#USERID,259)
				SendMessageToUser(#USERID,"You've gotten a Etheric Band as a reward! Equip it to see what it does.",#MSG_TELL)
			EndIf
		EndIf
	Else
		SendMessageToUser(#USERID,"The hunter says,'Please kill 100 snakes from the High Plains for me, and then return hither.'",#MSG_SAY)
	EndIf
	Goto END
EndIf
If GetUserFlag(#USERID,38) = 2
	If GetUserFlag(#USERID,39) > 0
		If GetUserFlag(#USERID,39) < 150
			SendMessageToUser(#USERID,"The hunter says,'You killed "+GetUserFlag(#USERID,39)+" of those retched mutants. Only "+Floor(250-GetUserFlag(#USERID,39))+" left. Once done, return here and let me know.'",#MSG_SAY)
		Else
			SendMessageToUser(#USERID,"The hunter says,'You've killed all those mutants? Nicely done, I doubt I could've slain that much.'",#MSG_SAY)
			If IsInvFull(#USERID) = 1
				SendMessageToUser(#USERID,"Your inventory is full, get rid of a item and talk to me again.",#MSG_CRITICAL)
			Else
				SetUserFlag(#USERID,38,0)
				SetUserFlag(#USERID,39,0)
				GiveItem(#USERID,257)
				SendMessageToUser(#USERID,"You've gotten a Scythe as a reward! Now go decapitate someone.",#MSG_TELL)
			EndIf
		EndIf
	Else
		SendMessageToUser(#USERID,"The hunter says,'Please kill 150 mutants in Route 66 for me, and then return hither.'",#MSG_SAY)
	EndIf
	Goto END
EndIf
If GetUserFlag(#USERID,38) <> 0
	SendMessageToUser(#USERID,"The hunter says,'Hello there traveller! Watch your step when heading too far from towns and cities.'",#MSG_SAY)
	Goto END
EndIf

If GetUserStrength(#USERID) < 15
	SendMessageToUser(#USERID,"The hunter says,'Hello there traveller! Watch your step when heading too far from towns and cities.'",#MSG_SAY)
ElseIf GetUserStrength(#USERID) > 34
	If Lower(GetUserMessage(#USERID))="yes"
		SendMessageToUser(#USERID,"The hunter says,'Excellant, I need you to kill one hundred and fifty Mutants in and around Route 66. They are getting way out of hand.'",#MSG_SAY)
		SetUserFlag(#USERID,38,2)
		SetUserFlag(#USERID,39,0)
	ElseIf Lower(GetUserMessage(#USERID))="no"
		SendMessageToUser(#USERID,"The hunter says,'How unfortunate for me, but I can't say I blame you, it's a sticky bit of a job.'",#MSG_SAY)
	Else
		SendMessageToUser(#USERID,"The hunter says,'Hmm, you might just be the person I'm looking for. I got a bit of a problem, and I need someone like you to help. You interested?' [yes/no]",#MSG_SAY)
	EndIf
Else
	If Lower(GetUserMessage(#USERID))="yes"
		SendMessageToUser(#USERID,"The hunter says,'Good, good. We seem to have a bit of a problem with these snakes up near Oisvo in the High Plains. Go and slaughter 100 or so for me, that should lessen the population of them.'",#MSG_SAY)
		SetUserFlag(#USERID,38,1)
		SetUserFlag(#USERID,39,0)
	ElseIf Lower(GetUserMessage(#USERID))="no"
		SendMessageToUser(#USERID,"The hunter says,'Ah well, I'm sure another would be most willing to do it for me.'",#MSG_SAY)
	Else
		SendMessageToUser(#USERID,"The hunter says,'I have a bit of a job for you, if you are willing. Are you wishing to help?' [yes/no]",#MSG_SAY)
	EndIf
EndIf

Label END

Continue = 1