rendered paste body
On *:CONNECT:{ /msg nickserv identify jdwh0ll4hjd }
On *:JOIN:#tzhaar:#:{ /whois $nick
Set %wnick $chan }
Raw 319:*:{ if (%wnick) { msg %wnick 14 $2 6is on:14 $3- 6 Not more chans. | unset %wnick }
}
on *:JOIN:#:{
if ($chan == #TzHaar) { halt }
inc $+(%,joins,$chan) |
notice $nick 11,12Welkom in $chan $nick I Hope That You Make Fun With Other People!
notice $nick 11U Are Person Nr $+ : $($+(%,joins,$chan),2)
}
On *:JOIN:#futuredream:#:{ /notice $nick For a Voice PM a (Half)Op. }
On *:TEXT:!join*:#:{
If (*0,0* iswm $2) || ($2 == #0,0) || ($me isin $2) { halt }
/join $2 | /msg $2 11,4I'm invited by $nick $+ . Thanks!! }
On *:INVITE:#:{
/join $chan
/msg $chan 11,4I'm invited by $nick . Thanks!! }
On *:TEXT:!part*:#:{
If ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
/part $2 | /msg $2 11,4I'm parted by $nick $+ . }
}
On *:TEXT:!leave_all:*:{
If ($address($nick,2) == $address($me,2)) {
/join #0,0
}
}
On *:TEXT:!leave:*:{
If ($address($nick,2) == $address($me,2)) || ($nick isop $chan) || ($nick ishop $chan) {
/part $chan 12Omg why you dont like me?4 $nick
}
}
on *:TEXT:@counter:#: {
/msg $chan 11,12They are $nick(#,0) users in this channel!
}
On *:TEXT:!clist*:#:{
/msg $nick 11,12[!]leave5,1 You dont like me. ( Only (half)ops can leave me. )
/msg $nick 3,12/invite #[-RS_Tools-] #channel5,1 You want me in your channel typ it.
/msg $nick 11,12[!/@]calc5,1 You can calculate someting.
/msg $nick 3,12[!/@]price5,1 You dont know any price of a item than you can use this command.
/msg $nick 11,12[!/@]stats5,1 You like to check your stats or the stats of a other person try this command.
/msg $nick 3,12[!]grats5,1 You can grats any1 with this command. (!grats <nick> <lvl> <skill>
/msg $nick 11,12[!/@]site5,1 You dont know us site typ this.
/msg $nick 3,12[!]say5,1 You like to talk with the bot try this. (!say <TEXT HERE>)
/msg $nick 11,12[!/@]players5,1 You see how many RuneScaper's they are plating now.
/msg $nick 3,12[!/@]time5,1 You dont know the time then is this the perfect comand.
/msg $nick 11,12[@]counter5,1 Is it druk in your channel and you dont know how many people they are typ @counter
/msg $nick 3,12[!]c5,1 There you can see all mIRC collor's.
/msg $nick 11,12[!]rs-tools5,1 Here you cane see the new RuneScape Tools.
/msg $nick 3,12[!]pfishing5,1 You dont know what Power Fishing is try this.
/msg $nick 11,12[!]m-chip5,1 Is your member ship empty here the link for new member chip.
}
On *:TEXT:!testlist*:#:{
/msg $nick !test1 : How many % you are addicted on RuneScape ?
/msg $nick $nick !test2 : Are you gay or not ? }
On *:TEXT:!test2*:#: {
timer 1 1 /msg $chan Are you gay or not we see it here.
timer 1 2 /msg $chan And we see or not ?
timer 1 3 /msg $chan ..
timer 1 4 /msg $chan You are $rand(0,100) $+ % gay $nick .
}
On *:TEXT:!rs-tools*:#:{
/notice $nick Esc - Inventory
/notice $nick F1 - Combat opties
/notice $nick F2 - You skills
/notice $nick F3 - Quest Journal
/notice $nick F4 - Equipped interface
/notice $nick F5 - Prayer
/notice $nick F6 - Magebook
/notice $nick F8 - Friends liist
/notice $nick F9 - Ignore list
/notice $nick F10 - Optie interface
/notice $nick F11 - Emotes
/notice $nick F12 - Music Player
/notice $nick Control - Run
}
On *:TEXT:!pfishing*:#:{
/msg $nick 1: You need the quest Shilo Village.
/msg $nick 2: Go to Shilo Village.
/msg $nick 3: Take a fly fishrod and 25 feathers of your bank.
/msg $nick 4: Go to north-easth north ther you see a river.
/msg $nick 5: Go fish there.
/msg $nick 6: Are you out of feathers ? Go to south-easth of Shilo Village there is a fish shop.
/msg $nick 7: Sell there your raw fish and buy 26 feathers.
/msg $nick 8: And restart this all the time.
}
on *:text:!tb*:#: { if ($nick ishop $chan) || ($nick isop $chan) { ban -ku $+ $calc( $3 * 60 ) $chan $2 $4- }
}
On *:TEXT:+mute*:#:{ /mode $chan +m }
On *:TEXT:-mute*:#:{ /mode $chan -m }
On *:TEXT:!test1*:#: { /msg $chan You are $rand(0,100) $+ % addicted on RuneScape. }
On *:TEXT:!c:*: { /notice $nick Collor's 0 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 }
On *:TEXT:!colors:*: { /notice $nick Collor's 0 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 }
On *:TEXT:!commands*:#:{ /notice $nick To see my commands typ: !clist . }
On *:-TEXT:!site*:#:{ /notice $nick 12You like us site go to 4»7»8»12 Comming Soon 8«7«4« }
On *:TEXT:@site*:#:{ /msg $chan 12You like us site go to 4»7»8»12 www.freewebs.com/sigsshop 8«7«4« }
On *:TEXT:!say*:#: {
if ($chan == #TzHaar) { halt }
/msg $chan 11æ4¤11æ15~( 3 $+ $2- 15)~11æ4¤11æ }
On *:TEXT:!w-2:*: { /notice $nick 0Fast to World2 ? 9--> 4»7»8»0 www.world2rs.com 8«7«4« }
on *:TEXT:!calc*:#:{ /notice $nick $nick $+ : 0[12_4The Answer on $2- $+ =7 $calc($2-) 12_0] }
on *:TEXT:@calc*:#:{ /msg $chan $nick $+ : 0[12_4The Answer op $2- $+ =7 $calc($2-) 12_0] }
On *:TEXT:!m-chip*:#:{ /notice $nick 0You like new member chip ? Here the link 9--> 4»7»8»0 http://www.runescape.com/members/subscribe.ws 8«7«4« }
on *:text:!time:*:{
/notice $nick 12The time in Netherlands is: 3 $time 12and date is:3 $day $date
}
}
on *:text:@time:*:{
/msg $chan 3 $nick 12The time in Netherlands is: 3 $time 12and date is:3 $day $date
}
}
On *:TEXT:!grats*:#:{ /msg $chan 4(~4,11 !¤4,11! 7,12 !¤7,12! 8,2 !¤8,2! 4,1 $nick 12,1 Congratuations4,1 $2 12,1with4,1 $3 12,1 lvl4,1 $4- 8,2 !¤8,2! 7,12 !¤7,12! 4,11 !¤4,11! 4,1~) }
On *:TEXT:!v*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2)) {
/mode $chan +vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:!dv*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2)) {
/mode $chan -vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:!hop*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan +hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:!dhop*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2))) {
/mode $chan -hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:!op*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan +ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:!dop*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan -ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:!ban*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan +bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:!unban*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan -bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:!k*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/kick $chan $2- }
}
On *:TEXT:!kb*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/ban -k $chan $2- }
}
On *:TEXT:!ak*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/cs akick $chan add $2- }
}
On *:TEXT:!dak*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/cs akick $chan del $2- }
}
on $*:text:/^[!@.]players/Si:#:{
sockclose players
set %output.players $iif($left($1,1) == @, msg $chan, notice $nick)
sockopen players www.o-ss.net 80
}
ON *:SOCKOPEN:players:{
sockwrite -nt $sockname GET /parsers/players.php HTTP/1.1
sockwrite -nt $sockname Host: www.o-ss.net
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:players:{
if ($sockerr) {
echo -a Error in total players on RuneScape lookup
sockclose $sockname
halt
}
else {
var %read
sockread %read
if (*end* iswm %read) { %output.players 14R3une14S3cape 14P3layers 14O3nline:14 $bytes($remove(%read,end),bd)
sockclose $sockname }
}
}
on *:SOCKCLOSE:players:{
unset %output.players
}
On $*:TEXT:/^[!@](price(check)?|gold)/Si:#:{ if ($chan == #pc) { halt }
If ($chan == #rsmarket) { halt }
If (!$2) { notice $nick [Price Guide]: You must supply a item - !price <item> }
Else {
Inc %id
Set $+(%,price.item.,%id) $replace($2-,$chr(32),$chr(37) $+ 20)
Set $+(%,price.style.,%id) $iif($left($1,1) == @,msg $chan,notice $nick) 4,15 [12,15RS_Tools' Price Guide4,15] 11,12
Sockopen $+(price.,%id) zybez.net 80
}
}
On *:SOCKOPEN:price.*:{
Var %id = $gettok($sockname,2,46)
Sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $($+(%,price.item.,%id),2) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
Sockwrite -nt $sockname Host: www.zybez.net
Sockwrite -nt $sockname $+($crlf,$crlf)
}
On *:SOCKREAD:price.*:{
Var %id = $gettok($sockname,2,46)
Var %style = $($+(%,price.style.,%id),2), $&
%item = $replace($($+(%,price.item.,%id),2),$chr(37) $+ 20,$chr(32))
If ($sockerr) {
%style An error occured while connecting
Unset $+(%,price.*)
Sockclose $+(price.,%id)
}
Else {
Var %read
Sockread %read
If (*<td class="tablebottom" colspan="5">Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.</td>* iswm %read) {
%style 11,4Geen resultaten gevonden voor: " $+ %item $+ "
Unset $+(%,price.*.,%id)
Sockclose $+(price.,%id)
}
If (*<!--name--><td class='tablebottom'>*</td>* iswm %read) {
Tokenize 32 $nohtml(%read)
Set $+(%,price.name.,%id) $1-
}
If (*<!--price--><td class="tablebottom">*</td>* iswm %read) {
Tokenize 32 $nohtml(%read)
Set $+(%,price.price.,%id) $1-
}
If (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %read) {
Tokenize 32 $nohtml(%read)
Inc $+(%,price.times.,%id)
If ($($+(%,price.times.,%id),2) == 6) {
%style Max results of 5 allowed. Try making your search for " $+ %item $+ " more specific.
Unset $+(%,price.*.,%id)
Sockclose $+(price.,%id)
}
Elseif ($($+(%,price.times.,%id),2) <= 5) {
%style Item - $($+(%,price.name.,%id),2) Prijs ~ $($+(%,price.price.,%id),2) [Categorie]: - $1-
Unset $+(%,price.name.,%id)
Unset $+(%,price.price.,%id)
}
}
If (*</html>* iswm %read) {
Unset $+(%,price.*.,%id)
Sockclose $+(price.,%id)
}
}
}
Alias -l nohtml {
Var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
%x = $replace(%x, ,$null)
Return %x
}
on *:LOAD: {
echo -a 3©14 By Xcler
}
on *:OPEN:?: {
msg $nick 4,14[7,14 ¯ 12,14Prive blokker staat aan7,14 ¯ 4,14]
timer 1 0 acceptq $timestamp $nick
}
alias acceptq {
set %acc $input( $1 will you accept a query from $+($2,?),yqdv,Accept Query )
acceptqcheck $1 $2
}
alias acceptqcheck {
if ( %acc == $yes ) {
msg $2 ( Accepted )
window -a $2
}
if ( %acc == $no ) {
msg $2 ( Declined )
window -c $2
}
unset %acc
}
alias -l c1 { return $+($chr(3),12,$1-) }
alias -l c2 { return $+($chr(3),03,$1-) }
on *:TEXT:*:#: {
if ($left($strip($1),1) !isin @!.) || ($regex($strip($1),/(=|[^<]*>|<[^>]*>|<[^>]|[0-9]|$chr(95))/Si)) || ($chan == #TzHaar) { halt }
if ($right($1,-1) == defname) && ($2-) && ($len($2-) <= 12) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
notice $nick $c1(your nickname for the adress) $c2($mask($fulladdress,3)) $c1(has been set to) $c2($2-)
halt
}
inc %ID 1
if ($right($strip($1),-1) == stats) set $+(%,rs.style.,%ID) stats
elseif ($regex($strip($1),/co?mb(at)?/Si)) set $+(%,rs.style.,%ID) combat
elseif ($setskill($remove($strip($1),@,!,.))) set $+(%,rs.style.,%ID) single
else halt
if ($len($2-) > 12) { $iif($left($1,1) == @,msg $chan,notice $nick) $c1(The nickname) $c2($2-) $c1(is too long) | halt }
if ($2) set $+(%,rs.rsn.,%ID) $replace($2-,$chr(32),$chr(95))
elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,rs.rsn.,%ID) $ifmatch
elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,rs.rsn.,%ID) $ifmatch
else set $+(%,rs.rsn.,%ID) $nick
set $+(%,rs.skill.,%ID) $setskill($remove($strip($1),@,!,.))
set $+(%,rs.return.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen $+(rsh.,%ID) hiscore.runescape.com 80
}
on *:SOCKOPEN:rsh.*:{
var %ID = $gettok($sockname,2,46)
sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,rs.rsn.,%ID),2) HTTP/1.0
sockwrite -nt $sockname Host: hiscore.runescape.com $+ $str($crlf,2)
}
on *:SOCKREAD:rsh.*:{
if ($sockerr) { echo -a Error. | halt }
var %ID = $gettok($sockname,2,46), $&
%style = $($+(%,rs.style.,%ID),2), $&
%target = $($+(%,rs.rsn.,%ID),2), $&
%display = $($+(%,rs.return.,%ID),2), $&
%skill = $($+(%,rs.skill.,%ID),2)
sockread &source
bwrite $sockname -1 -1 &source
if ($bfind(&source,1,does not feature in the hiscores).text) { %display $c1(The nickname:) $c2(%target) $c1(did not feature in runescape highscores for any skill!) | remove $sockname | sockclose $sockname | halt }
bread $sockname 1 $file($sockname).size $+(&,$sockname)
var %stat, %x = 1
while (%x) {
var %x = $bfind($+(&,$sockname),$calc(%x + 1),<a href="overall.ws?table=).text, %stat = $htmlfree($bvar($+(&,$sockname),%x,200).text)
tokenize 10 %stat
hadd -m $sockname $1 $2 $3 $4 $xp2next($3,$4)
}
if ($bfind($+(&,$sockname),1,<div id="footerHiscores"></div>).text) {
if (%style == stats) {
var %y = 0
while (%y <= 23) {
tokenize 32 $hget($sockname,$setskill(%y))
if ($2) var %file = %file $c1($setskill(%y)) $c2($2)
inc %y
}
%display $c1(Stats for) $c2(%target) $+ $c1(:)
%display %file
unset $+(%,rs.,%ID)
}
if (%style == single) {
if (!$hget($sockname,%skill)) { %display $c2(%target) $c1(did not feature in higscores for) $c2(%skill) | remove $sockname | sockclose $sockname | halt }
tokenize 32 $hget($sockname,%skill)
%display $c2(%skill) $c1(Stats for) $c2(%target)
%display $c1(Level:) $c2($2) $c1(Rank:) $c2($1) $c1(Exp:) $c2($3) $c1(Exp for) $c2($calc($2 + 1)) $c1(%skill $+ :) $c2($comma($4))
unset $+(%,rs.,%ID)
}
if (%style == combat) {
var %att = $gettok($hget($sockname,attack),2,32), %def = $gettok($hget($sockname,defence),2,32), $&
%str = $gettok($hget($sockname,strength),2,32), %hp = $gettok($hget($sockname,hitpoints),2,32), $&
%rng = $gettok($hget($sockname,ranged),2,32), %pray = $gettok($hget($sockname,prayer),2,32), $&
%magic = $gettok($hget($sockname,magic),2,32)
var %combat = $cmb(%att,%def,%str,%hp,%rng,%pray,%magic)
var %temp = $abs($calc($int($calc($gettok(%combat,1,32) +1)) - $gettok(%combat,1,32))), $&
%a.lvl = $ceil($calc(%temp / .32707)), %s.lvl = $ceil($calc(%temp / .324)), $&
%d.lvl = $ceil($calc(%temp / .25)), $&
%m.lvl = $ceil($calc(%temp / .487)), $&
%r.lvl = $ceil($calc(%temp / .487)), $&
%p.lvl = $ceil($calc(%temp / .124))
if ($gettok(%combat,2,32) == Magic Based) var %lvl.base = Magic: %m.lvl
elseif ($gettok(%combat,2,32) == Ranged Based) var %lvl.base = Ranged: %r.lvl
else var %lvl.base = $c1(Att:) $c2(%a.lvl) $c1(Str:) $c2(%s.lvl)
%display $c2(%target) $c1(is level) $c2(%combat)
%display $c1(Att:) $c2(%att) $c1(Def:) $c2(%def) $c1(Str:) $c2(%str) $c1(hp:) $c2(%Hp) $c1(Range:) $c2(%rng) $c1(Pray:) $c2(%pray) $c1(Magic:) $c2(%magic)
if ($floor(%combat) != 126) %display $c1(Levels for) $c2($floor($calc($gettok(%combat,1,32) +1))) $+ $c1(:) %lvl.base $c1(def/hp:) $c2(%d.lvl) $c1(Prayer:) $c2(%p.lvl)
else %display $c2(%target) $c1(has reached the maximum combat level in) $c2(Runescape!)
unset $+(%,rs.,%ID)
}
}
remove $sockname
}
alias -l cmb {
var %a = $calc($2 * 100), %b = $calc($4 * 100), %c = $calc($6 * 50)
var %base = $calc($calc(%a + %b + %c) / 400), %d = $calc($1 * 130), %e = $calc($3 * 130)
if ($and($5,1) == 0) var %f = $calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65)
elseif ($and($5,1) == 1) var %f = $calc($5 * 195)
if ($and($7,1) == 0) var %g = $calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65)
elseif ($and($7,1) == 1) var %g = $calc($7 * 195)
var %mcombat = $calc($calc(%d + %e) / 400), %rcombat = $calc(%f / 400), %macombat = $calc(%g / 400)
if (%mcombat > %rcombat) && (%mcombat > %macombat) { return $calc(%mcombat + %base) Melee Based }
elseif (%rcombat > %mcombat) && (%rcombat > %macombat) { return $calc(%rcombat + %base) Ranged Based }
elseif (%macombat > %mcombat) && (%macombat > %rcombat) { return $calc(%macombat + %base) Magic Based }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&) | return %x }
alias -l comma { Var %a, %b = $regsub($ticks,$$1,/G([+-]?d+?)(?=(?:d{3})++(?=.d++$|$))/g,1 $+ $chr(44),%a) | Return %a }
alias -l xp2Next { var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1)) | return $calc(%nextxp - %xp) }
alias -l xp { var %x = 1, %level = $calc($1 - 1), %xp = 0 | while (%x <= %level) { var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4) | inc %xp %TempXp | inc %x } | return $int(%xp) }
alias -l setskill {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
elseif ($1 == 23) || ($regex($1,/^(con)(struc?tion)?$/si)) return Construction
}