Something

on *:TEXT:!startevent:#:{ 
  /msg $chan event starts in: 30secs! 
  .timer 1 5 msg $chan 4 55secs 12left till the event! 
  .timer 1 10 msg $chan 4 50secs 12left till event starts! 
  .timer 1 20 msg $chan 4 40secs 12left till event starts!
  .timer 1 40 msg $chan 4 20secs 12left till event starts!
  .timer 1 50 msg $chan 4 10secs 12left till event starts!
  .timer 1 60 msg $chan 12 EVENT STARTS NOW !!!
}

on *:TEXT:*!event*:#: { /msg $chan there is no event set ATM }

on *:JOIN:#:/msg $chan 1H2E3E4E5E6E7E8E9Y! 1,0 $nick !!!! 10Welkom 11in 12dit 13cool 14chan 15:D :D!

on *:text:*!slaapwel*:#: { /describe $chan 1geeft $2 een groote, dikke nachtzoen!!! 4xXxXxXx(K)SMAK(K)xXxXxXx 1slaaapwel $2 }
on *:text:*!smakelijk*:#: { /msg $chan EET SMAKELIJK $2 tot zo meteen :D!! }
on *:text:*!hey*:#: { /msg $chan HEEEEEEEEEEEY $2 alles goe????!!!!! :D :D!! }

on *:text:*!gratz*:#: { /msg # 2W3O4O5O6O7O8O9O10O11O12O13O14O15T 1GRAAAAATZZZ 13 $2 1on13 $3 $4 1 $5 $6 $7 $8 $9 $10 $11 :D :D!!!!! }

on *:text:*!ahop*:#: { /cs access $chan add $2 4 }
on *:TEXT:!aop*:#: { if ($nick isop $chan) { cs access $chan add $2- 4 } }
on *:text:*!av*:#: { /cs access $chan add $2 3 }
on *:text:*!hop*:#: { /cs halfop $chan $2 }
on *:text:*!v*:#: { /cs voice $chan $2 }

on *:text:*!k*:#: { /cs kick $chan $nick whahahahaha kick je eige niet he :D }

on *:text:*!b*:#: { /cs ban $chan $2 come back in few mins... }

on *:text:*!food*:#: { /describe $chan Gives $nick a huge, large, tasty hamburger!!!! }
on *:text:*!nub*:#: { /msg # LOOOL $2 is a nooob :D!!!!! }
on *:text:*zezima:#: { kick $chan $nick # dont EVER say that stupid name hire!!! }
on *:TEXT:*back!*:#: { /msg $chan heya welcome back $nick =) u had u great time?!!!!! }
on *:TEXT:*brb!*:#: { /msg $chan ok see u later $nick ;) }
on *:TEXT:*!forum*:#: { /msg $chan Heya $nick u can visit our wunderful clan forum at 4http://www.rs4thafun.messageboard.be1 have fun!  }
on *:TEXT:*!claninfo*:#: { 
  msg $chan Total Members: 3 
  msg $chan Average Combat: 6.55 
  msg $chan Average Hitpoints: 1
  msg $chan Average Overall: 466
  msg $chan Total XP: 83,797,243
msg $chan U can visit the memberlist at 0,1http://www.runehead.com/clans/ml.php?clan=rs4thafun }

==========================================================================================================================================
__________________________________________________________________________________________________________________________________________
==========================================================================================================================================
CALC SCRIPT

