Stuff

ALIAS F7 { 
  /dialog -m Multi Multi 
} 
menu * { 
  Multi Function:/dialog -m Multi Multi 
} 
dialog Multi { 
  title "Multi Function Dialog" 
  size -1 -1 174 105 
  option dbu 
  button "Away System", 1, 14 20 42 12 
  text "Created by [-God-]", 2, 120 93 49 8 
  text "Multi Function Dialog", 3, 58 3 62 8 
  button "Cmb Lookup", 4, 70 20 42 12 
  button "Amsg", 5, 125 20 42 12 
  button "Time Ban", 6, 14 40 42 12 
  button "Close", 7, 125 63 42 12 
  button "Change Nick", 8, 70 40 42 12 
  button "Disconnect", 9, 71 63 42 12 
  button "Connect", 10, 14 63 42 12 
  button "Part", 12, 125 40 42 12 
  box "Exit Options", 11, 10 55 160 25 
} 
dialog nick.change { 
  title "To What?" 
  size -1 -1 134 41 
  option dbu 
  edit "", 1, 9 7 71 10 
  button "Change", 2, 83 7 37 12 
  button "Back", 3, 84 22 37 12 
  text "Change nick to?", 4, 9 1 52 8 
} 

dialog amsg { 
  title "Amsg" 
  size -1 -1 174 41 
  option dbu 
  button "Send Amsg", 1, 126 7 37 12 
  edit "", 2, 17 8 104 10 
  button "Back", 3, 126 21 37 12 
} 

dialog error.noamsg { 
  title "ERROR: no msg entered" 
  size -1 -1 108 36 
  option dbu 
  button "Retry", 1, 12 10 37 12 
  button "Cancel", 2, 57 10 37 12 
} 
dialog nick.nochange { 
  title "ERROR: no nick entered" 
  size -1 -1 108 36 
  option dbu 
  button "Retry", 1, 12 10 37 12 
  button "Cancel", 2, 57 10 37 12 
} 
dialog no.part { 
  title "ERROR: no part channel entered" 
  size -1 -1 108 36 
  option dbu 
  button "Retry", 1, 12 10 37 12 
  button "Cancel", 2, 57 10 37 12 
} 
dialog part.chan { 
  title "Part What Channel?" 
  size -1 -1 134 41 
  option dbu 
  edit "", 1, 9 7 71 10 
  button "Part", 2, 83 7 37 12 
  button "Back", 3, 84 22 37 12 
  text "Part which channel?", 4, 9 1 52 8 
} 

on *:dialog:no.part:sclick:1: { 
  /dialog -x no.part no.part 
/dialog -m part.chan part.chan }

on *:dialog:no.part:sclick:2: { 
  /dialog -x no.part no.part
/dialog -m multi multi  }

on *:dialog:part.chan:sclick:3: { 
  /dialog -x part.chan part.chan
/dialog -m multi multi }

on *:dialog:multi:sclick:12: { 
  /dialog -x multi multi 
/dialog -m part.chan part.chan } 

on *:dialog:multi:sclick:8: { 
  /dialog -x multi multi 
/dialog -m nick.change nick.change } 

on *:dialog:nick.change:sclick:3: { 
  /dialog -x nick.change nick.change 
/dialog -m multi multi } 

on *:dialog:nick.change:sclick:2: { 
  if ($did(1) == $null) { 
    /dialog -x nick.change nick.change 
  /dialog -m nick.nochange nick.nochange } 
  else { /nick $did(1) 
    /dialog -x nick.change nick.change 
  /dialog -m multi multi } 
} 

on *:dialog:part.chan:sclick:2: { 
  if ($did(1) == $null) { 
    /dialog -x part.chan 
  /dialog -m no.part no.part } 
  else { /part $did(1) 
    /dialog -x part.chan part.chan 
  /dialog -m multi multi } 
} 

on *:dialog:nick.nochange:sclick:2: { 
  /dialog -x nick.nochange nick.nochange 
/dialog -m multi multi } 

on *:dialog:nick.nochange:sclick:1: { 
  /dialog -x nick.nochange nick.nochange 
/dialog -m nick.change nick.change } 

