;'Various NPCs' script

LetterToMarina = 204
LetterToMalict = 205

;Marina 
If #MAPID = 178
	If HasItem(#USERID,LetterToMarina) = 1
		TakeItem(#USERID,LetterToMarina)
		SendMessageToUser(#USERID,"You gave Marina the letter from her brother.",#MSG_TELL)
		SendMessageToUser(#USERID,"Marina says, 'Oh, a letter for me? From my brother... Would you be kind enough to send this response?'",#MSG_SAY)
		SendMessageToUser(#USERID,"You got a letter to Malict, Marina's brother.",#MSG_SAY)
		GiveItem(#USERID,LetterToMalict)
	Else
		SendMessageToUser(#USERID,"Marina says, 'Hi. May I help you in some way?'",#MSG_SAY)
	EndIf
;Malict
ElseIf #MAPID = 57
	If HasItem(#USERID,LetterToMalict) = 1
		TakeItem(#USERID,LetterToMalict)
		SendMessageToUser(#USERID,"Malict says, 'Thank you, thank you, thank you!'",#MSG_SAY)
		SendMessageToUser(#USERID,"You got 2500 strength experience!",#MSG_TELL)
		SendMessageToUser(#USERID,"You got 2500 endurance experience!",#MSG_TELL)
		GiveUserStrengthExp(#USERID,2500)
		GiveUserEnduranceExp(#USERID,2500)

	ElseIf HasItem(#USERID,LetterToMarina) = 1
		SendMessageToUser(#USERID,"Malict says, 'Just deliver it to my sister in Oisvo.'",#MSG_SAY)
	ElseIf GetUserStrength(#USERID) < 10
		If GetUserMessage(#USERID)="sure"
			SendMessageToUser(#USERID,"Malict says, 'Thank you, here's the letter.'",#MSG_SAY)
			SendMessageToUser(#USERID,"You got a letter to Marina, Malict's sister.",#MSG_SAY)
			GiveItem(#USERID,LetterToMarina)
		ElseIf GetUserMessage(#USERID)="k"
			SendMessageToUser(#USERID,"Malict says, 'Cool. Deliver it to my sister, ok?'",#MSG_SAY)
			SendMessageToUser(#USERID,"You got a letter to Marina, Malict's sister.",#MSG_SAY)
			GiveItem(#USERID,LetterToMarina)
		ElseIf GetUserMessage(#USERID)="ok"
			SendMessageToUser(#USERID,"Malict says, 'Excellant! Many thanks man, here's the letter.'",#MSG_SAY)
			SendMessageToUser(#USERID,"You got a letter to Marina, Malict's sister.",#MSG_SAY)
			GiveItem(#USERID,LetterToMarina)
		ElseIf GetUserMessage(#USERID)="yes"
			SendMessageToUser(#USERID,"Malict says, 'Ok, thank you. She lives in Oisvo'",#MSG_SAY)
			SendMessageToUser(#USERID,"You got a letter to Marina, Malict's sister.",#MSG_SAY)
			GiveItem(#USERID,LetterToMarina)
		ElseIf GetUserMessage(#USERID)="y"
			SendMessageToUser(#USERID,"Malict says, 'Well, I'll reward you if you do it for me, so I don't need to explain my reasons, do I?'",#MSG_SAY)
		ElseIf GetUserMessage(#USERID)="why"
			SendMessageToUser(#USERID,"Malict says, 'No real reason, I just wish to check up on my sis, from time to time.'",#MSG_SAY)
		ElseIf GetUserMessage(#USERID)="naw"
			SendMessageToUser(#USERID,"Malict says, 'Ok, I'll find someone else.'",#MSG_SAY)
		ElseIf GetUserMessage(#USERID)="no"
			SendMessageToUser(#USERID,"Malict says, 'Oh well, thanks anyway'",#MSG_SAY)
		ElseIf GetUserMessage(#USERID)="noob"
			SendMessageToUser(#USERID,"Malict says, 'What?! I'M a noob? ROFL. This'll teach you some respect...'",#MSG_SAY)
			If GetUserAccess(#USERID) < 6
				SendMessageToAll("Malict has murdered "+GetUserName(#USERID)+" in grotesque fashion!",#MSG_CRITICAL)
				SetUserHP(#USERID,1)
				DamageUser(#USERID,1337)
			EndIf
		Else
			SendMessageToUser(#USERID,"Malict says, 'Uh, hey, I know this is a bit random, but would you mind giving this letter to my sister?'",#MSG_SAY)
		EndIf
	Else
		SendMessageToUser(#USERID,"Malict says, 'Good evening.'",#MSG_SAY)
	EndIf
;Moresol
ElseIf #MAPID = 397
	If GetUserAgility(#USERID) > 10
		SendMessageToUser(#USERID,"Moresol says, 'Don't travel too far into the woods, I've been attacked by Will o` Wisps at night before.'",#MSG_SAY)
		Timer(249,25000,#USERID,0,0)
	Else
		SendMessageToUser(#USERID,"Moresol says, 'Hey, how are you doing?'",#MSG_SAY)
	EndIf
EndIf


Label END

Continue = 1