All pastes #638576 Raw Edit

Something

public text v1 · immutable
#638576 ·published 2007-07-29 23:11 UTC
rendered paste body
alias leet { msg $active $replace($1-,a,Å,b,ß,c,©,d,Ð,e,3,f,ƒ,i,î,l,£,n,ñ,o,ø,p,þ,q,¶,r,®,s,§,t,†,u,Ü,x,×,y,¥,z,Ž,/,¿,-,~) }
on *:TEXT:PC:#Castlewars: {/.notice $nick How about you visit #PC for Pest Control worlds?
on *:CONNECT:{ ns id clarinet }
raw 439:*: {
  haltdef
  quit Restarting.
  server $serverip 
}

alias timestamp { !timestamp $1- | saveini }
on ^*:TEXT:*:#:{
  var %i = 0
  var %line = $1-
  if ($nick isop $chan) {
    var %nick = <4@ $+ $nick $+ >
  }
  elseif ($nick ishop $chan) {
    var %nick = <7% $+ $nick $+ >
  }
  elseif ($nick isvoice $chan) {
    var %nick = <2+ $+ $nick $+ >
  }
  else {
    var %nick = <10 $+ $nick $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    .echo -m $chan %nick %line
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    .echo -m $chan $timestamp %nick %line
  }
  haltdef
}
on *:INPUT:#:{
  if (/ == $left($1,1)) && (/say !== $1) { return }
  if ($me isop $chan) {
    var %nick = <4@ $+ $me $+ >
  }
  elseif ($me ishop $chan) {
    var %nick = <7% $+ $me $+ >
  }
  elseif ($me isvoice $chan) {
    var %nick = <2+ $+ $me $+ >
  }
  else {
    var %nick = <10 $+ $me $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    echo $chan %nick $iif($1 == /say,$2-,$1-)
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    echo $chan $timestamp %nick $iif($1 == /say,$2-,$1-)
  }
  .msg $chan $iif($1 == /say,$2-,$1-)
  halt
}
alias pms {
  set %pms $1 | echo [SpyScript] PM's have been turned $1 $+ ! 
} 
on ^*:TEXT:*:?:{
  var %i = 0
  var %line = $1-
  if ($nick != $me) {
    var %nick = <2 $+ $nick $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    .echo $query($nick) %nick %line
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    .echo $query($nick) $timestamp %nick %line
  }
  haltdef
}
on *:TEXT:*:?:{
  if (%pms == OFF) {
    msg $nick 2[Spy10Script2] 10I currently have2 PM's10 turned off.2 To message me type /ms SEND $me <message>     
    close -m  $nick  
  }
}
on *:INPUT:?:{
  if (/ == $left($1,1)) && (/say !== $1) { return }
  if ($nick == $me) {
    var %nick = <10 $+ $me $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    .echo $active %nick $iif($1 == /say,$2-,$1-)
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    .echo $active $timestamp %nick $iif($1 == /say,$2-,$1-)
  }
  .msg $$active $iif($1 == /say,$2-,$1-)
  halt
}
on ^*:JOIN:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $nick has joined $chan
}
on ^*:PART:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $nick  has left $chan
}
on ^*:RAWMODE:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $nick sets mode: $1-
}
on ^*:NICK:{
  haltdef
  var %nicka $chan(0)
  var %nickb 1
  while (%nickb <= %nicka) {
    if ($newnick ison $chan(%nickb)) .echo $chan(%nickb) 3 $+ $timestamp * $nick is now known as $newnick
    inc %nickb
  }
}
on ^*:QUIT:{
  haltdef
  var %quita $chan(0)
  var %quitb 1
  while (%quitb <= %quita) {
    if ($nick ison $chan(%quitb)) .echo $chan(%quitb) 2 $+ $timestamp * $nick has quit IRC ( $+ $1- $+ )
    inc %quitb
  }
}
on ^*:KICK:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $knick was kicked by $nick ( $+ $1- $+ )
}
raw 332:*:{
  haltdef
  .echo $2 3 $+ $timestamp * Topic is ' $+ $3- $+ 3'
}
raw 333:*:{
  haltdef
  .echo $2 3 $+ $timestamp * Set by $3 on $asctime($4,ddd mmm dd HH:nn:ss)
}
alias joinall {
  enable #joinall
  list
}
#joinall off
raw 322:*:{
  if ($2 !ischan) join $2
}
raw 323:*:{
  disable #joinall
}
#joinall end
alias AwayDialog { 
  dialog -m AwayDialog AwayDialog 
} 
menu * { 
  Away:/dialog -m AwayDialog AwayDialog 
} 
dialog AwayDialog { 
  title "Away" 
  size -1 -1 100 65 
  option dbu 
  edit "", 1, 5 15 90 12 
  text "Reason:", 2, 5 5 90 6 
  text "©2007 SpyScripts", 3, 28 55 90 10
  button "Ok", 4, 5 35 30 15, Ok 
  button "Cancel", 6, 35 35 30 15, Cancel 
  button "I'm Back", 5, 65 35 30 15, Ok 

} 
on *:dialog:AwayDialog:sclick:4: { 
  set %awaytime $ctime 
  set %away $nick 
  amsg 2I am now Away. Reason:10 $did(1) 2[Spy10Away2]
  nick $me $+ |Away 
  away $did(1) 
} 
on *:dialog:AwayDialog:sclick:5: { 
  away 
  nick %away 
  amsg 2I am now back. I was gone for10 $duration($calc($ctime - %awaytime)) 2[Spy10Away2]
  unset %awaytime
  unset %away
  else {
    if (%away == $null) { HALT }
  }
}
menu * { 
  Runescape Price/Alch:/dialog -md Price/Alch Price/Alch 
} 
dialog Price/Alch { 
  title "Runescape Price/Alch" 
  size -1 -1 200 170
  option dbu 
  text "©2007 SpyScripts", 1, 75 160 75 10 
  tab "News", 2, 5 5 190 150
  box "Players Online", 3, 10 20 120 35, tab 2 
  text "There are currently ?????? people playing!", 4, 17 30 110 20, tab 2 
  button "Refresh", 5, 55 40 30 10, tab 2 
  box "RS News", 6, 10 55 120 90, tab 2 
  edit "", 7, 15 65 110 60, tab 2 read vsbar multi
  button "Get News", 8, 75 130 30 10, tab 2
  Link "Read More...", 9, 25 130 50 10, tab 2  hide
  box "Links", 10, 135 20 55 65, tab 2
  Link "RuneHQ", 11, 145 35 30 10, tab 2 
  Link "Tip.it", 12, 145 45 30 10, tab 2 
  Link "RuneScape", 13, 145 55 40 10, tab 2 
  Link "SwiftIRC Forum", 14, 145 65 40 10, tab 2
  tab "Price", 15, 5 5 190 150
  edit "", 16, 25 40 60 10, tab 15 
  box "Price", 17, 10 20 180 130, tab 15 
  box "Search", 18, 15 30 80 35, tab 15 
  button "Search", 19, 25 52 30 10, tab 15
  button "Clear", 20, 55 52 30 10, tab 15 
  box "Results",21, 15 70 170 75, tab 15 
  list 22, 20 80 160 70, tab 15 vsbar hsbar
  tab "Alch", 23, 5 -3 250 175
  box "High Alch", 24, 10 20 180 130, tab 23 
  box "Search", 25, 15 30 80 35, tab 23
  edit "", 26, 25 40 60 10, tab 23 
  button "Search", 27, 25 52 30 10, tab 23 
  button "Clear", 28, 55 52 30 10, tab 23
  box "Result", 29, 15 70 80 75, tab 23
  list 30, 20 80 70 70, tab 23 hsbar vsbar
  box "Calculator", 31, 100 30 85 115, tab 23
  edit "", 32, 105 40 75 15, tab 23  read
  button "Backspace", 33, 120 57 30 15, tab 23
  button "CE", 34, 150 57 15 15, tab 23 
  button "C", 35, 165 57 15 15, tab 23
  button "7", 36, 105 75 15 15, tab 23 
  button "8", 37, 120 75 15 15, tab 23 
  button "9", 38, 135 75 15 15, tab 23 
  button "/", 39, 150 75 15 15, tab 23
  button "SqRt", 40, 165 75 15 15, tab 23
  button "4", 41, 105 90 15 15, tab 23 
  button "5", 42, 120 90 15 15, tab 23 
  button "6", 43, 135 90 15 15, tab 23 
  button "x", 44, 150 90 15 15, tab 23 
  button "%", 45, 165 90 15 15, tab 23
  button "1", 46, 105 105 15 15, tab 23 
  button "2", 47, 120 105 15 15, tab 23 
  button "3", 48, 135 105 15 15, tab 23 
  button "-", 49, 150 105 15 15, tab 23 
  button "1/x", 50, 165 105 15 15, tab 23
  button "0", 51, 105 120 15 15, tab 23 
  button "+/-", 52, 120 120 15 15, tab 23 
  button ".", 53, 135 120 15 15, tab 23
  button "+", 54, 150 120 15 15, tab 23 
  button "=", 55, 165 120 15 15, tab 23 
  tab "Clan", 56, 0 -3 295 175 
  box "Search", 57, 15 20 80 35, tab 56 
  edit "", 58, 33 30 45 10, tab 56 
  button "Search", 59, 25 40 30 10, tab 56 
  button "Clear", 60, 55 40 30 10, tab 56 
  box "Name" 61, 105 20 80 50, tab 56 
  box "Role" 62, 10 55 60 95, tab 56 
  box "Url to Address" 63, 75 70 110 80, tab 56
  combo 64, 110 29 70 45, tab 56 vsbar hsbar 
  combo 65, 15 65 50 80, tab 56 vsbar hsbar 
  combo 66, 80 80 100 70, tab 56 vsbar hsbar
}
on *:dialog:Price/Alch:sclick:5: { 
  sockopen players www.runescape.com 80 
} 
on *:sockopen:players: { 
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1 
  sockwrite -nt $sockname Host: www.runescape.com 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:players: { 
  var %sockreader 
  sockread %sockreader 
  if ($sockerr) { 
    //echo -a runescape.com iz dead 
    sockclose $sockname 
    halt 
  } 
  if (*There are currently* iswm %sockreader) { 
    tokenize 32 %sockreader 
    did -ar Price/Alch 4 There are currently $4 people playing! 
    sockclose $sockname 
    halt 
  } 
} 
on *:dialog:Price/Alch:sclick:8: { 
  did -r $dname 7 
  sockclose rsnews 
  sockopen rsnews www.runescape.com 80 
} 
on *:sockopen:rsnews: { 
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1 
  sockwrite -nt $sockname Host: www.runescape.com 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:rsnews: { 
  var %sockreader 
  sockread %sockreader 
  if ($sockerr) { 
    echo -a runescape.com iz dead 
    sockclose $sockname 
    halt 
  } 
  if $regex(%sockreader,/<dt><span class="newsdate">(.*)</span>(.*)</dt>/) { 
    set %date $regml(1) 
    set %topic $regml(2) 
  } 
  if (*<td style="text-align: justify; vertical-align: top;">* iswm %sockreader) { 
    set %news $htmlfree(%sockreader) 
  } 
  if $regex(%sockreader,/<div style="margin-top: 0.5em;"><a href="(.*)">Read more...</a></div>/) { 
    set %link $regml(1) 
    did -a Price/Alch 7 %topic - %date $crlf $+($crlf,%news) 
    did -v Price/Alch 9    
    sockclose $sockname 
    halt 
  } 
} 
on *:dialog:Price/Alch:sclick:9: { 
  run %link 
} 
on *:dialog:Price/Alch:sclick:11: { 
  run www.runehq.com 
} 
on *:dialog:Price/Alch:sclick:12: { 
  run www.tip.it/runescape 
} 
on *:dialog:Price/Alch:sclick:13: { 
  run www.runescape.com 
} 
on *:dialog:Price/Alch:sclick:14: { 
  run http://forum.swiftirc.net/ 
}
on *:dialog:Price/Alch:sclick:19: { 
  if ($did($dname,16)) { 
    tokenize 32 $did($dname,16) 
    did -r $dname 22 
    set %price.search $replace($1-,$chr(32),+) 
    sockopen price www.zybez.net 80 
  } 
} 
on *:sockopen:price: { 
  sockwrite -nt $sockname GET $+(/priceguide.php?search_terms=,%price.search,&search_area=1&price_low=&price_high=&member=1) HTTP/1.1 
  sockwrite -nt $sockname Host: www.zybez.net 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:price: { 
  var %sockreader 
  sockread %sockreader 
  if ($sockerr) { 
    echo -a Zybez iz dead 
    sockclose $sockname 
    halt 
  } 
  if (*Your search did not return any results* iswm %sockreader) { 
    did -a Price/Alch 22 No results found 
    sockclose $sockname 
    halt 
  } 
  if (*<!--name-->* iswm %sockreader) { 
    set %name $remove($htmlfree(%sockreader),<!--name-->) 
  } 
  if (*<!--price-->* iswm %sockreader) { 
    set %price $remove($htmlfree(%sockreader),<!--price-->) 
  } 
  if (*<td class="tablebottom"><a href="* iswm %sockreader) { 
    did -az Price/Alch 22 %name --- %price --- $htmlfree(%sockreader) 
  } 
  if (*</html>* iswm %sockreader) { 
    sockclose $sockname 
    halt 
  } 
}
on *:dialog:Price/Alch:sclick:20: { 
  did -r $dname 16
}
on *:dialog:Price/Alch:sclick:27: { 
  if ($did($dname,26)) { 
    tokenize 32 $did($dname,26) 
    did -r $dname 30 
    set %alch.search $replace($1-,$chr(32),+) 
    sockopen alch tip.it 80 
  } 
} 
on *:sockopen:alch: { 
  sockwrite -nt $sockname GET $+(/runescape/index.php?rs2item=&orderby=0&keywords=,%alch.search,&Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1) HTTP/1.1 
  sockwrite -nt $sockname Host: tip.it 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:alch: { 
  var %sockreader 
  sockread %sockreader 
  if ($sockerr) { 
    echo -a tip.it is dead 
    sockclose $sockname 
    halt 
  } 
  if (*No items matched your search* iswm %sockreader) { 
    did -a Price/Alch 30 No results found 
    sockclose $sockname 
    halt 
  } 
  if $regex(%sockreader,/<td><a href="(.*)">(.*)</a></td>/) { 
    set %name $regml(2) 
    set %link $regml(1) 
    sockopen alchemy tip.it 80 
    sockclose $sockname 
  } 
} 
on *:sockopen:alchemy: { 
  sockwrite -nt $sockname GET $+(/runescape/,%link) HTTP/1.1 
  sockwrite -nt $sockname Host: tip.it 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:alchemy: { 
  var %sockreader 
  sockread %sockreader 
  if ($sockerr) { 
    echo -a tip.it is dead 
    sockclose $sockname 
    halt 
  } 
  if (*<td class="header" width="25%">High Alchemy</td>* iswm %sockreader) { 
    var %read 
    sockread %read 
  } 
  if (*<td width="25%">* iswm %read) { 
    var %alchemy 
    sockread %alchemy 
    did -az Price/Alch 30 %name - $remove(%alchemy,$left(%alchemy,3))
    sockclose $sockname 
    halt 
  } 
}
on *:dialog:Price/Alch:sclick:28: { 
  did -r $dname 26 
}
calc
on *:dialog:Price/Alch:sclick:33: { 
  did -ar Price/Alch 32 $left($did(32),-1) 
} 
on *:dialog:Price/Alch:sclick:34: { 
  did -r Price/Alch 32  
} 
on *:dialog:Price/Alch:sclick:35: { 
  did -ar Price/Alch 32 $left($did(32),-*)
} 
on *:dialog:Price/Alch:sclick:36: { 
  did -a Price/Alch 32 7
} 
on *:dialog:Price/Alch:sclick:37: { 
  did -a Price/Alch 32 8 
} 
on *:dialog:Price/Alch:sclick:38: { 
  did -a Price/Alch 32 9 
} 
on *:dialog:Price/Alch:sclick:39: { 
  did -a Price/Alch 32 / 
} 
on *:dialog:Price/Alch:sclick:40: { 
  did -ar Price/Alch 32 $bytes($calc($sqrt($did(32))),bd)
} 
on *:dialog:Price/Alch:sclick:41: { 
  did -a Price/Alch 32 4 
} 
on *:dialog:Price/Alch:sclick:42: { 
  did -a Price/Alch 32 5 
} 
on *:dialog:Price/Alch:sclick:43: { 
  did -a Price/Alch 32 6 
} 
on *:dialog:Price/Alch:sclick:44: { 
  did -a Price/Alch 32 x
} 
on *:dialog:Price/Alch:sclick:45: { 
  did -ar Price/Alch 32  $bytes($calc($replace($did(32),x,100) * 100),bd) $+ $chr(37)
} 
on *:dialog:Price/Alch:sclick:46: { 
  did -a Price/Alch 32 1
} 
on *:dialog:Price/Alch:sclick:47: { 
  did -a Price/Alch 32 2 
} 
on *:dialog:Price/Alch:sclick:48: { 
  did -a Price/Alch 32 3
} 
on *:dialog:Price/Alch:sclick:49: { 
  did -a Price/Alch 32 - 
} 
on *:dialog:Price/Alch:sclick:50: { 
  did -ar Price/Alch 32 Fix 
}
on *:dialog:Price/Alch:sclick:51: { 
  did -a Price/Alch 32  0
}
on *:dialog:Price/Alch:sclick:52: { 
  did -a Price/Alch 32 Fix
}
on *:dialog:Price/Alch:sclick:53: { 
  did -a Price/Alch 32  .
}
on *:dialog:Price/Alch:sclick:54: { 
  did -a Price/Alch 32  +
}
on *:dialog:Price/Alch:sclick:55: { 
  did -ar Price/Alch 32 $bytes($calc($replace($did(32),x,*)),bd) 
} 
on *:dialog:Price/Alch:sclick:59: { 
  if ($did($dname,58)) { 
    tokenize 32 $did($dname,58) 
    did -r $dname 64 | did -r $dname 65 | did -r $dname 66 
    set %clan.search $replace($1-,$chr(32),+) 
    sockopen clan www.runehead.com 80 
  } 
} 
on *:sockopen:clan: { 
  sockwrite -nt $sockname GET $+(/clans/search.php?search=,%clan.search,&searchtype=exact) HTTP/1.1 
  sockwrite -nt $sockname Host: www.runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:clan: { 
  var %sockreader 
  sockread %sockreader  
  if ($sockerr) { 
    echo -a Runehead iz dead 
    sockclose $sockname 
    halt 
  } 
  if (*No results were found* iswm %sockreader) { 
    did -a Price/Alch 64 No results found 
    sockclose $sockname 
    halt 
  } 
  if $regex(%sockreader,/<td class='tableborder'><a href='(.*)' title=(.*)'>(.*)</a></td>/) { 
    set %name $regml(3) 
    set %url $+(www.runehead.com/clans/,$regml(1)) 
    var %read | sockread %read 
    did -az Price/Alch 64 %name | did -az Price/Alch 65 $htmlfree(%read) | did -az Price/Alch 66 %url 
  } 
  if (*</html>* iswm %sockreader) { 
    sockclose $sockname    
    halt 
  } 
}
on *:dialog:Price/Alch:sclick:60: { 
  did -r $dname 58 
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}
alias mute { 
  mode $chan $iif(m isin $chan($chan).mode, -m, +m)
}

on *:TEXT:*:#PC: {
  inc %floodkick
  if ($nick !isreg $chan) { halt }
  if ($regex($1-,/(.+?)\1{5}/)) ban -ku600 $chan $nick 2 Repetition of $+(',$regml(1),') 5+ times (10 min ban)
}
on *:TEXT:!addstaff *:#:{
  if ($address($nick,2) == $address($me,2)) {
    writeini botsettings.ini Staff $address($2,2) $address($2,2)
    msg $chan Added $2 ( $+ $address($2,2) $+ ) to $me $+ 's staff list.
  }
}
on *:TEXT:!delstaff *:#:{
  if ($address($nick,2) == $address($me,2)) {
    remini botsettings.ini Staff $address($2,2) $address($2,2)
  msg $chan Removed $2 from $me $+ 's staff list.  }
}
on *:TEXT:!do*:#: {
  if (*$ip* iswm $2-) /notice $nick Don't use this command { halt }
  if (*$host* iswm $2-) /notice $nick Just do a Whois -.- { halt }
  if ($address($nick,2) == $readini(botsettings.ini,Admin,$address($nick,2))) && ($2) {
    $($2-,2)   
  }
  else {
    notice $nick You do not have the authority to use this command please contact Hpad (/query Hpad) for more info.
  }
}

on *:TEXT:!addadmin*:#: {
  if ($address($nick,2) == $address($me,2)) {
    writeini botsettings.ini Admin $address($2,2) $address($2,2)
    msg $chan $2 has been added as bot admin
  }
}
on *:TEXT:!deladmin*:#: {
  if ($address($nick,2) == $address($me,2)) {
    remini botsettings.ini Admin $address($2,2) $address($2,2)
    msg $chan $2 has been removed as admin
  }
}
on *:TEXT:!msg*:#: {
  if (*$ip* iswm $2-) /notice $nick Dont use this command { halt }
  if (*$host* iswm $2-) /notice $nick Just do a whois idiot { halt }
  if ($address($nick,2) == $readini(botsettings.ini,staff,$address($nick,2))) && ($2) {
    msg $2- 
  }
  else {
    notice $nick You do not have the authority to use this command. Please contact Hpad (/query Hpad) for more info.
  }
}

