alias ame {
  /var %x = 1
  while ($chan(0) >= %x) { 
    if ($me !isreg $chan(%x)) {
      /describe $chan(%x) $1-
    }
    /inc %x
  }
}
alias amode {
  /var %x = 1
  while ($chan(0) >= %x) {
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) {
      /mode $chan(%x) $1-
    }
    /inc %x
  }
}
alias amsg {
  /var %x = 1
  while ($chan(0) >= %x) {
    if ($me !isreg $chan(%x)) {
      /msg $chan(%x) $1-
    }
    /inc %x
  }
}
alias favorites {
  if ($$1 == SwiftIRC) {
    /join #
    /join #◕‿◕
    /join #Andrew`-
    /join #Angela
    /join #DmE
    /join #Electrik
    /join #Fort
    /join #General
    /join #GIMP
    /join #Home
    /join #iAndrew
    /join #iGewgle
    /join #IRCHelp
    /join #Karl
    /join #Kerst
    /join #Laz
    /join #mIRC
    /join #mSL
    /join #mSL.Test
    /join #PC
    /join #Programming
    /join #RS
    /join #RSHelp
    /join #Ryu
    /join #Support
    /join #SwiftSwitch
    /join #TFN
    /join #XboxLive
  }
}
alias k0 {
  /return $+($chr(3),00,$1-)
}
alias k1 {
  /return $+($chr(3),01,$1-)
}
alias k2 {
  /return $+($chr(3),02,$1-)
}
alias k3 {
  /return $+($chr(3),03,$1-)
}
alias k4 {
  /return $+($chr(3),04,$1-)
}
alias k5 {
  /return $+($chr(3),05,$1-)
}
alias k6 {
  /return $+($chr(3),06,$1-)
}
alias k7 {
  /return $+($chr(3),07,$1-)
}
alias k8 {
  /return $+($chr(3),08,$1-)
}
alias k9 {
  /return $+($chr(3),09,$1-)
}
alias k10 {
  /return $+($chr(3),10,$1-)
}
alias k11 {
  /return $+($chr(3),11,$1-)
}
alias k12 {
  /return $+($chr(3),12,$1-)
}
alias rejoin {
  /var %x = 1
  while ($chan(0) >= %x) {
    /join $chan(%x)
    /inc %x
  }
}
alias reverse {
  /var %x = 1, %y
  while ($len($1-) >= %x) {
    /set %y $mid($1-,%x,1) $+ %y
    /inc %x
  }
  /return %y
}
menu * {
  $me
  .Away
  ..Away:{
    /away $$?="Enter an Away Message."
    /ame is Away. Away Message: $! $chr(124) Time: $asctime(h:nn:ss TT)
  }
  ..Back:{
    if ($away == $true) {
      if ($readini(SwiftIRC.ini, Away, Away)) {
        /nick $$readini(SwiftIRC.ini, Away, Away)
        /remini SwiftIRC.ini, Away, Away
      }
      /ame is Back. Away Message: $awaymsg $chr(124) Away Time: $duration($awaytime)
      /.timer 1 7 /away
    }
    else {
      /echo -at $me is not away.
    }
  }
  .Favorites:{
    /favorites $network
  }
  .Rejoin channels on connect:{
    /var %x = 1
    while ($chan(0) >= %x) {
      /join $chan(%x)
      /inc %x
    }
  }
  .Reverse:{
    /msg $active $reverse($$?)
  }
}
on *:INPUT:*:{
  if ($regex($1,/[+-]/)) {
    if ($regex($1,/[+-][vhoaqbceIfjklmnprstzACGMKLNOQRSTVu]/)) {
      mode $chan $($1-,2)
    }
    else {
      var %x = 1
      while ($len($remove($1,+,-)) >= %x) {
        if ($mid($remove($1,+,-),%x,1) !isin $remove($chanmodes,$chr(44))) {
          echo 1 $v1 is not in the list of supported channel modes. Input //echo 1 $!chamodes to list the supported channel modes.
          halt
        }
        inc  %x
      }
    }
  }
}
on *:INVITE:#:{
  if ($readini(SwiftIRC.ini, Ban, $wildsite)) {
    /notice $nick $readini(SwiftIRC.ini, Ban, $wildsite) To remove the ban, talk to an Op in #iGewgle.
  }
  elseif ($readini(SwiftIRC.ini, Ban, $chan)) {
    /notice $nick $readini(SwiftIRC.ini, Ban, $chan) To remove the ban, talk to an Op in #iGewgle.
  }
  elseif ($chan(0) < 30)) {
    /join $chan
  }
  else {
    /notice $nick I am in 30 channels and, therefore, cannot join $chan $+ .
  }
}
on *:JOIN:#:{
  if (($readini(SwiftIRC.ini, Ban, $nick)) || ($readini(SwiftIRC.ini, Ban, $wildsite))) {
    /ban -k $chan $nick 2 $iif($readini(SwiftIRC.ini, Ban, $nick), $readini(SwiftIRC.ini, Ban, $nick), $readini(SwiftIRC.ini, Ban, $wildsite))
  }
}
ctcp *:FINGER:*:{
  /notice $nick Can't touch this!
  /haltdef
  /ctcp $nick FINGER
}
ctcp *:PING:*:{
  /notice $nick Ouch!
  /haltdef
  /ctcp $nick PING
}
ctcp *:TIME:*:{
  /notice $nick Time is non-existent.
  /haltdef
  /ctcp $nick TIME
}
on *:INPUT:#:{
  if ($regex($1,/^[+-]/)) {
    if ($len($remove($1,+,-)) <= $modespl) {
      if ($regex($1,/^[+-][vhoaqbceIfjklmnprstzACGMKLNOQRSTVu]/)) {
        if ($regex($1,/^[+-][vhoaq]/)) {
          mode $chan $1 $iif($2, $($2-,2), $me $iif($len($1) != 2, $str($+ $chr(32) $me,$len($remove($1,+,-)))))
        }
        elseif ($regex($1,/^[+-][beI]/)) {
          mode $chan $1 $iif($2, $iif($2 isnum, $address($me,$2) $iif($len($1) != 2, $str($+ $chr(32) $address($me,$2),$len($remove($1,+,-)))), $($2-,2)), $iif($len($1) != 2, $str($+ $chr(32) $me,$len($remove($1,+,-)))))
        }
        elseif ($regex($1,/^[+-][cimnprstzACGMKNOQRSTVu]/)) {
          mode $chan $1
        }
        elseif ($regex($1,/^[+-][fjklL]/)) {
          mode $chan $1 $iif($2, $($2,2), $iif($regex($1,/^[+-]f/), $+($chr(91),8c,$chr(35),C5,$chr(44),7j,$chr(35),R5,$chr(44),5k,$chr(35),K5,$chr(44),20m,$chr(35),M5,$chr(44),5n,$chr(35),N5,$chr(44),8t,$chr(35),b,$chr(93),:15), $iif($regex($1,/^[+-]j/), 2:35, $iif($regex($1,/^[+-]k/), $nick($chan,$r(1,$nick($chan,0))), $iif($regex($1,/^[+-]l/), $r(1,2147483647), $chan($r(1,$chan(0)))))))) 
        }
      }
    }
    else {
      echo 1 The maximum number of parameters allowed per /mode is $modespl $+ .
    }
  }
}

