| View previous topic :: View next topic |
| Author |
Message |
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
 Posted: Sat Jan 27, 2007 5:12 am Post subject: request and hope that you can realize it |
 |
|
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... |
|
| Back to top |
|
 |
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Sat Jan 27, 2007 9:57 am Post subject: |
|
|
Tcl Archive
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Sat Jan 27, 2007 1:51 pm Post subject: |
|
|
i can't find it on link that u give  |
|
| Back to top |
|
|
beasTMan
Voice
Joined: 30 Dec 2006
Posts: 15
Location: Chisinau, Republic of Moldova
|
| Posted: Sat Jan 27, 2007 2:26 pm Post subject: |
|
|
super idea, who can realise the tcl ?
_________________
#Xtreem @ UnderNet |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sun Jan 28, 2007 8:12 am Post subject: |
|
|
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 
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Sun Jan 28, 2007 4:26 pm Post subject: |
|
|
| Sir_Fz wrote: | | 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  |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sun Jan 28, 2007 6:09 pm Post subject: |
|
|
| Code: | 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.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts
Last edited by Sir_Fz on Tue Jan 30, 2007 12:03 pm; edited 5 times in total |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Sun Jan 28, 2007 7:19 pm Post subject: |
|
|
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. |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Sun Jan 28, 2007 9:50 pm Post subject: |
|
|
..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 |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
beasTMan
Voice
Joined: 30 Dec 2006
Posts: 15
Location: Chisinau, Republic of Moldova
|
| Posted: Mon Jan 29, 2007 8:39 am Post subject: |
|
|
hey dudes , can anyone of u explain the commands of the tcl and whtat thing each command does ?
_________________
#Xtreem @ UnderNet |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Mon Jan 29, 2007 6:01 pm Post subject: |
|
|
| Sir_Fz wrote: | | Code edited again. |
Sir Fz, banned mode working good.. but the bot didn't send any message after he finish count..  |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Mon Jan 29, 2007 9:51 pm Post subject: |
|
|
Ok, replace
| Code: | | if {![isbotnick $chan]} {return 0} |
with
| Code: | | if {![isbotnick [lindex [split $chan @] 0]]} {return 0} |
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Mon Jan 29, 2007 11:39 pm Post subject: |
|
|
| i have replace it Sir.. rehash n' restart the bot, but still not working.. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
