;Player log-in script
CreateEffect(30,1000,0,#DIR_RIGHT,GetUserMap(#USERID),GetUserX(#USERID),GetUserY(#USERID),0,#USERID,0)

;'Pull' skill
SetUserSkill(#USERID,31,1)

;Just to get this flag out of circlation
SetUserFlag(#USERID,9,0)

;SendMessageToUser(#USERID,"TEST",#MSG_SERVER)
;SendMessageToAll("Player login - "+GetUserName(#USERID),#MSG_SERVER)
;Reset player skills

Timer(15,100,#USERID,0,0)
Timer(450,100,#MAPID,#USERID,0)

;Anti AFK-training script.
;Timer(671,120000,#USERID,0,0)
;120000

;RESETS PLAYER GUN FLAG: 
;From 'User Flags - What do they do' thread: "Shrike: 21 (Dist Cooldowns)"
SetUserFlag(#USERID,21,0)


;Comrade's CheckToMakeSureUsersAren'tBeingIdiots script
If GetUserAccess(#USERID) > 5
	SendMessageToUser(#USERID,"Player HP list:",#MSG_SERVER)
	id = GetNextOnlineUser(0)
	while id <> 0
		If id <> #USERID
			SendMessageToUser(#USERID,GetUserName(id)+": "+GetUserHP(id)+"/"+GetUserMaxHP(id),#MSG_SERVER)
		EndIf
		id = GetNextOnlineUser(id)
	wend
EndIf

;Reset any 'hunt x amount of monsters' quests.
SetUserFlag(#USERID, 38, 0)
SetUserFlag(#USERID, 39, 0)




;god script
;'God - God Skills'

SkillID = 167

NewSkillLevel = 0

If GetUserAccess(#USERID) < 5
	SetUserSkill(#USERID,SkillID,0)
	GoTo END
EndIf

SetUserSkill(#USERID,192,1)

If GetUserSkill(#USERID,SkillID) = 1
	NewSkillLevel = 1
	SetUserSkill(#USERID,SkillID,2)
Else
	NewSkillLevel = 0
	SetUserSkill(#USERID,SkillID,1)
EndIf

Label END

Continue = 1