Mixed Away System

By XtiuM on Jul 24, 2006

This Away System, You actually have different choices to use, You will see when you Load it.

Enjoy, XtiuM.

Menu Channel {
  Away System
  .Open Up:/dialog -m Away Away
}
dialog Away {
  title "Away System"
  size -1 -1 89 105
  option dbu
  button "Go Away", 1, 3 22 37 12
  button "Return", 2, 3 36 37 12, 
  text "Log/Pager On", 3, 5 14 35 8
  text "uN-DaMageD Away System", 4, 11 2 66 8
  button "Go Away", 5, 46 22 37 12
  button "Return", 6, 46 36 37 12, 
  text "Log On/Pager Off", 7, 43 14 44 8
  text "Log/Pager Off", 8, 7 51 37 8
  button "Go Away", 9, 4 60 37 12
  button "Return", 10, 4 74 37 12, 
  button "Go Away", 11, 46 60 37 12
  text "Own/Name", 12, 51 51 38 8
  button "Return", 13, 46 74 37 12
  text "Scripted By XtiuM, Contact Me At", 14, 4 88 84 8
  link "XtiuM@hotmail.co.uk", 15, 18 96 52 8
}
on *:dialog:Away:sclick:1:{
  /echo $active 15-14(15Log14/15Pager14 On)15-
  /set %away $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 15-14(15I Am Now Away, Reason: 14[15 $+ %away $+ 14] 15Log: 14[15 $+ On $+ 14] 15Pager: 14[15 $+ On $+ 14])15- 
  /away %away
} 
on *:dialog:Away:sclick:2:{
  /set %duration
  /amsg 15-14(15I Am Now Back From 14[15 $+ %away $+ 14] 15Gone For 14[15 $+ $duration($awaytime) $+ 14])15- 
  /away
}
on *:dialog:Away:sclick:5:{
  /echo $active 15-14(15Log14On/15Pager14 Off)15-
  /set %gone $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 15-14(15I Am Now Away, Reason: 14[15 $+ %gone $+ 14] 15Log: 14[15 $+ On $+ 14] 15Pager: 14[15 $+ Off $+ 14])15- 
  /away %away
}
on *:dialog:Away:sclick:6:{
  /set %duration
  /amsg 15-14(15I Am Now Back From 14[15 $+ %gone $+ 14] 15Gone For 14[15 $+ $duration($awaytime) $+ 14])15- 
  /away
}
on *:dialog:Away:sclick:9:{
  /echo $active 15-14(15Log14On/15Pager14 Off)15-
  /set %nothere $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 15-14(15I Am Now Away, Reason: 14[15 $+ %nothere $+ 14] 15Log: 14[15 $+ On $+ 14] 15Pager: 14[15 $+ Off $+ 14])15- 
  /away %away
}
on *:dialog:Away:sclick:10:{
  /set %duration
  /amsg 15-14(15I Am Now Back From 14[15 $+ %nothere $+ 14] 15Gone For 14[15 $+ $duration($awaytime) $+ 14])15- 
  /away
}
on *:dialog:Away:sclick:11:{
  /echo $active 15-14(15Choose Your Own Status)15-
  /set %reason $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /set %log $$?="Is Your Log On Or Off?"
  /set %pager $$?="Is Your Pager On Or Off?"
  /set %nick $$?="Change Your Nick Too?" | /nick %nick
  /amsg 15-14(15I Am Now Away, Reason: 14[15 $+ %reason $+ 14] 15Log: 14[15 $+ %log $+ 14] 15Pager: 14[15 $+ %pager $+ 14])15- 
  /away %away
}

Comments

Sign in to comment.
Emensity   -  Aug 08, 2006

Yeah - you forgot to code the \"Return\" option.

 Respond  
EagleAmerican   -  Jul 29, 2006

Return button on Own/Name doesnt work. Otherwise, nice job.

 Respond  
Brian   -  Jul 25, 2006

that are alot boxes:|

 Respond  
Xylem   -  Jul 25, 2006

Just change the numbers in the colour boxes. Lol.

 Respond  
Brian   -  Jul 25, 2006

nice but how i change the colour to better clours lol i don`t see it realy good:S?

 Respond  
Xylem   -  Jul 24, 2006

Very Nice XtiuM.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.