;Zombie minions pull player underground
;Str=GetUserStrength(#USERID)
;Agil=GetUserAgility(#USERID)
;Dodge = Str + Agil
;Perc = floor(Dodge*0.33)
;Bulk = 0


user = 0

While user < 1992
If getuserstrength(user) > 60
sendmessagetouser(getuserid("Apollyon"), ""+GetUsername(user)+" has "+GetUserStrength+" Str", #MSG_SERVER)
elseif getuserendurance(user) > 60
sendmessagetouser(getuserid("Apollyon"), ""+GetUsername(user)+" has "+GetUserEndurance+" end", #MSG_SERVER)
elseif getuseragility(user) > 60
sendmessagetouser(getuserid("Apollyon"), ""+GetUsername(user)+" has "+GetUserAgility+" agil", #MSG_SERVER)
elseif getuserwisdom(user) > 60
sendmessagetouser(getuserid("Apollyon"), ""+GetUsername(user)+" has "+GetUserWisdom+" wis", #MSG_SERVER)
Endif
user=user+1


Wend


Goto END

If GetUserInvItem(GetUserEquippedWeapon(#USERID)) > 0
	Bulk = Bulk + 10
EndIf
If GetUserInvItem(GetUserEquippedArmor(#USERID)) > 0
	Bulk = Bulk + 10
EndIf
If GetUserInvItem(GetUserEquippedHelmet(#USERID)) > 0
	Bulk = Bulk + 10
EndIf
If GetUserInvItem(GetUserEquippedBoots(#USERID)) > 0
	Bulk = Bulk + 10
EndIf


If Perc < 2
	Perc = 2
EndIf

Rand=Random(1, Perc)
Rand2=Random(1, 12)

If Rand = 1
	SendMessageToUser(#USERID, "You feel something latch onto your leg, but you break free!", #MSG_CRITICAL)	
	SendMessageToMap(0, GetUserName(#USERID)+" has been dragged under!", #MSG_CRITICAL)
	CreateEffect(23,200,2000,#DIR_UP, #MAPID, #XPOS, #YPOS, 0, #USERID, 1)
	WarpUser(#USERID, 0, 10, 10) 
EndIf
If Rand2 = 1	
	SendMessageToUser(#USERID, "You feel something latch onto your leg, but you break free!", #MSG_CRITICAL)	
Endif

label END
Continue = 1