;'God - Change Silver' skill

TargetID = GetUserFlag(#USERID, 45)

If TargetID > 0
	If GetUserAccess(#USERID) > 5
		Silver=GetUserSilver(TargetID)
		Message=GetUserMessage(#USERID)
		NewSilver=Message+Silver
		SetUserSilver(TargetID,NewSilver)
		
		If Message < 0
			AmountTaken = 0 - Message
			SendMessageToUser(#USERID,"Silver taken from user: "+GetUserName(TargetID),#MSG_TELL)
			SendMessageToUser(TargetID,GetUserName(#USERID)": "+AmountTaken+" silver has been removed from your purse.",#MSG_TELL)
		ElseIf Message > 0
			SendMessageToUser(#USERID,"Silver given to user: "+GetUserName(TargetID),#MSG_TELL)
			SendMessageToUser(TargetID,GetUserName(#USERID)": "+Message+" silver has been added to your purse.",#MSG_TELL)
		EndIf
	EndIf
Else
	SendMessageToUser(#USERID,"No target has been given!",#MSG_CRITCAL)
EndIf

Continue = 1