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:multi:sclick:6: {
  /dialog -x multi multi
/dialog -m timeban.main timeban.main }

on *:dialog:timeban.main:sclick:10: {
  /dialog -x timeban.main timeban.main
/dialog -m multi multi }

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
}


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 }


dialog timeban.main {
  title "Time Ban"
  size -1 -1 174 52
  option dbu
  edit "", 1, 37 7 57 10
  text "Channel", 2, 9 8 27 8
  text "Nick", 3, 101 8 25 8
  edit "", 4, 129 7 38 10
  text "Time in min", 5, 9 19 26 9
  edit "", 6, 38 18 19 10
  text "Reason", 7, 60 20 25 8
  edit "", 8, 87 19 80 10
  button "Time ban!", 9, 109 31 37 12
  button "Cancel", 10, 14 31 37 12
}
dialog timeban.no {
  title "You Do Not have Privalegdes to do that!"
  size -1 -1 174 52
  option dbu
  button "Multi Menu", 1, 63 21 37 12
  text "You are not half operator or operator in the channel entered - Access denied", 2, 32 2 118 27
}
dialog noton.chan {
  title "You are not on that Channel!"
  size -1 -1 174 40
  option dbu
  button "Multi Menu", 1, 64 14 37 12
  text "You are not on the channel entered!", 2, 32 2 118 27
}
dialog nicknot {
  title "Nick is not on Channel Entered"
  size -1 -1 174 40
  option dbu
  button "Multi Menu", 1, 64 14 37 12
  text "Nick Entered is not on the channel entered", 2, 32 2 118 27
}
on *:dialog:timeban.main:sclick:9: {
  if ($me !ison $did(1)) {
    /dialog -x timeban.main timeban.main
    /dialog -m noton.chan noton.chan
  halt }
  if ($did(4) !ison $did(1)) {
    /dialog -x timeban.main timeban.main
    /dialog -m nicknot nicknot 
  halt }
  if ($me isvoice $did(1)) || ($me isreg $did(1)) {
    dialog -x timeban.main timeban.main
    dialog -m timeban.no timeban.no
  halt }
  elseif (($me isop $did(1)) || ($me ishop $did(2))) && ($did(5) == !$null) && ($did(7) == !$null) && ($did(3) == !$null) && ($did(2) == !$null)
  { ban -ku $+ $calc($did(6) * 60) $did(1) $did(4) 4,1Time banned for:14,1 ($did(6) Minute(s) 4,1From:15,1 $did(1) 4,1Reason:15,1 $did(8) }
}

on *:dialog:timeban.no:sclick:1: {
  /dialog -x timeban.no timeban.no
/dialog -m multi multi }

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

on *:dialog:noton.chan:sclick:1: {
  /dialog -x noton.chan noton.chan
/dialog -m multi multi }


NOW CLICK----------------------FILE > NEW and paste this -------------------

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
  }
  if (!%inactive.nick) && ($did(7) == $null) { 
    /dialog -x awaymain awaymain
    /dialog -m errorinactive errorinactive
  }
  if (!%inactive.nick) && ($did(7)) { 
    /dialog -x awaymain awaymain
  /dialog -m errorinactive errorinactive }
  elseif (%inactive.nick) && ($did(7)) {
    /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
}