Away system beta v3

mIRC snippet that creates a dialog for away/back.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	br0nx	activity	Cod testat	368	2024-07-30 21:33:24

alias as { dialog -m as as } 
dialog as { 
  title "Away System" 
  size -1 -1 120 120 
  option dbu 
  button "Away", 1, 15 100 28 12 
  button "Back", 2, 78 100 28 12 
  text " Away Nick", 3, 46 39 27 8 
  edit "", 4, 15 52 90 10, autohs 
  text " Away Reason", 5, 42 67 36 8 
  edit "", 6, 15 81 90 10, autohs 
  text "Normal Nick", 7, 46 7 30 8 
  edit "", 8, 15 21 90 10, autohs 
  button "Ok", 9, 43 100 35 12, ok 
} 
alias asa { dialog -m asa asa } 
dialog asa { 
  title "About" 
  size -1 -1 120 135 
  option dbu 
  box "About", 1, 5 4 109 39 
  text "Addon : Away System", 2, 11 15 97 8 
  text "Version : v3 Beta", 3, 11 28 97 8 
  box "About Author", 4, 5 44 109 84 
  text "Author : br0nx", 5, 11 54 97 8 
  text "Author Chan : #scr1pt1ng", 6, 11 70 97 8 
  text "Author Serv : irc.krstarica.com", 7, 11 85 97 8 
  text "Author Email : br0nx.20@inbox.com", 8, 11 100 97 8 
  text "Addon Address : br0nx.20.forumer.com", 9, 11 115 97 8 
} 
on *:dialog:as:init:*: { 
  did -a as 4 %new.nick 
  did -a as 6 %reason.1 
  did -a as 8 %old.nick 
} 
alias new.nick { 
  set %new.nick $did(4) 
  nick %new.nick 
} 
alias reason.1 { 
  set %reason.1 $did(6) 
  away %reason.1 
} 
alias old.nick { 
  set %old.nick $did(8) 
  nick %old.nick 
} 
on *:dialog:as:sclick:1: { 
  set %new.nick $did(4) 
  set %reason.1 $did(6) 
  set %old.nick $did(8) 
  nick %new.nick 
  ame Is Away Reason -= %reason.1 =- Away System By br0nx 
  away %reason.1 
} 
on *:dialog:as:sclick:2: { 
  nick %old.nick 
  ame Is Back From -= %reason.1 =- Away System By br0nx 
  away 
} 
on *:dialog:as:sclick:9: { 
  set %new.nick $did(4) 
  set %reason.1 $did(6) 
  set %old.nick $did(8) 
} 
on *:open:?: { 
  if ($away) { 
    notice $nick I Am Away Reason -= %reason.1 =- Away System By br0nx 
  } 
} 
menu * { 
  - 
  .Away System:as 
  .Away System About:asa 
  - 
}