Public Pastes
Guest

Untitled

By: a guest on Jan 28th, 2012  |  syntax: None  |  size: 4.24 KB  |  hits: 35  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. on $*:TEXT:/^[!@]newdd/Si:#: {
  2.   if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
  3.     if ($2 ison $chan) && ($3 ison $chan) && ($4 != $int($4)) {
  4.  
  5.       set %game yes
  6.       set %name1 $2
  7.       set %name2 $3
  8.       set %name1gone no
  9.       set %name2gone no
  10.       set %monies $calc(($remove($4,$right($4,1)) * 2) * 0.9) $+ $right($4,1)
  11.       set %run $nick
  12.       inc %profit [ $+ [ $nick ] ] $rp($4)
  13.       set %monies $rp($4)
  14.  
  15.  
  16.       msg $chan 07[ $+ $nick $+ ] 1Dice Duel 10 $2 1vs10 $3 3 $sn(%monies)1pot!  1pot! 01[Roll Now! Type 04!roll]
  17.     }
  18.   }
  19. }
  20.  
  21. on $*:TEXT:/^[!@]roll/Si:#: {
  22.   if (%game == yes) {
  23.     if ($nick == %name1) && (%name1gone == no) {
  24.       set %roll1 $calc($rand(1, 6) + $rand(1, 6))
  25.       msg $chan 10 $+ %name1 1rolled a 07 $+ %roll1 1on Two-Six-Sided Dice!
  26.       //set %name1gone yes
  27.     }
  28.     if ($nick == %name2) && (%name2gone == no) {
  29.       set %roll2 $calc($rand(1, 6) + $rand(1, 6))
  30.       msg $chan 10 $+ %name2 1rolled a 07 $+ %roll2 1on Two-Six-Sided Dice!
  31.       //set %name2gone yes
  32.     }
  33.     if (%name1gone == yes) && (%name2gone == yes) {
  34.       unset %game
  35.       if (%roll1 > %roll2) {
  36.         msg $chan 07[Dice Duel]10 %name1 1wins the3 $sn(%monies) 1pot!
  37.         unset %roll1
  38.         unset %roll2
  39.         unset %name1gone
  40.         unset %name2gone
  41.         unset %name1
  42.         unset %name2
  43.         unset %monies
  44.         unset %run
  45.       }
  46.       elseif (%roll1 < %roll2) {
  47.         msg $chan 07[Dice Duel]10 %name2 1wins the3 $sn(%monies) 1pot!
  48.         unset %roll1
  49.         unset %roll2
  50.         unset %name1gone
  51.         unset %name2gone
  52.         unset %name1
  53.         unset %name2
  54.         unset %monies
  55.         unset %run
  56.       }
  57.       elseif (%roll1 == %roll2) {
  58.         msg $chan 7[Dice Duel]10 ( $+ %roll1 $+ - $+ %roll2 $+ ) 1 Tie! Reroll!
  59.         set %name1gone no
  60.         set %name2gone no
  61.         set %game yes
  62.         set %run $nick
  63.       }
  64.     }
  65.   }
  66.   if (%proll = yes) && ($nick == %proller) {
  67.     var %num $rand(1,100)
  68.     if (%num > 60) || (%num == 60) {
  69.       msg $chan 12[ $+ $nick $+ ]1 Rolled06 %num 1on the 100-percentile dice!10 %pname 1wins the3 %wager 1pot!
  70.     }
  71.     if (%num < 60) {
  72.       msg $chan 12[ $+ $nick $+ ]1 Rolled06 %num 1on the 100-percentile dice!10 $nick 1keeps the3 %wager 1pot!
  73.     }
  74.     unset %proll
  75.     unset %wager
  76.     unset %pname
  77.     unset %proller
  78.   }
  79. }
  80. on $*:TEXT:/^[!@]new60x2/Si:#: {
  81.   if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
  82.     if ($2 ison $chan) && ($3 != $null) {
  83.       msg $chan 12[ $+ $nick $+ ] 06 New **Percentile Dice Game**03 $3 1pot! Good luck10 $2
  84.       set %proller $nick
  85.       set %pname $2
  86.       set %wager $3
  87.       set %proll yes
  88.     }
  89.   }
  90. }
  91.  
  92.  
  93.  
  94.  
  95. on $*:TEXT:/^[!@]clear/Si:#: {
  96.   if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
  97.     if ($nick == %proller) {
  98.       notice $nick 5 $nick , you cleared your wager.
  99.       unset %proller
  100.       unset %pname
  101.       unset %wager
  102.       unset %proll
  103.     }
  104.   }
  105.  
  106.   if ($nick == %run) {
  107.     notice $nick 5 $nick , you cleared your wager.
  108.     unset %roll1
  109.     unset %roll2
  110.     unset %name1gone
  111.     unset %name2gone
  112.     unset %name1
  113.     unset %name2
  114.     unset %monies
  115.   }
  116. }
  117.  
  118. on $*:TEXT:/^[!@](records|cleardata)$/Si:#: {
  119.   if ($nick !isreg $chan) {
  120.     if ($mid($1,2) == records) {
  121.       notice $nick 05 This user has handled $sn(%profit [ $+ [ $nick ] ])
  122.       notice $nick 05 To refresh records for this user type !cleardata USERNICKNAME
  123.     }
  124.     else {
  125.       unset %profit [ $+ [ $nick ] ]
  126.       notice $nick 05 You have reset the specified users profit back to zero
  127.     }
  128.   }
  129. }
  130.  
  131. alias -l sn {
  132.   if ($remove($$1,$chr(44)) isnum) {
  133.     var %a $gettok($bytes($v1,b),0,44)
  134.     var %b $bytes($v1,b)
  135.     var %c $+($gettok(%b,1,44),$iif(%a != 1,.),$iif($mid($gettok(%b,2,44),1,2) == 0,0,$v1),$replace(%a,1,$null,2,k,3,m,4,b,5,t))
  136.     return $iif(%c >= 1000 || $regex(%c,/[kmbt]/),$iif($prop,%c,$+($chr(40),%c,$chr(41))))
  137.   }
  138. }
  139.  
  140. ;### Turns 1k into 1000 and such###
  141. alias rp {
  142.   var %a $remove($1,$chr(44))
  143.   return $calc($regsubex(%a, /(\d+\.?\d+?|\d+)([kmbt])/g,$chr(40)\1*1 $+ $str(000,$pos(kmbt,\2)) $+ $chr(41)))
  144. }
create a new version of this paste RAW Paste Data