home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / RussianRouletteAddon.mrc < prev    next >
Text File  |  2003-10-12  |  5KB  |  98 lines
  1. on 1:load: {
  2.   ;.notice OverDrive I am using your $russianroulettelogo
  3.   ;.amsg I have just loaded $russianroulettelogo $website
  4.   echo -a 8,1************* 4Loaded $russianroulettelogo 8,1*************
  5.   russiansetup
  6. }
  7. #russianban off
  8. on 1:text:!spin:%russianroulette.chan: { 
  9.   if (%playrussianroulette == On) {
  10.     set %russianroulette.rand $rand(0,2)
  11.     if (%russianroulette.rand == 0) { 
  12.       msg %russianroulette.chan BAM! $nick is a loser, bye.
  13.       if ($address($nick,5) == $null) { ban -u5 %russianroulette.chan $nick $+ !*@* | kick %russianroulette.chan $nick $roulettekick | unset  %russianroulette.rand | return }
  14.       else { ban -u5 %russianroulette.chan $address($nick,2) | kick %russianroulette.chan $nick $roulettekick | unset  %russianroulette.rand | return }
  15.     }
  16.     else { msg %russianroulette.chan $nick is a winner, you get to stay. | unset %russianroulette.rand }
  17.   }
  18. }
  19. #russianban end
  20. #russiankick on
  21. on 1:text:!spin:%russianroulette.chan: { 
  22.   if (%playrussianroulette == On) {
  23.     set %russianroulette.rand $rand(0,2)
  24.     if (%russianroulette.rand == 0) { 
  25.       msg %russianroulette.chan BAM! $nick is a loser, bye.
  26.     kick %russianroulette.chan $nick $roulettekick | unset  %russianroulette.rand | return }
  27.     else { msg %russianroulette.chan $nick is a winner, you get to stay. | unset %russianroulette.rand }
  28.   }
  29. }
  30. #russiankick end
  31. alias playroulette {
  32.   if (%playrussianroulette == On) { set %playrussianroulette Off  | russiantimeroff | advertrussianrouletteoff | unset %russianroulette.* }
  33.   else { if ($me isop $chan) {
  34.       set %russianroulette.chan #
  35.       set %playrussianroulette On 
  36.       advertrussianrouletteon
  37.       russiantimeron
  38.     }
  39.     else { echo -a YOU ARE NOT OPPED IN # }
  40.   }
  41. }
  42. ;CTCP 1:ADAMJ:.CTCPREPLY $nick ADAMJ I am using $ctcprussianroulettelogo
  43. menu channel {
  44.   Extra Tools
  45.   .-
  46.   .Russian Roulette ( %playrussianroulette ):playroulette
  47.   .-
  48.   ;.Russian Roulette ( %playrussianroulette ):playroulette
  49.   ;.Temporary Ban Feature ( %russianban ):russiantoggleban
  50.   ;..Advertise:amsg 14I am using $russianroulettelogo $+ . $website
  51. }
  52. alias ctcprussianroulettelogo { return 4Russian 7Roulette $ctcprussianrouletteversion }
  53. alias ctcprussianrouletteversion { return 9Version 132.1 }
  54. alias advertrussianrouletteon { 
  55.   if (%russianban == Enabled) { msg %russianroulette.chan Russian Roulette - Take your chances.  2:1 odds.  Type !spin to see if you win or lose - If you lose, you get kicked and banned for 5 seconds }
  56.   else { msg %russianroulette.chan Russian Roulette - Take your chances.  2:1 odds.  Type !spin to see if you win or lose - If you lose you get kicked. }
  57. }
  58. alias advertrussianrouletteoff { msg %russianroulette.chan Russian Roulette - Table is now closed }
  59. alias roulettekick { return $read $mircdirsystem\mpp\roulettekicks.txt }
  60. alias russiantimeron { .timerrussianroulette 0 500 advertrussianrouletteon }
  61. alias russiantimeroff { .timerrussianroulette off }
  62. alias russianroulettelogo { return 4Russian 7Roulette $russianrouletteversion }
  63. alias russianrouletteversion { return 9Version 132.1 }
  64. alias website { return 11You can get it at http://www.adamj.org }
  65. alias russiantoggleban {
  66.   if (%russianban == Enabled) { 
  67.     if (%playrussianroulette == On) {
  68.     .disable #russianban | .enable #russiankick | set %russianban Disabled | echo -a 4,8************* 3Disabled Temporary Ban 4,8************* | .msg %russianroulette.chan ROULETTE MODE SWITCH.  Temporary Ban Option Disabled. }
  69.     else {
  70.       .disable #russianban | .enable #russiankick | set %russianban Disabled | echo -a 4,8************* 3Disabled Temporary Ban 4,8*************
  71.     }
  72.   }
  73.   else { 
  74.     if (%playrussianroulette == On) {
  75.     .enable #russianban | .disable #russiankick | set %russianban Enabled | echo -a 4,8************* 3Enabled Temporary Ban 4,8************* | .msg %russianroulette.chan ROULETTE MODE SWITCH.  Temporary Ban Option Enabled. }
  76.     else {
  77.       .enable #russianban | .disable #russiankick | set %russianban Enabled | echo -a 4,8************* 3Enabled Temporary Ban 4,8************* 
  78.     }
  79.   }
  80. }
  81. alias russiansetup {
  82.   set %russianban.temp $?!"Do you want to enable the temporary ban?"
  83.   if (%russianban.temp == $true) { 
  84.     set %russianban Enabled
  85.     .disable #russiankick
  86.     .enable #russianban
  87.     echo -a 4,8************* 3Enabled Temporary Ban 4,8*************
  88.   }
  89.   else {
  90.     set %russianban Disabled
  91.     .disable #russianban
  92.     .enable #russiankick
  93.     echo -a 4,8************* 3Disabled Temporary Ban 4,8*************
  94.   }
  95.   unset %russianban.temp
  96.   set %playrussianroulette Off
  97. }
  98.