Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dialog away {
- title "Away System"
- size -1 -1 120 76
- option dbu
- box "Away Nick", 1, 1 1 57 34
- edit "", 2, 4 12 50 9, autohs
- button "Set as Away Nick", 3, 5 23 50 9, flat
- box "Back Nick", 4, 62 1 57 34
- edit "", 5, 65 12 50 9
- button "Set as Back Nick", 6, 65 23 50 9, flat
- box "Reason", 7, 1 36 118 21
- edit "", 8, 4 45 111 9, autohs
- button "Away", 9, 2 58 55 17, flat
- button "Back", 10, 64 58 55 17, flat
- }
- Menu * {
- Away System:/awayscript
- }
- alias awayscript {
- dialog -md away away
- }
- alias back {
- set %areason $did(8).text
- ame Is now Away - Reason $chr(2) $+ %areason
- nick %anick
- }
- on *:DIALOG:away:sclick:*:{
- if ($did == 3) {
- set %anick $did(2).text
- }
- if ($did == 6) {
- set %bnick $did(5).text
- }
- if ($did == 9) {
- set %away yes
- set %areason $did(8).text
- /ame Is now Away - Reason $chr(2) $+ %areason
- /nick %anick
- }
- if ($did == 10) {
- set %away no
- /nick %bnick
- /ame Is now Back - Reason $chr(2) $+ %areason
- unset %areason
- }
- }
- on *:DIALOG:away:init:0:{
- did -a $dname 2 %anick
- did -a $dname 5 %bnick
- }
- on *:NOTICE:*:?:{
- if (%away == yes) {
- .notice $nick Sorry $nick $+ , I am Away
- }
- }
- on *:TEXT:*:?: {
- if (%away == yes) {
- msg $nick Sorry $nick $+ , I am Away
- }
- }
Add Comment
Please, Sign In to add comment