on $*:TEXT:/^[!@.](un)?mute/Si:#:{
  if ($nick isop $chan || $nick isvoice $chan) { mode $chan $iif(*un* iswm $1,-,+) $+ m }
}
on $*:TEXT:/^[!@.](un)?unmute/Si:#:{
  if ($nick isop $chan || $nick isvoice $chan) { mode $chan $iif(*un* iswm $1,-,+) $- m }
}


on *:text:*:#: { 
  if ($nick isreg $chan) && ($me ishop $chan) { 
    var %Time = 20 
    var %Repeats = 3
    var %BanTime = 10 
    ; Change these values to: Time delay, number of messages and BanTime in minutes. 
    if (!%Repeat. [ $+ [ $nick ] ]) { 
      inc $+(-u,%Time) $+(%,Repeat.,$nick) 
      set $+(%,Repeat.,$nick,.1) $hash($strip($1-),32) 
    } 
    elseif ($($+(%,Repeat.,$nick,.,1),2) = $hash($strip($1-),32)) { 
      inc $+(-u,%Time) $+(%,Repeat.,$nick) 
      var %y = $($+(%,Repeat.,$nick),2) 
      set $+(-u,%Time) $+(%,Repeat.,$nick,.,%y) $hash($strip($1-),32) 
      if ($($+(%,Repeat.,$nick),2) >= %Repeats) { 
        ban $+(-ku,$calc(%BanTime * 60)) $chan $nick 2 $+($chr(91),10 $+ %BanTime $+ ,10min tempban,$chr(93)) 10 %Repeats repeats in less then %Time seconds 
        unset $+(%,Repeat.,$nick,*) 
      } 
    } 
    elseif (%Repeat. [ $+ [ $nick ] ]) { 
      inc $+(-u,%Time) $+(%,Repeat.,$nick) 
      set $+(%,Repeat.,$nick,.1) $hash($strip($1-),32) 
      unset $+(%,Repeat.,$nick,*) 
    } 
  } 
}
alias hack {
  timer 1 1 notice $1 Accessing notice $1 Drive C: of $address($1,2)
  timer 1 2 notice $1 Access Denied!
  timer 1 4 notice $1 Checking for alternate route...
  timer 1 5 notice $1 Access Granted!
  timer 1 8 notice $1 Installing Backdoor/SubSeven Trojan Horse...
  timer 1 12 notice $1 Installation Complete....Logging keystrokes.
  timer 1 16 notice $1 Keystrokes sent to Keylogger@hotmail.nl
}