on *:TEXT:@calc*:#: { 
  if ($2- == $null) { 
  msg $chan Sorry $nick $+ . I can't calculate " $+ $2- $+ " I only can calculate with + - / * ^ ( ) pi % ‰ ¼ ½ ¾ K M B T. } 
  else { 
    inc %variablecalc
    msg $chan 4[3Calculator4]3 $2- 4=3 $bytes($calc($replace($2-,x,*,:,/,pi,3.141592,‰,/1000*1,%,/100*1,¼,/4,½,/2,¾,/3,k,000,m,000000,b,000000000,t,000000000000,pi,$pi)),bd) 4(10 $+ %variablecalc $+ 4)
  } 
} 
on *:TEXT:!calc*:#: {  
  if ($2- == $null) { 
    notice $nick Sorry $nick $+ . I can't calculate " $+ $2- $+ " I only can calculate with + - / * ^ ( ) pi % ‰ ¼ ½ ¾ K M B T.
  } 
  else { 
    inc %variablecalc
    notice $nick 4[3Calculator4]3 $2- 4=3 $bytes($calc($replace($2-,x,*,:,/,pi,3.141592,‰,/1000*1,%,/100*1,¼,/4,½,/2,¾,/3,k,000,m,000000,b,000000000,t,000000000000,pi,$pi)),bd) 4(10 $+ %variablecalc $+ 4)
  } 
} 


==========================================================================================================================================
__________________________________________________________________________________________________________________________________________
==========================================================================================================================================
GRATZ SCRIPT!!!!!

on $*:TEXT:/^[@!.](con)?grat[zs](ulation[zs])?/Si:#: {
  if ($2 isnum 2-99) && ($skill($3)) {
    msg # 15«14«15«4 Woohoo! Congratulations on level 10 $+ $2 $+ 4  4  $+ $skill($3) 15»14»15»
  }
  else {
    notice $nick Wrong syntax, Example: !gratz 99 attack
  }
}
alias skill {
  if ($regex($1,/^(total|overall)/Si)) || ($1 == 1) { Return Overall }
  elseif ($regex($1,/^(att|atk|attack)/Si)) || ($1 == 2) { Return Attack }
  elseif ($regex($1,/^(str|strenth|strength)/Si)) || ($1 == 4) { Return Strength }
  elseif ($regex($1,/^(def|defend|defence)/Si)) || ($1 == 3) { Return Defence }
  elseif ($regex($1,/^(hp|hits|hitpoints|hit)/Si)) || ($1 == 5) { Return Hitpoints }
  elseif ($regex($1,/^(range|ranging|arch|archery|arching)/Si)) || ($1 == 6) { Return Range }
  elseif ($regex($1,/^(pray|prayer|praying)/Si)) || ($1 == 7) { Return Prayer }
  elseif ($regex($1,/^(mage|magic)/Si)) || ($1 == 8) { Return Magic }
  elseif ($regex($1,/^(cook|cooking)/Si)) || ($1 == 9) { Return Cooking }
  elseif ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) || ($1 == 10) { Return Woodcutting }
  elseif ($regex($1,/^(fletch|fletching)/Si)) || ($1 == 11) { Return Fletching }
  elseif ($regex($1,/^(Fishing|fishing|fishcatching)/Si)) || ($1 == 12) { Return Fishing }
  elseif ($regex($1,/^(fm|fire|firemaking)/Si)) || ($1 == 13) { Return Firemaking }
  elseif ($regex($1,/^(craft|crafting)/Si)) || ($1 == 14) { Return Crafting }
  elseif ($regex($1,/^(smithing|metalmaking|smith)/Si)) || ($1 == 15) { Return Smithing }
  elseif ($regex($1,/^(Mine|mining)/Si)) || ($1 == 16) { Return Mining }
  elseif ($regex($1,/^(Herb|Herblore)/Si)) || ($1 == 17) { Return Herblore }
  elseif ($regex($1,/^(Agil|agi|Agility)/Si)) || ($1 == 18) { Return Agility }
  elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) || ($1 == 19) { return Thieving }
  elseif ($regex($1,/^(slay|slayer)/Si)) || ($1 == 20) { Return Slayer }
  elseif ($regex($1,/^(farm|Farming|planting)/Si)) || ($1 == 21) { Return Farming }
  elseif ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) || ($1 == 22) { Return Runecrafting }
  elseif ($regex($1,/^(hunt|hunting|hunter)/Si)) || ($1 == 23) { return Hunter }
  elseif ($regex($1,/^con(scruct)?(tion)?/Si)) || ($1 == 24) { return Construction }
  elseif ($regex($1,/^summon(ing)?/Si)) || ($1 == 25) { return Summoning }
} 