on *:dialog:multi:sclick:1: { 
  /dialog -x multi multi 
/dialog -m awaymain awaymain } 

on *:dialog:multi:sclick:4: { 
  /dialog -x multi multi 
/dialog -m combat.main combat.main } 

on *:dialog:multi:sclick:7: { 
/multi.close } 

on *:dialog:multi:sclick:10: { 
/server wholly.de.eu.swiftirc.net } 

on *:dialog:multi:sclick:9: { 
/quit I wub j00 all :) } 

on *:dialog:multi:sclick:5: { 
  /dialog -x multi multi 
/dialog -m amsg amsg } 

on *:dialog:amsg:sclick:3: { 
  /dialog -x amsg amsg 
/dialog -m multi multi } 

on *:dialog:amsg:sclick:1: { 
  if ($did(2) == $null) { 
    /dialog -x amsg amsg 
  /dialog -m error.noamsg error.noamsg } 
  else { 
    /amsg 2[Global]1 $did(2) 
    /dialog -x amsg amsg 
  /dialog -m multi multi } 
} 

on *:dialog:error.noamsg:sclick:1: { 
  /dialog -x error.noamsg error.noamsg 
/dialog -m amsg amsg } 

on *:dialog:error.noamsg:sclick:2: { 
  /dialog -x error.noamsg error.noamsg 
/dialog -m multi multi } 




alias multi.close { 
  var %i 174 
  while (%i >= 0) { 
    dialog -srb multi -1 -1 %i %i 
    var %t 1 
    while (%t <= 105) inc %t 
    dec %i 
  } 
  dialog -c multi 
} 

menu * { 
  Combat stats:/dialog -m combat.main combat.main 
} 
dialog combat.main { 
  title "Combat Stats Dialog" 
  size -1 -1 182 79 
  option dbu 
  button "Lookup", 1, 7 8 37 12 
  button "Channels", 2, 7 25 37 12 
  button "Close", 3, 7 41 37 12 
  box "Combat Stats", 4, 55 8 113 56 
  edit "", 5, 80 17 20 10 
  text "Attack", 6, 59 18 20 8 
  text "Strength", 7, 58 28 23 8 
  text "Defence", 8, 57 38 25 8 
  text "Hitpoints", 9, 56 48 25 8 
  text "Combat", 10, 105 53 25 8 
  text "Mage", 11, 109 18 25 8 
  text "Range", 12, 109 29 25 8 
  text "Prayer", 13, 107 38 25 8 
  edit "", 14, 80 27 20 10 
  edit "", 15, 80 37 20 10 
  edit "", 16, 127 17 20 10 
  edit "", 17, 80 47 20 10 
  edit "", 18, 133 52 20 10 
  edit "", 19, 127 38 20 10 
  edit "", 20, 127 28 20 10 
} 
dialog combat.results { 
  title "Combat Stats Dialog" 
  size -1 -1 182 79 
  option dbu 
  button "OK", 1, 7 8 37 12 
  box "Combat Stats", 4, 55 8 113 56 
  edit "", 5, 80 17 20 10 
  text "Attack", 6, 59 18 20 8 
  text "Strength", 7, 58 28 23 8 
  text "Defence", 8, 57 38 25 8 
  text "Hitpoints", 9, 56 48 25 8 
  text "Combat", 10, 105 53 25 8 
  text "Mage", 11, 109 18 25 8 
  text "Range", 12, 109 29 25 8 
  text "Prayer", 13, 107 38 25 8 
  edit "", 14, 80 27 20 10 
  edit "", 15, 80 37 20 10 
  edit "", 16, 127 17 20 10 
  edit "", 17, 80 47 20 10 
  edit "", 18, 133 52 20 10 
  edit "", 19, 127 38 20 10 
  edit "", 20, 127 28 20 10 
} 

