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

Untitled

By: a guest | Mar 21st, 2010 | Syntax: mIRC | Size: 7.97 KB | Hits: 54 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. on $*:TEXT:/^[!@.]gp/Si:*: {
  2.   if (%cash [ $+ [ $nick ] ] == $null) { set %cash [ $+ [ $nick ] ] 0 }
  3.   if (%timer [ $+ [ $nick ] ] == 1) { notice $nick You gotta wait $duration($timer($nick).secs) before using the .gp command. | halt }
  4.   timer $+ $nick 1 $r(162,259) unset %timer [ $+ [ $nick ] ]
  5.   set %timer [ $+ [ $nick ] ] 1
  6.   timer 1 1 notice $nick You'll have to wait $duration($timer($nick).secs) before using the .gp command again.
  7.  
  8.  
  9.   var %r $rand(1,15)
  10.   if (%r == 1) {
  11.     set %gp $r(4825,5231)
  12.     inc -s %cash [$+ [ $nick ] ] %gp
  13.     notice $nick 12 $nick steals a car and sells it for %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  14.   }
  15.   if (%r == 2) {
  16.     set %gp $r(692,925)
  17.     inc -s %cash [ $+ [ $nick ] ] %gp
  18.     notice $nick 12 $nick Stole $nick($chan,$r(1,$nick($chan,0)))'s wallet, gaining %gp $+ GP, you have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP  
  19.   }
  20.   if (%r == 3) {
  21.     set %gp $r(1950,2351)
  22.     inc -s %cash [ $+ [ $nick ] ] %gp
  23.     notice $nick 12 $+ $nick Finds %gp $+ GP in his trouser pocket, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  24.   }
  25.   if (%r == 4) {
  26.     set %gp $r(12395,13420)
  27.     inc -s %cash [ $+ [ $nick ] ] %gp
  28.     notice $nick 12 $nick Robs a bank getting away with %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  29.   }
  30.   if (%r == 5) {
  31.     set %gp $r(295,402)
  32.     inc -s %cash [ $+ [ $nick ] ] %gp
  33.     notice $nick 12 $nick Sells the last of his weed for %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  34.   }
  35.   if (%r == 6) {
  36.     set %gp $r(2135,2495)
  37.     inc -s %cash [ $+ [ $nick ] ] %gp
  38.     notice $nick 12 $nick Trips over whilst at work and claims %gp $+ GP compensation, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  39.   }
  40.   if (%r == 7) {
  41.     set %gp $r(3251,3592)
  42.     inc -s %cash [ $+ [ $nick ] ] %gp
  43.     notice $nick 12 $nick Sells some stuff at a carboot earning %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  44.   }
  45.   if (%r == 8) {
  46.     set %gp $r(673,823)
  47.     inc -s %cash [ $+ [ $nick ] ] %gp
  48.     notice $nick 12 $nick Finds a wallet on the floor, and took %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  49.   }
  50.   if (%r == 9) {
  51.     set %gp $r(549,725)
  52.     inc -s %cash [ $+ [ $nick ] ] %gp
  53.     notice $nick 12 $nick Sells some stuff on Ebay for %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  54.   }
  55.   if (%r == 10) {
  56.     set %gp $r(1492,1654)
  57.     inc -s %cash [ $+ [ $nick ] ] %gp
  58.     notice $nick 12 $nick sold there Runescape account for %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  59.   }
  60.   if (%r == 11) {
  61.     set %gp $r(1452,1629)
  62.     inc -s %cash [ $+ [ $nick ] ] %gp
  63.     notice $nick 12 $nick Finds a mobile phone on the floor and sells it for %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  64.   }
  65.   if (%r == 12) {
  66.     set %gp $r(1825,2034)
  67.     inc -s %cash [ $+ [ $nick ] ] %gp
  68.     notice $nick 12 $nick Picked up some cocaine off the floor and sold it for %gp $+ GP, you gain %gp $+ GP, you have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP  
  69.   }
  70.   if (%r == 13) {
  71.     set %gp $r(2238,2952)
  72.     inc -s %cash [ $+ [ $nick ] ] %gp
  73.     notice $nick 12 $nick stole $nick($chan,$r(1,$nick($chan,0)))'s hat and sold it on Ebay, you gain %gp $+ GP, you have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP  
  74.   }
  75.   if (%r == 14) {
  76.     set %gp $r(1502,1793)
  77.     inc -s %cash [ $+ [ $nick ] ] %gp
  78.     notice $nick 12 $nick stole $nick($chan,$r(1,$nick($chan,0)))'s laptop and sold it for %gp $+ GP, you gain %gp $+ GP, you have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP  
  79.   }
  80.   if (%r == 15) {
  81.     set %gp $r(1105,1429)
  82.     inc -s %cash [ $+ [ $nick ] ] %gp
  83.     notice $nick 12 $nick found a laptop on the floor and sold it to $nick($chan,$r(1,$nick($chan,0))) for %gp $+ GP, you gain %gp $+ GP, you have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP  
  84.   }
  85.  
  86.  
  87. }
  88.  
  89.  
  90.  
  91. on $*:TEXT:/^[!@.]killo/Si:*: {
  92.   if (%cash [ $+ [ $nick ] ] == $null) { set %cash [ $+ [ $nick ] ] 0 }
  93.   var %delay2 %killdelay [ $+ [ $nick ] ]
  94.  
  95.   if (%delay2) {
  96.     notice $nick You can't use .kill right now, please wait $duration(%delay2)
  97.     return
  98.   }
  99.   var %delay2 $rand(20,30)
  100.   set -z %killdelay $+ $nick %delay2
  101.   timer3 1 1 notice $nick You can use .kill again in $duration(%delay2 )
  102.  
  103.   var %r $rand(1,1)
  104.   if (%r == 1) {
  105.     set %gp $r(10,20)
  106.     inc -s %cash [ $+ [ $nick ] ] %gp
  107.     notice $nick 12 $nick killed $nick($chan,$r(1,$nick($chan,0))), You recieved ITEMSHERE(GPYOUGOTHERE), You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  108.   }
  109. }
  110.  
  111.  
  112.  
  113. alias rank {
  114.   close -@ @list*
  115.   ;;$gwdRank(Name) returns "name :: score :: rank";;
  116.   window @list1
  117.   window @list2
  118.   var %a 1
  119.   while ($var(%cash*,%a)) {
  120.     aline -a @list1 %cash [ $+ [ $remove($var(%cash*,%a),$+($chr(37),cash)) ] ] $remove($var(%cash*,%a),$+($chr(37),cash))
  121.     inc %a
  122.   }
  123.   filter -wwteuc 1 1 @list1 @list2
  124.   var %b $fline(@list2,* $1)
  125.   return $+(4,$token($line(@list2,%b),2,32)) 14has4 $+($bytes($line(@list2,%b),b),GP) 14and is ranked4 $ord(%b) $+ .
  126. }
  127.  
  128. on $*:TEXT:/^[!@.]score/Si:*: {
  129.   if (!$2) {
  130.     if (%cash [ $+ [ $nick ] ] isnum) {
  131.       $iif($left($1,1) == @, msg $chan, .notice $nick) $rank($nick)
  132.       halt
  133.     }
  134.     if (%cash [ $+ [ $nick ] ] !isnum) {
  135.       $iif($left($1,1) == @, msg $chan, .notice $nick) 14Sorry4 $nick $+ 14, you have no score.
  136.       halt
  137.     }
  138.   }
  139.   if ($2) {
  140.     if (%cash [ $+ [ $2 ] ] isnum) {
  141.       $iif($left($1,1) == @, msg $chan, .notice $nick) $rank($2)
  142.       halt
  143.     }
  144.     if (%cash [ $+ [ $2 ] ] !isnum) {
  145.       $iif($left($1,1) == @, msg $chan, .notice $nick) 14Sorry4 $2 $+ 14, has no score.
  146.       halt
  147.     }
  148.   }
  149. }
  150.  
  151. on $*:text:/^[!.@]del/Si:#: { if ($nick == exp) { unset %cash [ $+ [ $2 ] ] | notice $nick deleted $2 $+ 's scores. }
  152.  
  153. }
  154.  
  155.  
  156. on $*:TEXT:/^[!@.]dp/Si:*: {
  157.   if (%cash [ $+ [ $nick ] ] == $null) { set %cash [ $+ [ $nick ] ] 0 }
  158.   var %delay %dpdelay [ $+ [ $nick ] ]
  159.  
  160.   if (%delay) {
  161.     notice $nick You can't use .dp right now, please wait $duration(%delay)
  162.     return
  163.   }
  164.  
  165.   var %delay $rand(1242,1862)
  166.   set -z %dpdelay $+ $nick %delay
  167.   timer2 1 1 notice $nick You can use .dp again in $duration(%delay)
  168.  
  169.   var %r $rand(1,5)
  170.   if (%r == 1) {
  171.     set %gp $r(3023,3629)
  172.     inc -s %cash [ $+ [ $nick ] ] %gp
  173.     notice $nick 12 $nick Popped a yellow balloon and found a laptop on the floor, you gain %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  174.   }
  175.   if (%r == 2) {
  176.     set %gp $r(3923,4426)
  177.     inc -s %cash [ $+ [ $nick ] ] %gp
  178.     notice $nick 12 $nick popped a blue balloon and found $nick($chan,$r(1,$nick($chan,0)))'s bank card on the floor , you gain %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  179.   }
  180.   if (%r == 3) {
  181.     set %gp $r(1954,2931)
  182.     inc -s %cash [ $+ [ $nick ] ] %gp
  183.     notice $nick 12 $nick popped a orange balloon and found a ipod on the floor, you gain %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  184.   }
  185.   if (%r == 4) {
  186.     set %gp $r(1452,1629)
  187.     inc -s %cash [ $+ [ $nick ] ] %gp
  188.     notice $nick 12 $nick popped a red balloon and found a piece of paper on the floor with $nick($chan,$r(1,$nick($chan,0))) runescape password on it and sold it for %gp $+ GP, you gain %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  189.   }
  190.   if (%r == 5) {
  191.     set %gp $r(2304,3913)
  192.     inc -s %cash [ $+ [ $nick ] ] %gp
  193.     notice $nick $nick popped a black balloon and found a iphone on the floor and sold it for %gp $+ GP, you gain %gp $+ GP, You have now got $bytes(%cash [ $+ [ $nick ] ],b) $+ GP
  194.   }
  195. }
  196.  
  197.  
  198.  
  199. alias items {
  200.   var %x $rand(1,20)
  201.   ;====EXAMPLE===;
  202.   ;if (%x == 1) {
  203.   ;var %gp 1000
  204.   ;inc -s %cash [ $+ [ $nick ] ] %gp
  205.   ;return Bones (1000gp)
  206.   ;}
  207.   ;===END EXAMPLE===;
  208.  
  209.   if (%x == 1) {
  210.     var %gp AMOUNT
  211.     inc -s %cash [ $+ [ $nick ] ] %gp
  212.     return Name of Item
  213.   }
  214.   ;repeat for numbers 2-20
  215. }
  216.  
  217.  
  218.  
  219.  
  220.  
  221. on *:invite:*: { join $chan }
create new paste | create new version of this paste RAW Paste Data