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 (*
* 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/) {
$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/)) {
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,/(.*gp) | /) {
.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,//) && $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)
}