My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

charm

By: a guest | Mar 22nd, 2010 | Syntax: None | Size: 16.85 KB | Hits: 61 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. alias logo { return $c1($nick,*** [) $c2($nick,$upper($1)) $c1($nick,]) }
  2.  
  3. on $*:text:/^[@.!](charm|charms)/Si:#: {
  4.   if (!$2) || (!$3) { $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(error) $c1($nick,Syntax: !charm <summoning lvl> <gold> <green> <crimson> <blue>)
  5.   halt }
  6.   elseif ($2 > 99) || ($2 !isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(error) $c1($nick,Your Summoning level can't be over 99. And must be a number.)
  7.   halt }
  8.   elseif ($chr(46) isin $2-) { $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(error) $c1($nick,Your charms must be in whole numbers.)
  9.   halt }
  10.   if ($2 != $null) && ($3 != $null) && (!$4) && (!$5) && (!$6) && ($3 isnum) && ($2 isnum) {
  11.     var %chexp = $xp($2)
  12.     var %gold = $+(7,$gettok($gold($2),2,64),$c1($nick,:)) $c2($nick,$bytes($3,bd))) $c1($Nick,$chr(40)) $+ $c2($nick,$bytes($calc($gettok($gold($2),6,64) * $3 ),bd)) $+ $c1($nick,exp $+ $chr(41)) $c1($nick,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($gold($2),5,64) * $3 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc( $gettok($gold($2),5,64) * 25 * $3 ),bd)) $+ $c1($nick,gp $+ $chr(41))
  13.     var %totalexp = $calc($calc($gettok($gold($2),6,64) * $3) + $calc($gettok($green($2),6,64) * $4) + $calc($gettok($crim($2),6,64) * $5) + $calc($gettok($blue($2),6,64) * $6))
  14.     var %totalshards = $calc($calc($gettok($gold($2),5,64) * $3) + $calc($gettok($green($2),5,64) * $4) + $calc($gettok($crim($2),5,64) * $5) + $calc($gettok($blue($2),5,64) * $6))
  15.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) $c1($nick,[) $+ $c2($nick,Best for lvl $2) $+ $c1($nick,]) $haak($c1($nick,$3) 7Gold) $haak($c1($nick,0) 3Green) $haak($c1($nick,0) 5Crimson) $haak($c1($nick,0) 2Blue) $c1($nick,$chr(124) Total exp:) $c2(%$Nick,$bytes(%totalexp,bd)) $c1($nick,$chr(124) Total shards:) $c2($nick,$bytes(%totalshards,bd)) $c1($nick,$chr(124) Shard cost:) $c2($nick,$bytes($calc(%totalshards * 25),bd))) $+ $c1($nick,gp $chr(124) Expected lvl:) $c2($nick,$xp2lvl($calc($xp($2) + %totalexp))) $c1($nick,$chr(40)) $+ $c2($nick,$bytes($calc($xp($2) + %totalexp),bd)) $+ $c1($Nick,exp $+ $chr(41))
  16.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) %gold
  17.     halt
  18.   }
  19.   if ($2 != $null) && ($3 != $null) && ($4 != $null) && (!$5) && (!$6) && ($4 isnum) && ($3 isnum) && ($2 isnum) {  
  20.     var %chexp = $xp($2)
  21.     var %gold = $+(7,$gettok($gold($2),2,64),$c1($nick,:)) $c2($nick,$bytes($3,bd))) $c1($Nick,$chr(40)) $+ $c2($nick,$bytes($calc($gettok($gold($2),6,64) * $3 ),bd)) $+ $c1($nick,exp $+ $chr(41)) $c1($nick,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($gold($2),5,64) * $3 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc( $gettok($gold($2),5,64) * 25 * $3 ),bd)) $+ $c1($nick,gp $+ $chr(41))
  22.     var %green = $iif($2 > 17,$c1($Nick,$chr(124)) 3 $+ $gettok($green($2),2,64) $+ $c1($nick,:) $c2($nick,$bytes($4,bd)) $+($c1($Nick,$chr(40)),$c2($nick,$bytes($calc($gettok($green($2),6,64) * $4),bd)),$c1($nick,exp $+ $chr(41))) $c1($n,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($green($2),5,64) * $4 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc($gettok($green($2),5,64) * 25 * $4),bd)) $+ $c1($nick,gp $+ $chr(41)), $null)  
  23.     var %totalexp = $calc($calc($gettok($gold($2),6,64) * $3) + $calc($gettok($green($2),6,64) * $4) + $calc($gettok($crim($2),6,64) * $5) + $calc($gettok($blue($2),6,64) * $6))
  24.     var %totalshards = $calc($calc($gettok($gold($2),5,64) * $3) + $calc($gettok($green($2),5,64) * $4) + $calc($gettok($crim($2),5,64) * $5) + $calc($gettok($blue($2),5,64) * $6))
  25.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) $c1($nick,[) $+ $c2($nick,Best for lvl $2) $+ $c1($nick,]) $haak($c1($nick,$3) 7Gold) $haak($c1($nick,$4) 3Green) $haak($c1($nick,0) 5Crimson) $haak($c1($nick,0) 2Blue) $c1($nick,$chr(124) Total exp:) $c2(%$Nick,$bytes(%totalexp,bd)) $c1($nick,$chr(124) Total shards:) $c2($nick,$bytes(%totalshards,bd)) $c1($nick,$chr(124) Shard cost:) $c2($nick,$bytes($calc(%totalshards * 25),bd))) $+ $c1($nick,gp $chr(124) Expected lvl:) $c2($nick,$xp2lvl($calc($xp($2) + %totalexp))) $c1($nick,$chr(40)) $+ $c2($nick,$bytes($calc($xp($2) + %totalexp),bd)) $+ $c1($Nick,exp $+ $chr(41))
  26.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) %gold %green  
  27.     halt
  28.   }
  29.   if ($2 != $null) && ($3 != $null) && ($4 != $null) && ($5 != $null) && (!$6) && ($4 isnum) && ($3 isnum) && ($2 isnum) && ($5 isnum) {    
  30.     var %chexp = $xp($2)
  31.     var %gold = $+(7,$gettok($gold($2),2,64),$c1($nick,:)) $c2($nick,$bytes($3,bd))) $c1($Nick,$chr(40)) $+ $c2($nick,$bytes($calc($gettok($gold($2),6,64) * $3 ),bd)) $+ $c1($nick,exp $+ $chr(41)) $c1($nick,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($gold($2),5,64) * $3 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc( $gettok($gold($2),5,64) * 25 * $3 ),bd)) $+ $c1($nick,gp $+ $chr(41))
  32.     var %green = $iif($2 > 17,$c1($Nick,$chr(124)) 3 $+ $gettok($green($2),2,64) $+ $c1($nick,:) $c2($nick,$bytes($4,bd)) $+($c1($Nick,$chr(40)),$c2($nick,$bytes($calc($gettok($green($2),6,64) * $4),bd)),$c1($nick,exp $+ $chr(41))) $c1($n,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($green($2),5,64) * $4 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc($gettok($green($2),5,64) * 25 * $4),bd)) $+ $c1($nick,gp $+ $chr(41)), $null)  
  33.     var %totalexp = $calc($calc($gettok($gold($2),6,64) * $3) + $calc($gettok($green($2),6,64) * $4) + $calc($gettok($crim($2),6,64) * $5) + $calc($gettok($blue($2),6,64) * $6))
  34.     var %crimson = $iif($2 > 18,$c1($Nick,$chr(124)) 5 $+ $gettok($crim($2),2,64) $+ $c1($nick,:) $c2($nick,$bytes($5,bd)) $+($c1($Nick,$chr(40)),$c2($nick,$bytes($calc($gettok($crim($2),6,64) * $5),bd)),$c1($nick,exp $+ $chr(41))) $c1($n,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($crim($2),5,64) * $5 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc($gettok($crim($2),5,64) * 25 * $5),bd)) $+ $c1($nick,gp $+ $chr(41)), $null)  
  35.     var %totalshards = $calc($calc($gettok($gold($2),5,64) * $3) + $calc($gettok($green($2),5,64) * $4) + $calc($gettok($crim($2),5,64) * $5) + $calc($gettok($blue($2),5,64) * $6))
  36.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) $c1($nick,[) $+ $c2($nick,Best for lvl $2) $+ $c1($nick,]) $haak($c1($nick,$3) 7Gold) $haak($c1($nick,$4) 3Green) $haak($c1($nick,$5) 5Crimson) $haak($c1($nick,0) 2Blue) $c1($nick,$chr(124) Total exp:) $c2(%$Nick,$bytes(%totalexp,bd)) $c1($nick,$chr(124) Total shards:) $c2($nick,$bytes(%totalshards,bd)) $c1($nick,$chr(124) Shard cost:) $c2($nick,$bytes($calc(%totalshards * 25),bd))) $+ $c1($nick,gp $chr(124) Expected lvl:) $c2($nick,$xp2lvl($calc($xp($2) + %totalexp))) $c1($nick,$chr(40)) $+ $c2($nick,$bytes($calc($xp($2) + %totalexp),bd)) $+ $c1($Nick,exp $+ $chr(41))
  37.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) %gold %green %crimson  
  38.     halt
  39.   }
  40.   if ($2 != $null) && ($3 != $null) && ($4 != $null) && ($5 != $null) && ($6 != $null) && ($4 isnum) && ($3 isnum) && ($2 isnum) && ($5 isnum) && ($6 isnum) {  
  41.     var %chexp = $xp($2)
  42.     var %gold = $+(7,$gettok($gold($2),2,64),$c1($nick,:)) $c2($nick,$bytes($3,bd))) $c1($Nick,$chr(40)) $+ $c2($nick,$bytes($calc($gettok($gold($2),6,64) * $3 ),bd)) $+ $c1($nick,exp $+ $chr(41)) $c1($nick,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($gold($2),5,64) * $3 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc( $gettok($gold($2),5,64) * 25 * $3 ),bd)) $+ $c1($nick,gp $+ $chr(41))
  43.     var %green = $iif($2 > 17,$c1($Nick,$chr(124)) 3 $+ $gettok($green($2),2,64) $+ $c1($nick,:) $c2($nick,$bytes($4,bd)) $+($c1($Nick,$chr(40)),$c2($nick,$bytes($calc($gettok($green($2),6,64) * $4),bd)),$c1($nick,exp $+ $chr(41))) $c1($n,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($green($2),5,64) * $4 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc($gettok($green($2),5,64) * 25 * $4),bd)) $+ $c1($nick,gp $+ $chr(41)), $null)
  44.     var %crimson = $iif($2 > 18,$c1($Nick,$chr(124)) 5 $+ $gettok($crim($2),2,64) $+ $c1($nick,:) $c2($nick,$bytes($5,bd)) $+($c1($Nick,$chr(40)),$c2($nick,$bytes($calc($gettok($crim($2),6,64) * $5),bd)),$c1($nick,exp $+ $chr(41))) $c1($n,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($crim($2),5,64) * $5 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc($gettok($crim($2),5,64) * 25 * $5),bd)) $+ $c1($nick,gp $+ $chr(41)), $null)  
  45.     var %blue = $iif($2 > 22,$c1($nick,$chr(124)) 12 $+ $gettok($blue($2),2,64) $+ $c1($nick,:) $c2($nick,$bytes($6,bd)) $+($c1($Nick,$chr(40)),$c2($nick,$bytes($calc($gettok($blue($2),6,64) * $6),bd)),$c1($nick,exp $+ $chr(41))) $c1($n,$chr(40) $+ Shards:) $c2($nick,$bytes($calc($gettok($blue($2),5,64) * $6 ),bd)) $c1($nick,=) $c2($nick,$bytes($calc($gettok($blue($2),5,64) * 25 * $6),bd)) $+ $c1($nick,gp $+ $chr(41)), $null)
  46.     var %totalexp = $calc($calc($gettok($gold($2),6,64) * $3) + $calc($gettok($green($2),6,64) * $4) + $calc($gettok($crim($2),6,64) * $5) + $calc($gettok($blue($2),6,64) * $6))
  47.     var %totalshards = $calc($calc($gettok($gold($2),5,64) * $3) + $calc($gettok($green($2),5,64) * $4) + $calc($gettok($crim($2),5,64) * $5) + $calc($gettok($blue($2),5,64) * $6))
  48.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) $c1($nick,[) $+ $c2($nick,Best for lvl $2) $+ $c1($nick,]) $haak($c1($nick,$3) 7Gold) $haak($c1($nick,$4) 3Green) $haak($c1($nick,$5) 5Crimson) $haak($c1($nick,$6) 2Blue) $c1($nick,$chr(124) Total exp:) $c2(%$Nick,$bytes(%totalexp,bd)) $c1($nick,$chr(124) Total shards:) $c2($nick,$bytes(%totalshards,bd)) $c1($nick,$chr(124) Shard cost:) $c2($nick,$bytes($calc(%totalshards * 25),bd))) $+ $c1($nick,gp $chr(124) Expected lvl:) $c2($nick,$xp2lvl($calc($xp($2) + %totalexp))) $c1($nick,$chr(40)) $+ $c2($nick,$bytes($calc($xp($2) + %totalexp),bd)) $+ $c1($Nick,exp $+ $chr(41))
  49.     $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(charms) %gold %green %crimson %blue
  50.     halt
  51.   }
  52.   elseif ($2 !isnum) || ($3 !isnum) || ($4 !isnum) || ($5 !isnum) || ($6 !isnum) || { $iif($left($1,1) == @,msg $chan,notice $nick) $Logo(error) $c1($nick,The number of evrey charm must be a number. Syntax: !charm <summoning lvl> <gold> <green> <crimson> <blue>)
  53.   }
  54. }
  55.  
  56. alias gold {
  57.   if ($1 isnum 1-3) {
  58.   return 1@Spirit wolf@Gold@Wolf bones@7@4.8 }
  59.   elseif ($1 isnum 4-9) {
  60.   return 4@Dreadfowl@Gold@Raw chicken@8@9.3 }
  61.   elseif ($1 isnum 10-12) {
  62.   return 10@Spirit spider@Gold@Spider carcass@8@12.6 }
  63.   elseif ($1 isnum 13-15) {
  64.   return 13@Thorny snail@Gold@Thin snail@9@12.6 }
  65.   elseif ($1 isnum 16-16) {
  66.   return 16@Granite crab@Gold@Iron ore@7@21.6 }
  67.   elseif ($1 isnum 17-39) {
  68.   return 17@Mosquito@Gold@Proboscis@1@46.5 }
  69.   elseif ($1 isnum 40-51) {
  70.   return 40@Bull ant@Gold@Marigolds@11@52.8 }
  71.   elseif ($1 isnum 52-65) {
  72.   return 52@Spirit terrorbird@Gold@Raw bird meat@12@68.4 }
  73.   elseif ($1 isnum 66-66) {
  74.   return 66@Barker toad@Gold@Swamp toad@11@87.0 }
  75.   elseif ($1 isnum 67-70) {
  76.   return 67@War tortoise@Gold@Tortoise shell@1@58.6 }
  77.   elseif ($1 isnum 71-126) {
  78.   return 71@Arctic bear@Gold@Polar kebbit fur@14@93.2 }
  79. }
  80. alias green {
  81.   if ($1 isnum 18-27) {
  82.   return 18@Desert wyrm@Green@Bucket of sand@45@31.2 }
  83.   elseif ($1 isnum 28-32) {
  84.   return 28@Compost mound@Green@Compost@47@49.8 }
  85.   elseif ($1 isnum 33-33) {
  86.   return 33@Beaver@Green@Willow logs@72@57.6 }
  87.   elseif ($1 isnum 34-40) {
  88.   return 34@Void ravager@Green@Ravager charm@74@59.6 }
  89.   elseif ($1 isnum 41-42) {
  90.   return 41@Macaw@Green@Clean guam@78@72.4 }
  91.   elseif ($1 isnum 43-46) {
  92.   return 43@Spirit Cockatrice or variants@Green@Cockatrice egg@88@75.2 }
  93.   elseif ($1 isnum 47-53) {
  94.   return 47@Magpie@Green@Gold ring@88@83.2 }
  95.   elseif ($1 isnum 54-55) {
  96.   return 54@Abyssal parasite@Green@Abyssal charm@106@94.8 }
  97.   elseif ($1 isnum 56-61) {
  98.   return 56@Ibis@Green@Harpoon@109@98.8 }
  99.   elseif ($1 isnum 62-67) {
  100.   return 62@Abyssal lurker@Green@Abyssal charm@119@109.6 }
  101.   elseif ($1 isnum 68-68) {
  102.   return 68@Bunyip@Green@Raw shark@110@119.2 }
  103.   elseif ($1 isnum 69-75) {
  104.   return 69@Fruit bat@Green@Banana@130@121.2 }
  105.   elseif ($1 isnum 76-77) {
  106.   return 76@Forge Regent@Green@Ruby harvest@141@134.0 }
  107.   elseif ($1 isnum 78-79) {
  108.   return 78@Giant ent@Green@Willow branch@124@136.8 }
  109.   elseif ($1 isnum 80-87) {
  110.   return 80@Hydra@Green@Water orb@128@140.8 }
  111.   elseif ($1 isnum 88-92) {
  112.   return 88@Unicorn stallion@Green@Unicorn horn@140@154.4 }
  113.   elseif ($1 isnum 93-126) {
  114.   return 93@Abyssal Titan@Green@Abyssal charm@113@163.2 }
  115. }
  116. alias crim {
  117.   if ($1 isnum 19-21) {
  118.   return 19@Spirit scorpion@Crimson@Bronze claws@57@83.2 }
  119.   elseif ($1 isnum 22-30) {
  120.   return 22@Spirit Tz-Kih@Crimson@Obsidian charm@64@96.8 }
  121.   elseif ($1 isnum 31-31) {
  122.   return 31@Vampire bat@Crimson@Vampire dust@81@136.0 }
  123.   elseif ($1 isnum 32-41) {
  124.   return 32@Honey badger@Crimson@Honeycomb@84@140.8 }
  125.   elseif ($1 isnum 42-45) {
  126.   return 42@Evil turnip@Crimson@Evil Carved turnip@104@184.8 }
  127.   elseif ($1 isnum 46-48) {
  128.   return 46@Pyrelord@Crimson@Tinderbox@111@202.4 }
  129.   elseif ($1 isnum 49-60) {
  130.   return 49@Bloated leech@Crimson@Raw beef@117@215.2 }
  131.   elseif ($1 isnum 61-62) {
  132.   return 61@Smoke devil@Crimson@Goat horn dust@141@268.0 }
  133.   elseif ($1 isnum 63-63) {
  134.   return 63@Spirit cobra@Crimson@Snake hide@116@276.8 }
  135.   elseif ($1 isnum 64-69) {
  136.   return 64@Stranger plant@Crimson@Bagged plant 1@128@281.6 }
  137.   elseif ($1 isnum 70-71) {
  138.   return 70@Ravenous Locust@Crimson@Pot of flour@79@132.0 }
  139.   elseif ($1 isnum 72-73) {
  140.   return 72@Phoenix@Crimson@Phoenix quill@165@302.0 }
  141.   elseif ($1 isnum 74-74) {
  142.   return 74@Granite lobster@Crimson@Granite (500g)@166@325.6 }
  143.   elseif ($1 isnum 75-76) {
  144.   return 75@Praying mantis@Crimson@Flowers -Red-@168@329.6 }
  145.   elseif ($1 isnum 77-82) {
  146.   return 77@Talon beast@Crimson@Talon beast charm@174@1015.2 }
  147.   elseif ($1 isnum 83-84) {
  148.   return 83@Spirit dagannoth@Crimson@Dagannoth hide@1@364.8 }
  149.   elseif ($1 isnum 85-91) {
  150.   return 85@Swamp Titan@Crimson@Swamp lizard@150@373.6 }
  151.   elseif ($1 isnum 92-94) {
  152.   return 92@Wolpertinger@Crimson@Raw rabbit+Wolf bones@203@404.8 }
  153.   elseif ($1 isnum 95-95) {
  154.   return 95@Iron Titan@Crimson@Iron platebody@198@417.6 }
  155.   elseif ($1 isnum 96-98) {
  156.   return 96@Pack yak@Crimson@Yak-hide@211@422.4 }
  157.   elseif ($1 isnum 99-126) {
  158.   return 99@Steel Titan@Crimson@Steel platebody@178@435.2 }
  159.   ;($1 Level) ($2 Pouch) ($3 Charm) ($4 Seconds) ($5 Shards) ($6 exp)
  160. }
  161. alias blue {
  162.   if ($1 isnum 23-24) {
  163.   return 23@Albino rat@Blue@Raw rat meat@75@202.4 }
  164.   elseif ($1 isnum 25-28) {
  165.   return 25@Spirit kalphite@Blue@Potato cactus@51@220.0 }
  166.   elseif ($1 isnum 29-33) {
  167.   return 29@Giant Chinchompa@Blue@Chinchompa@84@255.2 }
  168.   elseif ($1 isnum 34-33) {
  169.   return 34@Void spinner@Blue@Spinner charm@74@59.6 }
  170.   elseif ($1 isnum 34-33) {
  171.   return 34@Void torcher@Blue@Torcher charm@74@59.6 }
  172.   elseif ($1 isnum 34-35) {
  173.   return 34@Void shifter@Blue@Shifter charm@74@59.6 }
  174.   elseif ($1 isnum 36-45) {
  175.   return 36@Bronze minotaur@Blue@Bronze bar@102@316.8 }
  176.   elseif ($1 isnum 46-54) {
  177.   return 46@Iron minotaur@Blue@Iron bar@125@404.8 }
  178.   elseif ($1 isnum 55-55) {
  179.   return 55@Spirit jelly@Blue@Jug of water@151@484.0 }
  180.   elseif ($1 isnum 56-56) {
  181.   return 56@Steel minotaur@Blue@Steel bar@141@492.8 }
  182.   elseif ($1 isnum 57-56) {
  183.   return 57@Spirit Graahk@Blue@Graahk fur@154@501.6 }
  184.   elseif ($1 isnum 57-56) {
  185.   return 57@Spirit Kyatt@Blue@Kyatt fur@153@501.6 }
  186.   elseif ($1 isnum 57-57) {
  187.   return 57@Spirit Larupia@Blue@Larupia fur@153@501.6 }
  188.   elseif ($1 isnum 58-65) {
  189.   return 58@Karamthulhu overlord@Blue@Fishbowl -Empty-@144@510.4 }
  190.   elseif ($1 isnum 66-72) {
  191.   return 66@Mithril minotaur@Blue@Mithril bar@152@580.8 }
  192.   elseif ($1 isnum 73-75) {
  193.   return 73@Obsidian Golem@Blue@Obsidian charm@195@642.4 }
  194.   elseif ($1 isnum 76-78) {
  195.   return 76@Adamant minotaur@Blue@Adamantite bar@144@668.8 }
  196.   elseif ($1 isnum 79-79) {
  197.   return 79@Fire Titan@Blue@Fire talisman@198@695.2 }
  198.   elseif ($1 isnum 79-82) {
  199.   return 79@Moss Titan@Blue@Earth talisman@202@695.2 }
  200.   elseif ($1 isnum 83-85) {
  201.   return 83@Lava Titan@Blue@Obsidian charm@219@730.4 }
  202.   elseif ($1 isnum 86-88) {
  203.   return 86@Rune minotaur@Blue@Runite bar@1@756.8 }
  204.   elseif ($1 isnum 89-126) {
  205.   return 89@Geyser Titan@Blue@Water talisman@222@783.2 }
  206. }
  207.  
  208. alias xp {
  209.   var %x = 1, %level = $calc($1 - 1), %xp = 0
  210.   while (%x <= %level) {
  211.     var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
  212.     inc %xp %tempxp
  213.     inc %x
  214.   }
  215.   return $int(%xp)
  216. }
  217.  
  218. on $*:TEXT:/^[.!@](mycolor|mycolors|mycolour|mycolour)/Si:#: {
  219.     set %mycolor1 $+ $address($nick,3) $3
  220.     set %mycolor2 $+ $address($nick,3) $2
  221.     /notice $nick $c1($nick,*** [) $c2($nick,MYCOLOR) $c1($nick,] Your default mycolor has been set for the host) $c2($nick,$address($nick,3)) $c1($nick,to this and) $c2($nick,this)
  222.   }
  223. }
  224.  
  225. alias c1 { return $chr(3) $+ $iif(%mycolor1 [ $+ [ $address($nick,3) ] ] == $null,$chr(3) $+ 01 $+ $2- $+ $chr(3),$chr(3) $+ %Mycolor1 [ $+ [ $address($nick,3) ] ] $+ $2- $+ $chr(3)) }
  226. alias c2 { return $chr(3) $+ $iif(%Mycolor2 [ $+ [ $address($nick,3) ] ] == $null,$chr(3) $+ 07 $+ $2- $+ $chr(3),$chr(3) $+ %mycolor2 [ $+ [ $address($nick,3) ] ] $+ $2- $+ $chr(3)) }
create new paste | create new version of this paste RAW Paste Data