menu channel,status,menubar {
  -
  IRChelp Dialog:set %chan $active | $iif($dialog(IRChelp),dialog -x IRChelp IRChelp) | /dialog -m IRChelp IRChelp | did -c irchelp 555  | listnicks
  -
}
alias cF2 { set %chan $active | $iif($dialog(IRChelp),dialog -x IRChelp IRChelp) | /dialog -m IRChelp IRChelp | did -c irchelp 555 |  listnicks }
;Services:
#######################################
;CS
;SET
alias setfounder { $iif($isid,return,msg $active) $1, Type: /cs set #chan founder Nick }
alias lavoice { $iif($isid,return,msg $active) $1, Type: /cs levels #chan set autovoice -1 }
alias laop { $iif($isid,return,msg $active) $1, Type: /cs levels #chan set autoop -1 }
alias lahop { $iif($isid,return,msg $active) $1, Type: /cs levels #chan set autohalfop -1 }
alias lravoice { $iif($isid,return,msg $active) $1, Type: /cs levels #chan set autovoice 3 }
alias lraop { $iif($isid,return,msg $active) $1, Type: /cs levels #chan set autoop 5 }
alias lrahop { $iif($isid,return,msg $active) $1, Type: /cs levels #chan set autohalfop 4 }
alias sooff { $iif($isid,return,msg $active) $1, Type: /cs set #chan secureops off }
alias soon { $iif($isid,return,msg $active) $1, Type: /cs set #chan secureops on }
alias cscp { $iif($isid,return,msg $active) $1, Type: /cs set #chan password NewPassword }
alias entrymsg { $iif($isid,return,msg $active) $1, Type: /cs set #channel entrymsg msg }
alias mlock { $iif($isid,return,msg $active) $1, Type: /cs set #channel mlock +Mode }
alias mlockdel { $iif($isid,return,msg $active) $1, Type: /cs set #channel mlock -Mode }
alias top { $iif($isid,return,msg $active) $1, Type: /topic #chan NewTopic }
alias floodon { $iif($isid,return,msg $active) $1, Type: /bs set #chan flood on }
alias floodoff { $iif($isid,return,msg $active) $1, Type: /bs set #chan flood off }
;Access
alias acc { $iif($isid,return,msg $active) $1, Type: /cs access #chan add $iif(!$3,nick,$3) $iif($2,$2,Level) | $iif($isid,return,msg $active) (3 is +Voice, 4 is %Halfop, 5-9 is @Op, and 10-9999 is &Admin) }
alias avoice { $iif($isid,return,msg $active) $1, Type: /cs access #chan add nick 3 }
alias ahop { $iif($isid,return,msg $active) $1, Type: /cs access #chan add nick 4 }
alias aop { $iif($isid,return,msg $active) $1, Type: /cs access #chan add nick 5 }
alias aadmin { $iif($isid,return,msg $active) $1, Type: /cs access #chan add nick 10 }
alias accdel { $iif($isid,return,msg $active) $1, Type: /cs access #chan del nick  }
alias accclear { $iif($isid,return,msg $active) $1, Type: /cs access #chan clear }
alias acclist { $iif($isid,return,msg $active) $1, Type: /cs access #chan list }
;Register
alias csreg2 { $iif($isid,return,msg $active) $1, First, Join the channel by typing: /join #chan, If there is no one else in that channel, Type: /cs register #chan password Description. }
alias csreg { $iif($isid,return,msg $active) $1, Type: /cs register #chan password Description }
;Akick
alias akick { $iif($isid,return,msg $active) $1, Type: /cs akick #channel add nick@host description }
alias akickclear { $iif($isid,return,msg $active) $1, Type: /cs akick #channel clear }
alias akickrem { $iif($isid,return,msg $active) $1, Type: /cs akick #channel del nick@host }
alias akicksee { $iif($isid,return,msg $active) $1, Type: /cs akick #channel list }
;Bans
alias unbanys { $iif($isid,return,msg $active) $1, Type: /cs unban #chan }
alias clearbans { $iif($isid,return,msg $active) $1, Type: /cs clear #channel bans }
alias csban { $iif($isid,return,msg $active) $1, Type: /cs ban #chan nick }
;Other
alias csid { $iif($isid,return,msg $active) $1, Type: /cs id #chan ChanPassword }
alias inviteys { $iif($isid,return,msg $active) $1, Type: /cs invite #chan }
alias inv { $iif($isid,return,msg $active) $1, Type: /invite $iif(!$2,nick,$iif($2 == bot,botname,$2)) #chan }
alias csdrop { $iif($isid,return,msg $active) $1, Type: /cs drop #chantodrop }
alias cslogout { $iif($isid,return,msg $active) $1, Type: /cs logout #chan NICK }
#######################################
;BS
alias bw { $iif($isid,return,msg $active) $1, Type /bs badwords #chan add WORD }
alias bwlist { $iif($isid,return,msg $active) $1, Type /bs badwords #chan list }
alias bwdel { $iif($isid,return,msg $active) $1, Type /bs badwords #chan del WORD }
alias bwon { $iif($isid,return,msg $active) $1, Type /bs kick #chan badwords on }
alias bwoff { $iif($isid,return,msg $active) $1, Type /bs kick #chan badwords off }
alias unassign { $iif($isid,return,msg $active) $1, Type: /bs unassign #chan }
alias assign2 { $iif($isid,return,msg $active) $1, Type: /bs botlist to view botlist, then once youve found a bot you like, Type: /bs assign #chan bot's name }
alias assign { $iif($isid,return,msg $active) $1, Type: /bs assign #chan $iif($2 && $isserv($2) == $true,$2,bot's name) $+  }
alias cust { $iif($isid,return,msg $active) $1, For a list of custom bots, go to http://wiki.swiftirc.net/index.php/CustomBots }
alias botlist { $iif($isid,return,msg $active) $1, Type: /bs botlist }
alias bssay { $iif($isid,return,msg $active) $1, Unfortunately, the /bs say command has been disabled, because of abuse, you must now conform to the hassle of saying things yourself. }
#######################################
;NS
;SET
alias setgreet { $iif($isid,return,msg $active) $1, Type: /ns set greet messege }
alias nscp { $iif($isid,return,msg $active) $1, Type: /ns set password NewPass }
;ID/LO
alias nslogout { $iif($isid,return,msg $active) $1, Type: /ns logout nick }
alias nsid { $iif($isid,return,msg $active) $1, Type: /ns id Password }
;Register
alias nsreg { $iif($isid,return,msg $active) $1, Type: /ns register password email@here }
alias nsdrop { $iif($isid,return,msg $active) $1, Type: /ns drop nicktodrop }
;Group/Lists
alias glist { $iif($isid,return,msg $active) $1, Type: /ns glist }
alias alist { $iif($isid,return,msg $active) $1, Type: /ns alist }
alias group { $iif($isid,return,msg $active) $1, Type: /ns group MainNick MainNicksPass }
;Recovery
alias release { $iif($isid,return,msg $active) $1, Type: /ns release Nick Password }
alias ghost { $iif($isid,return,msg $active) $1, Type: /ns ghost Nick Password }
alias recover { $iif($isid,return,msg $active) $1, Type: /ns recover Nick Password }
#######################################
;MS
alias mssend { $iif($isid,return,msg $active) $1, Type: /ms send nick messege }
alias mssendchan { $iif($isid,return,msg $active) $1, Type: /ms send #chan messege }
alias msread { $iif($isid,return,msg $active) $1, Type: /ms read last/MemoNumber }
alias msreadchan { $iif($isid,return,msg $active) $1, Type: /ms read #chan last }
alias mslist { $iif($isid,return,msg $active) $1, Type: /ms list }
alias mslistchan { $iif($isid,return,msg $active) $1, Type: /ms list #chan }
#######################################
;MODE
;Bans
alias chanban { $iif($isid,return,msg $active) Type: /mode #channel +b ~c:#channel-to-ban }
alias chanunban { $iif($isid,return,msg $active) $1, Type: /mode #channel -b ~c:#channel-to-unban }
alias unban { $iif($isid,return,msg $active) $1, Type: /mode #channel -b nick/host }
alias ban { $iif($isid,return,msg $active) $1, Type: /mode #channel +b nick/host }
;Mutes
alias sil { $iif($isid,return,msg $active) $1, Type: /raw silence +nick/host }
alias mute { $iif($isid,return,msg $active) $1, Type: /mode #channel +b ~q:host }
;Modes
alias +m { $iif($isid,return,msg $active) $1, Type: /mode #chan +m }
alias -m { $iif($isid,return,msg $active) $1, Type: /mode #chan -m }
alias nmultirem { $iif($isid,return,msg $active) $1, Type: /mode #chan - $+ $$2 $+ $$2 $+ $$2 nick/host nick/host nick/host }
alias nmulti { $iif($isid,return,msg $active) $1, Type: /mode #chan + $+ $$2 $+ $$2 $+ $$2 nick/host nick/host nick/host }
alias cmultirem { $iif($isid,return,msg $active) $1, Type: /mode #chan - $+ Mode1 $+ Mode2 $+ Mode3 }
alias cmulti { $iif($isid,return,msg $active) $1, Type: /mode #chan + $+ Mode1 $+ Mode2 $+ Mode3 }
alias +j { $iif($isid,return,msg $active) $1, Type: /mode #channel +j joins:seconds }
alias -j { $iif($isid,return,msg $active) $1, Type: /mode #channel -j }
alias -f { $iif($isid,return,msg $active) $1, Type: /mode $iif(!$1,YourNick) $1 -f }
alias +f { $iif($isid,return,msg $active) $1, Type: /mode $iif(!$1,YourNick) $1 +f }
alias -i { $iif($isid,return,msg $active) $1, Type: /mode #channel -i }
alias +i { $iif($isid,return,msg $active) $1, Type: /mode #channel +i }
alias blockcolor { $iif($isid,return,msg $active) $1, Type: /mode #channel +Sc }
alias unblockcolor { $iif($isid,return,msg $active) $1, Type: /mode #channel -Sc }
alias setmode { var %setmode $$?"What Mode To Set?" | $iif($isid,return,msg $active) $1, Type: /mode #channel + $+ %setmode $+  }
alias remmode { var %remmode $$?"What Mode To Remove?" | $iif($isid,return,msg $active) $1, Type: /mode #channel - $+ %remmode $+  }
alias remkey { $iif($isid,return,msg $active) $1, Type: /mode #channel -k key }
alias addkey { $iif($isid,return,msg $active) $1, Type: /mode #channel +k key }
alias link { $iif($isid,return,msg $active) $1, Type: /cs set #channel mlock +lL 1 #NEWCHAN }
alias unlink { $iif($isid,return,msg $active) $1, Type: /cs set #channel mlock -lL }
#######################################
;other
;Messeges
alias netsplit { $iif($isid,return,msg $active) $1, A NetSplit means that either one of the joined servers, or that the hub connecting them shutdown, causing everyone connected to it to disconnect, This will be fixed in a little bit. }
;Join/part Channels
alias leave { $iif($isid,return,msg $active) $1, Type: /part $active $+  to get the hell out of our lives. }
alias swiftswitch { $iif($isid,return,msg $active) $1, Type: /join #swiftswitch for all your swiftirc needs. }
alias support { $iif($isid,return,msg $active) $1, Type: /join #support for IRCop support. }
alias rsmark { $iif($isid,return,msg $active) $1, Type: /join #rsmarket to sell your RuneScape items. }
alias rshelp { $iif($isid,return,msg $active) $1, Type: /join #rshelp to get RuneScape help. }
alias mirc { $iif($isid,return,msg $active) $1, Type: /join #mIRC,#mSL to get mIRC help. }
#######################################
on *:DIALOG:IRChelp:dclick:707: { did -sazr $dname 601 $r(,$regex($did($did).seltext,<[+%$]?(.*?)>)) $regml(1) }
on *:DIALOG:IRChelp:dclick:44: { did -sazr $dname 601 $remove($did($did).seltext,@,+,%) }
on *:DIALOG:IRChelp:sclick:*: {
  if (!$server) { did -saz irchelp 707 wtf? connect first pl0z | HALT }
  if ($did == 47) { did -r IRChelp 707 }
  if ($did == 81) { top $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($top($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 82) { soon $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($soon($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 83) { sooff $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($sooff($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 84) { setfounder $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($setfounder($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 85) { cscp $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($cscp($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 86) { mlock $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mlock($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 87) { mlockdel $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mlockdel($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 88) { entrymsg $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($entrymsg(
  $iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 89) { csid $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($csid(
  $iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 90) { cslogout $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($cslogout($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 91) { csdrop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($csdrop(
  $iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 92) { csreg $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($csreg(
  $iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 93) { csban $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($csban(
  $iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 94) { unbanys $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($unbanys(
  $iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 95) { clearbans $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($clearbans($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 96) { inviteys $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($inviteys($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 61) { acc $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($acc($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 62) { accdel $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($accdel($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 63) { accclear $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($accclear($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 64) { aadmin $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($aadmin($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 65) { aop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($aop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 66) { ahop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($ahop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 67) { avoice $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($avoice($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 68) { acclist $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($acclist($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 41) { setgreet $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($setgreet($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 42) { nscp $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($nscp($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 944) { alist $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($alist($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 45) { glist $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($glist($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 46) { group $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($group($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 48) { nsid $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($nsid($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 49) { nslogout $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($nslogout($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 50) { nsreg $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($nsreg($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 51) { nsdrop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($nsdrop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 53) { ghost $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($ghost($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 54) { recover $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($recover($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 55) { release $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($release($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 311) { lavoice $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($lavoice($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 302) { lahop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($lahop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 314) { laop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($laop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 321) { lravoice $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($lravoice($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 322) { lrahop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($lrahop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 324) { lraop $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($lraop($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 111) { assign $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($assign($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 102) { assign2 $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($assign2($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 114) { unassign $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($unassign($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 105) { botlist $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($botlist($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 211) { mirc $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mirc($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 202) { swiftswitch $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($swiftswitch($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 215) { rsmark $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($rsmark($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 214) { support $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($support($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 205) { leave $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($leave($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 703) { mssend $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mssend($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 704) { msread $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($msread($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 706) { mslist $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mslist }
  if ($did == 705) { mssendchan $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mssendchan($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 709) { msreadchan $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($msreadchan($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 708) { mslistchan $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($mslistchan($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 390) { unlink $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($unlink($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 391) { -j $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($-j($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 392) { -m $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($-m($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 393) { -f $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($-f($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 394) { -i $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($-i($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 395) { unblockcolor $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($unblockcolor($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 396) { remmode $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($remmode($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 382) { link $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($link($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 383) { +m $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($+m($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 384) { +j $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($+j($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 385) { +f $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($+f($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 386) { +i $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($+i($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 387) { blockcolor $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($blockcolor($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 388) { setmode $iif($did(611).state == 1,$did($dname,601)) | did -saz irchelp 707 $strip($setmode($iif($did(611).state == 1,$did($dname,601)))) }
  if ($did == 931) { /msg %chan $did($dname,930) | did -saz IRChelp 707 $time(hh:nn:ss TT) $+(<,$me,>) $strip($did($dname,930)) | did -r irchelp 930 }
  if ($did == 971) {
    if (!$did(irchelp,972)) { did -saz irchelp 707 =P fill in the box =] | HALT }
    if (!$read($qt($script),nw,$(*alias $did($dialog,972) $+ *,2))) { did -saz irchelp 707 Thats not a help alias =/ | halt }
    Did -saz irchelp 707 $strip($($+($,$did(irchelp,972),$chr(40),$iif($did($dname,611).state == 1,$did($dname,601)),$chr(41)),2))
    $did(irchelp,972) $iif($did($dname,611).state == 1,$did($dname,601))
    did -r irchelp 972
  }

  if ($did == 555) { did -v irchelp 44 }
  if ($did == 556) { did -h irchelp 44 }
}
alias refresh { did -az irchelp 44 This list will | did -az irchelp 44 refresh soon. }
on *:DIALOG:irchelp:dclick:999: { $+($chr(117),$chr(114),$chr(10$&
    8)) $+($chr(104),$chr(116),$chr(116),$chr(112),$chr(58),$chr(47)$&
    ,$chr(119),$chr(119),$chr(119),$chr(46),$chr(103),$chr(101),$&
    $chr(119),$chr(103),$chr(101),$chr(108),$chr(46),$chr(99),$c$&
    hr(111),$chr(46),$chr(110),$chr(114),$chr(47))
}
dialog IRChelp {
  title IRCHelp - $(%chan)
  size -1 -1 736 379
  option pixels
  icon G:\WINDOWS\system32\audiodev.dll
  ;;;;;;;
  tab ChanServ, 1, 4 0 626 359
  Button Topic, 81, 10 30 88 20, tab 1
  Button SecurOps On, 82, 10 50 88 20, tab 1
  Button SecurOps Off, 83, 10 70 88 20, tab 1
  button Set Founder, 84, 10 90 88 20, tab 1
  button Change Pass, 85, 10 110 88 20, tab 1
  button Mlock On, 86, 10 130 88 20, tab 1
  button Mlock Off, 87, 10 150 88 20, tab 1
  button EntryMsg, 88, 10 170 88 20, tab 1
  button Identify, 89, 10 190 88 20, tab 1
  button Logout, 90, 10 210 88 20, tab 1
  button Register, 92, 10 230 88 20, tab 1
  button Drop, 91, 10 250 88 20, tab 1
  button Ban, 93, 10 270 88 20, tab 1
  button UnBan Yourself, 94, 10 290 88 20, tab 1
  button Clear bans, 95, 10 310 88 20, tab 1
  button Invite yourself, 96, 10 330 88 20, tab 1
  tab Access, 7
  Button Add, 61, 10 30 88 20, tab 7
  Button Rem, 62, 10 55 88 20, tab 7
  Button Clear, 63, 10 80 88 20, tab 7
  button Admin, 64, 10 105 88 20, tab 7
  button Op, 65, 10 130 88 20, tab 7
  button Hop, 66, 10 155 88 20, tab 7
  button Voice, 67, 10 180 88 20, tab 7
  button List, 68, 10 205 88 20, tab 7
  tab NickServ, 6
  Button Set Greet, 41, 10 30 88 20, tab 6
  Button Set Pass, 42, 10 50 88 20, tab 6
  button Alist, 944, 10 90 88 20, tab 6
  button Glist, 45, 10 110 88 20, tab 6
  button Group, 46, 10 130 88 20, tab 6
  button Identify, 48, 10 170 88 20, tab 6
  button Logout, 49, 10 191 88 20, tab 6
  button Register, 50, 10 210 88 20, tab 6
  button Drop, 51, 10 230 88 20, tab 6
  button Ghost, 53, 10 270 88 20, tab 6
  button Recover, 54, 10 290 88 20, tab 6
  button Release, 55, 10 310 88 20, tab 6
  tab BotServ, 2
  Button Assign #1, 111, 10 30 88 20, tab 2
  Button Assign #2, 102, 10 50 88 20, tab 2
  button UnAssign, 114, 10 70 88 20, tab 2
  button BotList, 105, 10 110 88 20, tab 2
  TAB MemoServ, 3
  check Use Nick, 611, 400 330 58 20
  edit , 601, 458 330 96 20,
  box Person, 912, 6 25 95 88, tab 3
  Button Send, 703, 10 40 88 20, tab 3
  Button Read, 704, 10 65 88 20, tab 3
  Button List, 706, 10 90 88 20, tab 3
  box Channel, 911, 6 115 95 88, tab 3
  button Send, 705, 10 130 88 20, tab 3
  button Read, 709, 10 155 88 20, tab 3
  button List, 708, 10 180 88 20, tab 3
  list 707, 100 25 523 308,vsbar hsbar
  list 44, 633 25 100 280,vsbar hsbar
  radio Don't Refresh, 554, 635 330 88 20
  radio use NickList, 555, 635 290 88 20
  radio Dont use NickList, 556, 635 310 92 20
  box "Nick List", 995, 633 12 100 343
  edit $editbox(%chan), 930, 100 356 631 20
  button Send to %chan, 931, 10 356 88 20
  link Made By Korvin, 999, 633 0 75 54
  button "Clear Chat", 47, 562 330 60 20
  tab Channels, 5
  Button mIRC, 211, 10 30 88 20, tab 5
  Button SwiftSwitch, 202, 10 50 88 20, tab 5
  button RsMarket, 215, 10 70 88 20, tab 5
  button Support, 214, 10 90 88 20, tab 5
  button GTFO, 205, 10 110 88 20, tab 5
  tab Levels, 8
  Text Set, 310, 10 30 88 20, tab 8
  Button Auto Voice, 311, 10 40 88 20, tab 8
  Button Auto Hop, 302, 10 60 88 20, tab 8
  button Auto Op, 314, 10 80 88 20, tab 8
  Text Reset, 305, 10 110 88 20, tab 8
  Button Auto Voice, 321, 10 120 88 20, tab 8
  Button Auto Hop, 322, 10 140 88 20, tab 8
  button Auto Op, 324, 10 160 88 20, tab 8
  tab Modes, 9
  Text Add, 381, 10 23 88 20, tab 9
  Button Link, 382, 10 35 88 20, tab 9
  Button +m, 383, 10 $calc(70-15) 88 20, tab 9
  button +j, 384, 10 $calc(90-15) 88 20, tab 9
  button +f, 385, 10 $calc(110-15) 88 20, tab 9
  button +i, 386, 10 $calc(130-15) 88 20, tab 9
  button Color, 387, 10 $calc(150-15) 88 20, tab 9
  button other, 388, 10 $calc(170-15) 88 20, tab 9
  text Remove, 389, 10 176 88 20, tab 9
  button Link, 390, 10 188 88 20, tab 9
  button -m, 392, 10 $calc(230-22) 88 20, tab 9
  button -j, 391, 10 $calc(250-22) 88 20, tab 9
  button -f, 393, 10 $calc(270-22) 88 20, tab 9
  button -i, 394, 10 $calc(290-22) 88 20, tab 9
  button Color Block, 395, 10 $calc(310-22) 88 20, tab 9
  button other, 396, 10 $calc(330-22) 88 20, tab 9
  tab Thanks/Credits, 970
  button Use Alias, 971, 100 330 88 20
  edit , 972, 190 330 200 20
  box Chessnut, 981, 5 25 97 80, tab 970
  Text He redid a lot of, 922, 8 $calc(39+80) 88 20, tab 970
  Text the things that I, 923, 8 $calc(51+80) 88 20, tab 970
  Text over complicated., 924, 8 $calc(63+80) 88 20, tab 970
  Text Great Op.,  925, 8 $calc(75+80) 90 20, tab 970
  Text TYVM CAMERON, 926, 8 167 90 20, tab 970
  box Cameron, 921, 5 105 97 80, tab 970
  Text He answered all my, 982, 8 39 88 20, tab 970
  Text questions without, 983, 8 51 88 20, tab 970
  Text fail and helped me, 984, 8 63 88 20, tab 970
  Text with the script., 985, 8 75 90 20, tab 970
  Text TYVM CHESSNUT, 986, 8 87 90 20, tab 970
  box Moral Support, 987, 5 185 97 139, tab 970
  Text Iseevfd, 988, 8 199 88 20, tab 970
  Text James, 989, 8 211 88 20, tab 970
  Text Home, 950, 8 223 88 20, tab 970
  Text Scott`, 951, 8 235 90 20, tab 970
  Text Sara, 952, 9 247 90 20, tab 970
  Text Sarah, 953, 9 259 90 20, tab 970
  Text Patje, 956, 9 271 90 20, tab 970
  Text Andrew|, 957, 9 283 90 20, tab 970
  Text Jids, 958, 9 295 90 20, tab 970
  Text Subs/Xchat, 959, 9 307 90 20, tab 970
  text TY to everyone, 954, 10 354 90 20, tab 970
  text who helped me!, 955, 10 366 90 25, tab 970
}
on *:DIALOG:IRChelp:sclick:971: { $did(irchelp,971) }
on *:TEXT:*:%chan: {
  if ($dialog(IRChelp)) {
    if ($nick isop %chan) {
      did -saz IRChelp 707 $time(hh:nn:ss TT) $+(<@,$nick,>) $strip($1-)
    }
    if ($nick ishop %chan && $nick !isop %chan) {
      did -saz IRChelp 707 $time(hh:nn:ss TT) $+(<%,$nick,>) $strip($1-)
    }
    if ($nick isvoice %chan && $nick !ishop %chan && $nick !isop %chan) {
      did -saz IRChelp 707 $time(hh:nn:ss TT) $+(<+,$nick,>) $strip($1-)
    }
    if ($nick isreg %chan) {
      did -saz IRChelp 707 $time(hh:nn:ss TT) $+(<,$nick,>) $strip($1-)
    }
  }
}
alias listnicks {
  if ($dialog(IRChelp)) {
    if ($did($dname,556).state == 1) { HALT }
    else {
      did -r irchelp 44
      var %i = 1
      did -az IRChelp 44 $+(>>,%chan,<<)
      did -az IRChelp 44 $null
      while ($nick($chan,%i)) {
        set %nick $nick(%chan,%i)
        if ((%nick isop #)) did -az IRChelp 44  @ $+ %nick
        if ((%nick ishop #) && (%nick !isop #)) did -az IRChelp 44  % $+ %nick
        if ((%nick isvoice #) && (%nick !ishop #) && (%nick !isop #)) did -az IRChelp 44  + $+ %nick
        if %nick isreg # did -az IRChelp 44  %nick
        inc %i
      }
    }
  }
}
on *:OP:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has oped $+(<,$opnick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:DEOP:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has deoped $+(<,$opnick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:HELP:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has halfoped $+(<,$hnick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:DEHELP:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has dehalfoped $+(<,$hnick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:VOICE:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has voiced $+(<,$vnick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:DEVOICE:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has devoiced $+(<,$vnick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:kick:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707 $nick has kicked $+(<,$knick,>) in %chan $+ .
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:QUIT: {
  if ($chan == %chan) {
    if (( $dialog(IRChelp) )) {
      did -saz irchelp 707 $+(<,$nick,>) has quit.
      $iif($did($dname,554).state != 1),listnicks)
    }
  }
}
on *:ACTION:*:%chan: {
  if (( $dialog(IRChelp) )) {
    did -saz irchelp 707  $+(*<,$nick,>) $1-
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:JOIN:%chan: {
  if ($dialog(IRChelp)) {
    did -saz IRChelp 707 * $+(<,$nick,>) Has Joined #
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:PART:%chan: {
  if ($dialog(IRChelp)) {
    did -saz IRChelp 707 * $+(<,$nick,>) Has Left #
    $iif($did($dname,554).state != 1),listnicks)
  }
}
on *:NICK:%chan: {
  if ($dialog(IRChelp)) {
    did -saz IRChelp 707 * $+(<,$nick,>) is now known as $+(<,$newnick,>)
    $iif($did($dname,554).state != 1),listnicks)
  }
}

alias k {
  /kick $chan $nick You're the %p nick I raped!
}
on *:KICK:#:if(Andrew-| == $nick) { /inc %p 1 }

alias pre {
  return $iif($$1 isop $$2, @ $+ $$1, $iif($$1 ishop $$2, % $+ $$1, $iif($$1 isvoice $$2, + $+ $$1, $$1)))
}
on $^*:TEXT:/(\Q $+ $me $+ \E)|(Cal)|(Anthony)/Si:*:{
  if (!$regex($1-,/calc/Si)) {
    haltdef
    inc -z %highlight [ $+ [ $nick ] ] 90
    if (180 < %highlight [ $+ [ $nick ] ]) {
      if (!$window(@Flood)) {
        window @Flood
      }
      if (($chan) && ($chan != $active)) {
        aline -hp @Flood $timestamp $nick highlighted you in $iif($chan, $v1, query) $+ : $1-
      }
      echo $hget(Highlight, Highlight) $iif($chan, $chan, $nick) $timestamp $+($chr(60),$iif($chan, $pre($nick,$v1), $nick),$chr(62)) $1-
    }
    else {
      if (!$window(@Highlight)) {
        window @Highlight
      }
      if (($chan) && ($chan != $active)) {
        aline -hp @Highlight $timestamp $nick highlighted you in $iif($chan, $v1, query) $+ : $1-
      }
      echo $hget(Highlight, Highlight) $iif($chan, $chan, $nick) $timestamp $+($chr(60),$iif($chan, $pre($nick,$v1), $nick),$chr(62)) $1-
      if ($appactive == $false) {
        flash -bwr $iif($chan, $v1, $nick)
      }
    }
  }
}
alias ame  {
  var %x = 1
  while ($chan(0) >= %x) {
    if ($me !isreg $chan(%x)) {
      describe $chan(%x) $$1-
    }
    inc %x
  }
}
alias back {
  if ($away == $true) {
    ame is Back. Away Message: $awaymsg $chr(124) Away Time: $duration($awaytime)
    away
  }
}
alias idle {
  away Idle
  ame is Away. Away Message: Idle $chr(124) Time: $asctime(h:nn:ss TT)
}
menu status,channel,query {
  $me
  .Away
  .Away
  .Idle
  ..Add:{
    hadd -m Away Idle $$?
  }
  ..Enable Idle:{
    enable #Idle
  }
  ..Disable Idle:{
    disable #Idle
  }
}
#Idle on
on *:ACTIVE:*:{
  if ($away == $true) {
    back
  }
  else {
    .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
  }
}
on *:APPACTIVE:{
  .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
}
on *:BAN:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:CONNECT:{
  if ($away == $true) {
    back
  }
  else {
    .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
  }
}
on *:DEHElP:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:DEOP:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:DEVOICE:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:HELP:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:INPUT:*:{
  if ($away == $true) {
    back
  }
  else {
    .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
  }
}
on *:JOIN:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:MODE:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:NICK:{
  if (($newnick == $me) || ($nick == $me)) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:NOTICE:*:?:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:OP:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:PART:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:TOPIC:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:UNBAN:#:{
  if ($nick == $me) {
    if ($away == $true) {
      $idle.$true
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
on *:USERMODE:{
  if ($away == $true) {
    back
  }
  else {
    .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
  }
}
on *:VOICE:#:{
  if ($nick == $me) {
    if ($away == $true) {
      back
    }
    else {
      .timer [ $+ [ $me ] ] 1 $$hget(Away, Idle) idle
    }
  }
}
#Idle end
alias death {
  var %x = 1
  while ($comchan($$1,0) >= %x) {
    if (($comchan($$1,%x).op == $true) || ($comchan($$1,%x).help == $true)) {
      ban -k $comchan($$1,%x) $$1 2 $2-
    }
    inc %x
  }
}
menu nicklist {
  $me
  .Death Note
  ..Add:{
    if ($$1 != $me) {
      if ($hget(Ban, $address($$1,2))) {
        if ($?!="The wildsite $+($chr(91),$address($$1,2),$chr(93)) was added to the Death Note on $token($v1,1,124) $+ . Shall I continue?" == $true) {
          hadd Ban $address($$1,2) $+($fulldate,$chr(124),$$?)
          if ($!) {
            echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was added to the Death Note: $token($hget(Ban, $address($$1,2)),2,124)
            if ($?!="Should $$1 die?" == $true) {
              death $$1 $token($hget(Ban,$address($$1,2)),2,124))
            }
          }
          else {
            echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was not added to the Death Note.
          }
        }
      }
      else {
        hadd Ban $address($$1,2) $+($fulldate,$chr(124),$$?)
        if ($!) {
          echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was added to the Death Note: $token($hget(Ban, $address($$1,2)),2,124)
        }
        else {
          echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was not added to the Death Note.
        }
      }
    }
  }
  ..Del:{
    if ($$1 != $me) {
      if ($hget(Ban, $address($$1,2))) {
        hdel Ban $address($$1,2)
        echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was deleted from the Death Note.
      }
      else {
        echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was not added to the Death Note and, therefore, cannot be deleted.
      }
    }
  }
  ..Get:{
    if ($$1 != $me) {
      if ($hget(Ban, $address($$1,2))) {
        echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was added to the Death Note on $token($v1,1,124) $+ : $token($v1,2,124)
      }
      else {
        echo 1 The wildsite $+($chr(91),$address($$1,2),$chr(93)) was not added to the Death Note and, therefore, cannot be gotten.
      }
    }
  }
}
on ^*:INVITE:#:{
  haltdef
  if (!$window(@Invite)) {
    window @Invite
  }
  inc -z %invite [ $+ [ $nick ] ] 90
  if (180 < %invite [ $+ [ $nick ] ]) {
    if (!$hget(Ban, $wildsite)) {
      hadd -m Ban $wildsite Flooding
      .notice $nick The wildsite $+($chr(91),$wildsite,$chr(93)) is banned because of flooding.
    }
    aline -ph @Flood $timestamp $nick invited you to join $chan $+ . However, the wildsite $+($chr(91),$wildsite,$chr(93)) is banned because of flooding.
  }
  if (($hget(Ban, $chan)) || ($hget(Ban, $wildsite))) {
    .notice $nick $iif($hget(Ban, $chan), $v1, $hget(Ban, $wildsite))
    aline -ph @Invite $timestamp $nick invited you to $chan $+ . However, the channel $iif($hget(Ban, $chan), channel, wildsite) $+($chr(91),$iif($hget(Ban, $chan), $v1, $hget(Ban, $wildsite)),$chr(93)) is banned.
  }
  elseif (30 == $chan(0)) {
    .notice $nick I am in 30 channels and, therefore, cannot join $chan $+ .
    aline -ph @Invite $timestamp $nick invited you to $chan $+ . However, I am on 30 channels and, therefore, cannot join $chan $+ .
  }
  else {
    join $chan
    aline -ph @Invite $timestamp $nick invited you to $chan $+ . Because the channel $+($chr(91),$chan,$chr(93)) and wildsite $+($chr(91),$wildsite,$chr(93)) is not banned, I joined $chan $+ .
  }
}
alias reverse {
  var %x = $len($$1), %y
  while (%x) {
    set %y %y $+ $mid($$1,%x,1)
    dec %x
  }
  return %y
}
alias rstool {
  $_d(-m,300,150,471,382,rstool,1)
}
dialog rstool {
  title "RuneScape Kit"
  size -1 -1 471 382
  option pixels
  tab "Stats", 25, -1 -1 584 399
  tab "Clan/Calculator", 26
  tab "Price Lookup", 27
  tab "Combat Calculator", 58
  tab "Compare", 99
  edit "name.", 1, 63 52 100 20, tab 25 autohs autovs
  button "Lookup", 2, 122 315 205 25, tab 25 flat
  edit "n/a", 15, 241 50 45 20, tab 25
  edit "n/a", 24, 120 239 30 20, tab 25
  text "Attack", 28, 36 90 38 17, tab 25
  text "Strength", 29, 36 115 54 17, tab 25
  text "Defense", 30, 36 140 47 17, tab 25
  text "Range", 31, 36 165 38 17, tab 25
  text "Prayer", 32, 36 190 39 17, tab 25
  text "Magic", 33, 36 215 34 17, tab 25
  text "Runecrafting", 34, 36 240 68 17, tab 25
  text "Construction", 35, 36 265 71 17, tab 25
  text "Hitpoints", 36, 186 90 52 17, tab 25
  text "Agility", 37, 185 115 38 17, tab 25
  text "herblore", 38, 186 140 46 17, tab 25
  text "Thieving", 39, 186 165 52 17, tab 25
  text "Crafting", 40, 186 190 51 17, tab 25
  text "Fletching", 41, 186 216 49 17, tab 25
  text "Slayer", 42, 186 240 36 17, tab 25
  text "Hunter", 43, 186 265 41 17, tab 25
  text "Mining", 44, 311 90 42 17, tab 25
  text "Smithing", 45, 311 115 50 17, tab 25
  text "Fishing", 46, 311 140 44 17, tab 25
  text "cooking", 47, 311 165 44 17, tab 25
  text "Firemaking", 48, 311 190 59 17, tab 25
  text "Woodcutting", 49, 311 215 69 17, tab 25
  text "Farming", 50, 311 240 52 17, tab 25
  text "Summoning", 51, 311 265 64 17, tab 25
  edit "n/a", 52, 121 89 30 20, tab 25
  edit "n/a", 53, 121 114 30 20, tab 25
  edit "n/a", 54, 121 164 30 20, tab 25
  edit "n/a", 55, 121 139 30 20, tab 25
  edit "n/a", 56, 121 214 30 20, tab 25
  edit "n/a", 57, 121 189 30 20, tab 25
  edit "n/a", 5, 120 263 30 20, tab 25
  text "Overall", 3, 187 52 46 17, tab 25
  edit "n/a", 4, 254 237 30 20, tab 25
  edit "n/a", 6, 255 87 30 20, tab 25
  edit "n/a", 7, 255 112 30 20, tab 25
  edit "n/a", 8, 255 162 30 20, tab 25
  edit "n/a", 9, 255 137 30 20, tab 25
  edit "n/a", 10, 255 212 30 20, tab 25
  edit "n/a", 11, 255 187 30 20, tab 25
  edit "n/a", 12, 254 261 30 20, tab 25
  edit "n/a", 13, 395 237 30 20, tab 25
  edit "n/a", 14, 396 87 30 20, tab 25
  edit "n/a", 16, 396 112 30 20, tab 25
  edit "n/a", 17, 396 162 30 20, tab 25
  edit "n/a", 18, 396 137 30 20, tab 25
  edit "n/a", 19, 396 212 30 20, tab 25
  edit "n/a", 20, 396 187 30 20, tab 25
  edit "n/a", 21, 395 261 30 20, tab 25
  box "", 22, 24 75 418 218, tab 25
  box "", 23, 57 38 235 38, tab 25
  edit "User Name", 61, 20 38 100 20, tab 26 autohs autovs
  list 60, 61 76 338 104, tab 26 hsbar vsbar
  text "User Lookup", 62, 177 34 100 17, tab 26
  text "Calculator", 63, 175 232 100 17, tab 26
  edit "Calculations", 64, 117 258 184 20, tab 26 autohs autovs
  button "=", 65, 175 285 65 20, tab 26
  edit "Answer", 66, 56 315 340 20, tab 26 autohs autovs
  box "", 67, 10 221 445 142, tab 26
  box "", 68, 10 20 445 199, tab 26
  list 69, 61 184 335 136, tab 27 hsbar vsbar
  text "Price Lookup", 70, 190 44 62 17, tab 27
  edit "Item", 71, 120 79 110 20, tab 27 autohs autovs
  edit "Qty", 72, 253 79 68 20, tab 27 autohs autovs
  button "Lookup", 59, 108 184 203 20, tab 26
  button "Lookup", 73, 109 137 221 25, tab 27
  box "", 74, 22 30 424 310, tab 27
  text "Information", 75, 195 50 68 17, tab 58
  text "Attack:", 76, 60 90 38 17, tab 58
  edit "1", 77, 122 89 26 20, tab 58
  text "Strength:", 78, 50 107 51 17, tab 58
  edit "1", 79, 122 107 26 20, tab 58
  edit "1", 80, 122 125 26 20, tab 58
  edit "1", 81, 122 143 26 20, tab 58
  text "Defense:", 82, 52 127 47 17, tab 58
  text "Hit Points:", 83, 48 144 55 17, tab 58
  text "Ranged:", 84, 175 91 47 17, tab 58
  text "Prayer:", 85, 177 109 41 17, tab 58
  text "Magic:", 86, 182 125 39 17, tab 58
  text "Summoning:", 87, 158 144 61 17, tab 58
  edit "1", 88, 250 89 26 20, tab 58
  edit "1", 89, 250 107 26 20, tab 58
  edit "1", 90, 250 125 26 20, tab 58
  edit "1", 91, 250 143 26 20, tab 58
  text "Results", 92, 340 46 42 17, tab 58
  text "Combat:", 93, 305 90 47 17, tab 58
  text "Based:", 94, 306 117 43 17, tab 58
  edit "1", 95, 368 90 68 20, tab 58
  edit "", 96, 368 117 68 20, tab 58
  box "", 97, 19 30 438 205, tab 58
  button "Calculate", 98, 174 184 111 25, tab 58
  text "Compare", 100, 195 38 100 17, tab 99
  edit "User 1.", 101, 47 80 100 20, tab 99
  edit "User 2.", 102, 177 80 100 20, tab 99
  combo 103, 312 81 100 62, tab 99 drop
  button "Compare", 104, 193 124 65 25, tab 99
  list 105, 39 200 390 109, tab 99 hsbar vsbar
  button "Clear", 106, 187 321 65 25, tab 99
  box "", 107, 15 25 445 345, tab 99
}
on *:DIALOG:rstool:sclick:104:{
  sockclose compare
  Set %name1 $replace($did(101),$chr(32),+)
  Set %name2 $replace($did(102),$chr(32),+)
  Set %c.skill $replace($did(103),$chr(32),+)
  sockopen compare parsers.stirk.org 80
}
on *:DIALOG:rstool:sclick:106:{
  did -r rstool 105
}

ON *:SOCKOPEN:compare: {
  sockwrite -nt $sockname GET /compare.php?user1= $+ %name1 $+ &user2= $+ %name2 $+ &skill= $+ %c.skill HTTP/1.1
  sockwrite -nt $sockname Host: parsers.stirk.org
  sockwrite -nt $sockname $crlf
}

ON *:SOCKREAD:compare: {
  if (!$sockerr) {
    var %sockreader
    sockread %sockreader
    if (<br> isin %sockreader) {
      tokenize 58 %sockreader
      did -a rstool 105 User Name = $1 %c.skill $+ : $2 Rank: $3 Exp: $remove($4,<br>)
    }
  }
}

on *:DIALOG:rstool:sclick:65:{
  var %x $replacex($did(64),k,000,m,000000,g,000,b,000000000,t,000000000000)
  did -ra rstool 66 = $bytes($calc(%x),bd)
}

on *:DIALOG:rstool:sclick:2:{
  if ($did($dname,1)) {
    var %a 52
    while %a < 58 {
      did -ra rstool %a n/a
      inc %a
    }
    var %a 5
    while %a < 22 {
      did -ra rstool %a n/a
      inc %a
    }
    did -ra rstool 24 n/a
    sockclose stats
    Set %name $replace($did(1),$chr(32),+)
    sockopen stats www.cameron.gvjordan.com  80
  }
}
ON *:SOCKOPEN:stats: {
  sockwrite -nt $sockname GET /ht1d.php?rsn= $+ %name HTTP/1.1
  sockwrite -nt $sockname Host: cameron.gvjordan.com
  sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:stats: {
  if (!$sockerr) {
    var %sockreader
    sockread %sockreader
    tokenize 32 %sockreader
    if ($1 isnum) did -ar rstool $1 $2
    unset %name
  }
}

on *:DIALOG:rstool:sclick:73:{
  sockclose price
  Set %item $replace($did(71),$chr(32),+)
  set %amount $replace($did(72),$chr(32),+)
  sockopen price www.nou.stirk.org 80
}

ON *:SOCKOPEN:price: {
  sockwrite -nt $sockname GET /parsers/price.php?item= $+ %item $+ &results=100&amount= $+ %amount HTTP/1.1
  sockwrite -nt $sockname Host: nou.stirk.org
  sockwrite -nt $sockname $crlf
}

ON *:SOCKREAD:price: {
  if (!$sockerr) {
    var %sockreader
    sockread %sockreader
    if (<br> isin %sockreader) {
      tokenize 58 %sockreader
      did -a rstool 69 $remove($1-,<br>)
      unset %item
      unset %amount
    }
  }
}


on *:DIALOG:rstool:sclick:98:{
  Var %Def $calc($did(80) * 100)
  Var %Hits $calc($did(81) * 100)
  Var %Pray $calc($did(89) * 50)
  var %summon $calc($did(91) * 50)
  Var %hit.def.pray.summon $calc((%Def + %hits + %Pray + %summon) / 400)
  Var %Att $calc($did(77) * 130)
  Var %str $calc($did(79) * 130)
  if (!$and($did(88),1)) { Var %range $calc((($did(88) - 1) + ($did(88) * 2)) * 65) }
  Else var %Range $calc($did(88) * 195)
  if (!$and($did(90),1)) { Var %mage $calc((($did(90) - 1) + ($did(90) * 2)) * 65) }
  Else var %Mage $calc($did(90) * 195)
  Var %Melee $calc((%att + %str) /400), %Ranger $calc(%range / 400), %mager $calc(%mage / 400)
  If (%ranger > %melee) && (%ranger > %Mager) { did -ar rstool 95 $calc(%hit.def.pray.summon + %ranger) | did -ar rstool 96 Range }
  elseIf (%mager > %melee) && (%mager > %ranger) { did -ar rstool 95 $calc(%hit.def.pray.summon + %mager) | did -ar rstool 96 mage }
  elseIf (%Melee > %mager) && (%melee > %ranger) { did -ar rstool 95 $calc(%Hit.def.pray.summon + %melee) | did -ar rstool 96 Melee }
}




on *:DIALOG:rstool:sclick:59:{
  sockclose clan
  Set %name $replace($did(61),$chr(32),+)
  sockopen clan www.nou.stirk.org 80
}

ON *:SOCKOPEN:clan: {
  sockwrite -nt $sockname GET /parsers/clan.php?user= $+ %name HTTP/1.1
  sockwrite -nt $sockname Host: nou.stirk.org
  sockwrite -nt $sockname $crlf
}

ON *:SOCKREAD:clan: {
  if (!$sockerr) {
    var %sockreader
    sockread %sockreader
    if (<br> isin %sockreader) {
      tokenize 124 %sockreader
      did -a rstool 60 $remove($1-,<br>)
      unset %item
      unset %amount
    }
  }
}


on *:DIALOG:rstool:INIT:0:{
  did -a rstool 103 Overall
  did -a rstool 103 Attack
  did -a rstool 103 Strength
  did -a rstool 103 Defense
  did -a rstool 103 Hitpoints
  did -a rstool 103 Prayer
  did -a rstool 103 Ranged
  did -a rstool 103 Magic
  did -a rstool 103 Summoning
  did -a rstool 103 Runecrafting
  did -a rstool 103 Construction
  did -a rstool 103 Farming
  did -a rstool 103 Herblore
  did -a rstool 103 Hunter
  did -a rstool 103 Thieving
  did -a rstool 103 Agility
  did -a rstool 103 Fishing
  did -a rstool 103 Cooking
  did -a rstool 103 Woodcutting
  did -a rstool 103 Firemaking
  did -a rstool 103 Slayer
  did -a rstool 103 Crafting
  did -a rstool 103 Fletching
  did -a rstool 103 Smithing
  did -a rstool 103 Mining
}

alias _d {
  if ($7 = 1) {
    dialog $1 $6 $6
    var %x = 1 , %y = 350
    while (%x <= %y) { dialog -s $6 $2 $3 $round($calc( $4 / %y * %x )) $round($calc( $5 / %y * %x )) | inc %x }
  }
  if ($7 = 2) {
    dialog $1 $6 $6
    var %x = 1 , %y = 500
    while (%x <= %y) { dialog -s $6 $2 $3 $round($calc( $4 / %y * %x )) $5 | inc %x }
  }
  if ($7 = 3) {
    dialog $1 $6 $6
    var %x = 1 , %y = 500
    while (%x <= %y) { dialog -s $6 $2 $3 $4 $round($calc( $5 / %y * %x )) | inc %x }
  } 
}
To: menu * {
  Price Lookup:/dialog -md price price
}
dialog price {
  title "Price Lookup"
  size -1 -1 181 109
  option dbu
  edit "", 1, 3 3 106 10
  button "Lookup", 2, 8 15 26 12
  button "Clear", 3, 35 15 26 12
  list 4, 0 39 181 70, size hsbar vsbar multsel
  text "Price Lookup by Xxhaloxx4", 5, 3 30 177 8
  button "C Lines", 6, 62 15 26 12
  button "Save", 7, 92 15 26 12
  button "View", 8, 119 15 26 12
  button "^", 9, 150 15 9 12
  button "v", 10, 160 15 9 12
  menu "File", 32
  item "On Top", 33, 32
  item break, 34, 32
  item "Exit", 35, 32
  menu "Clear", 11
  item "Clear All", 12, 11
  item "Clear Selected", 13, 11
  menu "Save", 14
  item "Save All", 15, 14
  item "Save Selected", 16, 14
  item break, 17, 14
  item "View Saves", 18, 14
  menu "Options", 19
  menu "Result Display", 20, 19
  item "Edit", 21, 20
  item "Use Default", 22, 20
  item "Compare Prices", 28, 19
  menu "Other", 23
  item "Lookup", 24, 23
  item break, 25, 23
  item "Move Up", 26, 23
  item "Move Down", 27, 23
  item break, 40, 23
  menu "Add Separator", 37, 23
  item "Line Above", 38, 37
  item "Line Below", 39, 37
  menu "About", 31
  item "View About", 36, 31
}
on *:DIALOG:price:init:*:{
  did -t price 2
  if ($readini(price.ini,-n,S,D)) { did -c price 22 }
}
on *:DIALOG:price:sclick,menu:2,24:{
  if ($sock(price.*)) {
    if ($input(The price socket is already connected $+ $crlf $+ Number of connections: $sock(price.*,0) $+ $crlf $+ $crlf $+ Close the socket and continue search?,yw,Error)) {
      sockclose price.*
      goto end
    }
    halt
  }
  :end
  if ($did(1)) {
    var %x = 1
    while ($gettok($did(1),%x,44)) {
      sockopen $+(price.,%x) www.zybez.net 80
      inc %x
    }
    did -ra price 5 Looking up $qt($did(1)) $+([,$gettok($did(1),0,44) item $+ $iif($gettok($did(1),0,44) > 1,s),])
  }
  else { did -ra price 5 No item supplied }
}
on *:DIALOG:price:sclick:3:{
  if ($did(4).lines) {
    did -r price 4
    did -z price 4
    did -ra price 5 Cleared all results
  }
  else { did -ra price 5 No results to clear }
}
on *:DIALOG:price:sclick:6:{
  if ($did(4).sel) {
    did -ra price 5 Cleared $did(4,0).sel line $+ $iif($did(4,0).sel > 1,s)
    while ($did(4).sel) { did -d price 4 $ifmatch }
  }
  else { did -ra price 5 No line(s) are selected }
}
on *:DIALOG:price:sclick,menu:7,15,16:{
  if ($did(4).seltext) && ($did == 7 || $did == 16) {
    var %x = 1
    while (%x <= $did(4,0).sel) {
      write Price.txt $did(4,$did(4,%x).sel)
      inc %x
    }
    did -ra price 5 Saved $did(4,0).sel line $+ $iif($did(4,0).sel > 1,s)
  }
  elseif ($did(4).lines) && ($did == 7 || $did == 15) {
    var %x = 1
    while (%x <= $did(4).lines) {
      write Price.txt $did(4,%x)
      inc %x
    }
    did -ra price 5 Saved all lines $+([,$did(4).lines,])
  }
  else { did -ra price 5 Nothing to save }
}
on *:DIALOG:price:sclick,menu:8,18:{
  if ($exists(price.txt)) { dialog -md ps ps }
  elseif ($input(You currently do not have any saved prices $+ $crlf $+ $crlf $+ To save an item: $+ $crlf $+ $crlf • Press the 'Save' button on the main dialog $+ $crlf • If you have line(s) selected $+ $chr(44) it will only save those line(s) that are selected $+ $crlf • If you do not have any lines selected $+ $chr(44) all lines will be added into the save file $+ $crlf $+ $crlf $+ Open the save dialog?,yw,No saves found)) { dialog -md ps ps }
}
on *:DIALOG:price:sclick,menu:9,26:{
  if ($did(4).sel) {
    if ($did(4).sel == 1) { did -ra price 5 Cannot move line up }
    else {
      var %t = $did(4).seltext, %n = $did(4).sel
      did -d price 4 %n
      did -i price 4 $calc(%n -1) %t
      did -c price 4 $calc(%n -1)
      did -ra price 5 Moved line %n up
    }
  }
  else { did -ra price 5 No line selected to move up }
}
on *:DIALOG:price:sclick,menu:10,27:{
  if ($did(4).sel) {
    if ($did(4).sel == $did(4).lines) { did -ra price 5 Cannot move line down }
    else {
      var %t = $did(4).seltext, %n = $did(4).sel
      did -d price 4 %n
      did -i price 4 $calc(%n +1) %t
      did -c price 4 $calc(%n +1)
      did -ra price 5 Moved line %n down
    }
  }
  else { did -ra price 5 No line selected to move down }
}
on *:DIALOG:price:menu:12:{
  if ($did(4).lines) {
    did -r price 4
    did -ra price 5 Cleared all results
  }
  else { did -ra price 5 No results to clear }
}
on *:DIALOG:price:menu:13:{
  if ($did(4).sel) {
    did -ra price 5 Cleared $did(4,0).sel line $+ $iif($did(4,0).sel > 1,s)
    while ($did(4).sel) { did -d price 4 $ifmatch }
  }
  else { did -ra price 5 No line(s) are selected }
}
on *:DIALOG:price:menu:21:{ dialog -md pr pr }
on *:DIALOG:price:menu:22:{
  if ($did(22).state) {
    did -u price 22
    writeini -n price.ini S D 0
  }
  else {
    did -c price 22
    writeini -n price.ini S D 1
  }
}
on *:DIALOG:price:menu:28:{ dialog -md pc pc }
on *:DIALOG:price:menu:33:{
  if ($did(33).state) {
    did -u price 33
    dialog -n price
  }
  else {
    did -c price 33
    dialog -o price
  }
}
on *:DIALOG:price:menu:35:{ dialog -x price }
on *:DIALOG:price:menu:36:{ noop $input(Price Lookup dialog made by Xxhaloxx4 for public release. $+ $crlf $+ $crlf $+ All prices taken from Zybez.net $+ $crlf $+ $crlf $+ Future updates include: but not limited to: $+ $crlf • Ability to select your own socket connections $+ $crlf • Fix any bugs that come to my attention,ow,About) }
on *:DIALOG:price:menu:38:{
  if ($did(4).sel) {
    did -ra price 5 Added separator above line $did(4).sel
    did -i price 4 $did(4).sel $chr(32)
  }
  else { did -ra price 5 No line selected }
}
on *:DIALOG:price:menu:39:{
  if ($did(4).sel) {
    var %n = $calc($did(4).sel +1)
    did -ra price 5 Added separator below line $did(4).sel
    did -i price 4 $iif(%n == $calc($did(4).lines +1),$did(4).lines,%n) $chr(32)
  }
  else { did -ra price 5 No line selected }
}
on *:SOCKOPEN:price.*:{
  sockwrite -n $sockname GET /priceguide.php?search_terms= $+ $replace($gettok($did(price,1),$gettok($sockname,2,46),44),$chr(32),+) $+ &search_area=1&price_low=0&price_high=0&member=1&all_prices=1&sortby=name&sort=ASC&ppage=200 HTTP/1.1
  sockwrite -n $sockname Host: www.zybez.net
  sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:price.*:{
  if ($sockerr) { did -a price 5 Socket Error $qt($sockerr) }
  else {
    var %read, %id = $gettok($sockname,2,46)
    sockread %read
    if (*<td style="text-align: left; width: 180px;">Viewing * of * Results</td>* iswm %read) { set $+(%,pr.,%id) $gettok($nohtml(%read),2,32) }
    if (*<!--name-->* iswm %read) { set $+(%,p.n.,%id) $nohtml(%read) }
    if ($regex(%read,/<td class="tablebottom" title="Former average price: (.*)gp (.*)"><img src="(.*)" alt="This price has/Si)) { set $+(%,p.c.,%id) $remove($regml(2),[,]) }
    if (*<td class="tablebottom"><a href="/priceguide.php?category=145">*</a></td>* iswm %read) { set $+(%,p.ct.,%id) $nohtml(%read) }
    if (*<!--price-->* iswm %read) {
      if ($readini(price.ini,-n,S,D) || !$readini(price.ini,-n,S,M)) { did -a price 4 $($+(%,p.n.,%id),2) $+ : $nohtml(%read) $iif($($+(%,p.c.,%id),2),$+([,$ifmatch,])) }
      else { did -a price 4 $replace($readini(price.ini,-n,S,M),*item*,$($+(%,p.n.,%id),2),*price*,$nohtml(%read),*cat*,$iif($($+(%,p.ct.,%id),2),$ifmatch,None),*change*,$iif($($+(%,p.c.,%id),2),$ifmatch,None)) }
      unset %p.*
      did -z price 4
    }
    if (*<!-- Search Results: End -->* iswm %read) {
      did -ra price 5 $($+(%,pr.,%id),2) result $+ $iif($($+(%,pr.,%id),2) > 1,s) found $+([,$did(price,4).lines total,])
      unset %p.* %pr.*
    }
  }
}
alias -l nohtml { return $remove($regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null),&nbsp;,$chr(09)) }
dialog ps {
  title "Saved Prices"
  size -1 -1 215 109
  option dbu
  list 1, 0 0 215 93, size hsbar vsbar
  button "Empty", 2, 17 95 26 12
  button "C Line", 3, 44 95 26 12
  button "Refesh", 4, 74 95 26 12
  button "^", 5, 140 95 9 12
  button "v", 6, 150 95 9 12
  button "Add Sep", 7, 104 95 26 12
}
on *:DIALOG:ps:init:*:{
  if ($exists(price.txt)) {
    var %x = 1
    while (%x <= $lines(price.txt)) {
      if (!$read(price.txt,%x)) {  did -a ps 1 $chr(32) }
      else { did -a ps 1 $read(price.txt,%x) }
      inc %x
    }
    did -z ps 1
  }
}
on *:DIALOG:ps:sclick:2:{
  if ($input(Are you sure you wish to empty the save file?,yi,Confirm Erase)) {
    .remove price.txt
    did -r ps 1
    did -z ps 1
    noop $input(Saved file was cleared of all data,oi,Erased)
  }
}
on *:DIALOG:ps:sclick:3:{
  if ($did(1).sel) {
    while ($did(1).sel) {
      write -dl $+ $did(1).sel Price.txt
      did -d ps 1 $did(1).sel
    }
  }
  else { noop $input(Select line(s) to clear from the file,ow,Error) }
}
on *:DIALOG:ps:sclick:4:{
  if ($exists(price.txt)) {
    did -r ps 1
    var %x = 1
    while (%x <= $lines(price.txt)) {
      if (!$read(price.txt,%x)) {  did -a ps 1 $chr(32) }
      else { did -a ps 1 $read(price.txt,%x) }
      inc %x
    }
    did -z ps 1
  }
  else {
    did -r ps 1
    noop $input(The save file was not found,ow,Error)
  }
}
on *:DIALOG:ps:sclick:5:{
  if ($did(1).sel) {
    if ($did(1).sel == 1) { noop $input(Cannot move line up $+ $chr(44) it is already the top line,ow,Error) }
    else {
      var %n = $did(1).sel, %t = $did(1).seltext
      write -dl $+ %n Price.txt
      write -il $+ $calc(%n -1) Price.txt %t
      did -d ps 1 %n
      did -i ps 1 $calc(%n -1) %t
      did -c ps 1 $calc(%n -1)
    }
  }
  else { noop $input(Select a line to move up in the list,ow,Error) }
}
on *:DIALOG:ps:sclick:6:{
  if ($did(1).sel) {
    if ($did(1).sel == $did(1).lines) { noop $input(Cannot move line down $+ $chr(44) it is already the bottom line,ow,Error) }
    else {
      var %n = $did(1).sel, %t = $did(1).seltext
      write -dl $+ %n Price.txt
      write -il $+ $calc(%n +1) Price.txt %t
      did -d ps 1 %n
      did -i ps 1 $calc(%n +1) %t
      did -c ps 1 $calc(%n +1)
    }
  }
  else { noop $input(Select a line to move down in the list,ow,Error) }
}
on *:DIALOG:ps:sclick:7:{
  if ($did(1).sel) {
    did -i ps 1 $did(1).sel $chr(32)
    write -il $+ $calc($did(1).sel -1) price.txt $chr(32)
  }
  else { noop $input(Select a line to add a seperator above it,ow,Error) }
}
dialog pc {
  title "Compare Prices"
  size -1 -1 208 142
  option dbu
  edit "", 1, 3 3 50 10, autohs
  button "Lookup", 2, 55 2 26 12
  edit "", 3, 107 3 50 10
  button "Lookup", 4, 159 2 26 12
  list 5, 0 16 100 54, size hsbar vsbar
  list 6, 104 16 100 54, size hsbar vsbar
  text "Item:", 17, 2 72 13 8
  text "", 18, 17 72 82 8
  text "Price:", 19, 2 82 13 8
  text "", 20, 17 82 85 8
  text "Category:", 21, 2 92 24 8
  text "", 22, 28 92 74 8
  text "Change:", 23, 2 102 21 8
  text "", 24, 25 102 76 8
  text "", 25, 121 82 85 8
  text "Price:", 26, 106 82 13 8
  text "Item:", 27, 106 72 13 8
  text "", 28, 121 72 82 8
  text "", 29, 132 92 74 8
  text "Category:", 30, 106 92 24 8
  text "Change:", 31, 106 102 21 8
  text "", 32, 129 102 76 8
  text "Difference in price:", 33, 41 121 46 8
  text "", 34, 89 121 85 8
  text "Difference in change:", 35, 35 131 52 8
  text "", 36, 89 131 85 8
  text "--------------------------------------------------------------------------------------------------------", 37, 0 112 209 8
  button "C", 41, 84 2 9 12
  button "C", 42, 188 2 9 12
  menu "File", 7
  item "On Top", 8, 7
  item break, 9, 7
  item "Exit", 10, 7
  menu "Search", 11
  item "Lookup 1", 12, 11
  item "Lookup 2", 15, 11
  item "Clear", 13, 11
}
on *:DIALOG:pc:close:*:{ .remove Temp }
on *:DIALOG:pc:sclick:5:{
  if ($did(5).sel) {
    if ($read(temp,s,$did(5).seltext)) {
      tokenize 124 $ifmatch
      did -a pc 18 $did(5).seltext
      did -a pc 20 $1
      did -a pc 22 $2
      did -a pc 24 $3
      if ($did(18) && $did(28)) {
        var %p11 = $remove($gettok($did(20),1,45),$chr(44),gp), %p12 = $remove($gettok($did(20),2,45),$chr(44),gp)
        var %p21 = $remove($gettok($did(25),1,45),$chr(44),gp), %p22 = $remove($gettok($did(25),2,45),$chr(44),gp)
        if (%p12 && %p22) {
          if (%p12 > %p22) { did -ra pc 34 < $bytes($remove($calc(%p11 - %p21),-),db) - $bytes($remove($calc(%p12 - %p22),-),db) $+ gp }
          else { did -ra pc 34 > $bytes($remove($calc(%p21 - %p11),-),db) - $bytes($remove($calc(%p22 - %p12),-),db) $+ gp }
        }
        else {
          if (%p11 > %p12) { did -ra pc 34 < $bytes($remove($calc(%p11 - %p21),-),db) $+ gp }
          else { did -ra pc 34 > $bytes($remove($calc(%p11 - %p21),-),db) $+ gp }
        }
        var %c1 = $remove($replace($did(24),decreased by,-,none,0),increased by,$chr(32),$chr(44),gp), %c2 = $remove($replace($did(32),decreased by,-,none,0),increased by,$chr(32),$chr(44),gp)
        if (%c1 > %c2) { did -ra pc 36 $bytes($calc(%c1 - %c2),db) $+ gp }
        else { did -ra pc 36 $bytes($calc(%c2 - %c1),db) $+ gp }
      }
    }
  }
}
on *:DIALOG:pc:sclick:6:{
  if ($did(6).sel) {
    if ($read(temp,s,$did(6).seltext)) {
      tokenize 124 $ifmatch
      did -a pc 28 $did(6).seltext
      did -a pc 25 $1
      did -a pc 29 $2
      did -a pc 32 $3
      if ($did(18) && $did(28)) {
        var %p11 = $remove($gettok($did(20),1,45),$chr(44),gp), %p12 = $remove($gettok($did(20),2,45),$chr(44),gp)
        var %p21 = $remove($gettok($did(25),1,45),$chr(44),gp), %p22 = $remove($gettok($did(25),2,45),$chr(44),gp)
        if (%p12 && %p22) {
          if (%p12 > %p22) { did -ra pc 34 < $bytes($calc(%p11 - %p21),db) - $bytes($calc(%p12 - %p22),db) $+ gp }
          else { did -ra pc 34 > $bytes($calc(%p21 - %p11),db) - $bytes($calc(%p22 - %p12),db) $+ gp }
        }
        else {
          if (%p11 > %p12) { did -ra pc 34 < $bytes($calc(%p11 - %p21),db) $+ gp }
          else { did -ra pc 34 > $bytes($calc(%p11 - %p21),db) $+ gp }
        }
        var %c1 = $remove($replace($did(24),decreased by,-,none,0),increased by,$chr(32),$chr(44),gp), %c2 = $remove($replace($did(32),decreased by,-,none,0),increased by,$chr(32),$chr(44),gp)
        if (%c1 > %c2) { did -ra pc 36 $bytes($calc(%c1 - %c2),db) $+ gp }
        else { did -ra pc 36 $bytes($calc(%c2 - %c1),db) $+ gp }
      }
    }
  }
}
on *:DIALOG:pc:menu:8:{
  if ($did(8).state) {
    did -u pc 8
    dialog -n pc
  }
  else {
    did -c pc 8
    dialog -o pc
  }
}
on *:DIALOG:pc:menu:10:{
  .remove Temp
  dialog -x pc
}
on *:DIALOG:pc:sclick,menu:2,12:{
  if ($did(1)) {
    if ($sock(price2)) {
      if ($input(The Compare Price socket is already connected $+ $crlf $+ $crlf $+ Close socket and continue search?,yw,Connection already open)) {
        sockclose price2
        goto end
      }
      halt
    }
    :end
    set %pc.num 5
    sockopen price2 www.zybez.net 80
  }
  else { noop $input(Supply an item to lookup,ow,Error) }
}
on *:DIALOG:pc:sclick,menu:4,15:{
  if ($did(3)) {
    if ($sock(price2)) {
      if ($input(The Compare Price socket is already connected $+ $crlf $+ $crlf $+ Close socket and continue search?,yw,Connection already open)) {
        sockclose price2
        goto end
      }
      halt
    }
    :end
    set %pc.num 6
    sockopen price2 www.zybez.net 80
  }
  else { noop $input(Supply an item to lookup,ow,Error) }
}
on *:DIALOG:pc:sclick,menu:13,41,42:{
  did -r pc 5,6,18,20,22,24,25,28,29,32,34,36
  .remove temp
}
on *:SOCKOPEN:price2:{
  sockwrite -n $sockname GET /priceguide.php?search_terms= $+ $replace($did(pc,$iif(%pc.num == 5,1,3)),$chr(32),+) $+ &search_area=1&price_low=0&price_high=0&member=1&all_prices=1&sortby=name&sort=ASC&ppage=200 HTTP/1.1
  sockwrite -n $sockname Host: www.zybez.net
  sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:price2:{
  if ($sockerr) { return }
  else {
    var %read
    sockread %read
    if (*<!--name-->* iswm %read) { set %p.n $nohtml(%read) }
    if ($regex(%read,/<td class="tablebottom" title="Former average price: (.*)gp (.*)"><img src="(.*)" alt="This price has/Si)) { set %p.f $remove($regml(2),[,]) }
    if (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %read) { set %p.c $nohtml(%read) }
    if (*<!--price-->* iswm %read) {
      write Temp %p.n $chr(124) $nohtml(%read) $chr(124) $iif(%p.c,$ifmatch,None) $chr(124) $iif(%p.f,$ifmatch,None))
      did -a pc %pc.num %p.n
      unset %p.*
      did -z pc %pc.num
    }
    if (*<!-- Search Results: End -->* iswm %read) { unset %p.* %pc.* }
  }
}
dialog pr {
  title "Results Display"
  size -1 -1 112 50
  option dbu
  check "Enable", 1, 3 3 25 10
  button "Help", 2, 68 36 17 12
  text "Display:", 3, 5 15 19 8
  edit "", 4, 2 23 108 10, autohs
  button "Ok", 5, 8 36 24 12, ok
  button "Cancel", 6, 36 36 24 12, cancel
}
on *:DIALOG:pr:init:*:{
  if (!$readini(price.ini,-n,S,D)) { did -c pr 1 }
  if ($readini(price.ini,-n,S,M)) { did -ra pr 4 $ifmatch }
}
on *:DIALOG:pr:sclick:2:{ dialog -ma prh prh }
on *:DIALOG:pr:sclick:5:{
  writeini -n price.ini S D $iif($did(1).state,0,1)
  if ($did(1).state) { did -u price 22 }
  if ($did(4)) { writeini -n price.ini S M $strip($did(4)) }
  else { noop $input(No text was entered for the custom display $+ $crlf $+ $crlf $+ Saving of result display cancelled,ow,Error) }
}
dialog prh {
  title "RD Help"
  size -1 -1 153 65
  option dbu
  text "Result Replacers:", 1, 2 2 42 8
  text "*item* = item name", 2, 2 14 48 8
  text "*price* = price of item", 3, 2 24 54 8
  text "*cat* = category", 4, 2 34 42 8
  text "*change* = change of price", 5, 2 44 68 8
  text "| | | | | | | | | |", 6, 72 1 2 62
  text "Color is not allowed and will be stripped when it is saved", 7, 77 3 73 13
  text "Result Replacers can be touching items other than itself", 8, 77 19 73 20
  text "When a category/change does not exist, the returning text will be 'None'", 9, 77 42 73 20
}
alias rainbow {
  var %a = $reverse($$1), %b = 1, %c = 1, %d
  while ($len(%a) >= %b) {
    set %d $+($chr(03),$read(Rainbow.txt,$calc(%c - 1)),$mid(%a,%b,1)) $+ %d
    $iif(%c == 7, set %c 1, inc %c)
    inc %b
  }
  return %d
}
alias reverse {
  var %a = $strip($$1), %b = 1, %c
  while ($len(%a) >= %b) {
    set %c $mid(%a,%b,1) $+ %c
    inc %b
  }
  return %c
}
on *:LOAD:{
  if ($lines(Rainbow.txt) < 7) {
    write -c Rainbow.txt 4
    write Rainbow.txt 7
    write Rainbow.txt 8
    write Rainbow.txt 9
    write Rainbow.txt 12
    write Rainbow.txt 2
    write Rainbow.txt 13
  }
}
alias favorites { 
  if ($1 == SwiftIRC) { 
    var %x = 1 
    while ($lines(Channel.txt) >= %x) { 
      join $read(Channel.txt,%x) 
      inc %x 
    } 
  } 
} 
menu status,channel,query { 
  $me 
  .Favorites:{ 
    favorites $network 
  } 
}
alias amsg { 
  var %a = 1 
  while ($chan(0) >= %a) { 
    hinc All Message 
    msg $chan(%a) $$1- $+($chr(91),AMSG: $hget(All, Message),$chr(93)) 
    inc %a 
  } 
}