==========================================================================================================================================
__________________________________________________________________________________________________________________________________________
==========================================================================================================================================
MAXED SCRIPT!!!

alias -l c1 { return $chr(03) $+ 04 $+ $1- }
alias -l c2 { return $chr(03) $+ 14 $+ $1- }
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
on $*:text:/^[@\.!#](maxed(stats)?)/Si:#:{
  var %sckid = $right($ticks,5)
  if ($left($1,1) == @) set %way. [ $+ [ %sckid ] ] msg $chan
  if ($left($1,1) == .) set %way. [ $+ [ %sckid ] ] notice $nick
  if ($left($1,1) == !) set %way. [ $+ [ %sckid ] ] notice $nick
  if ($left($1,1) == #) set %way. [ $+ [ %sckid ] ] msg $chan
  if (!$2) {
    %way. [ $+ [ %sckid ] ] $c2(Please supply a user to look up!)
    halt
  }
  else {
    set %nick. [ $+ [ %sckid ] ] $replace($2-,$chr(32),$chr(95))
    sockopen maxedstats. [ $+ [ %sckid ] ] hiscore.runescape.com 80
  }
}
on *:SOCKOPEN:maxedstats.*: {
  var %x $right($sockname,-11)
  sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ %nick. [ $+ [ %x ] ]  HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:maxedstats.*: {
  var %x $right($sockname,-11)
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if ($nohtml(%sockreader) == %sockreader && %sockreader) {
      var %skill %sockreader
      var %sr 1
      while (%sr < 5) {
        sockread %sockreader
        inc %sr
      }
      var %rank. [ $+ [ %x ] ] $nohtml(%sockreader)
      sockread %sockreader
      if ($nohtml(%sockreader) == 99) {
        set %displine. [ $+ [ %x ] ] $iif(%displine. [ $+ [ %x ] ],%displine. [ $+ [ %x ] ],$null) $c1(%skill) $c2(( $+ %rank. [ $+ [ %x ] ] $+ ))
        inc %amount. [ $+ [ %x ] ]
      }
    }
    if (*<img class="miniimg" src="http://www.runescape.com/img/hiscores/game_icon_dueltournament1.gif">* iswm %sockreader) {
      if (!%amount. [ $+ [ %x ] ]) {
        %way. [ $+ [ %x ] ] $c1($replace($upper($left(%nick. [ $+ [ %x ] ],1)) $+ $right(%nick. [ $+ [ %x ] ],-1),$chr(95),$chr(32),$chr(45),$chr(32))) $c2(does not appear in Highscores, or has no skills maxed out!)
      }
      else {
        %way. [ $+ [ %x ] ] $c1($replace($upper($left(%nick. [ $+ [ %x ] ],1)) $+ $right(%nick. [ $+ [ %x ] ],-1),$chr(95),$chr(32),$chr(45),$chr(32))) $c2(has already maxed out) $c1(%amount. [ $+ [ %x ] ] $+ /23) $c2(skills!)
        %way. [ $+ [ %x ] ] $c2(Rankings of the maxed stats:) %displine. [ $+ [ %x ] ]
      }
      unset %*. [ $+ [ %x ] ]
    }
  }
} 

==========================================================================================================================================
__________________________________________________________________________________________________________________________________________
==========================================================================================================================================
PRICE SCRIPT!!

on $*:TEXT:/^[!@](rs)?price[sz]?/Si:*: {
  .var %ID = $+($r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100))
  if (!$2) {
    $iif($query($nick),.msg $nick, $iif($left($1,1) == @,.msg $chan,.notice $nick)) $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),$c1,:) $c1(Please supply a item to search for.) $+($c1,$chr(40),$c2,zybez.net,$c1,$chr(41)) | .halt
  }
  elseif ($numtok($2-,44) > 4) {
    $iif($query($nick),.msg $nick, $iif($left($1,1) == @,.msg $chan,.notice $nick)) $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),$c1,:) $c1(Please dont check more than 4 items at ones!) $+($c1,$chr(40),$c2,zybez.net,$c1,$chr(41)) | .halt
  }
  .inc -u15 $+(%,pprice.total.,%ID)
  .sockopen $+(price.,%ID) www.zybez.net 80
  .sockmark $+(price.,%ID) $+($iif($replace($gettok($gettok($2-,1,32),1,44),k,000,m,000000,b,000000000) isnum,$remove($gettok($2-,1,44),$gettok($gettok($2-,1,32),1,44)),$gettok($2-,1,44)),|,$2-,|,$iif($query($nick),.msg $nick, $iif($left($1,1) == @,.msg $chan,.notice $nick)))
}
on *:SOCKOPEN:price.*: {
  .var %ID = $gettok($sockname,2,46)
  .sockwrite -n $sockname GET $+(/priceguide.php?search_terms=,$replace($gettok($sock($sockname).mark,1,124),_,+,_,+,$chr(32),+),&search_area=1&price_low=&price_high=&member=1&all_prices=1&sortby=price&sort=DESC&ppage=50) HTTP/1.1
  .sockwrite -n $sockname User-Agent: Vectra (MMORPG stats bot; vectra-bot.org;)
  .sockwrite -n $sockname Host: $+(www.zybez.net,$crlf,$crlf)
}
on *:SOCKREAD:price.*: {
  .var %ID = $gettok($sockname,2,46)
  if ($sockerr) { $gettok($sock($sockname).mark,3,124) Error connecting to site. | .sockclose $sockname | .halt }
  .var %sockreader
  .sockread %sockreader
  if $regex(%sockreader,/>Viewing 0 of 0 Results</td>/) {
    $gettok($sock($sockname).mark,3,124) $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),$c1,:) $c1(The results for) $+($c1,",$c2,$replace($gettok($sock($sockname).mark,1,124),+,$chr(32)),$c1,") $c1(was not found.) $+($c1,$chr(40),$c2,zybez.net,$c1,$chr(41))
    .sockclose $sockname | .halt
  }
  elseif ($regex(%sockreader,/>Viewing (.*) of (.*) Results</td>/)) {
    if ($numtok($gettok($sock($sockname).mark,2,124),44) == 1) {
      .set -u15 $+(%,pprice.tot.,%ID) $regml(2)
    }
  }
  if $regex(%sockreader,/\[M]/) {
    if ($numtok($gettok($sock($sockname).mark,2,124),44) > 1) {
      .set -u15 $+(%,price.mem.,%ID,$($+(%,pprice.total.,%ID),2)) $+($c1,$chr(91),$c2,M,$c1,$chr(93))
    }
    else {
      .set -u15 $+(%,price.mem.,%ID,$calc($($+(%,pprice.tootal.2,%ID),2) + 1)) $+($c1,$chr(91),$c2,M,$c1,$chr(93))
    }
  }
  if $regex(%sockreader,/search_term=(.*)" title="More information/) {
    .inc -u15 $+(%,pprice.tootal.2,%ID)
    .set -u15 $+(%,price.name.,%ID,$($+(%,pprice.tootal.2,%ID),2)) $regml(1)
  }
  if $regex(%sockreader,/<td>(.*gp)</td>/) {
    .inc -u15 $+(%,pprice.tootal.3,%ID)
    .set -u15 $+(%,price.p1.,%ID,$($+(%,pprice.tootal.3,%ID),2)) $remove($gettok($regml(1),1,32),gp,$chr(44))
    if ($gettok($regml(1),3,32)) { .set -u15 $+(%,price.p2.,%ID,$($+(%,pprice.tootal.3,%ID),2)) $remove($gettok($regml(1),3,32),gp,$chr(44)) }
    if ($numtok($gettok($sock($sockname).mark,2,124),44) > $($+(%,pprice.total.,%ID),2) && !$($+(%,pprice.tot.,%ID),2)) {
      .pnext %ID $+($gettok($sock($sockname).mark,2,124),|,$gettok($sock($sockname).mark,3,124))
      .halt
    }
    if ($numtok($gettok($sock($sockname).mark,2,124),44) > 1 && $numtok($gettok($sock($sockname).mark,2,124),44) == $($+(%,pprice.total.,%ID),2)) {
      .var %x = 1
      while (%x <= $numtok($gettok($sock($sockname).mark,2,124),44)) {
        .set -u15 $+(%,pprice.p1total.,%ID) $calc($($+(%,pprice.p1total.,%ID),2) + ($iif($replace($gettok($gettok($gettok($sock($sockname).mark,2,124),%x,44),1,32),k,000,m,000000,b,000000000) isnum,$v1,1) * $($+(%,price.p1.,%ID,%x),2)))
        if ($($+(%,price.p2.,%ID,%x),2)) { .set -u15 $+(%,pprice.p2total.,%ID) $calc($($+(%,pprice.p2total.,%ID),2) + ($iif($replace($gettok($gettok($gettok($sock($sockname).mark,2,124),%x,44),1,32),k,000,m,000000,b,000000000) isnum,$v1,1) * $($+(%,price.p2.,%ID,%x),2))) }
        .set -u15 $+(%,pprice.result.,%ID) $($+(%,pprice.result.,%ID),2) $c1($chr(124)) $($+(%,price.mem.,%ID,%x),2) $($+(%,price.name.,%ID,%x),2) $+($c2,$bytes($calc($iif($replace($gettok($gettok($gettok($sock($sockname).mark,2,124),%x,44),1,32),k,000,m,000000,b,000000000) isnum,$v1,1) * $($+(%,price.p1.,%ID,%x),2)),db),$c1,gp) $iif($($+(%,price.p2.,%ID,%x),2),$c1(-) $+($c2,$bytes($calc($iif($replace($gettok($gettok($gettok($sock($sockname).mark,2,124),%x,44),1,32),k,000,m,000000,b,000000000) isnum,$v1,1) * $($+(%,price.p2.,%ID,%x),2)),db),$c1,gp))
        .inc %x
      }
      .tokenize 32 $($+(%,pprice.result.,%ID),2)
      $gettok($sock($sockname).mark,3,124) $c1(**) $+($c1,$chr(40),$c2,$upper(price),$c1,$chr(41),$c1,:) $2- $c1($chr(124)) $c1(Total:) $+($c2,$bytes($($+(%,pprice.p1total.,%ID),2),db),$c1,gp) $iif($($+(%,price.p2.,%ID,%x),2),$c1(-) $+($c2,$bytes($($+(%,pprice.p2total.,%ID),2),db),$c1,gp)) $+($c1,$chr(40),$c2,zybez.net,$c1,$chr(41))
      .sockclose $sockname | halt
    }
  }
  if ($regex(%sockreader,/<!-- Search Results: End -->/) && $numtok($gettok($sock($sockname).mark,2,124),44) == 1) {
    .var %x = 1
    while (%x <= $iif($($+(%,pprice.tootal.2,%ID),2) > 4,4,$($+(%,pprice.tootal.2,%ID),2))) {
      .set -u15 $+(%,pprice.result.,%ID) $($+(%,pprice.result.,%ID),2) $c1($chr(124)) $($+(%,price.mem.,%ID,%x),2) $($+(%,price.name.,%ID,%x),2) $+($c2,$bytes($calc($iif($replace($gettok($gettok($gettok($sock($sockname).mark,2,124),1,44),1,32),k,000,m,000000,b,000000000) isnum,$v1,1) * $($+(%,price.p1.,%ID,%x),2)),db),$c1,gp) $iif($($+(%,price.p2.,%ID,%x),2),$c1(-) $+($c2,$bytes($calc($iif($replace($gettok($gettok($gettok($sock($sockname).mark,2,124),1,44),1,32),k,000,m,000000,b,000000000) isnum,$v1,1) * $($+(%,price.p2.,%ID,%x),2)),db),$c1,gp))
      .inc %x
    }
    .tokenize 32 $($+(%,pprice.result.,%ID),2)
    $gettok($sock($sockname).mark,3,124) $c1(**) $+($c1,$chr(40),$c2,$upper(price),$c1,$chr(41),$c1,:) $iif($($+(%,pprice.tootal.2,%ID),2) == 1,$2-,$c1(Results:) $c2($($+(%,pprice.tot.,%ID),2)) $1-) $+($c1,$chr(40),$c2,zybez.net,$c1,$chr(41))
    .sockclose $sockname | halt
  }
} 