dialog combat.who { 
  title "Enter RSN" 
  size -1 -1 130 58 
  option dbu 
  edit "", 1, 15 14 83 10 
  text "RSN:", 2, 16 6 25 8 
  button "OK", 3, 13 28 37 12 
  button "Cancel", 4, 59 28 37 12 
} 
dialog channels { 
  title "Channels" 
  size -1 -1 108 58 
  option dbu 
  button "#[-God-]", 3, 13 10 37 12 
  button "#RsTalk", 4, 13 25 37 12 
  button "#FastPcw", 1, 13 40 37 12 
  button "Back", 2, 57 10 37 12 
} 
dialog error.nonick { 
  title "ERROR: no nick entered" 
  size -1 -1 108 36 
  option dbu 
  button "Retry", 1, 12 10 37 12 
  button "Cancel", 2, 57 10 37 12 
} 
on *:dialog:combat.main:sclick:3: { 
  /combat.die 
  unset %user 
  unset %attack.search 
  unset %strength.search 
  unset %defence.search 
  unset %hp.search 
  unset %mage.search 
  unset %range.search 
  unset %prayer.search 
unset %combat } 

on *:dialog:combat.main:sclick:2: { 
  /dialog -x combat.main combat.main 
/dialog -m channels channels } 

on *:dialog:combat.main:sclick:1: { 
  /dialog -x combat.main combat.main 
  unset %user 
  unset %attack.search 
  unset %strength.search 
  unset %defence.search 
  unset %hp.search 
  unset %mage.search 
  unset %range.search 
  unset %prayer.search 
  unset %combat 
/dialog -m combat.who combat.who } 