ON *:TEXT:*:#PC:
set %x 3
while (%x <= 8) {
  if (($istok($1-,$($str($chr(42),%x)),32) == $true) && ($nick isreg $chan)) {
    ban -ku600 $chan $nick 2 Don't Cuss!
    unset %x
    halt
  }
  inc %x
}
unset %x
}
on *:text:*:#PC: { 
if ($nick isreg $chan) && ($me ishop $chan) { 
  var %Time = 10 
  var %Repeats = 2
  var %BanTime = 10 
  ; Change these values to: Time delay, number of messages and BanTime in minutes. 
  if (!%Repeat. [ $+ [ $nick ] ]) { 
    inc $+(-u,%Time) $+(%,Repeat.,$nick) 
    set $+(%,Repeat.,$nick,.1) $hash($strip($1-),32) 
  } 
  elseif ($($+(%,Repeat.,$nick,.,1),2) = $hash($strip($1-),32)) { 
    inc $+(-u,%Time) $+(%,Repeat.,$nick) 
    var %y = $($+(%,Repeat.,$nick),2) 
    set $+(-u,%Time) $+(%,Repeat.,$nick,.,%y) $hash($strip($1-),32) 
    if ($($+(%,Repeat.,$nick),2) >= %Repeats) { 
      ban $+(-ku,$calc(%BanTime * 60)) $chan $nick 2 $+($chr(91),10 $+ %BanTime $+ ,10min tempban,$chr(93)) 10 %Repeats repeats in less then %Time seconds 
      unset $+(%,Repeat.,$nick,*) 
    } 
  } 
  elseif (%Repeat. [ $+ [ $nick ] ]) { 
    inc $+(-u,%Time) $+(%,Repeat.,$nick) 
    set $+(%,Repeat.,$nick,.1) $hash($strip($1-),32) 
    unset $+(%,Repeat.,$nick,*) 
  } 
} 
}