Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 7th, 2012  |  syntax: mIRC  |  size: 6.80 KB  |  hits: 37  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. on *:TEXT:.sign*:%ch: {
  2.   var %u = $getid2($nick)
  3.   if ( $userlvl(%u) >= 10 ) {
  4.     if (!%game.on) { return }
  5.     ;echo -ag ok
  6.     if (%c.gameconfirmed) { return }
  7.     if (!$game.canjoin(%u)) { return }
  8.     ;echo -ag ok
  9.     if ((!%c.challenge) && ($istok(%c.gameforbid,%u,46))) { return }
  10.     ;echo -ag ok
  11.     if ((!%c.challenge) && ($numtok(%c.gameauths,46) >= 10)) { return }
  12.     ;echo -ag ok
  13.     set %c.gameauths $addtok(%c.gameauths,%u,46)
  14.     if (!%c.challenge)
  15.     if ($timer(spamsignout)) {
  16.       set %line.signout %line.signout $getname(%u) $+ $enclose($get.exprank(%u)) signed in;
  17.     }
  18.     else {
  19.       describe %ch $getname(%u) $+ $enclose($get.exprank(%u)) signed in; $iif(!%c.challenge,$iif($calc(10 - $numtok(%c.gameauths,46)) != 0, $v1 slots remaining, $getname($gettok(%c.gameauths,1,46)) can start the game(.confirmstart)),$numtok(%c.gameauths,46) players have already signed in.)
  20.       set %line.signout $null
  21.       timerspamsignout 1 7 flush.signout
  22.     }
  23.   }
  24. }
  25.  
  26. on *:TEXT:.adminsign*:#: {
  27.   var %u = $getid2($nick)
  28.   if ( $userlvl(%u) >= 70) {
  29.     var %su = $getid($2)
  30.     if (!%game.on) { return }
  31.     ;echo -ag ok
  32.     if (%c.gameconfirmed) { return }
  33.     if (!$game.canjoin(%su)) { return }
  34.     ;echo -ag ok
  35.     if ((!%c.challenge) && ($istok(%c.gameforbid,%su,46))) { return }
  36.     ;echo -ag ok
  37.     if ((!%c.challenge) && ($numtok(%c.gameauths,46) >= 10)) { return }
  38.     ;echo -ag ok
  39.     set %c.gameauths $addtok(%c.gameauths,%su,46)
  40.     if (!%c.challenge)
  41.     if ($timer(spamsignout)) {
  42.       set %line.signout %line.signout $getname(%su) $+ $enclose($get.exprank(%su)) signed in;
  43.     }
  44.     else {
  45.       describe %ch $getname(%su) $+ $enclose($get.exprank(%su)) signed in; $iif(!%c.challenge,$iif($calc(10 - $numtok(%c.gameauths,46)) != 0, $v1 slots remaining, $getname($gettok(%c.gameauths,1,46)) can start the game(.confirmstart)),$numtok(%c.gameauths,46) players have already signed in.)
  46.       set %line.signout $null
  47.       timerspamsignout 1 7 flush.signout
  48.     }
  49.   }
  50. }
  51.  
  52. on *:TEXT:.startgame*:%ch: {
  53.   var %u = $getid2($nick)
  54.   if ( $userlvl(%u) >= 10 ) {
  55.     if (%game.on) { return }
  56.     if (!$game.canjoin(%u)) { return }
  57.     set %game.on 1
  58.     if (( $2 == mode ) && ($istok($modes,$3,46))) { set %c.gamemode $3 }
  59.     else { set %c.gamemode de_inferno }
  60.     if ( $3 == quickstart ) { set %c.gamemode de_inferno }
  61.     ;; quickstart compatibility added
  62.     set %c.gameauths %u
  63.     set %c.gameconfirmed 0
  64.     set %c.gameforbid $null
  65.     set %canpickhero 0
  66.     set %canpickplayer 0
  67.     set %canreply 0
  68.     set %c.pickmode 1
  69.     set %c.challenge 0
  70.     ;; quickstart compatibility added
  71.     set %c.quickstartcptpick 0
  72.     set %c.quickstartplayerpick 0
  73.     ;; topic %ch Welcome to my ASS! Sign-up is opened at the moment, mode is %c.gamemode $+ $chr(44) $getname(%u) hosts the game.
  74.     topic %ch $topicwelcome $topicgame $topicmode $topichosts $topicgames
  75.     ;; timergamestart 1 900 gamecheck
  76.     if (!$timer(spamcensure)) { timerspamcensure 1 120 spam.censure }
  77.     ;; Sign-up for challenge is open at the moment, mode is Draft, Enigma_2008 and Suspekt are the captains
  78.     ;; Sign-up is open at the moment, mode is AutoDraft, traffic|Dark hosts the game.
  79.   }
  80. }
  81. on *:TEXT:.sg*:%ch: {
  82.   var %u = $getid2($nick)
  83.   if ( $userlvl(%u) >= 10 ) {
  84.     if (%game.on) { return }
  85.     if (!$game.canjoin(%u)) { return }
  86.     set %game.on 1
  87.     if (( $2 == mode ) && ($istok($modes,$3,46))) { set %c.gamemode $3 }
  88.     else { set %c.gamemode de_inferno }
  89.     if ( $3 == quickstart ) { set %c.gamemode de_inferno }
  90.     ;; quickstart compatibility added
  91.     set %c.gameauths %u
  92.     set %c.gameconfirmed 0
  93.     set %c.gameforbid $null
  94.     set %canpickhero 0
  95.     set %canpickplayer 0
  96.     set %canreply 0
  97.     set %c.pickmode 1
  98.     set %c.challenge 0
  99.     ;; quickstart compatibility added
  100.     set %c.quickstartcptpick 0
  101.     set %c.quickstartplayerpick 0
  102.     ;; topic %ch Welcome to my ASS! Sign-up is opened at the moment, mode is %c.gamemode $+ $chr(44) $getname(%u) hosts the game.
  103.     topic %ch $topicwelcome $topicgame $topicmode $topichosts $topicgames
  104.     ;; timergamestart 1 900 gamecheck
  105.     if (!$timer(spamcensure)) { timerspamcensure 1 120 spam.censure }
  106.     ;; Sign-up for challenge is open at the moment, mode is Draft, Enigma_2008 and Suspekt are the captains
  107.     ;; Sign-up is open at the moment, mode is AutoDraft, traffic|Dark hosts the game.
  108.   }
  109. }
  110.  
  111. on *:TEXT:.challenge*:%ch: {
  112.   var %u = $getid2($nick)
  113.   if ( $userlvl($nick) >= 30 ) {
  114.     if (%game.on) { return }
  115.     ;echo -ag ok
  116.     if (!$2) { return }
  117.     ;echo -ag ok
  118.     var %cu = $getid($2)
  119.     if (!$game.canjoin(%u)) { return }
  120.     ;echo -ag ok
  121.     if (!$game.canjoin(%cu)) { return }
  122.     ;echo -ag ok
  123.     if (%u == %cu) { return }
  124.     if ( $userlvl(%cu) < 30 ) { return }
  125.     ;echo -ag ok
  126.     if (!$nauth(%cu)) { return }
  127.     ;echo -ag ok
  128.     set %game.on 1
  129.     set %c.gamemode de_inferno
  130.     set %c.gameauths %u $+ . $+ %cu
  131.     set %c.gameconfirmed 0
  132.     set %c.challenge 1
  133.     set %canpickhero 0
  134.     set %canpickplayer 0
  135.     set %canreply 0
  136.     ;; quickstart compatibility added
  137.     set %c.quickstartcptpick 0
  138.     set %c.quickstartplayerpick 0
  139.     unset %c.voted
  140.     ;; topic %ch Welcome to my ASS! Sign-up for challenge is opened at the moment, mode is %c.gamemode $+ $chr(44) $getname(%u) and $getname(%cu) are the captains.
  141.     topic %ch $topicwelcome $topicgame $topicmode $topichosts $topicgames
  142.     ;; timergamestart 1 900 gamecheck
  143.  
  144.     if (!$timer(spamcensure)) { timerspamcensure 1 120 spam.censure }
  145.     msg $nauth(%cu) $nauth(%cu) $+ $chr(44) $nauth(%u) Have challenged you on %ch
  146.   }
  147. }
  148.  
  149. on *:TEXT:.cl*:%ch: {
  150.   var %u = $getid2($nick)
  151.   if ( $userlvl($nick) >= 30 ) {
  152.     if (%game.on) { return }
  153.     ;echo -ag ok
  154.     if (!$2) { return }
  155.     ;echo -ag ok
  156.     var %cu = $getid($2)
  157.     if (!$game.canjoin(%u)) { return }
  158.     ;echo -ag ok
  159.     if (!$game.canjoin(%cu)) { return }
  160.     ;echo -ag ok
  161.     if (%u == %cu) { return }
  162.     if ( $userlvl(%cu) < 30 ) { return }
  163.     ;echo -ag ok
  164.     if (!$nauth(%cu)) { return }
  165.     ;echo -ag ok
  166.     set %game.on 1
  167.     set %c.gamemode de_inferno
  168.     set %c.gameauths %u $+ . $+ %cu
  169.     set %c.gameconfirmed 0
  170.     set %c.challenge 1
  171.     set %canpickhero 0
  172.     set %canpickplayer 0
  173.     set %canreply 0
  174.     ;; quickstart compatibility added
  175.     set %c.quickstartcptpick 0
  176.     set %c.quickstartplayerpick 0
  177.     unset %c.voted
  178.     ;; topic %ch Welcome to my ASS! Sign-up for challenge is opened at the moment, mode is %c.gamemode $+ $chr(44) $getname(%u) and $getname(%cu) are the captains.
  179.     topic %ch $topicwelcome $topicgame $topicmode $topichosts $topicgames
  180.     ;; timergamestart 1 900 gamecheck
  181.  
  182.     if (!$timer(spamcensure)) { timerspamcensure 1 120 spam.censure }
  183.   msg $nauth(%cu) $nauth(%cu) $+ $chr(44) $nauth(%u) Have challenged you on %ch  }
  184. }
create a new version of this paste RAW Paste Data