This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Help about war tcl

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
R
Repdientu
Voice
Posts: 37
Joined: Thu Apr 30, 2009 3:45 am
Location: Viet Nam
Contact:

Help about war tcl

Post by Repdientu »

Hi guys
I and my friend play a game on channel #war. that channel counter kick of 2 bot nick. if any one has get 25 kicks will get to win.
i want to creat a bot referee to counter .and clear counter after finish of game. the bot referee will start counter a game when enemy kick again.

eg:

* Carot was kicked by LuuLinh (bùm chíu)
* Carot (lalala@171.247.192.211) has joined #war
* ChatVN sets mode: +o Carot
* LuuLinh was kicked by Carot (°¨¨°º ©här£ë§ º°¨¨°)
@referee the match Carot vs LuuLinh started.
* LuuLinh (LuuLinh@luulinh.chatvn.net) has joined #war
* ChatVN sets mode: +o LuuLinh
* Carot was kicked by LuuLinh (bùm chíu)
* Carot (lalala@171.247.192.211) has joined #war
* ChatVN sets mode: +o Carot
* LuuLinh was kicked by Carot (°¨¨°º ©här£ë§ º°¨¨°)
* LuuLinh (LuuLinh@luulinh.chatvn.net) has joined #war
* ChatVN sets mode: +o LuuLinh
* LuuLinh was kicked by Carot (°¨¨°º ©här£ë§ º°¨¨°)
..........
* LuuLinh was kicked by ChanServ (CONGRATULATION!! LuuLinh you have win Carot with the score « 25-8 » (referee))
** Carot was kicked by ChanServ (You have lose LuuLinh with the score « 8-25 »)
* ChanServ sets mode: +b *!*@171.247.192.211

and after 5s:

* referee sets mode: -b *!*@171.247.192.211

Thank for your help
R
Repdientu
Voice
Posts: 37
Joined: Thu Apr 30, 2009 3:45 am
Location: Viet Nam
Contact:

Post by Repdientu »

help me please!!!!!!!!!!!!!!!!!!!!!!
User avatar
caesar
Mint Rubber
Posts: 3776
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

How's the war started or better said when starts counting? How dose the referee know who's on on what team to add points to that team?
Once the game is over, the king and the pawn go back in the same box.
R
Repdientu
Voice
Posts: 37
Joined: Thu Apr 30, 2009 3:45 am
Location: Viet Nam
Contact:

Post by Repdientu »

The match begins when the nick is kicked back. Then the referee will start counting the kicks on each side. The person who kicks 25 first will win.
can you help me?
User avatar
caesar
Mint Rubber
Posts: 3776
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

The war is between two bots at a time?

So, Bot A kicks Bot B. Bot B rejoins the channel, gains @ and retaliates by kicking Bot A. This action tells the referee that the war between the two (Bot A and Bot B) has started?
Once the game is over, the king and the pawn go back in the same box.
R
Repdientu
Voice
Posts: 37
Joined: Thu Apr 30, 2009 3:45 am
Location: Viet Nam
Contact:

Post by Repdientu »

caesar wrote:The war is between two bots at a time?

So, Bot A kicks Bot B. Bot B rejoins the channel, gains @ and retaliates by kicking Bot A. This action tells the
referee that the war between the two (Bot A and Bot B) has started?
Bot LuuLinh kick bot Carot, Bot Carot rejoin the channel and rekick agian. The referee will start the match (counter kick of 2 bot)
Eg:

* Carot was kicked by LuuLinh (bùm chíu)
* Carot (lalala@171.247.192.211) has joined #war
* LuuLinh was kicked by Carot (°¨¨°º ©här£ë§ º°¨¨°)
@referee the match Carot vs LuuLinh started.
R
Repdientu
Voice
Posts: 37
Joined: Thu Apr 30, 2009 3:45 am
Location: Viet Nam
Contact:

Post by Repdientu »

this is my script on mirc.

Code: Select all

