Another sexy away script :P

[Ryan]

Command is /aw [awaymsg] to open the dialog

 

Pic:

 

Code:

menu * {  Away Manager:aw}alias aw { dialog $iif($dialog(xaway),-v,-m)) xaway xaway | if ($1 && !$away) { did -ra xaway 301 $1- } | halt }dialog xaway {  size -1 -1 443 75  option pixels  title Away $+([,$iif($away,Away for $duration($awaytime),Online),])  ; icon 1, 0 35 443 40, bottom.png, noborder actual   button "Online", 101, 10 43 100 25  button "Away", 102, 115 43 100 25  button "Close", 103, 333 43 100 25  button "Set new message styles", 104, 10 43 205 25  button ">>", 105, 300 43 30 25   text "Away message", 201, 10 12 80 20  text "Away msg style", 202, 10 83 80 20  text "Message method", 203, 10 105 80 30  text "Return msg style", 204, 10 178 85 20   edit $awaymsg, 301, 93 10 340 20, autohs  edit %away.msgstyle, 302, 93 81 340 20, autohs  radio "/say", 303, 93 103 50 20, group  radio "/me", 304, 93 123 50 20  edit %away.rmsgstyle, 305, 93 175 340 20, autohs  radio "Active channel each server", 306, 150 103 150 20, group  radio "All channels each server", 307, 150 123 150 20   check "Notice users who say my name", 308, 10 150 170 20  check "| one time response", 309, 179 150 110 20, left   text Bold: [b] $+ $crlf $+ Underline: [u] $+ $crlf $+ Color: [k] $+ $crlf $+ Awaymsg: [m] $+ $crlf $+ (return) Awaytime: [t], 1001, 298 103 130 70, right}on *:dialog:xaway:init:*: { away.u | .timeraway 0 1 away.u | did -c $dname $iif(%away.msgsetting == me,304,303) | did -h $dname 104 | did -f $dname 301 | did -c $dname $iif(%away.serversetting == 1,306,307)  if (%away.notice) { did -c $dname 308 }  else { did -b $dname 309 }  if (%away.notice.once) { did -c $dname 309 }}on *:dialog:xaway:close:*: { .timeraway* off }on *:dialog:xaway:edit:*: {  if ($did == 302 || $did == 305) { 	if ($did(302) != %away.msgstyle || $did(305) != %away.rmsgstyle) { did -v $dname 104 | did -h $dname 101,102 }	else { did -h $dname 104 | did -v $dname 101,102 }  }}on *:dialog:xaway:sclick:*: {  if ($did == 101) {	did -b $dname 101,102	var %x = 1	while (%x <= $scon(0)) {	  scid $scon(%x)	  $+(away,%away.msgsetting) $replace(%away.rmsgstyle,[b],,[u],,[k],,[m],$iif($awaymsg,$v1,n/a),[t],$duration($awaytime))	  away	  inc %x	}	.remove away.temp  }  elseif ($did == 102) { 	did -b $dname 101,102	var %x = 1	while (%x <= $scon(0)) {	  scid $scon(%x)	  $+(away,%away.msgsetting) $replace(%away.msgstyle,[b],,[u],,[k],,[m],$iif($did(301),$v1,n/a))	  away $iif($did(301),$v1,n/a)	  inc %x	}  }  if ($did == 103) { dialog -x $dname | .timeraway* off | halt }  elseif ($did == 104) { set %away.msgstyle $did(302) | set %away.rmsgstyle $did(305) | did -h $dname 104 | did -v $dname 101,102 }  elseif ($did == 105) { 	if ($did(105) == >>) { dialog -s $dname -1 -1 443 200  | did -ra $dname 105 << }	else { dialog -s $dname -1 -1 443 75 | did -ra $dname 105 >> }  }  elseif ($did == 303) { set %away.msgsetting say }  elseif ($did == 304) { set %away.msgsetting me }  elseif ($did == 306) { set %away.serversetting 1 }  elseif ($did == 307) { set %away.serversetting 2 }  elseif ($did == 308) { 	if (!$did(308).state) { did -b $dname 309 | set %away.notice 0 }	else { did -e $dname 309 | set %away.notice 1 }  }  elseif ($did == 309) {	if ($did(309).state) { set %away.notice.once 1 }	else { set %away.notice.once 0 }  }  away.u}alias away.u {  did $iif(!$away,-b,-e) xaway 101  did $iif($away,-b,-e) xaway 102,301  dialog -t xaway Away $+([,$iif($away,Away for $duration($awaytime),Online),])}alias awayme { $iif(%away.serversetting == 2,ame,describe $active) $1- }alias awaysay { $iif(%away.serversetting == 2,amsg,msg $active) $1- }on *:text:*:#: {  if ($me isin $1- && %away.notice && $away) {	if (%away.notice.once) {	  if (!$read(away.temp,s,$nick)) { notice $nick I am currently away. Reason: $qt($awaymsg) $+ . I have been away for $duration($awaytime) (one time response) | write away.temp $nick $+([,$time,]) $1- }	  halt	}	else { notice $nick I am currently away. Reason: $qt($awaymsg) $+ . I have been away for $duration($awaytime) | write away.temp $nick $+([,$time,]) $1- }  }}on *:connect: {   scid $scon(1)  var %a = $awaymsg  if ($away) { scid -r | away $iif(%a,$v1,n/a) }}

[`JvYv]

Yehhhhhhhhhh Boyyyyyyyy (Y)

[Jay]

So that's how you resize a dialog. I thought you couldn't :>

 

Great script, Ryan.

[badger]

Wow that's incredibly welll scripted, I commend you for taking the time to make a dialog out of an away script XD

[Kangaroo]

Good. I think I'll stick with Urza's though, just because I'm so used to it.

 

I'd be willing to paste it if anyone wants it, just don't want to "hijack" this topic.

[Ryan]

I dont like Urza's too long :< /me is late ik smfd.

[Anthoni]

oooo, very nice.

[Ryan]

Fank you :3 And nice sig I_I it looks like Selena Gomez xD

[Kangaroo]

I dont like Urza's too long :< /me is late ik smfd.

 

The one I use is Urza's but it was edited by Mary for a friend to make it so people can change which colors they want easily.. Still 996 lines though. :P

 

EDIT: number of lines doesn't bother me. I put it in my remotes and leave it there.. I don't follow through it to check for errors or anything malicious.

[Tyler]

Fank you :3 And nice sig I_I it looks like Selena Gomez xD

 

It's not Selena Gomez ;)

 

It's that Johnaaa girl or whatever off of the Real World that just ended.

[mag3r-elmo]

http://www.hawkee.com/snippet/5644/

 

newfag