;'Death Contract' - Bounty scroll

BountyPrice = 25000

TargetID=GetUserID(GetUserMessage(#USERID))

If TargetID > 0
	If GetUserAccess(TargetID) > 5
		SendMessageToUser(#USERID,"You can't set a bounty on somewho who is a moderater!",#MSG_EMOTE)
		GoTo END
	EndIf

	SetUserFlag(TargetID,44,GetUserFlag(TargetID,44)+BountyPrice)
	TakeItem(#USERID,206)
	
	If GetUserFlag(TargetID,44) > BountyPrice
		SendMessageToAll(GetUserName(TargetID)+"'s bounty has been raised to "+GetUserFlag(TargetID,44)+" silver!",#MSG_CRITICAL)
	Else
		SendMessageToAll(" * "+GetUserName(TargetID)+" has a bounty of"+BountyPrice+" silver on his head!",#MSG_CRITICAL)
	EndIf
Else
	SendMessageToUser(#USERID,"Type in the name of the player you wish to put out a hit on.",#MSG_EMOTE)
EndIf

Label END

Continue = 1