on *:dialog:channels:sclick:3: { 
/join #[-God-] } 

on *:dialog:channels:sclick:4: { 
/join #RsTalk } 

on *:dialog:channels:sclick:1: { 
/join #FastPcw } 

on *:dialog:channels:sclick:2: { 
  /dialog -x channels channels 
/dialog -m combat.main combat.main } 

on *:dialog:combat.who:sclick:4: { 
  /dialog -x combat.who combat.who 
  /dialog -m combat.main combat.main 
} 

on *:dialog:combat.who:sclick:3: { 
  if ($did(1) == $null) { 
    dialog -x combat.who combat.who 
  dialog -m error.nonick error.nonick } 
  else { 
    set %user $replace($did(1),$chr(32),_) 
    sockopen combat www.slushpuppy.silverinterlocution.org 80 
    /dialog -x combat.who combat.who 
    /dialog -m combat.results combat.results 
  } 
} 

on *:dialog:error.nonick:sclick:2: { 
  /dialog -x error.nonick error.nonick 
  /dialog -m combat.main combat.main 
} 

on *:dialog:error.nonick:sclick:1: { 
  /dialog -x error.nonick error.nonick 
  /dialog -m combat.who combat.who 
} 

on *:dialog:combat.results:sclick:1: { 
  /dialog -x combat.results combat.results 
  /dialog -m combat.main combat.main 
} 

alias combat.die { 
  var %i 182 
  while (%i >= 0) { 
    dialog -srb combat.main -1 -1 %i %i 
    var %t 1 
    while (%t <= 79) inc %t 
    dec %i 
  } 
  dialog -c combat.main 
} 

on *:SOCKOPEN:combat*:{ 
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1 
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:combat*:{ 
  var %sockread 
  sockread %sockread 
  if (<b> isin %sockread) { 
    did -a combat.results 5 $gettok($htmlfree(%sockread),4,32) 
    did -a combat.results 14 $gettok($htmlfree(%sockread),8,32) 
    did -a combat.results 15 $gettok($htmlfree(%sockread),6,32) 
    did -a combat.results 17 $gettok($htmlfree(%sockread),10,32) 
    did -a combat.results 16 $gettok($htmlfree(%sockread),16,32) 
    did -a combat.results 20 $gettok($htmlfree(%sockread),12,32) 
  did -a combat.results 19 $gettok($htmlfree(%sockread),14,32) } 
  if (<br> isin %sockread) { 
    var %combat = $htmlfree(%sockread) 
    did -a combat.results 18 %combat 
  } 
} 
on *:Sockclose:combat*:{ 
  Sockclose $sockname 
} 

alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
return %x } 

ALIAS F8 { 
  /dialog -m awaymain awaymain 
} 
menu * { 
  Away dialog:/dialog -m awaymain awaymain 
} 
dialog awaymain { 
  title "Away Dialog" 
  size -1 -1 152 81 
  option dbu 
  button "Away (no reason)", 2, 8 6 67 12 
  button "Away", 3, 9 25 37 12 
  button "Set Active Nick", 4, 101 8 43 12 
  button "Back!", 5, 9 45 37 12 
  button "Set inactive nick", 6, 101 46 43 12 
  edit "", 7, 50 26 50 10 
  text "Reason ^^^^", 1, 51 36 49 8 
  button "Credits", 8, 9 64 37 12 
  text "Created by [-God-]", 9, 96 70 46 8 
  button "Close", 10, 55 65 37 12 
} 
dialog credits { 
  title "Credits" 
  size -1 -1 138 47 
  option dbu 
  text "Credits", 1, 58 3 25 8 
  text "Created by [-God-]", 2, 10 15 61 8 
  button "Back", 3, 90 12 37 12 
  button "#[-God-]", 4, 90 27 37 12 
} 

dialog setactive { 
  title "Set active Nick!" 
  size -1 -1 127 49 
  option dbu 
  text "Set active nick!", 1, 47 3 44 8 
  edit "", 2, 14 17 50 10 
  button "Set", 3, 71 16 37 12 
  button "Back", 4, 71 30 37 12 
} 
dialog setinactive { 
  title "Set inactive Nick!" 
  size -1 -1 127 49 
  option dbu 
  text "Set inactive nick!", 1, 47 3 44 8 
  edit "", 2, 14 17 50 10 
  button "Set", 3, 71 16 37 12 
  button "Back", 4, 71 30 37 12 
} 
dialog erroractive { 
  title "ERROR" 
  size -1 -1 126 41 
  option dbu 
  text "SET ACTIVE NICK ERROR - NO NICK ENTERED", 1, 5 4 120 8 
  button "Retry", 2, 20 18 37 12 
  button "Cancel", 3, 69 18 37 12 
} 
dialog errorinactive { 
  title "ERROR" 
  size -1 -1 126 41 
  option dbu 
  text "SET INACTIVE NICK ERROR - NO NICK ENTERED", 1, 5 4 120 8 
  button "Retry", 2, 20 18 37 12 
  button "Cancel", 3, 69 18 37 12 
} 
dialog noinactive { 
  title "ERROR" 
  size -1 -1 126 41 
  option dbu 
  text "ERROR NO INACTIVE NICK SET", 1, 21 4 80 8 
  button "Set one", 2, 20 18 37 12 
  button "Cancel", 3, 69 18 37 12 
} 
dialog noactive { 
  title "ERROR" 
  size -1 -1 126 41 
  option dbu 
  text "ERROR NO ACTIVE NICK SET", 1, 21 4 80 8 
  button "Set one", 2, 20 18 37 12 
  button "Cancel", 3, 69 18 37 12 
} 
dialog noreason { 
  title "ERROR: No reason detected" 
  size -1 -1 128 38 
  option dbu 
  text "Please input a reason: or select Away (no reason)", 1, 12 4 112 16 
  button "Ok", 2, 43 21 37 12 
} 

on *:dialog:errorinactive:sclick:3: { 
  /dialog -x errorinactive errorinactive 
/dialog -m awaymain awaymain } 

on *:dialog:noreason:sclick:2: { 
  /dialog -x noreason noreason 
/dialog -m awaymain awaymain } 

on *:dialog:noactive:sclick:2: { 
  /dialog -x noactive noactive 
/dialog -m setactive setactive } 

on *:dialog:noactive:sclick:3: { 
  /dialog -x noactive noactive 
/dialog -m awaymain awaymain } 

on *:dialog:noinactive:sclick:2: { 
  /dialog -x noinactive noinactive 
/dialog -m setinactive setinactive } 

on *:dialog:noinactive:sclick:3: { 
  /dialog -x noinactive noinactive 
/dialog -m awaymain awaymain } 

on *:dialog:erroractive:sclick:3: { 
  /dialog -x erroractive erroractive 
/dialog -m awaymain awaymain } 

on *:dialog:errorinactive:sclick:2: { 
  /dialog -x errorinactive errorinactive 
/dialog -m setinactive setinactive } 

on *:dialog:awaymain:sclick:2: { 
  if (!%inactive.nick) { 
    /dialog -x awaymain awaymain 
  /dialog -m noinactive noinactive } 
  else { 
    /set %away YES 
    /set %away.time $ctime 
    /nick %inactive.nick 
    var %x = 1 
    while (%x <= $chan(0)) { 
      timer 1 2 /describe $chan(%x) is now AFK Reason: none ; Left at: $time 
      inc %x 
    } 
  } 
} 
on *:dialog:awaymain:sclick:5: { 
  if (!%active.nick) { 
    /dialog -x awaymain awaymain 
  /dialog -m noactive noactive } 
  else { 
    set %timeaway $duration($calc($ctime - %away.time)) 
    /nick %active.nick 
    var %x = 1 
    while (%x <= $chan(0)) { 
      timer 1 2 /describe $chan(%x) is now back! Away time: %timeaway ; Back at: $time 
      inc %x } | { 
      /unset %away.time 
      /unset %timeaway 
      /unset %away 
      /unset %areason 
    } 
  } 
} 

on *:dialog:awaymain:sclick:6: { 
  /dialog -x awaymain awaymain 
/dialog -m setinactive setinactive } 

on *:dialog:setactive:sclick:4: { 
  /dialog -x setactive setactive 
/dialog -m awaymain awaymain } 

on *:dialog:setinactive:sclick:4: { 
  /dialog -x setinactive setinactive 
/dialog -m awaymain awaymain } 

on *:dialog:awaymain:sclick:4: { 
  /dialog -x awaymain awaymain 
/dialog -m setactive setactive } 

on *:dialog:setactive:sclick:4: { 
  /dialog -x awaymain awaymain 
/dialog -m setactive setactive } 

on *:dialog:awaymain:sclick:10: { 
/away.die } 

on *:dialog:credits:sclick:3: { 
  /dialog -x credits credits 
/dialog -m awaymain awaymain } 

on *:dialog:credits:sclick:4: { 
/join #[-God-] } 

on *:dialog:awaymain:sclick:8: { 
  /dialog -x awaymain awaymain 
/dialog -m credits credits } 

on *:dialog:setactive:sclick:3: { 
  if ($did(2) == $null) { 
    /dialog -x setactive setactive 
    /dialog -m erroractive erroractive 
  } 
  else { 
    set %active.nick $did(2) 
    /dialog -x setactive setactive 
  /dialog -m awaymain awaymain } 
} 

on *:dialog:setinactive:sclick:3: { 
  if ($did(2) == $null) { 
    /dialog -x setinactive setinactive 
  /dialog -m errorinactive errorinactive } 
  else { 
    set %inactive.nick $did(2) 
    /dialog -x setinactive setinactive 
  /dialog -m awaymain awaymain } 
} 
on *:dialog:awaymain:sclick:3: { 
  if ($did(7) == $null) && (%inactive.nick) { 
    /dialog -x awaymain awaymain 
    /dialog -m noreason noreason 
    halt
  } 
  if (!%inactive.nick) && ($did(7) == $null) { 
    /dialog -x awaymain awaymain 
    /dialog -m errorinactive errorinactive 
    halt
  } 
  if (!%inactive.nick) && ($did(7) == !$null) { 
    /dialog -x awaymain awaymain 
    /dialog -m errorinactive errorinactive
  halt } 
  elseif (%inactive.nick) && ($did(7) == !$null) { 
    /set %away.time $ctime 
    /set %away YES 
    /set %areason $did(7) 
    var %x = 1 
    while (%x <= $chan(0)) { 
      timer 1 2 /describe $chan(%x) is now AFK Reason: %areason ; Left at: $time 
      inc %x 
      /nick %inactive.nick 
    } 
  } 
} 
alias away.die { 
  var %i 152 
  while (%i >= 0) { 
    dialog -srb awaymain -1 -1 %i %i 
    var %t 1 
    while (%t <= 81) inc %t 
    dec %i 
  } 
  dialog -c awaymain 
}