mIRC 1x1 CUP BOTAS

[k1ck]

Reikia mIRC 1x1 CUP boto panasaus i #esports-1x1 kanalo.

[LaGGeR]

;-----------------------------------------------------------
;Cup Bot by xDaeMoN
;Date: 1/10/05
;
;Available Cups: from 1on1 to 5on5
;Clans: 8, 16 or 32
;----------------------------------------------------------------

ON @*:TEXT:!*:#Channelname: {
 if ($1 == !start)  && ($nick isop $chan) {
   if ( !%cup.start ) {
     if ($2) && ($istok(1on1.2on2.3on3.4on4.5on5,$2,46)) {
       if ($3) && ($3 isnum) && ($istok(8.16.32,$3,46)) {
         set %cup.type $2
         set %cup.teams $3
         set %cup.start yes
         set %cup.players $left($2,1)
         set %cup.team.count 0
         .msg $chan ** [Cup] %cup.type [Clans] $($+(0,/,%cup.teams),2) has now Started.
         goto topset
       }
       else .notice $nick ** Insufficient Parameters (Invalid $chr(35) of Teams): !start  < $+ $chr(35) of Clans (Available: 8,16,32)>
     }
     else .notice $nick ** Insufficient Parameters (Invalid Cup Type): !start  < $+ $chr(35) of Clans>
   }
   else .notice $nick A Cup has already started. Type !end to end the cup.
 }
 elseif ($1 == !end) && ($nick isop $chan) {
   if (%cup.start) {
     .msg $chan ** [Cup] %cup.type [Clans] $($+(%cup.team.count,/,%cup.teams),2) has now Ended.
     topic $chan Welcome to $chan - Cup! [Cup] No Info [Clans] No Info
     unset %cup.*
     .remove cup.ini
   }
   else .notice $nick No Cup has started yet.
 }
 elseif ($1 == !add) {
   if ( %cup.start ) {
     if (%cup.team.count < %cup.teams) {
       if ($2) {
         if ( !$readini(cup.ini, %cup.type, $2) ) {
           if ($3) && ($numtok($3-,44) == %cup.players) {
             writeini -n cup.ini %cup.type $2 $3-
             .notice $nick ** Added Clan $2 with Players: $3-
             inc %cup.team.count
             goto topset
           }
           else .notice $nick ** Insufficient Parameters (Incomplete players): !add  < $+ %cup.players Player(s) (separated with a comma if more than 1)>
         }
         else .notice $nick Clan $2 has already been added.                   
       }
       else .notice $nick ** Insufficient Parameters (No Clan Name Given): !add  < $+ %cup.players Player(s) (separated with a comma if more than 1)>
     }
     else .notice $nick Cup: %cup.type has already reached the max Clan limit.
   }
   else .notice $nick No Cup has started yet.
 }
 elseif ($1 == !del) {
   if (%cup.start) {
     if ($2) {
       if ($ini(cup.ini, %cup.type, $2)) {
         remini cup.ini %cup.type $2
         .notice $nick ** Removed Clan $2 $+ .
         dec %cup.team.count
         goto topset
       }
       else .notice $nick Clan $2 does not exist.
     }
     else .notice $nick ** Insufficient Parameters (No Clan name given): !del 
   }
   else .notice $nick No Cup has started yet.
 }
 elseif ($1 == !set) && ($nick isop $chan) {
   if (%cup.start) {
     if ($2 == price) {
       if ($3) {
         set %cup.price $3
         .notice $nick ** Cup %cup.type Price set to $+(',$3,')
       }
       else .notice $nick ** Insufficient Parameters (No Price Set): !set price 
     }
     elseif ($2 == map) {
       if ($3) {
         set %cup.map $3
         .notice $nick ** Cup %cup.type Map set to $+(',$3,')
       }
       else .notice $nick ** Insufficient Parameters (No Map Set): !set map 
     }
     elseif ($2 == scheme) {
       if ($3) {
         set %cup.scheme $3
         .notice $nick ** Cup %cup.type Scheme set to $+(',$3,')
       }
       else .notice $nick ** Insufficient Parameters (No Scheme Set): !set scheme 
     }
     elseif ($2 == wtime) {
       if ($3) {
         set %cup.wtime $3
         .notice $nick ** Cup %cup.type War Time set to $+(',$3,')
       }
       else .notice $nick ** Insufficient Parameters (No War Time Set): !set scheme 
     }
     :topset
     topic $chan Welcome to $chan - Cup! [Cup] %cup.type [Clans] $($+(%cup.team.count,/,%cup.teams),2) [Price] %cup.price $&
       [scheme] %cup.scheme [Map] %cup.map [start] %cup.wtime
   }
   else .notice $nick No Cup has started yet.
 }
 elseif ($1 == !list) {
   if (%cup.start) {
     if ( $ini(cup.ini, %cup.type) ) {
       .notice $nick ** Clan list for %cup.type $+($ini(cup.ini, %cup.type, 0),/,%cup.teams) **
       var %g = 1
       while $ini(cup.ini, %cup.type, %g) {
         .notice $nick $v1
         inc %g
       }
       .notice $nick ** End of Clan list **
     }
     else .notice $nick ** Clan List is Empty
   }
   else .notice $nick No Cup has started yet.
 }
 elseif ($1 == !price) {
   if (%cup.start) {
     if (%cup.price != $null) {
       .notice $nick ** Cup %cup.type Price is $+(',$v1,')
     }
     else .notice $nick ** No Price has been set yet.
   }
   else .notice $nick No Cup has started yet.
 }
 elseif ($1 == !wtime) {
   if (%cup.start) {
     if (%cup.wtime != $null) {
       .notice $nick ** Cup %cup.type War Time is $+(',$v1,')
     }
     else .notice $nick ** No War Time has been set yet.
   }
   else .notice $nick No Cup has started yet.
 }
} 

[k1ck]

Turiu toki pat, jis visiskai nesutvarkytas ir tikrai nepanasus i #esports-1x1

[LaGGeR]

Turiu toki pat, jis visiskai nesutvarkytas ir tikrai nepanasus i #esports-1x1

Nelošiu tam esporto šūde, nk nežn.

[deffor]

e gal kas galit pastatiti +REP

-- Papildyta --

# sweiki all

[Rokas#8]

e gal kas galit pastatiti +REP

-- Papildyta --

# sweiki all

Free poster'is

[PauliuSH]

Parduodamas tas botas

[k1ck]

Gavau jau nemokamai.