egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Help about war tcl

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
Repdientu
Voice


Joined: 30 Apr 2009
Posts: 24
Location: Viet Nam

PostPosted: Sat Aug 31, 2019 9:34 am    Post subject: Help about war tcl Reply with quote

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 (bm chu)
* Carot (lalala@171.247.192.211) has joined #war
* ChatVN sets mode: +o Carot
* LuuLinh was kicked by Carot ( hr )
@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 (bm chu)
* Carot (lalala@171.247.192.211) has joined #war
* ChatVN sets mode: +o Carot
* LuuLinh was kicked by Carot ( hr )
* LuuLinh (LuuLinh@luulinh.chatvn.net) has joined #war
* ChatVN sets mode: +o LuuLinh
* LuuLinh was kicked by Carot ( hr )
..........
* 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
Back to top
View user's profile Send private message Visit poster's website
Repdientu
Voice


Joined: 30 Apr 2009
Posts: 24
Location: Viet Nam

PostPosted: Sun Sep 01, 2019 5:33 am    Post subject: Reply with quote

help me please!!!!!!!!!!!!!!!!!!!!!!
Back to top
View user's profile Send private message Visit poster's website
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3584
Location: Mint Factory

PostPosted: Mon Sep 02, 2019 12:26 pm    Post subject: Reply with quote

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?
_________________
I tawt I taw a puddy tat!
Back to top
View user's profile Send private message
Repdientu
Voice


Joined: 30 Apr 2009
Posts: 24
Location: Viet Nam

PostPosted: Tue Sep 03, 2019 4:22 am    Post subject: Reply with quote

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?
Back to top
View user's profile Send private message Visit poster's website
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3584
Location: Mint Factory

PostPosted: Tue Sep 03, 2019 9:33 am    Post subject: Reply with quote

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?
_________________
I tawt I taw a puddy tat!
Back to top
View user's profile Send private message
Repdientu
Voice


Joined: 30 Apr 2009
Posts: 24
Location: Viet Nam

PostPosted: Tue Sep 03, 2019 9:47 am    Post subject: Reply with quote

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 (bm chu)
* Carot (lalala@171.247.192.211) has joined #war
* LuuLinh was kicked by Carot ( hr )
@referee the match Carot vs LuuLinh started.
Back to top
View user's profile Send private message Visit poster's website
Repdientu
Voice


Joined: 30 Apr 2009
Posts: 24
Location: Viet Nam

PostPosted: Wed Sep 04, 2019 6:51 am    Post subject: Reply with quote

this is my script on mirc.

Code:

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
    }
  }
}
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber