request and hope that you can realize it

[elisca]

hi.. my name is elisca and
I have some request.. hope that people here can be realize it.
I need tcl scripts for eggdrop like on counter strike simulation..
so when I type some trigger like !cover me the bot will add the owner to protec him, and give
the answer on channel "Roger that" and when the owner has been kick or ban the bot will be revenge,
kick will be kick and ban will be ban.. and don't forget to make it !decover
once more and i think it's good.. when I type !terror the bot will answer on channel
"The bomb has been planted sir and will be blow up on 1minutes" and then after 1minutes the bot will do masskick on channel..
and it will be great if the bot will count on channel like.. 5 4 3 2 1 and voila masskick do !
sorry if i request to much and i will be appreciated for your help.
thanks...

[Alchera]

Tcl Archive

[elisca]

i can't find it on link that u give

[beasTMan]

super idea, who can realise the tcl ?

[Sir_Fz]

So, anyone can use the !coverme and !uncover commands? or just you? because if it is just you, then we don't need a command to make the bot protect you

[elisca]

So, anyone can use the !coverme and !uncover commands? or just you? because if it is just you, then we don't need a command to make the bot protect you

Sir Fz, I'm very happy to see u look at my request, anyone with special flag can use it sir (+f)
could you help me to realise it sir? I really2 appreciated it

[Sir_Fz]

Code: Select all

bind pub f|f !coverme cover:nick
bind pub f|f !decover decover:nick
bind pub f|f !terror terrorize
bind mode - "* +b" ban:covered
bind kick - * kick:covered
bind notc - "* cannot mass kick a channel with higher ranking ops *" defused

proc cover:nick {nick uhost hand chan arg} {
 if {![matchattr $hand |C $chan]} {
  chattr $hand |+C $chan
  puthelp "privmsg $chan :Roger that"
 }
}

proc decover:nick {nick uhost hand chan arg} {
 if {[matchattr $hand |C $chan]} {
  chattr $hand |-C $chan
  puthelp "privmsg $chan :Roger that"
 }
}

proc terrorize {nick uhost hand chan arg} {
 global bombplanted
 if {![info exists bombplanted]} {
  puthelp "privmsg $chan :The bomb has been planted sir and will be blow up on 1minutes"
  utimer 55 [list masskick $chan]
  set bombplanted 5
 }
}

proc masskick c {
 global bombplanted mkicking
 if {$bombplanted > 0} {
  puthelp "privmsg $c :$bombplanted"
  incr bombplanted -1
  utimer 1 [list masskick $c]
 } {
  putserv "ChanServ :mkick $c"
  set mkicking $c
  unset bombplanted
 }
}

proc ban:covered {nick uhost hand chan mc targ} {
 set found 0
 foreach Cn [chanlist $chan C|C] {
  if {[string match -nocase $targ $Cn![getchanhost $Cn $chan]]} {
   set found 1
   break
  }
 }
 if {$found} {
  pushmode $chan -b $targ
  pushmode $chan +b *!*@[lindex [split $uhost @] 1]
 }
}

proc kick:covered {nick uhost hand chan targ arg} {
 global mkicking
 if {[string tolower $nick] == "chanserv" && [isbotnick $targ]} {
  if {[info exists mkicking]} {unset mkicking}
  return 0
 }
 if {[validuser [nick2hand $targ]] && [matchattr [nick2hand $targ] |C $chan]} {
  putserv "kick $chan $nick :$targ is covered by me!"
 }
}

proc defused {nick uhost hand arg chan} {
 global mkicking
 if {![isbotnick [lindex [split $chan @] 0]]} {return 0}
 if {[info exists mkicking]} {
  puthelp "privmsg $mkicking :The bomb has been defuse on $mkicking (higher ranking ops in it than me)"
  unset mkicking
 }
}

The !terror command can also be used by +f users, if you want only owners to be able to use it then change f|f to n|n.

Edit4: Fixed what was not really fixed in previous edit
Edit3: Fixed bug in proc defused.
Edit2: Added feature and fixed ban protection.
Edit: Applied changes.

[elisca]

ohh thanks very much sir, i have test it.. and it work good, hmm but could you make "terror" [masskick] like we use command /cs mkick #chan on mirc.. so the channel get empty and banned for a while before we join again. I have try !terror and when the bot count 5 4.. the bot kick himself, join again and continue kick the other user.. and then count again 3 2 1 until finish.
I mean when the bot start count 5 4 3 2 1 and after that command mkick start, so the channel get empty and will banned for a while, so the simulation like the channel really2 blow up
hihihi sorry if I have request to much sir
o yeah I forget it sir, when i get kickban, the bot only revenge kick the user not ban like that i need.

[Sir_Fz]

Applied changes, use edited code above.

[elisca]

..u r the man sir ! three thumb up !
the minor thing is the bot only count until 5 4.. and do the command (mkick)
o yeah i forget it.. when the !coverme running, and i get kickban, the bot only revenge kick to the user, banned mode not working, could you fix it sir ? also when we get -ChanServ (service@dal.net)- You cannot mass kick a channel with higher ranking ops in it than you.
could you make the bot send to channel : The bomb has been defused on #chan (higher ranking ops in it than me) after he finish count

[Sir_Fz]

Code edited again.

[beasTMan]

hey dudes , can anyone of u explain the commands of the tcl and whtat thing each command does ?

[elisca]

Code edited again.

Sir Fz, banned mode working good.. but the bot didn't send any message after he finish count..

[Sir_Fz]

Ok, replace

Code: Select all

if {![isbotnick $chan]} {return 0}

with

Code: Select all

if {![isbotnick [lindex [split $chan @] 0]]} {return 0}

[elisca]

i have replace it Sir.. rehash n' restart the bot, but still not working..