API tools faq
paste
glacier_rat

Glacier_Rat

glacier_rat
Jun 22nd, 2010
428
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ProvideX 22.19 KB | None | 0 0
raw download clone embed print report
  1. Calc script
  2. =========================
  3. On $*:TEXT:/^[.!@]Calc/Si:#: msg # $calc($replace($1-,x,*))
  4. ======================
  5.  
  6.  Stat script
  7. =======================================
  8. Runescript Script:
  9. [quote]
  10. Commands:
  11. !stats username
  12. !skill username
  13. !combat username
  14. .!defname username
  15. Extra Info: I added auto protection for hacking it, there is an auto 6sec ignore on any user who triggers to prevent flooding/spam/etc.. , and I added support for channels with mode +c, and you can pm the bot for the script aswell
  16. All aliases required have been added, although I didnt make an item to next level thing, Im not doing all the work for ya lol
  17. btw: combat alias is smooth's cause his owns and i blow at math :D
  18. [/quote]
  19. [code]
  20. alias pcp { return $calc($floor($calc(($1 * $1) / 600)) * 35) }
  21. alias s1 { return $iif(c isincs $chan($1).mode,$strip($2-),$+($chr(3),10,$2-)) }
  22. alias s2 { return $iif(c isincs $chan($1).mode,$strip($2-),$+($chr(3),07,$2-)) }
  23. alias s3 { return $iif(c isincs $chan($1).mode,$strip($2-),$+($chr(3),03,$2-)) }
  24. alias fskill {
  25.   return $findtok(Stats.Atk.Def.Str.Hp.Range.Pray.Mage.Cook.Wc.Fletch.Fish.Fm.Craft.Smith.Mine.Herb.Agil.Thief.Slay.Farm.Rc.Hunt.Con.Summ.Dung,$1,46)
  26. }
  27. alias gskill {
  28.   return $gettok(Stats.Attack.Defence.Strength.Hitpoints.Ranged.Prayer.Magic.Cooking.Woodcutting.Fletch.Fish.Firemake.Craft.Smith.Mine.Herb.Agility.Thief.Slayer.Farm.Rc.Hunt.Construct.Summon.Dungeoneering,$1,46)
  29. }
  30. alias iSkill {
  31.   if ($regex($1,/^(cmb|combat)$/Si)) return Combat
  32.   elseif ($1 == 1) || ($regex($1,/^(rsstats|stats|overall)$/Si)) return Stats
  33.   elseif ($1 == 2) || ($regex($1,/^at(t|k|tack)$/Si)) return Atk
  34.   elseif ($1 == 3) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Def
  35.   elseif ($1 == 4) || ($regex($1,/^str(ength|enght)?$/Si)) return Str
  36.   elseif ($1 == 5) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hp
  37.   elseif ($1 == 6) || ($regex($1,/^range(r|d|ing)?$/Si)) return Range
  38.   elseif ($1 == 7) || ($regex($1,/^Pray(er)?$$/Si)) return Pray
  39.   elseif ($1 == 8) || ($regex($1,/^mag(e|ic)$$/Si)) return Mage
  40.   elseif ($1 == 9) || ($regex($1,/^cook(ing)?$/Si)) return Cook
  41.   elseif ($1 == 10) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Wc
  42.   elseif ($1 == 11) || ($regex($1,/^fletch(ing)?$/Si)) return Fletch
  43.   elseif ($1 == 12) || ($regex($1,/^fish(ing)?$/Si)) return Fish
  44.   elseif ($1 == 13) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Fm
  45.   elseif ($1 == 14) || ($regex($1,/^craft(ing)?$/Si)) return Craft
  46.   elseif ($1 == 15) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smith
  47.   elseif ($1 == 16) || ($regex($1,/^min(e|ing)?$/Si)) return Mine
  48.   elseif ($1 == 17) || ($regex($1,/^herb(law|lore)?$/Si)) return Herb
  49.   elseif ($1 == 18) || ($regex($1,/^agil(ity)?$/Si)) return Agil
  50.   elseif ($1 == 19) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thief
  51.   elseif ($1 == 20) || ($regex($1,/^slay(er|ing)?$/Si)) return Slay
  52.   elseif ($1 == 21) || ($regex($1,/^farm(er|ing)?$/Si)) return Farm
  53.   elseif ($1 == 22) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Rc
  54.   elseif ($1 == 23) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunt
  55.   elseif ($1 == 24) || ($regex($1,/^(con|construct)(ion|ing)?$/si)) return Con
  56.   elseif ($1 == 25) || ($regex($1,/^(summon)(ing)?$/si)) return Summ
  57.   elseif ($1 == 26) || ($regex($1,/^(Dungeoneer)(ing)?$/si)) return Dung
  58. }
  59. alias exp {
  60.   /var %x = 1, %level = $calc($1 - 1), %xp = 0
  61.   /while (%x <= %level) {
  62.     /var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
  63.     /inc %xp %tempxp
  64.     /inc %x
  65.   }
  66.   /return $int(%xp)
  67. }
  68. alias cmb {
  69.   tokenize 46 $1-
  70.   var %att = $calc($2 * 100), %btt = $calc($4 * 100), %ett = $calc($1 * 130), %ftt = $calc($3 * 130)
  71.   var %ctt = $iif($and($6,1) == 1,$calc($calc($6 - 1) * 50),$calc($6 * 50)), %dtt = $iif($and($8,1) == 1,$calc($calc($8 - 1) * 50),$calc($8 * 50))
  72.   var %gtt = $iif($and($5,1) == 1,$calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65),$calc($5 * 195)), %htt = $iif($and($7,1) == 1,$calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65),$calc($7 * 195))
  73.   var %base = $calc($calc(%att + %btt + %ctt + %dtt) / 400), %mclass = $calc($calc(%ett + %ftt) / 400), %rclass = $calc(%gtt / 400), %maclass = $calc(%htt / 400)
  74.   if ((%mclass > %rclass) && (%mclass > %maclass)) { return $calc(%mclass + %base) Melee Based }
  75.   elseif ((%rclass > %mclass) && (%rclass > %maclass)) { return $calc(%rclass + %base) Ranged Based }
  76.   elseif ((%maclass > %mclass) && (%maclass > %rclass)) { return $calc(%maclass + %base) Magic Based }
  77. }
  78. on $*:TEXT:/^[!.](def|set)(name|rsn)/Si:*: {
  79.   if ($count($1-,$,%,#,^,&,*) > 0) { halt }
  80.   if ($len($2-) <= 12) && ($len($2-) >= 3) {
  81.     writeini -n DefRSN.ini $address($nick,3) rsn $replace($2-,$chr(32),_)
  82.     notice $nick Hostmask $address($nick,3) Has been registred to the name: $2-
  83.   }
  84.   else { notice $nick Error in trying to set a defname }
  85. }
  86. on $*:TEXT:/^.\D/S:*:{
  87.   if (!$iSkill($right($1,-1))) { halt }
  88.   if ($count($1-,$,%,#,^,&,*) > 0) { msg $chan $s1($chan,[) $s2($chan,ERROR) $s1($chan,]) $s1($chan,:) $s1($chan,Illegal characters detected, 60 second ignore to prevent abuse) | .ignore $+(-pcntikdu,60) $address($nick,2) | halt }
  89.   var %lookup = $iSkill($right($1,-1))
  90.   var %z = $+($r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100),$r(1,100))
  91.   sockopen $+(stats,.%z) hiscore.runescape.com 80
  92.   sockmark $+(stats,.%z) $+($iif($query($nick),.msg $nick,$iif($left($1,1) == @,msg $chan,notice $nick)),.,$iif($2,$replace($2-,$chr(32),_),$iif($readini(DefRSN.ini,$address($nick,3),rsn),$v1,$replace($nick,$chr(32),_))),.,%lookup,.,$iif($query($nick),$nick,$chan))
  93.   .ignore $+(-pcntikdu,6) $address($nick,2)
  94.   if ($query($nick)) { close -m }
  95. }
  96. on *:SOCKOPEN:stats.*: {
  97.   tokenize 46 $sock($sockname).mark
  98.   if ($len($2) > 12) || ($len($2) < 3) {
  99.     $1 $s1($4,[) $s2($4,ERROR) $s1($4,]) $s1($4,:) $s1($4,Please specify a RSN less then) $s2($4,12) $s1($4,characters and greater then) $s2($4,3)
  100.   }
  101.   else {
  102.     sockwrite -n $sockname GET $+(/index_lite.ws?player=,$2) HTTP/1.1
  103.     sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
  104.   }
  105. }
  106. on *:SOCKREAD:stats.*: {
  107.   var %chan = $gettok($sock($sockname).mark,4,46)
  108.   if ($sockerr) {
  109.     $gettok($sock($sockname).mark,1,46) $s1(%chan,Socket Error)
  110.     halt
  111.   }
  112.   var %stats
  113.   sockread %stats
  114.   if (*404 - Page not found* iswm %stats) {
  115.     $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,ERROR) $s1(%chan,]) $s1(%chan,:) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,not found in highscores)
  116.     sockclose $sockname
  117.     halt
  118.   }
  119.   if (*,*,* iswm %stats) {
  120.     tokenize 44 %stats
  121.     sockmark $sockname $+($gettok($sock($sockname).mark,1-,46),.,$+($1 $2 $3))
  122.   }
  123. }
  124. on *:SOCKCLOSE:stats.*: {
  125.   var %lookup = $gettok($sock($sockname).mark,3,46),%chan = $gettok($sock($sockname).mark,4,46),%s = $gettok($sock($sockname).mark,5-,46)
  126.   var %loc = $fskill(%lookup),%sloc = $gskill(%loc)
  127.   if (%lookup == Stats) {
  128.     var %t = 1 | while (%t <= 25) { var %g %g $+($s1(%chan,$iSkill(%t)),$chr(32),$s2(%chan,$gettok($gettok(%s,%t,46),2,32))) | inc %t }
  129.     $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,]) $s1(%chan,:) %g
  130.   }
  131.   if (%lookup = Combat) {
  132.     var %D = $gettok($gettok(%s,3,46),3,32),%H = $gettok($gettok(%s,5,46),3,32),%P = $gettok($gettok(%s,7,46),3,32),%A = $gettok($gettok(%s,2,46),3,32),%St = $gettok($gettok(%s,4,46),3,32),%SU = $gettok($gettok(%s,25,46),3,32),%M = $gettok($gettok(%s,8,46),3,32),%R = $gettok($gettok(%s,6,46),3,32)
  133.     var %cest = $calc(%A + %D + %H + %St + %SU + %M + %R + %P),%est = $round($calc((%cest / $iif($gettok($gettok(%s,1,46),3,32) == -1,1,$v1)) * 100),2)
  134.     var %tD = $gettok($gettok(%s,3,46),2,32),%tH = $gettok($gettok(%s,5,46),2,32),%tP = $gettok($gettok(%s,7,46),2,32),%tA = $gettok($gettok(%s,2,46),2,32),%tSt = $gettok($gettok(%s,4,46),2,32),%tSU = $gettok($gettok(%s,25,46),2,32),%tM = $gettok($gettok(%s,8,46),2,32),%tR = $gettok($gettok(%s,6,46),2,32)
  135.     var %cmb = $cmb($replace($+(%tA,.,%tD,.,%tSt,.,%tH,.,%tR,.,%tP,.,%tM,.,%tSU),-1,1))
  136.     var %rank = $iif($gettok($gettok(%s,1,46),1,32) = -1,-,$v1),%lvl = $iif($gettok($gettok(%s,1,46),2,32) = -1,-,$v1),%exp = $iif($gettok($gettok(%s,1,46),3,32) = -1,-,$v1)
  137.     $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,]) $s1(%chan,:) $s1(%chan,$chr(40)) $s2(%chan,%cmb) $s1(%chan,$chr(41)) $&
  138.       $s1(%chan,Rank) $s2(%chan,%rank) $s1(%chan,Level) $s2(%chan,$bytes(%lvl,b)) $s1(%chan,Experience) $s2(%chan,$bytes(%exp,b)) $s1(%chan,Combat Exp) $s2(%chan,$bytes(%cest,b)) $s1(%chan,Combat%) $s2(%chan,$iif(%exp = -,-,$+(%est,%))) $&
  139.       $s1(%chan,Attack) $s2(%chan,$gettok($gettok(%s,2,46),2,32)) $s1(%chan,Strength) $s2(%chan,$gettok($gettok(%s,4,46),2,32)) $s1(%chan,Defence) $s2(%chan,$gettok($gettok(%s,3,46),2,32)) $s1(%chan,Hitpoints) $s2(%chan,$gettok($gettok(%s,5,46),2,32)) $&
  140.       $s1(%chan,Prayer) $s2(%chan,$gettok($gettok(%s,7,46),2,32)) $s1(%chan,Magic) $s2(%chan,$gettok($gettok(%s,8,46),2,32)) $s1(%chan,Ranged) $s2(%chan,$gettok($gettok(%s,6,46),2,32)) $s1(%chan,Summoning) $s2(%chan,$gettok($gettok(%s,25,46),2,32)) $s1(%chan,Dungeoneering) $s2(%chan,$gettok($gettok(%s,10,46),2,32
  141.   }
  142.   if (!$istok(Stats.Combat,%lookup,46)) {
  143.     var %r = $gettok($gettok(%s,%loc,46),1,32),%l = $gettok($gettok(%s,%loc,46),2,32),%e = $gettok($gettok(%s,%loc,46),3,32)
  144.     $gettok($sock($sockname).mark,1,46) $s1(%chan,[) $s2(%chan,$gettok($sock($sockname).mark,2,46)) $s1(%chan,]) $s1(%chan,:) $&
  145.       $s1(%chan,Skill) $s2(%chan,%sloc) $s1(%chan,Rank) $s2(%chan,$bytes(%r,b)) $s1(%chan,Level) $s2(%chan,$bytes(%l,b)) $s1(%chan,Experience) $s2(%chan,$bytes(%e,b)) $&
  146.       $s1(%chan,Exp to) $iif(%l < 99,$s1(%chan,Level) $s2(%chan,$calc(%l + 1)) $s2(%chan,$bytes($calc($exp($calc(%l + 1)) - %e),b)),$s1(%chan,Perfection) $s2(%chan,$bytes($calc(200000000 - %e),b))) $&
  147.       $iif(%l < 99 && $istok(Attack.Defence.Strength.Hitpoints.Magic.Ranged.Prayer,%sloc,46),$s1(%chan,Pc points to) $s2(%chan,$calc(%l + 1)) $s2(%chan,$calc($calc($exp($calc(%l + 1)) - %e) / $pcp($calc(%l + 1))) ) )
  148.     ;to add items to next level make it urself and use $exp($calc(%l + 1) to return exp to next level calc it yourself
  149.     if ($istok(#world148 #glacier_Rat #xp #shelfy #worldcup #tezz #irchelp #xbnc #swiftirc #bnc #onzichtbaar ,$chan,32)) { HALT }
  150.   }
  151. }
  152. }
  153.  
  154. ======================================
  155. Text commands avaible for all
  156. =========================
  157. on *:text:*:#celestial_skillers,#celestial_skillers_staff: {
  158.   if ($1 == .topic ) { notice $nick The topic is: $chan($chan).topic }
  159.   if ($me != [sp][ds]glacier_rat) { halt }
  160.   if ($1 == .pengs) { notice $nick the penguin channel is #World60pengs which provides a list of current general locations }
  161.   if ($me != [sp][ds]glacier_rat) { halt }
  162.   if ($1 == .site) { notice $nick our site is :  http://celestialskillers.proboards.com/index.cgi? }
  163.   if ($me != [sp][ds]glacier_rat) { halt }
  164.   if ($1 == .rh) { notice $nick for a list of our members :  http://runehead.com/clans/ml.php?clan=brokenpeace }
  165.   if ($me != [sp][ds]glacier_rat) { halt }
  166.   if ($1 == .fb) { notice $nick facebook is on http://facebook.com }
  167.   if ($me != [sp][ds]glacier_rat) { halt }
  168.   if ($1 == .ms) { notice $nick mystapce is on http://myspace.com }
  169.   if ($me != [sp][ds]glacier_rat) { halt }
  170.   if ($1 == .zybez) { notice $nick zybez is on http://zybez.net }
  171.   if ($me != [sp][ds]glacier_rat) { halt }
  172.   if ($1 == .tipit ) { notice $nick tip.it is on http://tip.it }
  173.   if ($me != [sp][ds]glacier_rat) { halt }
  174.   if ($1 == .user) { notice $nick The user count for the channel is $nick($iif($2,$2,#),0) }
  175.   if ($me != [sp][ds]glacier_rat) { halt }
  176. }
  177.  
  178.  
  179. =======================
  180.  
  181. urban script
  182. ============================
  183. alias -l c1 return $+($chr(3),1,$1-,$chr(3))
  184. alias -l c2 return $+($chr(3),13,$1-,$chr(3))
  185. on $*:Text:/^[.!@]urban/Si:#:{
  186.   if (!$2) {
  187.     notice $nick *** [ $c2(URBAN) ]: You must specify a word to look up.
  188.   }
  189.   else {
  190.     var %ticks $ticks, %sockname Urban. $+ %ticks
  191.     hadd -m %sockname Msg $iif(@* iswm $1,msg $chan,notice $nick)
  192.     hadd -m %sockname Word $iif($chr(35) !isin $2-,$2-,$gettok($2-,1,35))
  193.     hadd -m %sockname ID $iif($chr(35) isin $3-,$gettok($3-,-1,35),$null)
  194.     sockopen %sockname rscript.org 80
  195.   }
  196. }
  197. on $*:sockopen:/^Urban\.(\d+)/Si:{
  198.   sockwrite -nt $sockname GET  $+(/lookup.php?type=urban&search=,$replace($hget($sockname,Word),$chr(32),$eval(%20,0)),&id=,$hget($sockname,ID)) HTTP/1.0
  199.   sockwrite -nt $sockname Host: rscript.org
  200.   sockwrite -nt $sockname $crlf
  201. }
  202. on $*:sockread:/^Urban\.(\d+)/Si:{
  203.   if ($sockerr) {
  204.     sockclose $sockname
  205.   }
  206.   else {
  207.     var %Urban | sockread %Urban
  208.     if ($regex(%Urban,/^MATCHES: [0]$/)) {
  209.       $hget($sockname,Msg) *** [ $c2(URBAN) ]: No results were found for " $+ $c2($hget($sockname,Word)) $+ " or the $c2(Urban Dictionnary) might be down.
  210.       sockclose $sockname
  211.     }
  212.     else {
  213.       if ($regex(%Urban,/^MATCHES: ((?:[1-9]+)[0-9]?)$/)) {
  214.         sockread %Urban
  215.         $hget($sockname,Msg) *** [ $c2(URBAN) ]: $c1($iif($regml(1) == 1,Definition:,Definitions:)) $c2($regml(1)) $chr(124) " $+ $c2($hget($sockname,Word)) $+ $replace(" $remove(%Urban,DEFINED:),$hget($sockname,Word),$c2($hget($sockname,Word)))
  216.         sockread %Urban
  217.         $hget($sockname,Msg) *** [ $c2(URBAN) ]: $c2(Example:) $replace($remove(%Urban,EXAMPLE:),$hget($sockname,Word),$c2($hget($sockname,Word)))
  218.         hfree $sockname
  219.         sockclose $sockname
  220.       }
  221.     }
  222.   }
  223. }
  224. alias c2 return $+($chr(3),13,$1-,$chr(3))
  225. on *:text:?*meter*:#:$iif($left($1,1) = @,msg $chan,notice $nick) $+([,$upper($left($remove($1,!,meter,@,meter),1)) $+ $right($remove($1,!,meter,@,meter),-1) ,Meter,]) $iif($2,$2,$nick) is $r(0,100) $+ % $remove($1,!,meter,@,meter) $+ ness!
  226. on *:TEXT:*!count*:#:{
  227.   .notice $nick There are currently $nick($chan,0) in $chan || Ops: $nick($chan,0,o) || HalfOps: $nick($chan,0,h) || Voiced: $nick($chan,0,v) || Regular: $nick($chan,0,r) ||
  228.  
  229. }
  230.  
  231.  
  232.  
  233. ============================
  234.  
  235. brb $chan
  236.  
  237. on $*:TEXT:*:#thebrokenpeace #thebrokenpeacestaff :{ if ($chan != #bnc) && ($chr(36) !isin $1-) && ($chr(47) !isin $1-) && ($nick != $me) && (!$istok($mutedChannels,$chan,32)) {
  238.     if ($regex($1,/^(away|brb|bbl|bb|bbs|afk)/Si)) {
  239.       if ($readini(away.ini,$address($nick,2),away) == true) {
  240.         /halt
  241.       }
  242.       elseif ($readini(away.ini,$address($nick,2),status) == $null) {
  243.         writeini away.ini $address($nick,2) away true
  244.         writeini away.ini $address($nick,2) reason $iif($2- == $null,No Reason,$2-)
  245.         writeini away.ini $address($nick,2) left $ctime
  246.         msg $chan 10[12?10 $+ $nick $+ 12?10] 14is now 10[12?10Away12?10] 14reason:10 $readini(away.ini,$address($nick,2),reason)  14left at: 10[12?10 $+ $time $+ 12?10]
  247.       }
  248.     }
  249.     elseif ($1 == back) {
  250.       if ($readini(away.ini,$address($nick,2),away) == false) || ($readini(away.ini,$address($nick,2),away) == $null) {
  251.         /halt
  252.       }
  253.       else {
  254.         msg $chan 10[12?10 $+ $nick $+ 12?10] 14is now 10[12?10Back12?10] 14from:10 $readini(away.ini,$address($nick,2),reason) [12?10GONE FOR12?10] $duration($calc($ctime - $readini(away.ini,$address($nick,2),left)))
  255.         writeini away.ini $address($nick,2) away false
  256.         remini away.ini $address($nick,2) reason
  257.         remini away.ini $address($nick,2) left
  258.         /writeini away.ini $address($nick,2) status yes
  259.         /timer $+ $address($nick,2) 1 1200 /remini away.ini $address($nick,2) status
  260.       }
  261.     }
  262.     elseif (* iswm $1-) && ($readini(away.ini,$address($nick,2),away) == true) && ($calc($ctime - $readini(away.ini,$address($nick,2),left)) >= 120) {
  263.       if ($readini(away.ini,$address($nick,2),away) == $null) {
  264.         halt
  265.       }
  266.       msg $chan 10[12?10 $+ $nick $+ 12?10] 14is now 10[12?10Back12?10] 14from:10 $readini(away.ini,$address($nick,2),reason) [12?10GONE FOR12?10] $duration($calc($ctime - $readini(away.ini,$address($nick,2),left)))
  267.       writeini away.ini $address($nick,2) away false
  268.       remini away.ini $address($nick,2) reason
  269.       remini away.ini $address($nick,2) left
  270.       /writeini away.ini $address($nick,2) status yes
  271.       /timer $+ $address($nick,2) 1 1200 /remini away.ini $address($nick,2) status
  272.     }
  273.   }
  274. }
  275. alias mutedChannels { return #bnc #babylon #irc #msl #bnc #xbnc }
  276.  
  277.  
  278. =======================
  279. gratz script
  280. ========================
  281.  
  282. ON $*:TEXT:/^[@.!]((con)?grat(ulation)?(s|z)?)(.*)/Si:#:{
  283.   if ($istok($chan,#xbnc #irc #tezz,32)) || ($me != Glacier_Rat) { HALT }
  284.   if ($skills($3) == Total-Level && $2 isnum 32-2376) || ($skills($3) == Combat && $2 isnum 4-138) || ($skills($3) && $2 isnum 2-99) { notice $nick $randc($chr(40) $+ ¯`·._.») $randc(Congratulations) $randc($nick) $randc(on $2) $randc($skills($3) $+ $chr(33), $iif($2 == 99, Now go get that cape!,$Null)) $randc(«._.·`¯` $+ $chr(41)) }
  285.   elseif ($2 isin $chan) || ($skills($4) == Total-Level && $3 isnum 32-2496) || ($skills($4) == Combat && $3 isnum 4-138) || ($skills($4) && $3 isnum 2-127) { msg # $randc($chr(40) $+ ¯`·._.») $randc(Congratulations) $randc($2) $randc(on $3) $randc($skills($4) $+ $chr(33), $iif($3 == 99, Now go get that cape!,$Null)) $randc(«._.·`¯` $+ $chr(41)) }
  286.   else { notice $nick Param: !Grats (Level) (Skill) }
  287. }
  288.  
  289. alias randc { return $+($chr(3),$r(2,15),$1-) }
  290.  
  291. alias -l skills {
  292.   if ($regex($1,/^at(t|t?k|tack)$/Si)) { return Attack }
  293.   elseif ($regex($1,/^def(en[cs]e)?$/Si)) { return Defence }
  294.   elseif ($regex($1,/^str(eng[th][th])?$/Si)) { return Strength }
  295.   elseif ($regex($1,/^hp|hit(s|points?)?$/Si)) { return Hitpoints }
  296.   elseif ($regex($1,/^range?(r|d|ing)?$/Si)) { return Ranged }
  297.   elseif ($regex($1,/^Pray(er)?$/Si)) { return Prayer }
  298.   elseif ($regex($1,/^mag(e|ic|ician|icien)$/Si)) { return Magic }
  299.   elseif ($regex($1,/^cook(ing)?$/Si)) { return Cooking }
  300.   elseif ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) { return Woodcutting }
  301.   elseif ($regex($1,/^fletch(ing)?$/Si)) { return Fletching }
  302.   elseif ($regex($1,/^fish(ing)?$/Si)) { return Fishing }
  303.   elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) { return Firemaking }
  304.   elseif ($regex($1,/^craft(ing)?$/Si)) { return Crafting }
  305.   elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) { return Smithing }
  306.   elseif ($regex($1,/^mine?(ing)?$/Si)) { return Mining }
  307.   elseif ($regex($1,/^herb(law|lore)?$/Si)) { return Herblore }
  308.   elseif ($regex($1,/^agil?(ity)?$/Si)) { return Agility }
  309.   elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) { return Thieving }
  310.   elseif ($regex($1,/^slay(er|ing)?$/Si)) { return Slayer }
  311.   elseif ($regex($1,/^farm(er|ing)?$/Si)) { return Farming }
  312.   elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) { return Runecraft }
  313.   elseif ($regex($1,/^(poh|cons?(truct)?(ion|ing)?|carp(entry)?)$/si)) { return Construction }
  314.   elseif ($regex($1,/^hunt(er|ing)?$/Si)) { return Hunter }
  315.   elseif ($regex($1,/^sum(mon(ing)?)?$/Si)) { return Summoning }
  316.   elseif ($regex($1,/^(com|cmb)?(bt|t|bat)?$/Si)) { return Combat }
  317.   elseif ($regex($1,/^(total|overall)?(level|lvl)?$/Si)) { return Total-Level }
  318. }
  319.  
  320. ===========================
  321. add rsn script
  322. ===========================
  323.  
  324. on $*:TEXT:/^[.!](del|view|add)(rsn|notes)/Si:#celestial_skillers_staff: {
  325.   if ($regml(1) == add) {
  326.     var %x 1
  327.     while ($readini(notes.ini,n,$2,n $+ %x)) inc %x
  328.     writeini -n notes.ini $2 $+(n,%x) $c1($nick,Note: $3-) $c1($nick,Note By $nick $date $time GMT)
  329.     notice $nick $c1($nick,Notes) $+ 1 %x $c1($nick,For) $c2($nick,$2) $c1($nick,has been saved.)
  330.   }
  331.   elseif ($regml(1) == del) {
  332.     if ($remove($3,-) !isnum) {
  333.       if ($readini(notes.ini,n,$2,n1)) {
  334.         remini -n notes.ini $2
  335.         notice $nick $c1($nick,Notes for) $c2($nick,$2) $c1($nick,Deleted.)
  336.       }
  337.       else {
  338.         notice $nick $2 has no notes.
  339.       }
  340.     }
  341.     else {
  342.       var %x 1
  343.       while ($readini(notes.ini,n,$2,n $+ %x)) {
  344.         if (%x isnum $3) {
  345.           remini -n notes.ini $2 $+(n,%x)
  346.           notice $nick $c1($nick,Note) $+ 1 %x $c1($nickFor) $c2($nick,$2) $c1($nick,Deleted.)
  347.         }
  348.         inc %x
  349.       }
  350.       ncleanup $2
  351.     }
  352.   }
  353.   elseif ($regml(1) == view) {
  354.     if ($readini(notes.ini,n,$2,n1)) {
  355.       notice $nick $c1($nick,Notes For) $c2($nick,$2) $+ $c1($nick,:)
  356.       var %x 1
  357.       while ($readini(notes.ini,n,$2,n $+ %x)) {
  358.         notice $nick 1 %x $+ : $c1($nick,$v1)
  359.         inc %x
  360.       }
  361.     }
  362.     else {
  363.       notice $nick $c1($nick,$2) $c2($nick,Has No Notes.)
  364.     }
  365.   }
  366. }
  367. alias -l ncleanup {
  368.   var %x 1
  369.   while ($ini(notes.ini,$1,%x)) {
  370.     hadd -m $+(notes.,$1) %x $readini(notes.ini,n,$1,$v1)
  371.     inc %x
  372.   }
  373.   remini notes.ini $1
  374.   var %x 1
  375.   while ($hget($+(notes.,$1), %x)) {
  376.     writeini notes.ini $1 $+(n,%x) $v1
  377.     inc %x
  378.   }
  379.   hfree $+(notes.,$1)
  380. }
  381.  
  382.  
  383.  
  384. alias flood { if (!$timer(Flood $+ $1)) { .timerflood $+ $1 1 6 noop } else halt }
  385.  and put flood $nick infront of all ur text events
  386.  
  387.  
  388. pretty much is just on *:TEXT:*:*:{ if ($regex($1,/^[!@.]g(rand)?e(x(change)?)?$/Si)) {
  389.  
  390.  
  391. =================================================
  392.  
  393. on $*:TEXT:*:*:{
  394.   if (WorldWide ison $chan) && ($me != WorldWide) { halt }
  395.   if ($regex($1,/^[`~!@.]g(rand)?E(x(Change)?)?$/Si)) {
  396.     if ($ isin $1-) || (.txt isin $1-) || (.ini isin $1-) || ($chr(124) isin $1-) { msg #demonhunters Illegal characters: $nick in $chan -> $1- | halt }
  397.     if ($2 == $null) { $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick) You must specify something to lookup. | halt }
  398.     hinc -m $me commands 1
  399.     inc %tGE
  400.     hadd -m $+(GE.,%tGE) output $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
  401.     sockopen $+(GE.,%tGE) ilog.ujordan.net 80
  402.     sockmark $+(GE.,%tGE) $replace($2-,$chr(32),_)
  403.   }
  404. }
  405. on *:SOCKOPEN:GE.*:{
  406.   sockwrite -nt $sockname GET $+(/parsers/ge.php?item=,$sock($sockname).mark)) HTTP/1.1
  407.   sockwrite -nt $sockname Host: ilog.ujordan.net
  408.   sockwrite -nt $sockname $crlf
  409. }
  410. on *:SOCKREAD:GE.*:{
  411.   if ($sockerr) {
  412.     msg #demonhunters SOCKET ERROR: ge -> $sockname -> $sock($sockname).wserr -> $sock($sockname).wsmsg
  413.     sockclose $sockname
  414.     halt
  415.   }
  416.   var %GE
  417.   sockread %GE
  418.   if (OUTPUT:* iswm %GE) {
  419.     $hget($sockname,output) ** [GE]: $remove(%GE,$gettok(%GE,1,32),GE)
  420.   }
  421. }
  422.  
  423.  
  424. ==================================
  425.  
  426. http://ilog.ujordan.net/parsers/ge.php?item=whip
  427.  
  428. ===============
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!