Miscellany

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
}