;'Grave Spectre' - ShowUserDialog script

Cost = 75000
Ticks = 60

;Result 1 = yes, Result 2 = no
If #RESULT = 1
	SetUserSilver(#USERID, GetUserSilver(#USERID)-Cost)
	SetUserFlag(#USERID,34,1)
	
	SendMessageToUser(#USERID,"Your purse now contains "+GetUserSilver(#USERID)+" silver.",#MSG_TELL)
	SendMessageToUser(#USERID,"You feel... stronger... than before...",#MSG_CRITICAL)
	
	SetUserStrengthBonus(#USERID,GetUserStrengthBonus(#USERID)+5)
	SetUserEnduranceBonus(#USERID,GetUserEnduranceBonus(#USERID)+5)
	SetUserWisdomBonus(#USERID,GetUserWisdomBonus(#USERID)+5)
	SetUserAgilityBonus(#USERID,GetUserAgilityBonus(#USERID)+5)
	
	Timer(665,100,#USERID,0,Ticks)
EndIf

Continue = 1