On 1:kick:%bot.chan:{
  if ($nick isin $knick) || (chanserv isin $nick) || ($me isin $nick) || ($hget(ex_nicks,$nick)) halt
  if ($knick == $me) { cs akick # add $nick Dont kick bot please! | cs akick # enforce | timerakickdel $+ $nick 1 10 cs akick # del $nick | halt }
  else {
    .timer $+ $knick $+ $nick off 
    if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] = $null) && (%kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] = $null) {
      if (%1vs1 == On) { var %check1 = % $+ kc, $+ $nick $+ ,* | var %check2 = % $+ kc, $+ $knick $+ ,*
        if ($var($var(%check1,1).value,1)) { var %i = $var($var(%check1,1).value,1) | cs akick # add $nick 9,1 $+ $nick 11kh鬾g pha瞚 ba.n 衋ng war vo*?8 $remove(%i,%,kc,$nick,$chr(44)) 11sao m?c騨 kick lung tung v?y. N?u ba.n mu?n war vo*?nick khac th?ba.n pha瞚 type 0~waroff $remove(%i,%,kc,$nick,$chr(44)) 11hoac cho*` $round($calc(%timeout / 60),2) phut th?moi war ch? | cs akick # enforce | .timerakick1vs1 $+ $nick 1 %punish_time cs akick # del $nick | halt }
        if ($var($var(%check2,1).value,1)) { var %i = $var($var(%check2,1).value,1) | cs akick # add $nick 9,1 $+ $nick 11ba.n 悬`ng kick8 $knick 11ch?,8 $knick 11衋ng war voi0 $remove(%i,%,kc,$knick,$chr(44)) 11ba.n pha瞚 cho*`8 $knick 11war xong voi0 $remove(%i,%,kc,$knick,$chr(44)) 11th?mo*?kick ch? | cs akick # enforce | .timerakick1vs1 $+ $nick 1 %punish_time cs akick # del $nick | halt }
        else { .timermatchstart 1 1 $iif(%describe = on,describe,msg) $chan 0,1Tr?n th?h鵱g gi hai 锈'u si~ 8 $+ $nick 0v?9 $+ $knick 0b?t 锈`u. | inc %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 1 | set %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] 0 | .timer $+ $nick $+ $knick 1 %timeout reset $nick $knick | halt }
      }
      else { .timermatchstart 1 1 $iif(%describe = on,describe,msg) $chan 0,1Tr?n th?h鵱g gi hai 锈'u si~ 8 $+ $nick 0v?9 $+ $knick 0b?t 锈`u. | inc %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 1 | set %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] 0 | .timer $+ $nick $+ $knick 1 %timeout reset $nick $knick | halt }
    }
    inc %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ]  1 | .timer $+ $nick $+ $knick 1 %timeout reset $nick $knick
    if (%bot == on) && (%dem == on) { 
      .timerkc $+ $knick $+ $nick off 
      if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] = %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ]) && (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] > 18) { .timerkc $+ $nick $+ $knick off | $iif(%describe = on,describe,msg) $chan 11,1 WOW!! Th?t l?m?t tr?n d?u c鈔 t鄆 c鈔 s?c giua hai di.ch thu? 8,1 $+ $nick 11,1v?9,1 $+ $knick $+ 11,1. Ti? so^' hie^.n gio` la` 8,1 $+ $nick 11,1( %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] ) 0,1-=[VS]=- 9,1 $+ $knick 4,1( %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] ) | halt }      
      if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] < %maxscore) &&  (%kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] != 0) { .timerkc $+ $nick $+ $knick 1 %msgdelay $iif(%describe = on,describe,msg) $chan 8,1 $+ $nick 11,1( %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] ) 0,1-=[VS]=- 9,1 $+ $knick 4,1( %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] ) }
    }
    if (%kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] >= %maxscore) { .timerkc $+ $nick $+ $knick off
      if (%kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] = 0) { $iif(%describe = on,describe,msg) $chan 4,1Sorry8 $nick 11ba.n 秀 kick duoc0 %maxscore 11kicks Nh黱g tr?n n鄖 kh鬾g h?p l? vi`9 $knick 11秀 kh鬾g kick ba.n c醝 n鄌 n阯 kh鬾g x醕 衖.nh duoc9 $knick 11c?muon war hay kh鬾g | goto end } 
      .timerwinner $+ $nick 1 1 chanserv kick $chan $nick 4,1CONGRATULATION!! 11,1 $+ $nick 0,1ba.n 秀 th?ng 9,1 $+ $knick 0,1v?i ti? s? 4,1?$+ 8,1 %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] $+ - $+ %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] 4,1?15,1 | ;ban -u15 # $nick 2
      if (!$hget(list,$nick)) { hadd -m list $nick $calc($gettok($hget(list,$nick),1,32) + 1) 0 $date } 
      else { hadd -m list $nick $calc($gettok($hget(list,$nick),1,32) + 1) $gettok($hget(list,$nick),2,32) $date } 
      if (!$hget(list,$knick)) { hadd -m list $knick 0 $calc($gettok($hget(list,$knick),2,32) + 1) $date } 
      else { hadd -m list $knick $gettok($hget(list,$knick),1,32) $calc($gettok($hget(list,$knick),2,32) + 1) $date }
      if (%award != on) { goto end }      
      .timerloser $+ $knick 1 3 cs akick # add $knick 11,1Ba.n dda~ thua 0,1 $+ $nick $+ 11,1 vo*'i k?t qua~4,1 ?$+ 8,1 %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] $+ - $+ %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] 4,1?| cs akick # enforce 
      .timerdelakick $+ $knick 1 %akicktime cs akick # del $knick
      set %nickwin $nick
      set %nicklose $knick
      :end
      unset %kc, [ $+ [ $nick $+ [ , $+ [ $knick ] ] ] ] %kc, [ $+ [ $knick $+ [ , $+ [ $nick ] ] ] ] | .timer $+ $nick $+ $knick off 
    } 
  }
}
Post Reply