PalaceChat RBScript Compendium

Script Name:	Afk Script
Author:	Pa\/\/n
Sections:	OUTCHAT, INCHAT, USERENTER, USERMOVE

Start a sentence with ^ to mark yourself as away, and it'll automatically notify anyone who enters the room to your status.

;START_ONOUTCHAT

	if left(chatstr,1)="^" then
		logmsg "You have marked yourself as away."
		setdouble("afktime",datetime)
		setstring("afkmsg",chatstr)
	elseif getdouble("afktime")>0 then
		logmsg "You are no longer maked as away."
		setdouble("afktime",0)
		setstring("afkmsg","")
	end if

;END_ONOUTCHAT

;START_ONINCHAT
	dim hours,minutes,seconds as integer
	dim time as double
	dim s as string
	dim newline as string
	newline = chr(13)

	time=getdouble("afktime")
	if iswhisper and whochat<>whome and time>0 then
		seconds=datetime-time
		minutes=seconds/60
		hours=minutes/60
		minutes=minutes-hours*60
		seconds=(seconds-minutes*60)-(hours*3600)
		if hours>0 then s=str(hours)+" hours "
		if minutes>0 then s=s+str(minutes)+" minutes "
		if seconds>0 then s=s+str(seconds)+" seconds "
		s=";I've been gone for "+s
		if whochat=0 and left(chatstr,13)="Message from " then
			say("'respond "+s)
			say("'respond "+getstring("afkmsg"))
		end if
	end if

;END_ONINCHAT

;START_ONUSERENTER

	if whoenter<>whome then
		dim hours,minutes,seconds as integer
		dim time as double
		dim s as string
		time=getdouble("afktime")

		if time>0 then
			seconds=datetime-time
			minutes=seconds/60
			hours=minutes/60
			minutes=minutes-hours*60
			seconds=(seconds-minutes*60)-(hours*3600)
			if hours>0 then s=str(hours)+" hours "
			if minutes>0 then s=s+str(minutes)+" minutes "
			if seconds>0 then s=s+str(seconds)+" seconds "
			s=";I've been gone for "+s
			privatemsg(whoenter,s)
			privatemsg(whoenter,getstring("afkmsg"))
		end if

	end if

;END_ONUSERENTER

;START_ONUSERMOVE

	if whomove=whome and getdouble("afktime")>0 then
		logmsg "You are no longer marked as away."
		setdouble("afktime",0)
		setstring("afkmsg","")
	end if

;END_ONUSERMOVE