==========================================================================================================================================
__________________________________________________________________________________________________________________________________________
==========================================================================================================================================
NOOBKICK

on *:TEXT:!NoobKick*:#: {
  set %rand $rand(1,2)
  if (%rand == 1) msg $chan 4[12NoobKick4]7:1 $nick Kicks $2 hij/zij vliegt: $rand(0,9999) $+ Meter
  if (%rand == 2) msg $chan 4[12NoobKick4]7:1 $nick Kicks $2 hij/zij vliegt: $rand(0,9999) $+ kilometer
  set %place $rand(1,6)
  if (%place == 1) msg $chan 4[12NoobKick4]7:1 $2 vliegt tot in Lumbridge
  if (%place == 2) msg $chan 4[12NoobKick4]7:1 $2 vliegt Tot in Edgville
  if (%place == 3) msg $chan 4[12NoobKick4]7:1 $2 vliegt Tot in Wilderness
  if (%place == 4) msg $chan 4[12NoobKick4]7:1 $2 vliegt Tot in Varrock
  if (%place == 5) msg $chan 4[12NoobKick4]7:1 $2 vliegt Tot in Fallador
  if (%place == 6) msg $chan 4[12NoobKick4]7:1 $2 vliegt Tot in Camalot
  set %money $rand(1,3)
  if (%money == 1) msg $chan 4[12NoobKick4]7:1 $nick kreeg $rand(0,999) $+ K voor zijn/haar hulp
  if (%money == 2) msg $chan 4[12NoobKick4]7:1 $nick kreeg $rand(1,50) $+ M voor zijn/haar hulp
  if (%money == 3) msg $chan 4[12NoobKick4]7:1 $nick kreeg $rand(0,999) $+ GP voor zijn/haar hulp
  set %item $rand(1,5)
  if (%item == 1) msg $chan 4[12NoobKick4]7:1 $nick doorzocht $2 zijn inventoris en pakte de gele partyhad
  if (%item == 2) msg $chan 4[12NoobKick4]7:1 $nick doorzocht $2 zijn inventoris en pakte een  abbysal whip
  if (%item == 3) msg $chan 4[12NoobKick4]7:1 $nick doorzocht $2 zijn inventoris en vond een santa maar durfde het niet nemen..
  if (%item == 4) msg $chan 4[12NoobKick4]7:1 $nick doorzocht $2 zijn inventoris en pakte de DDP
  if (%item == 5) msg $chan 4[12NoobKick4]7:1 $nick doorzocht $2 zijn inventoris en vond een chocolade bar
}


on $*:TEXT:/^[!@]lolcount/Si:#:{
  if ($chan == #rstrivia) { halt }
  var %o $iif(@* iswm $1,msg $chan,notice $nick)
  %o 12I have seen4 %lol 12people saying 4lol 12so far
}
on *:TEXT:*lol*:#:{
  inc %lol 


  on $*:text:/^[!@.`,~^](tb|timeb|timeban|tban)/Si:#:{ 
    if ($nick isop $chan) { 
      ban $+(-ku,$($duration($$3),2)) $chan $2 Banned for $replace($3,s,second,m,minute,h,hour) Reason: $4- 
    } 
  } 


on *:TEXT:!setgoal*:#: { 
  set $+(%goal,$nick) $3- 
  notice $nick goal set to: $3- 
} 

on *:TEXT:!goal*:#: { 
  var %name = $iif($2,$2-,$nick) 
  notice $nick $iif($(,$+(%goal,%name)),The goal for %name is: $v1,%name has no goal set) 
}