HellBot

By Aurora801 on Mar 05, 2009

This script is using multiple scripts put together along with some person scripts. Credit currently remembered: Moo.dll, and Hawkee Snippet posts. Paste in REMOTE

on *:TEXT:Hi.:#: .msg # Hello, $nick $+ !
on *:TEXT:*connor*:#: .msg Connor &nick Has said your name.
on *:TEXT:*Aurora*:#: .msg Connor &nick Has said your name.
on *:TEXT:*connor*:#: .msg Aurora &nick Has said your name.
on *:TEXT:*Aurora*:#: .msg Aurora &nick Has said your name.
on *:JOIN::$active: .msg $active Hello, $nick !
on *:PART:#: .msg $chan &nick Has Left %chan
on *:input:*: { if ($1 = lol) { .msg $active 04,01(07,01-08,01=04,01L07,01aughing 04,01O07,01ut 04,01L07,01oud04,01!!!08,01=07,01-04,01) } }
on *:input:*: { if ($1 = Lol.) { .msg $active 04,01(07,01-08,01=04,01L07,01aughing 04,01O07,01ut 04,01L07,01oud04,01!!!08,01=07,01-04,01) } }
on *:input:*: { if ($1 = Now Playing: Empty Walls) { .msg $active (-Now Playing: Empty Walls --Serj Tankian (http://www.playlist.com/aurora801) HHMP-) } }
on *:input:*: { if ($1 = Now Playing: Whatever) { .msg $active (-Now Playing: Whatever --GodSmack (http://www.playlist.com/aurora801) HHMP-) } }
on *:text:!calc*:#: {
  if $1 == %c $+ .c {
    if $2 == %c $+ $null { /calc $2-  | halt }
    else { /calc $2- | halt }
  }
}

alias calc {
  if ($1- != $null) {
    msg $chan  01,04(14,04-15,04|14,04Calculating00,04:01,04 $1- 15,04|14,04-01,04)
    msg $chan  01,04(14,04-15,04|14,04Result15,04|14,04-01,04)00,04== $calc($1-) 
  }
  else msg $chan 01,04(14,04-15,04|14,0Calculater15,04|14,04-01,04) : No parameters given. Halting.
}

on *:OP:# $me: {
  if ($opnick = $me) 
  .echo -a ( $nick ) Oped you in ( $chan )
  .msg $chan Thanks, ( $nick )For The Op (+o)!!
}
on *:input:*: {
  if ($1 = !google) && ($2) {
    if ($chan = $null) {
      run http://www.google.com/search?q= $+ $htmlfrm($2-)
      halt
    }
    run http://www.google.com/search?q= $+ $htmlfrm($2-)
    halt 
  }
}
on *:text:*!google*:*: {
  if ($chan = $null) {
    notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
    halt
  }
  notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
}
alias htmlfrm {
  var %i = 1,%r
  while (%i <= $len($1-)) {
    if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
    else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
    inc %i
  }
  return %r
}
on *:input:*: { 
  ;Connor's Hell Membership Script 
  on *:TEXT:*shit*:#: {
    .notice $nick You have said the word and/or a sentance involving the word "Shit". Congradulations! You've been Accepted to Hell. 
    .mode +v $chan $nick 
    .msg ChanServ VOP $chan ADD $nick 
    .msg $nick You've been added to the $chan Voice (VOP) List. 
    .msg $chan $nick has been added to the $chan Voice (VOP) List. 
  }

    on *:TEXT:!stats:#: {
      var %key = $+($network,#,$nick)
      msg # You wrote $hget(stats,$+(%key,words)) words and $hget(stats,$+(%key,letters)) letters
    }
    on 1:exit:hsave -a Stats Letter-Stats
    on 1:start:hsave -a Stats Letter-Stats
    on *:TEXT:*:#: {
      hadd -m stats $+($network,#,$nick,words) $0
      hadd -m stats $+($network,#,$nick,letters) $len($1-)
    }
    ;Seen snippet v. 2.0 by Russel Bairstow (RusselB)
    ;last changes Apr. 27, 2005
    on *:start:{ 
      .hmake seen 100 
      if $exists(seen.hsh) { .hload seen seen.hsh } 
    } 
    on *:connect:{
      if !$hget(seen) { .hmake seen 100 }
      if $exists(seen.hsh) { .hload seen seen.hsh } 
    } 
    on *:exit:{ hsave -o seen seen.hsh } 
    on *:disconnect:{ hsave -o seen seen.hsh } 
    on !*:join:#:{ 
      hadd -m seen $+(Name,$address) $addtok($hget(seen,$+(Name,$address)),$nick,32)
      hadd -m seen $+(Join,$address) $ctime 
      hadd -m seen $+(Room,$address) $chan 
      if $hget(seen,$+(seen,$address)) { 
        .msg $nick The following people have been looking for you: $hget(seen,$+(seen,$address)) 
        .hadd -m seen $+(seen,$address) 
      } 
    } 
    on *:text:!seen &:*: {
      hadd -m seen $+(Text,$address) $ctime 
      var %address = $hfind(seen,$+(Name,$right($address($2,3),-3)),1,w)
      var %chan = $hget(seen,$+(Room,%address))
      if $2 ison %chan { 
        var %text = $hget(seen,$+(Text,%address)) 
        var %action = $hget(seen,$+(Action,%address)) 
        var %msg = $iif((%text > %action),saying something at $asctime(%text),performing an action at $asctime(%action))
        .msg $nick I last saw $2 %msg
      } 
      else { 
        hadd -m seen $+(seen,%address) $addtok($hget(seen,$+(Seen,%address)),$nick,32)
        var %part = $gettok($hget(seen,$+(Part,%address)),1,32)
        var %quit = $gettok($hget(seen,$+(Quit,%address)),1,32)
        var %kick = $gettok($hget(seen,$+(Kick,%address)),1,32)
        if (%part > %quit) && (%part > %kick) {       .msg $nick I last saw $2 parting %chan at $asctime(%part) with the message $remtok($hget(seen,$+(Part,%address)),$gettok($hget(seen,$+(Part,%address)),1,32),1,32)    } 
        elseif (%quit > %part) && (%quit > %kick) {       .msg $nick I last saw $2 quitting %chan at $asctime(%quit) with the message $remtok($hget(seen,$+(Quit,%address)),$gettok($hget(seen,$+(Quit,%address)),1,32),1,32)        } 
        else .msg $nick I last saw $2 being kicked from %chan at $asctime(%kick) by $gettok($hget(seen,$+(Kick,%address)),-1,32)
      } 
    } 
    on *:text:*:*:{  hadd -m seen $+(Text,$address) $ctime } 
    on *:nick:{   hadd -m seen $+(Name,$address) $addtok($hget(seen,$+(Name,$address)),$newnick,32) }
    on *:action:*:*:{  hadd -m seen $+(Action,$address) $ctime } 
    on *:part:#:{ 
      hadd -m seen $+(Part,$address) $ctime $1-
      hsave -o seen seen.hsh
    } 
    on *:quit:{ 
      hadd -m seen $+(Quit,$address) $ctime $1-
      hsave -o seen seen.hsh
    } 
    on *:kick:#:{ 
      hadd -m seen $+($knick,$gettok($address($knick,5),2,33)) $ctime $nick
      hsave -o seen seen.hsh
    } 
    on $*:text:/^[!](w|weather|f|forecast)/Si:#: {
      if ($group(#weather) == on) { msg $chan Please wait a bit }
      if ($group(#weather) == off) {
        if ($istok(!w !weather,$1,32)) {
          if ($2 isnum && $len($2) = 5 && !$3) { 
            set %whzip $2 | set %whchan $chan | .enable #weather
            sockopen weather www.weather.com 80 
          }
          if ($2 isnum && $len($2) = 5 && $3 == forecast) { 
            set %whzip $2 | set %whfc on | set %whchan $chan
            .enable #weather | sockopen weather www.weather.com 80
          }
        }
        if ($istok(!f !forecast,$1,32)) { 
          if ($2 isnum && $len($2) = 5) {
            set %whzip $2 | set %whfc on | set %whchan $chan
            .enable #weather | sockopen weather www.weather.com 80
          }
        }
      }
    }
    ; Usage /weatherm 12345 or /weatherm 12345 forecast
    alias weatherm {
      if ($active ischan) {
        if ($1 isnum && $len($1) == 5) {
          if (!$2) { set %whzip $1 | set %whchan $chan | .enable #weather }
          if ($2) { set %whzip $1 | set %whfc on |  set %whchan $chan | .enable #weather }
          sockopen weather www.weather.com 80
        }
      }
      if ($active !ischan) { echo -a Invalid window. (Use a channel window) }
    }
    #weather off
    on *:sockopen:weather: {
      sockwrite -n $sockname GET /outlook/travel/businesstraveler/local/ $+ %whzip $+ ?lswe= $+ %whzip $+ &lwsa=Weather36HourBusinessTravelerCommand&from=searchbox_localwx
      sockwrite -n $sockname Host: www.weather.com
      sockwrite -n $sockname Connection: close
      sockwrite -n $sockname Authorization: Basic 
      sockwrite -n $sockname $crlf
    }
    on *:sockread:weather: {
      sockread %whtemp
      if (Right Now for isin %whtemp) { set %whloc $remove($nohtml(%whtemp),Right Now for,Save Location,$chr(9)) }
      if (%whfc != on) {    
        if (alt=""/><br/><strong class="obsTextA"> isin %whtemp) { set %whcond $remove($nohtml(%whtemp),$chr(9)) }
        if (<strong class="obsTempTextA"> isin %whtemp) { set %whcurrent $remove($nohtml(%whtemp),&deg;F,$chr(9)) }
        if (Feels Like isin %whtemp) { set %whfeels $remove($nohtml(%whtemp),&deg;F,Feels Like,$chr(9)) }
        if (class="updated">Updated: isin %whtemp) { set %whupdated $remove($nohtml(%whtemp),Updated:,$chr(9)) }
        if (class="crowli">UV Index: isin %whtemp) { set %whuvindex $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
        if (class="crowli">Wind: isin %whtemp) { set %whwind $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
        if (class="crowli">Humidity: isin %whtemp) { set %whhumidity $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
        if (class="crowli">Pressure: isin %whtemp) { set %whpressure $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
        $iif(*steady_pressure.gif">* iswm %whtemp,set %whpressure1 and steady,$iif(*up_pressure.gif">* iswm %whtemp, set %whpressure1 and rising,$iif(*down_pressure.gif">* iswm %whtemp,set %whpressure1 and dropping))))  
        if (class="crowli">Dew Point: isin %whtemp) { set %whdewpoint $remove($gettok($nohtml(%whtemp),2-,58),&deg;F,$chr(9)) }
        if (class="crowli">Visibility: isin %whtemp) { set %whvisibility $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
        if (class="crowli">Sunrise: isin %whtemp) { set %whsunrise $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
        if (class="crowli">Sunset: isin %whtemp) { set %whsunset $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
      }
      if (%whfc == on) { 
        if (STYLE="padding:5px 5px 5px 0px;"> isin %whtemp) { inc %xx 1 | set %whfcond $+ %xx $remove($nohtml(%whtemp),$chr(9)) }
        if (class="whiteArialLink11"><B> isin %whtemp) { inc %xxx 1 | set %whfdays $+ %xxx $remove($nohtml(%whtemp),$chr(32),$chr(9)) }
        if (class="blueVerdanaText11" align="left"> isin %whtemp) { inc %xxxx | set %whfprecip $+ %xxxx $remove($nohtml(%whtemp),$chr(32),$chr(9)) }
        if (align="center" class="blueVerdanaText11"> isin %whtemp) { inc %xxxxx | set %whfsuns $+ %xxxxx $remove($nohtml(%whtemp),$chr(9)) }
      }
    }
    on *:sockclose:weather: {
      if (!%whloc) { msg %whchan Please try another zipcode as that does not exists. | unset %wh* | .disable #weather }
      else {
        msg %whchan $colored(Location:,4) %whloc
        if (%whfc != on) {
          set %whcurrentc $+($round($calc((%whcurrent - 32) * (5 / 9)),0),$chr(176),C)
          set %whfeelsc $+($round($calc((%whfeels - 32) * (5 / 9)),0),$chr(176),C)
          set %whdewpointc $+($round($calc($calc($calc(%whdewpoint) - 32) * $calc(5 / 9)),0),$chr(176),C)
          msg %whchan $colored(Currently:,12) $+(%whcurrent,$chr(176),F) $chr(47) %whcurrentc $colored(Feels like:,12) $+(%whfeels,$chr(176),F) $chr(47) %whfeelsc
          msg %whchan $colored(Conditions:,3) %whcond $colored(Pressure:,3) %whpressure %whpressure1 $colored(Humidity:,3) %whhumidity
          msg %whchan $colored(Visibility:,3) %whvisibility $colored(UV Index:,3) %whuvindex $colored(Wind:,3) %whwind 
          msg %whchan $colored(Dew Point:,3) $+(%whdewpoint,$chr(176),F) $chr(47) %whdewpointc $colored(Sunrise:,3) %whsunrise $colored(Sunset:,3) %whsunset
          msg %whchan $colored(Last Updated:,3) %whupdated $colored(Info From:,3) www.weather.com
          unset %wh* | .disable #weather
        }
        if (%whfc == on) {
          msg %whchan $colored($+(%whfdays1,:),3) Precip: $remove(%whfprecip1,$chr(32)) %whfsuns1
          msg %whchan $colored($+(%whfdays1,:),3) %whfcond1
          msg %whchan $colored($+(%whfdays2,:),3) Precip: $remove(%whfprecip2,$chr(32)) %whfsuns2
          msg %whchan $colored($+(%whfdays2,:),3) %whfcond2
          msg %whchan $colored($+(%whfdays3,:),3) Precip: $remove(%whfprecip3,$chr(32)) %whfsuns3
          msg %whchan $colored($+(%whfdays3,:),3) %whfcond3
          msg %whchan $colored(Info From:,3) www.weather.com
          unset %wh* %whf* %x* | .disable #weather
        }
      }
    }
    ; Usage: $colored(TEXT,N1,N2) or $colored(TEXT,N1,N2).b
    ; N1 & N2 are both optional.
    alias colored { if ($isid) { return $+($iif($prop = b,$chr(2)),$iif($2 isnum 0-15,$+($chr(3),$iif($len($2) == 1,$+($chr(48),$2),$2))),$iif($3 isnum 0-15,$+($chr(44),$iif($len($3) == 1,$+($chr(48),$3),$3))),$1,$chr(15)) } }
    alias -l nohtml {
      var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
      return %x
    }
    #weather end                    
    on *:Load: { dialog -m op op }
    dialog op {
      title "Operator "   
      size 35 40 500 75
      button "+mMRc", 1, 0 0 60 30
      button "-mMRc", 2, 60 0 60 30
      button "Kick",3, 120 0 32 30
      button "Ban",4, 152 0 33 30
      button "+M", 5, 185 0 30 25
      button "+R", 6, 185 25 30 24
      button "+c", 7, 185 49 30 24
      button "-M", 8, 215 0 30 25
      button "-R", 27, 215 25 30 24
      button "-c", 10, 215 49 30 24
      button "+o", 11, 245 0 30 25
      button "+v", 12, 245 25 30 24
      button "-o", 13, 275 0 30 25
      button "-v", 14, 275 25 30 24
      button "whois", 15, 275 49 30 24
      button "ping", 16, 245 49 30 24
      button "Aop Add",17, 305 0 60 25
      button "Aop deL",18, 305 25 60 24
      button "Sop Add",19, 365 0 60 25
      button "Sop deL",20, 365 25 60 24
      button "Akick Add",21, 305 49 60 24
      button "Akick Add",22, 365 49 60 24
      button "NickServ Info",23, 425 37 75 36
      button "ChanServ Info",24, 425 0 75 36
      button "Kick + Ban",25, 120 30 65 43
      text "Made by `Kazuma; Channel Serv/Oper Controls",26, 0 30 120 43
    }
    on *:DIALOG:operator:sclick:11:{
      if ($me isop $active) {
        mode $active +o $$?="Give op to who?"
      }
    }
    on *:DIALOG:operator:sclick:13:{
      if ($me isop $active) {
        mode $active -o $$?="DeOp Who?"
      }
    }
    on *:DIALOG:operator:sclick:12:{
      if ($me isop $active) {
        mode $active +v $$?="Give voice to who?"
      }
    }
    on *:DIALOG:operator:sclick:14:{
      if ($me isop $active) {
        mode $active -v $$?="DeVoice Who?"
      }
    }
    on *:DIALOG:operator:sclick:3:{
      if ($me isop $active) {
        kick $active $$?="Kick who?" Random Kick

      }
    }
    on *:DIALOG:operator:sclick:4:{
      if ($me isop $active) {
        ban $active $$?="Ban who?" 4

      }
    }
    on *:DIALOG:operator:sclick:15:{
      whois $snick $$?="/whois Who?"
    }
    on *:DIALOG:operator:sclick:16:{
      ctcp $$?="Ping who?" ping
    }
    on *:DIALOG:operator:sclick:5:{
      mode $active +M
    }
    on *:DIALOG:operator:sclick:1:{
      mode $active +mMRc
    }
    on *:DIALOG:operator:sclick:2:{
      mode $active -mMRc
    }
    on *:DIALOG:operator:sclick:8:{
      mode $active -M
    }
    on *:DIALOG:operator:sclick:7:{
      mode $active +c
    }
    on *:DIALOG:operator:sclick:6:{
      mode $active +R
    }
    on *:DIALOG:operator:sclick:27:{
      mode $active -R
    }
    on *:DIALOG:operator:sclick:14:{
      mode $active -V
    }
    on *:DIALOG:operator:sclick:10:{
      mode $active -c
    }
    on *:DIALOG:operator:sclick:25:{
      ban $active $$?="Ban who?" 4
      kick $active $$?="Kick Who?" K+ban in affect!
    }
    on *:DIALOG:operator:sclick:26:{
      chanserv op $active $$?="Use chanserv to give OP to who?"
    }
    on *:DIALOG:operator:sclick:23:{
      nickserv info $$?="Info on who?" ALL
    }
    on *:DIALOG:operator:sclick:24:{
      chanserv info $active ALL
    }
    on *:DIALOG:operator:sclick:17:{
      chanserv aop $active add $$?="Who to add to AOP?"
    }
    on *:DIALOG:operator:sclick:18:{
      chanserv aop $active del $$?="Del Who from AOP?"
    }
    on *:DIALOG:operator:sclick:19:{
      chanserv sop $active add $$?="Who to add to SOP?"
    }
    on *:DIALOG:operator:sclick:20:{
      chanserv sop $active del $$?="Del Who from SOP?"
    }
    on *:DIALOG:operator:sclick:21:{
      chanserv akick $active add $$?="Add Who to akick? ex; Guest09218 - or host? ex; *!*@*.fl.comcast.net"
    }
    on *:DIALOG:operator:sclick:22:{
      chanserv akick $active del $$?="Delete who from akick; or what host?"
    }
    menu channel {
      -
      Oper Control:/dialog -m op op
    }

    /*
    Documentation;
    Snippet;Mp3 advertising
    Author;Kyou./XN.
    Release;10;20;07
    ******************************
    Dialog that allows you to message to all channels the active mp3 status. You can check off which status options you'd like to display, giving you an easy to use and vast interface. Once you have viewed and selected your choice. Click Go! and it will broadcast the current mp3's status based on your selection. Type: /broad.open to open the dialog. 
    NOTE -- The mp3 player broadcasting dialog won't open unless you are in an active mp3 already. Also, the dialog will close when the mp3 ends. ;) --
    Product of Kyousoukyoku/XteNsion. Ripping is fobidden, don't try it.
    */

    dialog mp3advertising {
      title "Mp3 adv."
      size -1 -1 245 83
      option pixels
      check "Title", 1, 4 7 51 17
      check "Artist", 2, 63 6 51 17
      check "Length", 3, 122 6 51 17
      check "Track", 4, 4 30 51 17
      check "Album", 5, 62 30 51 17
      check "Mode", 6, 123 30 51 17
      check "Size", 7, 181 6 51 17
      check "Freq.", 8, 181 30 51 17
      edit "", 9, 4 55 179 20, read autohs
      button "Go!", 10, 184 53 44 21, ok
    }

    on *:dialog:mp3advertising:sclick:*:{
      if ($did = 1) { 
        if ($did($dname, 1).state = 1) { 
          set %mp3status $addtok(%mp3status, - Title: $sound($insong.fname).title, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 1).state = 0) { 
          set %mp3status $remove(%mp3status, - Title: $sound($insong.fname).title)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 2) { 
        if ($did($dname, 2).state = 1) { 
          set %mp3status $addtok(%mp3status, - Artist: $sound($insong.fname).artist, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 2).state = 0) { 
          set %mp3status $remove(%mp3status, - Artist: $sound($insong.fname).artist)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 3) { 
        if ($did($dname, 3).state = 1) { 
          set %mp3status $addtok(%mp3status, - Length: $gmt($calc($insong.length / 1000),nn:ss), 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 3).state = 0) { 
          set %mp3status $remove(%mp3status, - Length: $gmt($calc($insong.length / 1000),nn:ss))
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 4) { 
        if ($did($dname, 4).state = 1) { 
          set %mp3status $addtok(%mp3status, - Track: $sound($insong.fname).track, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 4).state = 0) { 
          set %mp3status $remove(%mp3status, - Track: $sound($insong.fname).track)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 5) { 
        if ($did($dname, 5).state = 1) { 
          set %mp3status $addtok(%mp3status, - Album: $sound($insong.fname).album, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 5).state = 0) { 
          set %mp3status $remove(%mp3status, - Album: $sound($insong.fname).album)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 6) { 
        if ($did($dname, 6).state = 1) { 
          set %mp3status $addtok(%mp3status, - Mode: $sound($insong.fname).mode, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 6).state = 0) { 
          set %mp3status $remove(%mp3status, - Mode: $sound($insong.fname).mode)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 8) { 
        if ($did($dname, 8).state = 1) { 
          set %mp3status $addtok(%mp3status, - Frequency: $sound($insong.fname).bitrate $+ kbps, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 8).state = 0) { 
          set %mp3status $remove(%mp3status, - Frequency: $sound($insong.fname).bitrate $+ kbps)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 7) { 
        if ($did($dname, 7).state = 1) { 
          set %mp3status $addtok(%mp3status, - Size: $bytes($file($insong.fname).size).suf, 32)
          did -ra $dname 9 %mp3status
        }
        elseif ($did($dname, 7).state = 0) { 
          set %mp3status $remove(%mp3status, - Size: $bytes($file($insong.fname).size).suf)
          did -ra $dname 9 %mp3status
        }
      }
      if ($did = 10) { amsg Active mp3 %mp3status }
    }
    on *:MP3END:{ if ($dialog(mp3advertising)) { dialog -x mp3advertising mp3advertising } }
    alias broad.open { if ($inmp3) { dialog $iif($dialog(mp3advertising),-v mp3advertising mp3advertising, -m mp3advertising mp3advertising) } } 
    on *:dialog:mp3advertising:close:0:{ unset %mp3status }
  }
  menu * {
    PuNkTuReDs Port Scanner:dialog -dm p.scanner p.scanner
  }
  ;-----------------------------------------------------------------------------------------------------------dialog
  dialog p.scanner {
    title "Port Scanner Settings"
    size -1 -1 170 60
    option dbu
    box "", 1, 2 2 166 56
    text "Currently Scanning:", 2, 5 10 50 8
    text "", 3, 55 10 40 8
    text "Scanning Port Range:", 4, 5 18 60 8
    text "", 5, 58 18 40 8
    text "IP to scan:", 6, 5 27 30 8
    edit "", 7, 35 26  60 10, autohs
    text "Port Range:", 8, 5 37 30 8
    text "From:", 9, 5 48 13 8
    edit "", 10, 18 46  30 10, autohs
    text "To:", 11, 48 48 8 8
    edit "", 12, 56 46 30 10, autohs
    button "My Ports", 13, 100 10 30 8
    button "Scan", 14, 100 22 30 8
    button "Close", 15, 100 34 30 8, cancel
    text "Show:", 16, 135 10 20 8
    radio "Open", 17, 135 20 30 8,
    radio "Closed", 18, 135 30 30 8,
    radio "All", 19, 135 40 30 8,
  }
  on *:dialog:p.scanner:sclick:*: {
    if $did = 13 { did -r p.scanner 3 | did -a p.scanner 3 $ip | did -r p.scanner 7 | did -a p.scanner 7 $ip }
    if $did = 14 { 
      set %p.scanner.from $did(p.scanner,10) 
      set %p.scanner.to $did(p.scanner,12) 
      did -r p.scanner 5
      did -a p.scanner 5 %p.scanner.from $+ / $+ %p.scanner.to
      set %p.scanner.ip $did(p.scanner,7) 
      dialog -dm p.scanner.show p.scanner.show
      %a = %p.scanner.from 
      p.scanner.start 
    }
    if $did = 17 { set %p.scanner.show Open }
    if $did = 18 { set %p.scanner.show Closed }
    if $did = 19 { set %p.scanner.show All }
  }
  dialog p.scanner.show {
    title "Port Info"
    size -1 -1 110 60
    option dbu
    box "", 1, 2 2 106 56
    list 2, 4 7 102 55, autohs
  }
  alias p.scanner.start { 
    while %a <= %p.scanner.to {
      //sockopen $($+(p,.,scanner,$($+(%,a),2))) $($+(%,p,.,scanner,.,ip),2) %a 
      halt
    }
    halt
  }
  ;-----------------------------------------------------------------------------------------------------------socket open
  on *:sockopen:$($+(p,.,scanner,$($+(%,a),2))): {
    if ($sockerr) { 
      if (%p.scanner.show == Open) {
        sockclose $($+(p,.,scanner,$($+(%,a),2)))
        inc %a 
        p.scanner.start
      }
      if (%p.scanner.show == Closed) || (%p.scanner.show == All) {
        did -a p.scanner.show 2 Port $($+(%,a),2) is Closed on %p.scanner.ip 
        sockclose $($+(p,.,scanner,$($+(%,a),2)))
        inc %a
        p.scanner.start
      }
    }
    else { 
      if (%p.scanner.show == Open) || (%p.scanner.show == All) {
        did -a p.scanner.show 2 Port $($+(%,a),2) is open on %p.scanner.ip 
        sockclose $($+(p,.,scanner,$($+(%,a),2)))
        inc %a
        p.scanner.start
      }
      if (%p.scanner.show == Closed) {
        sockclose $($+(p,.,scanner,$($+(%,a),2)))
        inc %a
        p.scanner.start
      }
    }
  }

  on *:TEXT:$( * $+ $me $+ * ):#: { 
    if ($away == $false) { halt } 
    elseif ( %flood [ $+ [ $address($nick,2) ] ] == on) { halt } 
    else { 
      notice $nick I am curruntly away. My awaytime is: $duration($awaytime) $+ . ( $+ $iif($awaymsg == $null, None, $awaymsg) $+ ) 
      window @hlmsg 
      aline @hlmsg ( $+ $nick @ $time on $date ( $+ $chan $+ )) $1- 
      set -u10 %flood [ $+ [ $address($nick,2) ] ] on 
    } 
  } 

  on *:TEXT:*:?: { 
    if ($away == $false) { halt } 
    elseif ( %flood [ $+ [ $address($nick,2) ] ] == on) { halt } 
    else { 
      msg $nick I am curruntly away. My awaytime is: $duration($awaytime) $+ . (Reason: $iif($awaymsg == $null, None, $awaymsg) $+ ) 
      window @qrymsg  
      aline @qrymsg ( $+ $nick @ $time on $date $+ ) $1- 
      set -u10 %flood [ $+ [ $address($nick,2) ] ] on 
    } 
  } 
  ;LagMeter v1.5
  on *:load:{ echo -a 4Noa Destiny's LAG METER v1.5 | echo -a 4Please type: /lag.open to begin. }
  alias lag.open {
    if ($window(@Lag).x == $null) || ($1 == reset) || ($1 == reopen) { 
      if ($window(@Lag).x != $null) { set %lag.x $window(@Lag).x | set %lag.y $window(@Lag).y }
      if ($1 == reopen) { window -c @Lag }
      if (%lag.x == $null) { set %lag.x 100 } | if (%lag.y == $null) { set %lag.y 100 }
      if ($1 != reset) { set %lag.tot 0 | set %lag.num 0 | window $iif($_vr(lagmeter,set.lag.top) == yes,-doapf,-apf) +f @Lag %lag.x %lag.y 160 135 @Lag }
      if (%set.lag.size != small) { drawpic -n @Lag 0 0 0 0 160 24 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ " }
      if ($1 == reset) {
        if (%set.lag.size == small) { 
          set %^lag.h 138
          :start1
          dec %^lag.h 3
          window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 %^lag.h
          if (%^lag.h !=< 24) goto start1
        }
        else {
          set %^lag.h 21
          :start2
          inc %^lag.h 3
          window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 %^lag.h
          if (%^lag.h !=> 135) goto start2
        }
      }
      if (%lag.tot == 0) { drawpic -n @Lag 0 0 0 0 160 135 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ " | set %lag.back $getdot(@Lag,80,70) }
      if (%set.lag.size == small) { 
        window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 24 
        drawpic @Lag 0 0 0 0 160 24 " $+ $findfile($mircdir,lagmeter2.jpg,1) $+ "
        set %lag.small.back $getdot(@Lag,95,12)
      }
      drawdot @Lag
    } 
    else { 
      if ($timer(Lag) != $null) { .timerLag off | return } 
    }
    if ($_vr(lagmeter,set.lag.delay) !isnum) { _vw lagmeter set.lag.delay 5 }
    if ($timer(Lag) == $null) && ($1 != reset) && ($1 != reopen) { lag.send | .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send }
    titlebar @Lag $server
  }
  alias lag.about {
    window -dohpkf +f @About?LagMeter $calc($window(-1).w / 2 - 200) $calc($window(-1).h / 2 - 150) 262 111 @About?LagMeter
    drawpic @About?LagMeter 0 0 " $+ $findfile($mircdir,lagabout1.jpg,1) $+ "
    window -doapf +f @About?LagMeter $calc($window(-1).w / 2 - 200) $calc($window(-1).h / 2 - 150) 262 111 @About?LagMeter
  }
  alias lag.menu.1 {
    if ($window(@Lag).x == $null) return &Open
    elseif ($timer(Lag) == $null) return &Unpause
    else return &Pause
  }
  alias lag.menu.2a {
    if ($window(@Lag).x != $null) return &Close
  }
  alias lag.menu.2b {
    if ($window(@Lag).x != $null) window -c @Lag
  }
  alias mouse { 
    if ($mouse.key == 1) { 
      if (%mouse.x == $null) || (%mouse.y == $null) halt
      set %^mouse.x $calc( [ $window($$1).x ] + [ $calc( [ $mouse.x ] - [ %mouse.x ] ) ] )
      set %^mouse.y $calc( [ $window($$1).y ] + [ $calc( [ $mouse.y ] - [ %mouse.y ] ) ] )
      window -r $$1 %^mouse.x %^mouse.y
    }
  }
  alias lag.send { .raw privmsg $me :T $ticks }
  alias lag.setup {
    if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
    if ($$?!="Start Lag Meter on Connect?" == $true)  _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
    if ($$?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
  }
  menu Status,menubar {
    -
    -=-=][iRC Lag Meter][=-=-
    .-
    .$lag.menu.1 $+ : lag.open
    .$lag.menu.2a $+ : $lag.menu.2b
    .$iif($window(@Lag).dh isnum,$iif($window(@Lag).dh == 24,&Bigger,S&maller)): {
      if ($window(@Lag).dh == 24) set %set.lag.size large
      if ($window(@Lag).dh == 135) set %set.lag.size small
      lag.open reset 
    }
    .-
    .&Setup
    ..Set &Delay Time ( $+ $_vr(lagmeter,set.lag.delay) $+ ) : if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
    ..Start Lag Meter on &Connect ( $+ $_vr(lagmeter,set.lag.open) $+ ) : if ($?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
    ..Lag Meter on &Top? ( $+ $_vr(lagmeter,set.lag.top) $+ ) : if ($?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
  }
  menu @About?LagMeter {
    dclick { window -c @About?LagMeter }
    sclick { window -c @About?LagMeter }
    &Close { window -c @About?LagMeter }
  }
  menu @Lag {
    dclick {
      if ($window(@Lag).dh == 24) set %set.lag.size large
      if ($window(@Lag).dh == 135) set %set.lag.size small
      lag.open reset 
    }
    sclick {
      if ( $inrect($mouse.x,$mouse.y,148,0,12,12) == $true ) {
        .timerlag off | window -c @Lag
        unset %mouse.x | unset %mouse.y
        halt
      }
      if ($window(@Lag).dh == 24) {
        if ( $inrect($mouse.x,$mouse.y,148,12,12,12) == $true ) {
          set %set.lag.size large
          lag.open reset 
          unset %mouse.x | unset %mouse.y
          halt
        }
      }
      else { 
        if ( $inrect($mouse.x,$mouse.y,123,1,23,22) == $true ) {
          lag.setup
          unset %mouse.x | unset %mouse.y
          halt
        }
        if ( $inrect($mouse.x,$mouse.y,148,12,12,12) == $true ) {
          set %set.lag.size small
          lag.open reset
          unset %mouse.x | unset %mouse.y
          halt
        }
      } 
      %mouse.x = $mouse.x | %mouse.y = $mouse.y
    }
    mouse { 
      mouse @Lag 
    }
    &About Lag Meter v1.5: lag.about
    -
    $lag.menu.1 $+ : lag.open
    $lag.menu.2a $+ : $lag.menu.2b
    $iif($window(@Lag).dh == 24,&Bigger,S&maller): {
      if ($window(@Lag).dh == 24) set %set.lag.size large
      if ($window(@Lag).dh == 135) set %set.lag.size small
      lag.open reset 
    }
    -
    &Setup
    .Set &Delay Time ( $+ $_vr(lagmeter,set.lag.delay) $+ ) : if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
    .Start Lag Meter on &Connect ( $+ $_vr(lagmeter,set.lag.open) $+ ) : if ($?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
    .Lag Meter on &Top? ( $+ $_vr(lagmeter,set.lag.top) $+ ) : if ($?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
  }
  raw 301:*: { if ($2 == $me) && ($timer(Lag) != $null) halt }
  on *:connect: { set %lag.num 0 | if ($_vr(lagmeter,set.lag.open) == on) { lag.open } }
  ctcp *:t: {
    if ($window(@Lag).x == $null) { .timerlag off | halt }
    if ($timer(Lag) == $null) { halt }
    if ($nick != $me) return
    if ($ticks <= $2) return
    set %^lag $left($round($calc(($ticks - $2) / 1000),3),5)
    inc %lag.num
    set %lag.tot $calc(%lag.tot + %^lag)
    set %^lag.avg $left($round($calc(%lag.tot / %lag.num),3),5)
    set %^lag.n %^lag *  127.5
    set %^lag.avg.n %^lag.avg *  127.5
    if ( %^lag.n > 255) {
      set %^lag.r  255
      set %^lag.g 510 - %^lag.n
    }
    else {
      set %^lag.g 255
      set %^lag.r %^lag.n
    }
    if ( %^lag.avg.n > 255) {
      set %^lag.avg.r 255
      set %^lag.avg.g 510 - %^lag.avg.n
    }
    else {
      set %^lag.avg.g 255
      set %^lag.avg.r %^lag.avg.n
    }
    if (%^lag.g < 0) set %^lag.g 0
    if (%^lag.r < 0) set %^lag.r 0
    set %^lag.color $rgb( %^lag.r , %^lag.g ,0)
    if (%^lag.avg.g < 0) set %^lag.avg.g 0
    if (%^lag.avg.r < 0) set %^lag.avg.r 0
    set %^lag.avg.color $rgb( %^lag.avg.r , %^lag.avg.g ,0)
    set %^lag.len $round($calc(105 - (%^lag * 20)),0)
    if (%^lag.len < 26) set %^lag.len 26
    drawscroll -n @Lag -3 0 11 25 138 82
    drawpic -nc @Lag 146 25 146 25 3 82 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ "
    ;drawline -rn @Lag %lag.back 3 147 26 147 105
    drawline -rn @Lag %^lag.color 3 147 %^lag.len 147 105
    drawpic -nc @Lag 23 123 23 123 113 10 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ "
    drawtext -ron @Lag %^lag.color Arial 16 23 120 %^lag
    drawtext -ron @Lag %^lag.avg.color Arial 16 105 120 %^lag.avg
    drawline -rn @Lag 16777215 1 11 85 149 85
    drawline -rn @Lag 16777215 1 11 65 149 65
    drawline -rn @Lag 16777215 1 11 45 149 45
    if ($window(@Lag).dh == 24) {
      set %^lag.len2 $round($calc(145 - (%^lag * 20)),0)    
      if (%^lag.len2 < 46) set %^lag.len2 46
      drawscroll -n @Lag 0 -3 45 3 100 18
      drawline -rn @Lag %lag.small.back 3 143 19 46 19
      drawline -rn @Lag %^lag.color 3 143 19 %^lag.len2 19
      drawline -rn @Lag 16777215 1 125 3 125 21
      drawline -rn @Lag 16777215 1 105 3 105 21
      drawline -rn @Lag 16777215 1 85 3 85 21
      drawline -rn @Lag 16777215 1 65 3 65 21
      drawpic -nc @Lag 11 1 11 1 31 22 " $+ $findfile($mircdir,lagmeter2.jpg,1) $+ "
      drawtext -ron @Lag %^lag.color Arial 16 11 -2 %^lag
      drawtext -ron @Lag %^lag.avg.color Arial 16 11 10 %^lag.avg
    }
    drawline @Lag
    halt
  }
  ;[read write data/setting.ini]
  alias _vr {
    if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
    return $readini data\setting.ini $1 $2 
  }
  alias _vw {
    if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
    writeini data\setting.ini $1 $2 $3-

    on *:LOAD: {
      echo -a 00,04Thank you for using 14,04C15,04onnor's 14,04H15,04ell14,04S15,04cript01,04.  
    }
    ;Connor's Hell Scripts.
    ;------Sexual Script---
    on *:TEXT:*suck me*:#:
    { 
      .notice $nick Why would they need to?? 
      .msg $chan ( $nick ) Has Requested that they be sucked, with the statement of " $1- ". 
      .msg $chan the previous Request that $nick made has been DENIED. 
      .notice $nick You're request of $1- Has been Denied. Please ask again later. :]
    }
    ;----Greeting Script---
    on *:TEXT:Hello*:#: {
      .notice $nick Hello ( $nick ).
      .msg $chan ( $nick ) Has Said [ $1- ].
    }
    ;---Hell Script---
    on *:TEXT:*hell*:#: {
      .notice $nick I Am Using HellIRC v2.0.1 Base 1 REALTiMe Networks IRC Client. (-~H.E.L.L.I.R.C.~-)
      .msg $chan ( $nick ) Has Said $1- .
      .notice $nick you're statement " $1- " Has been Approved.
      .msg $chan He's fucked up.. His statement of " $1- " Has been Approved.. What should we do?
      .action Kicks $nick In DeezNutz
      .msg $chan Parts taken From T.B.A.: TeaBaggersAnnounymous on Matrix ┬žigma Brutal Icestorm Relay Chat. Availible at http://www.freedomchat.net
    }
    ;--GoToHell v1.0.1
    on *:TEXT:!gto:#: {
      .action Go's to Hell.
      .msg $chan What now, ( $nick )?
      on *:TEXT:*:#:
      .msg $chan Yea.. I didn't think $nick had anything else.
    }
    ;---!Attempt Script
    on *:TEXT:Connor*Attempt*:#: {
      .msg $chan ( $nick ), Re:Attmpt
      .msg $chan your attempt cannot be processed at the current time. Please Try Again Later.
      .msg $chan ( $nick ) for further help, Type !ReAttempt
      .msg $chan Thank you ( $nick ) For your consideration. :]
    }
    on *:TEXT:!ReAttempt:#: {
      .msg $chan ( $nick ) Has Requested Assistance with the ReAttempt System.
      .msg $nick Current ReAttempts:
      .msg $nick !AttemptHelp ; !AttemptStart ; !AttemptHell ; !AttemptList
      .msg $nick Please check back often as more !Attempt commands are added.
      .msg $nick for a updated list of !Attempt type !AttemptList
      .msg $chan Thank you for your time, ( $nick ).
    }
    on *:TEXT:!AttemptHelp:#: {
      ( $7 = !AttemptHelp ; !AttemptStart ; !AttemptHell ; !AttemptList )
      .msg $chan ( $nick ) has requested help with the !Attempt System.
      .msg $nick Thank you for using the !Attempt System.
      .msg $nick Current Commands: ( $7 ).
      .msg $chan Current Commands: ( $7 ).
      .msg $chan ( $nick ) Has been helped with the !Attempt System.
    }
    ;---HellSing Script
    on *:TEXT:!HellSing:#:
    If( $2 = $nick )
    .msg $chan /-\WARNING!!! ( $nick ) Has Requested that HellSing Be Turned On!!!/-\
    .msg $nick the HellSing System is ON.
    .msg $chan (-^HellSing System OnLine.^-)
    .msg $chan Welcome To Hell.
    .msg $nick To turn off HellSing, Type !HellSingOff
    on *TEXT:!HellSingOff:$2:
    .msg $chan ( $nick ) Has Turned HellSing Off.
    .msg $chan (-^HellSing OffLine.^-)
    if ( $3 = !Hell )
    on *:TEXT:$3:#: {
      .msg $chan ( $nick ) Has Used the (~HELL~) Command.
      .msg $nick You have Activated the (~HELL~) System.
      .msg $chan (~HELL~) OnLine ( Authorized By $nick )
      .action 04,01UnLeashes Hell.

    }

    ;.oO{ moo script v3.17 by HM2K }Oo. - IRC@HM2K.ORG

    ;description:

    ;no more moo.dll! -- this script uses $com to lookup the WMI functions to return specified system information.

    ;moo script was originally created to display your system information via IRC, including: operating system, uptime, cpu, memory usage, graphics card, resolution, network details and hard drive details.

    ;installation:

    ;NOTICE: please unload and remove any old moo scripts, else this script may not work.

    ;make sure moo.mrc is in your $mircdir then type: /load -rs moo.mrc

    ;Please make sure you have the latest windows updates or the latest WMI core (http://www.microsoft.com/downloads/details.aspx?FamilyID=98a4c5ba-337b-4e92-8c18-a63847760ea5&DisplayLang=en)

    ;Also, please use the latest version of mIRC, ideally mIRC v6.16 and above...

    ;usage:

    ;for moo type: /moo or !moo (if enabled)

    ;for uptime only type: /up or !uptime (if enabled)

    ;history:

    ;moo script v3.17       - added moo cpu architecture descriptors on request of ROBERT PICARD

    ;moo script v3.16       - Added /stat and /statself (thanks TBF), and fixed local echoing.

    ;moo script v3.15       - Fixed a few bugs + Fixed the repeat checker + Out of beta

    ;moo script v3.14       - Change the WMI lookup location of the rammax inline with the ramuse.

    ;moo script v3.13       - Changed the ram function to use a more reliable WMI location, added OSArchitecture (osarc) for Vista, fixed CPU load to not return anything if there's no load.

    ;moo script v3.12       - Minor tweaks, a few code changes, added /moo echo and a few more functions.

    ;moo script v3.11       - Added some new features and made it easier to style the output, added some additional notes

    ;moo script v3.1        - Added the long awaited flood protection, simple lookup error checking, more/better functions, quicker script

    ;moo script v3.0        - The whole script was changed, no more moo.dll, it now uses WMI however this version MUST be run on mIRC v6.16 or above.

    ;[moo] script v2.27     - !moo trigger fix, now turned off by default to stop abuse

    ;[moo] script v2.26     - Lots of little changes made up till this version, including getmoo.

    ;[moo] script v2.23     - changed some alias' to alias -l, fixed small bugs, added new featuers

    ;[moo] script v2.22     - minor bug fixes, bold added etc.

    ;[moo] script v2.21     - added a feature to turn the !moo get and !getmoo on or off, and fixed a few bugs.

    ;[moo] script v2.2      - name change, completly changed the /moo and !moo system, should work better now, no mistakes.

    ;moo script v2.13       - still a few mistakes, changes made, mbm5 isn't functioning correctly...

    ;moo script v2.12       - many small changes and fixes made, mbm5 was fixed also.

    ;moo script v2.11       - simple bug fixes.

    ;moo script v2.1        - minor modifications, final public release.

    ;moo script v2.0        - New name, new style, new script, same idea.

    ;MooDll Script v1.21    - Many bug fixes, first public release

    ;MooDll Script v1.0     - Original private release, very simple, buggy.

    ;todo:

    ; - Fix the network traffic readings

    ; - Test on Windows Vista

    ;thanks to...

    ;Mark (from influenced.net) for the original concept and for letting me know that he was not creating a new moo.dll

    ;HndlWCare who inspired me to write this for saying: "moo.dll was written by a college student roommate of one of our ops who has admitted inserting a backdoor into it" -- none of this is true, there IS NO backdoor in moo.dll and just like there is NO backdoor in this script. HndlWCare you are an idiot.

    ;Moondawn for listening to me rant.

    ;and also the beta testers... square, ryguy, Petersen, OutCast3k and PRO1.

    ;--------------------------------------------------------------------------------------------------------

    ;SETTINGS - START

    ;--------------------------------------------------------------------------------------------------------

    ;moo banned channels - these are channels you don't want the triggers to function in

    alias -l moo.banchans return #php #windows #eztv

    ;moo style - use this to style the titles of the output

    alias -l moos return $+(,$1,:)

    ;--------------------------------------------------------------------------------------------------------

    ;SETTINGS - END

    ;--------------------------------------------------------------------------------------------------------

    ;NOTICE: DO NOT edit below unless you know what you're doing. If you do make any changes, please let me know! :)

    alias -l moover return moo script v3.17

    ;usage: /moo <moof (see below)>

    alias moo {

      if (!$1) { $iif($chan,msg $chan,say) $moor | return }

      if ($1 == echo) {

        if ($moof($2)) { var %moo.var $ifmatch | echo -a moo: %moo.var }

        else { echo -a $moor }

        return

      }

      if ($moof($1)) { var %moo.var $ifmatch | $iif($active == Status Window,echo -gta,$iif($chan,msg $chan,say)) moo: %moo.var }

    }

    ;added because of TBF 16/10/07

    alias stat moo $1-

    alias statself moo echo $1-

    ;moo return - use this to change the outputs, you can also style this for the whole output

    alias -l moor return moo: $iif($mooi(name),$moof(os) $moof(up) $moof(cpu) $moof(gfx) $moof(res) $moof(ram) $moof(hdd) $moof(net),lookup error)

    ;this section was created so you can easily change the options for what is returned

    ;moo functions - you can add or change the functions that the script can handle

    alias -l moof {

      if ($1 == os) { return $moos($1) $mooi(ostitle) - $mooi(ossp) $brak($mooi(osver)) }

      if ($1 == up) { return $moos($1) $duration($mooi(up)) }

      if ($1 == cpu) { return $moos($1) $mooi(cpuname) $brak($mooi(cpuarch)) at $mooi(cpuspeed) $mooi(cpuload) }

      if ($1 == gfx) { return $moos($1) $mooi(gfxmake) $mooi(gfxproc) $mooi(gfxram) }

      if ($1 == res) { return $moos($1) $mooi($1) $mooi(resbit) $mooi(resrate) }

      if ($1 == ram) { var %moo.rammax = $mooi(rammax) | var %moo.ramuse = $mooi(ramuse) | return $moos($1) $+($round($calc(%moo.rammax - %moo.ramuse),0),/,%moo.rammax,MB) $+($chr(40),$round($calc((%moo.rammax - %moo.ramuse) / %moo.rammax * 100),2),%,$chr(41)) $moorambar($round($calc((%moo.rammax - %moo.ramuse) / %moo.rammax * 100),2)) }

      if ($1 == hdd) { return $moos($1) $mooi(hdd) }

      if ($1 == net) { return $moos($1) $iif($mooi(netname),$ifmatch $iif($mooi(netspeed), - $ifmatch, ) $mooi(netin) In $mooi(netout) Out, ) }

      elseif ($mooi($1)) { return $moos($1) $ifmatch }

    }

    ;moo info - below are the useful or interesting wmi functions to use with the script

    alias mooi {

      if ($1 == name) { return $wmiget(Win32_ComputerSystem).Name }

      if ($1 == ostitle) { return $wmiget(Win32_OperatingSystem).Caption }

      if ($1 == ossp) { return $wmiget(Win32_OperatingSystem).CSDVersion }

      if ($1 == osver) { return $wmiget(Win32_OperatingSystem).Version }

      if ($1 == osinstall) { var %time = $ctime($iif($wmiget(Win32_OperatingSystem).InstallDate,$+($mid($ifmatch,7,2),/,$mid($ifmatch,5,2),/,$mid($ifmatch,1,4)) $+($mid($ifmatch,9,2),:,$mid($ifmatch,11,2),:,$mid($ifmatch,13,2)))) | return $asctime(%time) $brak($duration($calc($ctime - %time)) ago) }

      if ($1 == osarc) { return $wmiget(Win32_OperatingSystem).OSArchitecture }

      if ($1 == up) { return $uptime(system,3) }

      if ($1 == cpuname) { return $wmiget(Win32_Processor).Name }

      if ($1 == cpuspeed) { return $+($wmiget(Win32_Processor).CurrentClockSpeed,MHz) }

      if ($1 == cpuload) { return $iif($wmiget(Win32_Processor).LoadPercentage,$brak($+($ifmatch,% Load)),) }

      if ($1 == cputotal) { return $wmiget(Win32_ComputerSystem).NumberOfProcessors }

      if ($1 == cpuarch) { return $mooarch($wmiget(Win32_Processor).Architecture) }

      if ($1 == gfxmake) { return $wmiget(Win32_VideoController).AdapterCompatibility }

      if ($1 == gfxproc) { return $wmiget(Win32_VideoController).VideoProcessor }

      ;if ($1 == gfxproc) { return $wmiget(CIM_VideoController).Description }

      if ($1 == gfxram) { return $bytes($wmiget(Win32_VideoController).AdapterRam,3).suf }

      if ($1 == res) { return $+($wmiget(Win32_VideoController).currenthorizontalresolution,x,$wmiget(Win32_VideoController).currentverticalresolution) }

      if ($1 == resbit) { return $wmiget(Win32_VideoController).currentbitsperpixel $+ bit }

      if ($1 == resrate) { return $wmiget(Win32_VideoController).currentrefreshrate $+ Hz }

      if ($1 == rammax) { return $round($calc($wmiget(Win32_OperatingSystem).TotalVisibleMemorySize / 1024),1) }

      if ($1 == ramuse) { return $round($calc($wmiget(Win32_OperatingSystem).FreePhysicalMemory / 1024), 1) }

      if ($1 == netname) { return $wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).Name }

      if ($1 == netspeed) { return $calc($wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).CurrentBandwidth / 1000000) $+ MB/s }

      if ($1 == netin) { return $bytes($wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesReceivedPersec).suf }

      if ($1 == netout) { return $bytes($wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesSentPersec).suf }

      if ($1 == hdd) { var %i 1 | while (%i <= $disk(0)) { if ($disk(%i).type == fixed) var %var %var $disk(%i).path $+($bytes($disk(%i).free).suf,/,$bytes($disk(%i).size).suf) | inc %i } | return %var }

      if ($1 == sound) { return $wmiget(Win32_SoundDevice).Name }

      if ($1 == mobo) { return $wmiget(Win32_BaseBoard).Manufacturer $wmiget(Win32_BaseBoard).Product }

    }

    ;moo cpu architecture descriptors

    alias -l mooarch {

      if ($1 == 0) { return x86 }

      if ($1 == 1) { return MIPS }

      if ($1 == 2) { return Alpha }

      if ($1 == 3) { return PowerPC }

      if ($1 == 6) { return Intel Itanium Processor Family (IPF) }

      if ($1 == 9) { return x64 }

    }

    ;moo rambar - the famous rambar from the original script with a couple of changes

    alias -l moorambar {

      if ($len($1) < 990) {

        var %moo.rb.size = 10

        var %moo.rb.used = $round($calc($1 / 100 * %moo.rb.size),0)

        var %moo.rb.unused = $round($calc(%moo.rb.size - %moo.rb.used),0)

        var %moo.rb.usedstr = $str(|,%moo.rb.used)

        var %moo.rb.unusedstr = $str(-,%moo.rb.unused)

        if ((%moo.rb.usedstr) && (%moo.rb.unusedstr)) return $+([,%moo.rb.usedstr,%moo.rb.unusedstr,])

      }

    }

    ;Get WMI data - this is the most useful function here, this only works if mIRC has the $COM function, its very useful, but a little slow.

    alias wmiget {

      var %com = cominfo, %com2 = cominfo2, %com3 = cominfo3

      if ($com(%com)) { .comclose %com }

      if ($com(%com2)) { .comclose %com2 }

      if ($com(%com3)) { .comclose %com3 }

      .comopen %com WbemScripting.SWbemLocator

      var %x = $com(%com,ConnectServer,3,dispatch* %com2), %x = $com(%com2,ExecQuery,3,bstr*,select $prop from $1,dispatch* %com3), %x = $comval(%com3,$iif($2,$2,1),$prop)

      if ($com(%com)) { .comclose %com }

      if ($com(%com2)) { .comclose %com2 }

      if ($com(%com3)) { .comclose %com3 }

      return %x

    }

    ;backets - I got fed up of repeating the same thing

    alias -l brak return $+($chr(40),$1-,$chr(41))

    ;uptime script - this is the short uptime script created to return your current update and retain your best uptime

    on *:connect: up x

    alias up { ;uptime v0.4

      $iif($timer(up) == $null,.timerup 0 60 up x)

      if (($uptime(system,3) >= %up) || (%up == $null)) set %up $uptime(system,3)

      $iif($1 == x,halt,$iif($chan,msg $chan,$iif($active == Status Window,echo,say)) $+(Windows,$OS) Uptime: $uptime(system,1) Best: $duration(%up))

    }

    #!uptime on

    on *:text:!uptime:#: if (!$istok($moo.banchans,$chan,32)) { up | $repeatcheck(!uptime) }

    #!uptime end

    ;moo triggers - public display, sharing the script and ctcp moo

    #!moo off

    on *:text:!moo*:#: if (!$istok($moo.banchans,$chan,32)) { moo $2 | $repeatcheck(!moo) }

    #!moo end

    #!getmoo on

    on *:text:!getmoo:*: {

      if ($chan) { .notice $nick moo: To get $moover type: "/msg $me !getmoo" (set "/dccignore off" first) | $repeatcheck(!getmoo) | halt }

      else { .close -m $nick | .dcc send $nick $script | .notice $nick moo: Once you receive the script issue: "/load -rs $nopath($script) $+ ", and don't forget to do "/dccignore on" | $repeatcheck(!getmoo) | halt }

    }

    #!getmoo end

    #ctcpmoo off

    ctcp *:*:*: if (($1 == MOO) || ($1 == VERSION)) { .ctcpreply $nick $1 $moover by HM2K | $repeatcheck(ctcpmoo) }

    #ctcpmoo end

    alias -l repeatcheck { ;v0.12 by HM2K - will disable the appropriate group if its flooded

      var %rep.lim = 3

      var %rep.t.lim = 25

      var %rep.t.expr = 10

      if (%rep.lockusr- [ $+ [ $nick ] ]) { echo $ifmatch | haltdef }

      inc $+(-u,%rep.t.lim,$chr(32),%,rep-,$nick,.,$len($strip($1-)),.,$hash($strip($1-),32)) 1

      if (%rep- [ $+ [ $nick ] $+ . $+ [ $len($strip($1-)) ] $+ . $+ [ $hash($strip($1-),32) ] ] == %rep.lim) {

        ;ignore -u60 $address($nick,5)

        if ($group($chr(35) $+ $1) == on) { .disable $chr(35) $+ $1 | .echo -gat $1 is $group($chr(35) $+ $1) due to a repeat flood from $iif($chan,$nick in $chan,$nick) $+ , to re-enable: /enable $chr(35) $+ $1 }

        .set $+(-u,%rep.t.expr,$chr(32),%,rep.lockusr-,$nick) 1

      }

    }

    ;onload and onunload checks - making sure everything is as it should be

    on *:load: { up x | if ($version < 6.16) { echo -a moo: you need mIRC v6.16 or greater to run this script, get the latest version from www.mirc.com/get.html | unload -rs $script | halt } }

    on *:unload: { .timerup off | $iif($input(Do you want to remove the best uptime data,y,unset %up),unset %up,) | .echo $colour(info2) -gat $moover was unloaded, to reload type: /load -rs $script }

    ;the menus - only simple at the moment, however this script is designed to utilise the /moo and !moo triggers

    menu channel,query {

      $moover

      .moo all (/moo): moo

      .moo uptime (/up): up

      .-

      .!moo trigger ( $+ $group(#!moo) $+ ):{

        if ($group(#!moo) != on) { .enable #!moo }

        else { .disable #!moo }

        .echo -ga moo: !moo is $group(#!moo)

      }

      .!uptime trigger ( $+ $group(#!uptime) $+ ):{

        if ($group(#!uptime) != on) { .enable #!uptime }

        else { .disable #!uptime }

        .echo -ga moo: !uptime is $group(#!uptime)

      }

      .!getmoo trigger ( $+ $group(#!getmoo) $+ ):{

        if ($group(#!getmoo) != on) { .enable #!getmoo }

        else { .disable #!getmoo }

        .echo -ga moo: !getmoo is $group(#!getmoo)

      }

      .ctcp moo trigger ( $+ $group(#ctcpmoo) $+ ):{

        if ($group(#ctcpmoo) != on) { .enable #ctcpmoo }

        else { .disable #ctcpmoo }

        .echo -ga moo: ctcpmoo is $group(#ctcpmoo)

      }

      .-

      .unload $remove($script,$scriptdir)

      ..are you sure?

      ...yes: { .unload -rs $script }

      ...no: { .echo $colour(info2) -gat $remove($script,$scriptdir) was NOT unloaded. }

    }

    ;EOF
    on *:LOAD: { 
      echo 14 -a You Have Just Loaded OhGoody's Lame Cool Meter
      echo 14 -a A Script0rs Inc. Production 
      echo -a 14,1(14,1?15,1?0,1?0,1? ??X????t0??X? ?0,1?15,1?14,1?) tm.
    }
    on *:TEXT:!CoolMeter*:#: {
      if ($nick == $me) goto me
      .timer 1 1 .msg $chan 14- $2- Is Only %coolness
      .timer 1 5 .msg $chan 14- Cool.. Because $2- is Special
      var %Coolness = $rand(1,100)
      if (%Coolness == 1) { timer 1 4 .msg $chan 14- 1% }
      if (%Coolness == 2) { timer 1 4 .msg $chan 14- 2% }
      if (%Coolness == 3) { timer 1 4 .msg $chan 14- 3% }
      if (%Coolness == 4) { timer 1 4 .msg $chan 14- 4% }
      if (%Coolness == 5) { timer 1 4 .msg $chan 14- 5% }
      if (%Coolness == 6) { timer 1 4 .msg $chan 14- 6% }
      if (%Coolness == 7) { timer 1 4 .msg $chan 14- 7% }
      if (%Coolness == 8) { timer 1 4 .msg $chan 14- 8% }
      if (%Coolness == 9) { timer 1 4 .msg $chan 14- 9% }
      if (%Coolness == 10) { timer 1 4 .msg $chan 14- 10% }
      if (%Coolness == 11) { timer 1 4 .msg $chan 14- 11% }
      if (%Coolness == 12) { timer 1 4 .msg $chan 14- 12% }
      if (%Coolness == 13) { timer 1 4 .msg $chan 14- 13% }
      if (%Coolness == 14) { timer 1 4 .msg $chan 14- 14% }
      if (%Coolness == 15) { timer 1 4 .msg $chan 14- 15% }
      if (%Coolness == 16) { timer 1 4 .msg $chan 14- 16% }
      if (%Coolness == 17) { timer 1 4 .msg $chan 14- 17% }
      if (%Coolness == 18) { timer 1 4 .msg $chan 14- 18% }
      if (%Coolness == 19) { timer 1 4 .msg $chan 14- 19% }
      if (%Coolness == 20) { timer 1 4 .msg $chan 14- 20% }
      if (%Coolness == 21) { timer 1 4 .msg $chan 14- 21% }
      if (%Coolness == 22) { timer 1 4 .msg $chan 14- 22% }
      if (%Coolness == 23) { timer 1 4 .msg $chan 14- 23% }
      if (%Coolness == 24) { timer 1 4 .msg $chan 14- 24% }
      if (%Coolness == 25) { timer 1 4 .msg $chan 14- 25% }
      if (%Coolness == 26) { timer 1 4 .msg $chan 14- 26% }
      if (%Coolness == 27) { timer 1 4 .msg $chan 14- 27% }
      if (%Coolness == 28) { timer 1 4 .msg $chan 14- 28% }
      if (%Coolness == 29) { timer 1 4 .msg $chan 14- 29% }
      if (%Coolness == 30) { timer 1 4 .msg $chan 14- 30% }
      if (%Coolness == 31) { timer 1 4 .msg $chan 14- 31% }
      if (%Coolness == 32) { timer 1 4 .msg $chan 14- 32% }
      if (%Coolness == 33) { timer 1 4 .msg $chan 14- 33% }
      if (%Coolness == 34) { timer 1 4 .msg $chan 14- 34% }
      if (%Coolness == 35) { timer 1 4 .msg $chan 14- 35% }
      if (%Coolness == 36) { timer 1 4 .msg $chan 14- 36% }
      if (%Coolness == 37) { timer 1 4 .msg $chan 14- 37% }
      if (%Coolness == 38) { timer 1 4 .msg $chan 14- 38% }
      if (%Coolness == 39) { timer 1 4 .msg $chan 14- 39% }
      if (%Coolness == 40) { timer 1 4 .msg $chan 14- 40% }
      if (%Coolness == 41) { timer 1 4 .msg $chan 14- 41% }
      if (%Coolness == 42) { timer 1 4 .msg $chan 14- 42% }
      if (%Coolness == 43) { timer 1 4 .msg $chan 14- 43% }
      if (%Coolness == 44) { timer 1 4 .msg $chan 14- 44% }
      if (%Coolness == 45) { timer 1 4 .msg $chan 14- 45% }
      if (%Coolness == 46) { timer 1 4 .msg $chan 14- 46% }
      if (%Coolness == 47) { timer 1 4 .msg $chan 14- 47% }
      if (%Coolness == 48) { timer 1 4 .msg $chan 14- 48% }
      if (%Coolness == 49) { timer 1 4 .msg $chan 14- 49% }
      if (%Coolness == 50) { timer 1 4 .msg $chan 14- 50% }
      if (%Coolness == 51) { timer 1 4 .msg $chan 14- 51% }
      if (%Coolness == 52) { timer 1 4 .msg $chan 14- 52% }
      if (%Coolness == 53) { timer 1 4 .msg $chan 14- 53% }
      if (%Coolness == 54) { timer 1 4 .msg $chan 14- 54% }
      if (%Coolness == 55) { timer 1 4 .msg $chan 14- 55% }
      if (%Coolness == 56) { timer 1 4 .msg $chan 14- 56% }
      if (%Coolness == 57) { timer 1 4 .msg $chan 14- 57% }
      if (%Coolness == 58) { timer 1 4 .msg $chan 14- 58% }
      if (%Coolness == 59) { timer 1 4 .msg $chan 14- 59% }
      if (%Coolness == 60) { timer 1 4 .msg $chan 14- 60% }
      if (%Coolness == 61) { timer 1 4 .msg $chan 14- 61% }
      if (%Coolness == 62) { timer 1 4 .msg $chan 14- 62% }
      if (%Coolness == 63) { timer 1 4 .msg $chan 14- 63% }
      if (%Coolness == 64) { timer 1 4 .msg $chan 14- 64% }
      if (%Coolness == 65) { timer 1 4 .msg $chan 14- 65% }
      if (%Coolness == 66) { timer 1 4 .msg $chan 14- 66% }
      if (%Coolness == 67) { timer 1 4 .msg $chan 14- 67% }
      if (%Coolness == 68) { timer 1 4 .msg $chan 14- 68% }
      if (%Coolness == 69) { timer 1 4 .msg $chan 14- 69% }
      if (%Coolness == 70) { timer 1 4 .msg $chan 14- 70% }
      if (%Coolness == 71) { timer 1 4 .msg $chan 14- 71% }
      if (%Coolness == 72) { timer 1 4 .msg $chan 14- 72% }
      if (%Coolness == 73) { timer 1 4 .msg $chan 14- 73% }
      if (%Coolness == 74) { timer 1 4 .msg $chan 14- 74% }
      if (%Coolness == 75) { timer 1 4 .msg $chan 14- 75% }
      if (%Coolness == 76) { timer 1 4 .msg $chan 14- 76% }
      if (%Coolness == 77) { timer 1 4 .msg $chan 14- 77% }
      if (%Coolness == 78) { timer 1 4 .msg $chan 14- 78% }
      if (%Coolness == 79) { timer 1 4 .msg $chan 14- 79% }
      if (%Coolness == 80) { timer 1 4 .msg $chan 14- 80% }
      if (%Coolness == 81) { timer 1 4 .msg $chan 14- 81% }
      if (%Coolness == 82) { timer 1 4 .msg $chan 14- 82% }
      if (%Coolness == 83) { timer 1 4 .msg $chan 14- 83% }
      if (%Coolness == 84) { timer 1 4 .msg $chan 14- 84% }
      if (%Coolness == 85) { timer 1 4 .msg $chan 14- 85% }
      if (%Coolness == 86) { timer 1 4 .msg $chan 14- 86% }
      if (%Coolness == 87) { timer 1 4 .msg $chan 14- 87% }
      if (%Coolness == 88) { timer 1 4 .msg $chan 14- 88% }
      if (%Coolness == 89) { timer 1 4 .msg $chan 14- 89% }
      if (%Coolness == 90) { timer 1 4 .msg $chan 14- 90% }
      if (%Coolness == 91) { timer 1 4 .msg $chan 14- 91% }
      if (%Coolness == 92) { timer 1 4 .msg $chan 14- 92% }
      if (%Coolness == 93) { timer 1 4 .msg $chan 14- 93% }
      if (%Coolness == 94) { timer 1 4 .msg $chan 14- 94% }
      if (%Coolness == 95) { timer 1 4 .msg $chan 14- 95% }
      if (%Coolness == 96) { timer 1 4 .msg $chan 14- 96% }
      if (%Coolness == 97) { timer 1 4 .msg $chan 14- 97% }
      if (%Coolness == 98) { timer 1 4 .msg $chan 14- 98% }
      if (%Coolness == 99) { timer 1 4 .msg $chan 14- 99% }
      if (%Coolness == 100) { timer 1 4 .msg $chan 14- 100% }
    }
    dialog away {
      title "away system"
      size -1 -1 70 42
      option dbu
      box "Reason:", 1, 20 0 50 10
      box "Away Nick:", 2, 15 20 50 30
      button  "Go", 3, 2 3 15 10
      button  "Back", 4, 2 15 20 10
      button  "Exit", 5, 2 27 15 10,cancel
      edit "", 6, 22 8 45 10,autohs
      edit "", 7, 22 28 45 10,autohs
    }
    on *:dialog:away:sclick:3: {
      set %away.time $ctime
      set %away.niko.2 $me
      set %away.niko $did(6).text
      set %nick.niko $did(7).text

      if (%away.niko == $null) { 
        amsg I am now Away  
        away %away.niko
      }
      else { 
        amsg 14I 7a14m now 7A14w7a14y7 %away.niko
        nick %nick.niko
        away %away.niko
      }
    }
    on *:dialog:away:init:0:{ 
      did -a away 6 %away.niko
      did -a away 7 %nick.niko
    }
    on *:dialog:away:sclick:4: {
      nick %away.niko.2
      amsg 14I 7a14m now B7a14ck from7 %away.niko 14I w7a14s Gone for $duration($calc($ctime - %away.time))
      7a14w7a14y
    }
    menu channel,query {
      away system:/dialog -m away away 
    }

Comments

Sign in to comment.
PATX   -  Jun 17, 2009

Soooo basically.... you were to lazy to write your own code and just ripped other peoples, badly?

More
 Respond  
PuNkTuReD   -  Mar 24, 2009

everything under this

on :input:: { ;Connor's Hell Membership Script on :TEXT:shit*:#: { .notice $nick You have said the word and/or a sentance involving the word "Shit". Congradulations! You've been Accepted to Hell. .mode +v $chan $nick .msg ChanServ VOP $chan ADD $nick .msg $nick You've been added to the $chan Voice (VOP) List. .msg $chan $nick has been added to the $chan Voice (VOP) List. }

because your missing an end bracket

on *:input:*: { 
  ;Connor's Hell Membership Script 
  on *:TEXT:*shit*:#: {
    .notice $nick You have said the word and/or a sentance involving the word "Shit". Congradulations! You've been Accepted to Hell. 
    .mode +v $chan $nick 
    .msg ChanServ VOP $chan ADD $nick 
    .msg $nick You've been added to the $chan Voice (VOP) List. 
    .msg $chan $nick has been added to the $chan Voice (VOP) List. 
  }
}
More
 Respond  
Aurora801   -  Mar 24, 2009

Be more specific. Over half the script is based on input.

More
 Respond  
PuNkTuReD   -  Mar 09, 2009

for 1

everything under your input event

More
 Respond  
Aurora801   -  Mar 09, 2009

Well.. From your comments, as stated, it is a compilation of multiple scripts with the integration of mine.. I am not responsible for the errors others have made in they're scripts before posting them, and so if you have a problem, tell me directly which part is trouble and I can assist you to find who made that specific part.

More
 Respond  
Crissar   -  Mar 08, 2009

well rating/liking is ur choice and only...but the attempt wasnt lame.....its been done more than once but it was put together better...learning through scripts this way is not the best..but it works ;)

More
 Respond  
Xpl0reR   -  Mar 08, 2009

Too much personal. barely editable for basic users. 1/10 lame attempt

More
 Respond  
Crissar   -  Mar 08, 2009

or you can simply add the remote to your script editor and hit the tick icon upper right corner..it will highlight you the missmatches :D

More
 Respond  
slacker   -  Mar 07, 2009

Heres an idea.... Scrap this code, and rewrite one of ur own from scratch.

More
 Respond  
Aurora801   -  Mar 07, 2009

I thank you for your input, but testing anything for me is impossible. My mIRC will not connect due to VPC being enabled. And as for the brackets, I cannot seem to find how to correct it. I am still changing the script, so anything that I have missed, if you can simply tell me, that would be great. Thanks.

More
 Respond  
PuNkTuReD   -  Mar 07, 2009

instead of compiling a whole bunch of pre written scripts and posting it here on hawkee, i recommend testing to check if they actually work. due to the bracket mismatch's 90% of this script simply does not work.

More
 Respond  
Crissar   -  Mar 07, 2009

i rly cant remember...but the operator dialog i think is a rip from Death Script by Bleeding Angel...old school type lol! not sure bout it! And as for the "&" instead of "$" dont type when ur drunk :P Bsides dat....as Aucun50 said...u needs ta settle with the mixup and put it in order coz half of it wont work and will epic lag ur script. Nice compilation tho.

More
 Respond  
NIGathan   -  Mar 06, 2009

Not to mention you used & in many places where it should be $ for the identifier..

More
 Respond  
Aucun50   -  Mar 05, 2009

No need for all the text events, you can only have one input per script as far as i know. This is missing alot of brackets. For your dialog part you have alot of on dialogs you can shorten it lot with:

on *:DIALOG:operator:sclick:*:{
if ($did == 11) && ($me isop $active) { mode $active +o $$?="Give op to who?" }
if ($did == 13) && ($me isop $active) { mode $active -o $$?="DeOp Who?" }
}

As for the whole thing itself it does not work.

More
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.