API tools faq
paste
Guest User

Untitled

a guest
Dec 18th, 2018
79
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 7.51 KB | None | 0 0
raw download clone embed print report
  1. on *:text:!dd *:#Dat: {
  2.   ; You can remove the first two IF lines if you don't care about checking if the nicks are on the channel.
  3.   if ($nick isvoice #Dat || $nick isreg #Dat) { msg $chan Only halfop or higher can start a duel. | return }
  4.   if ($2 !ison $chan) { msg $chan $2 is not a valid nick. | halt }
  5.   if ($3 !ison $chan) { msg $chan $3 is not a valid nick. | halt }
  6.   if (!$4) { msg $chan Invalid format.  Use: !dd nick1 nick2 reward | halt }
  7.   set %dd $2 $3 $4
  8.   msg $chan  7,7// 4,4// 5,5// 8,1 Dice duel between  9 $2  8 and  9 $3 8--- pot:9 $4 ;  8 Type !roll. 5,5// 4,4// 7,7//
  9.   .timerDD 1 300 EndDD
  10. }
  11. on *:text:!roll:#Dat: {
  12.   if (!%dd) { msg $chan  8,1 No  4duel  8in progress. | halt }
  13.   if (!$istok(%dd,$nick,32)) { msg $chan You are not one of the duelists. | halt }
  14.   if ($($+(%,ddr.,$nick),2)) { msg $chan You have already rolled. | halt }
  15.   var %r = $rand(2,12), %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32), %p = $gettok(%dd,3,32)
  16.   set %ddr. $+ $nick %r
  17.   msg $chan  7,7// 4,4// 5,5// 8,19 $nick 0 rolled a 7 %r $+  0, on two six-sided dice.  5,5// 4,4// 7,7//
  18.   var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2), %r2 = $($+(%,ddr.,$gettok(%dd,2,32)),2)
  19.   if (%r1 && %r2) {
  20.     if (%r1 > %r2) { msg $chan  9,1 %d1 8 won the 4 %p pot 8 with rolls 4 %r1 $+ - $+ %r2 $+ . }
  21.     elseif (%r2 > %r1) { msg $chan  9,1 %d2 8 won the 4 %p pot 8 with rolls 4 %r2 $+ - $+ %r1 $+ . }
  22.     else { msg $chan  8,1 9 %d1 8 and 9 %d2 8 tied with a 4 %r1 $+ - $+ %r2 $+ . 8 Host please 4 RESTART 8 the duel. }
  23.     unset %dd
  24.     unset %ddr.*
  25.     .timerDD off
  26.   }
  27. }
  28. alias EndDD {
  29.   msg $chan  The duel ran out of time and has been ended.
  30.   unset %dd
  31.   unset %ddr.*
  32. }
  33. on *:text:*!ddend *:#Dat: {
  34.   set %dd $2 $3
  35.   msg $chan 8,1 Dice duel between 9 $2 8 and 9 $3 8 was ended.
  36.   unset %dd
  37.   unset %ddr.*
  38.   .timerDD off
  39.   halt
  40. }
  41. on *:text:!pickpocket*:#:{
  42.   msg $chan  12,11 $me walks up to $2 silently...
  43.   .timer 1 2  msg $chan  12,11 $me carefully reaches inside $2 $+ 's pocket and finds...
  44.   var %item = $rand(1,12)
  45.   if (%item == 1) .timer 1 2 msg $chan  2,0 A cell phone!
  46.   if (%item == 2) .timer 1 2 msg $chan  3,9 money!
  47.   if (%item == 3) .timer 1 2 msg $chan  5,0 A wallet! w00t!
  48.   if (%item == 4) .timer 1 2 msg $chan  0,1 A receipt... -.-
  49.   if (%item == 5) .timer 1 2 msg $chan  14,1 An ipod!!!
  50.   if (%item == 6) .timer 1 2 msg $chan  7,0 Cigarettes... blah...
  51.   if (%item == 7) .timer 1 2 msg $chan  4,0 A lighter... wonder what that's for...
  52.   if (%item == 8) .timer 1 2 msg $chan  1,4 OMG! A condom!
  53.   if (%item == 9) .timer 1 2 msg $chan  15,0 A quarter ~ wooptido -.-
  54.   if (%item == 10) .timer 1 2 msg $chan  13,0 Yummy! Bubble gum!
  55.   if (%item == 11) .timer 1 2 msg $chan  12,0 Nuthin...
  56.   if (%item == 12) .timer 1 2 msg $chan  12,14 Lint???
  57. }
  58. on 1:TEXT:*!sword*:#:{
  59.   var %sword = $rand(1,11)
  60.   msg $chan  12,11 $nick steps up to the sword and grips it firmly...
  61.   if (%sword == 1) .timer 1 2 msg $chan  4,1 $nick is to weak!
  62.   if (%sword == 2) .timer 1 2 msg $chan  4,1 $nick is laughed at. $nick Runs away crying!
  63.   if (%sword == 3) .timer 1 2 msg $chan  4,1 $nick pulls at the sword with all there might, but $nick is just not strong enough.
  64.   if (%sword == 4) .timer 1 2 msg $chan  4,1 $nick 's hands slip off the sword and $nick tumbles backwards embarrased.
  65.   if (%sword == 5) .timer 1 2 msg $chan  4,1 $nick gives up....
  66.   if (%sword == 6) .timer 1 2 msg $chan  4,1 $nick did it! $nick got the sword!
  67.   if (%sword == 7) .timer 1 2 msg $chan  4,1 $nick pulls the sword out and thrust it over his head in triumph!
  68.   if (%sword == 8) .timer 1 2 msg $chan  4,1 $nick fails at retrieving the sword. $me shoves $nick out of the way and pulls it out with one hand.
  69.   if (%sword == 9) .timer 1 2 msg $chan  4,1 $nick Yanks the sword out easily, and falls backwards stabbing themself.
  70.   if (%sword == 10) .timer 1 2 msg $chan  4,1 $nick Pulls the sword out and is named the strongest man in $chan
  71.   if (%sword == 11) .timer 1 2 msg $chan  4,1 $nick is thrown in jail for stealing the sword.
  72. }
  73. on *:text:!Poison Game:#:{
  74.   set %poisioned $nick
  75.   set %keyNum $rand(1,3)
  76.   msg $chan   0,3 $me  3,0 spills poision,  0,3 %poisioned  3,0 must unlock the antipoision.  0,3 %poisioned  3,0 has  9,0 15  3,0 seconds to unlock the antipoision. The keys are are  8,0 Gold,  15,0 Silver,  3,0 and  7,0 Bronze.  3,0 Type !pick <Color> key.
  77.   .timer 1 5 .notice %poisioned 1
  78.   .timer 1 10 .notice %poisioned 2
  79.   .timer 1 15 .notice %poisioned 3
  80.   .timer 1 16 msg $chan   4,0 $nick took too long! The WHOLE chan dies!
  81.   .timer 1 16 unset %poisioned
  82. }
  83. on *:text:!pick gold:#:{
  84.   if ($nick = %poisioned) {
  85.     if (%keyNum == 1)  {
  86.       msg $chan   8,1 Antipoision has been retrieved!  1,8 $nick  8,1 saved your lives!
  87.       timer* off
  88.       unset %poisioned
  89.       halt
  90.     }
  91.     msg $chan  8,1 $nick   1,8 picked the wrong key! You ALL Die!
  92.     timer* off
  93.     unset %poisioned
  94.   }
  95. }
  96.  
  97. on *:text:!pick silver:#:{
  98.   if ($nick = %poisioned) {
  99.     if (%keyNum == 2)  {
  100.       msg $chan   15,12 Key has been retrived!  12,15 $nick  15,12 Saved you ALL!
  101.       timer* off
  102.       unset %poisioned
  103.       halt
  104.     }
  105.     msg $chan   15,12 $nick  12,15 picked the wrong key! YOU ALL Die!
  106.     timer* off
  107.     unset %poisoned
  108.   }
  109. }
  110.  
  111. on *:text:!pick bronze:#:{
  112.   if ($nick = %poisioned) {
  113.     if (%keyNum == 3)  {
  114.       msg $chan  7,15 Key has been retrieved!  15,7 $nick  7,15 Saved you ALL!
  115.       timer* off
  116.       unset %poisioned
  117.       halt
  118.     }
  119.     msg $chan   15,7 $nick  7,15 picked the wrong key! YOU ALL Die!
  120.     timer* off
  121.     unset %poisioned
  122.   }
  123. }
  124. on *:text:*!pd*:*: {
  125.   ; You can remove the first two IF lines if you don't care about checking if the nicks are on the channel.
  126.   if ($nick isvoice #Dat || $nick isreg #Dat) { msg $chan Only halfop or higher can start a duel. | return }
  127.   if ($2 !ison $chan) { msg $chan $2 is not a valid nick. | halt }
  128.   if ($3 !ison $chan) { msg $chan $3 is not a valid nick. | halt }
  129.   if (!$4) { msg $chan Invalid format.  Use: !dd nick1 nick2 reward | halt }
  130.   set %pd $2 $3 $4
  131.   msg $chan  11,11// 12,12// 2,2// 8,1 $2 8betted 4 $4 8 on host: 4 $3 8@ 60x2 game, gl! 2,2// 12,12// 11,11//
  132. }
  133. on *:text:!rol:#Dat: {
  134.   if (!%pd) { msg $chan  8,1 No  4duel  8in progress. | halt }
  135.   if (!$istok(%pd,$nick,32)) { msg $chan You are not one of the duelists. | halt }
  136.   var %r = $r(1,100), %d1 = $gettok(%pd,1,32), %p = $gettok(%pd,3,32)
  137.   set %ddr. $+ $nick %r
  138.   msg $chan  11,11// 12,12// 2,2// 8,1 $nick rolled a  4 %r $+ 1, 8on the percentile dice.  2,2// 12,12// 11,11//
  139.   var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2)
  140.   .timerDD 1 300 EndDD
  141.   unset %pd
  142.   unset %ddr.*
  143.   .timerDD off
  144. }
  145.  
  146. on *:text:!preroll:#Dat: {
  147.   var %r = $r(2,12), %d1 = $gettok(%pd,1,32), %p = $gettok(%pd,3,32)
  148.   set %ddr. $+ $nick %r
  149.   notice $nick  11,11// 12,12// 2,2// 8,1 You just prerolled  4 %r $+ 1, 8on the two sixsided dice.  2,2// 12,12// 11,11//
  150.   var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2)
  151.   .timerDD 1 300 EndDD
  152.   unset %pd
  153.   unset %ddr.*
  154.   .timerDD off
  155. }
  156. }
  157. on *:text:!newdd*:#Smokin_Dice,#SM-Dev: {
  158. If (($nick !isreg $chan) && ($me isin $1-)) {
  159. msg $chan !Roll 10,1Dat 4,1Dice 10,1And 9,1Win!!  }
  160. }
  161.  
  162. on *:TEXT:*tie*reroll*:#Smokin_Dice:{
  163. if (($nick isop $chan) && ($chr(40) $+ $me $+ $chr(41) isin $strip($2-)) && (reroll isin $strip($2-)) && (side !isin $2-) && (jackpot !isin $2-)) {    
  164.   msg $chan !Roll  10Re 03Rolling
  165. }
  166. }
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!