;Regulus timed warp thing, when spending too much money

UserID = #PARAM1

If #PARAM2 = 0
	SendMessageToUser(UserID,"Regulus says, 'Lets see how you take to my little friend... I'm sure you'll get along just fine'",#MSG_SAY)
	Timer(510,3000,UserID,1,0)
ElseIf #PARAM2 = 1
	WarpUser(UserID,989,10,11)
	Timer(510,15000,UserID,2,0)
Else
	If GetUserMap(UserID) <> 989
		GoTo END
	EndIf
	
	SendCombatMessage(UserID,"Death blasts you with Death Shock ")
	
	CreateEffect(8,500,0,#DIR_RIGHT,GetUserMap(UserID),GetUserX(UserID),GetUserY(UserID)+1,0,UserID,0)
	CreateEffect(8,500,0,#DIR_RIGHT,GetUserMap(UserID),GetUserX(UserID),GetUserY(UserID)-1,0,UserID,0)
	CreateEffect(8,500,0,#DIR_RIGHT,GetUserMap(UserID),GetUserX(UserID),GetUserY(UserID),0,UserID,0)
	CreateEffect(8,500,0,#DIR_RIGHT,GetUserMap(UserID),GetUserX(UserID)+1,GetUserY(UserID),0,UserID,0)
	CreateEffect(8,500,0,#DIR_RIGHT,GetUserMap(UserID),GetUserX(UserID)-1,GetUserY(UserID),0,UserID,0)
	
	Damage = Floor(GetUserMaxHP(UserID) * 0.10)
	If GetUserHP(UserID) < Damage
		SendMessageToAll("* "+GetUserName(UserID)+" was brutally slain by Death!",#MSG_CRITICAL)
	EndIf
	DamageUser(UserID,Damage)
	
	Timer(510,Random(15000,30000),UserID,#PARAM2+1,0)
EndIf

Label END

Continue = 1