A TG007 community discussion started by Black Scorpion.
I have been working on this, and can't seem to get it right. I had it in a test code with other on text commands, and they work just fine. But, I cant seem to get the kick ban for VSIXc to work for me.
alias kicknick { kicknick $1 }
alias kickban { access $1 add deny $ial($1).addr %ban | kick $1 }
on *:TEXT:*:#: {
tokenize 32 $vstrip($1-)
.if ($1 == ****) { $knick msg # You cannot say that here $nick }
}
Suggestions, help, slaps, any real help would be appreciated.
Thank You
alias kicknick { kicknick $1 }
alias kickban { access $1 add deny $ial($1).addr %ban | kick $1 }
on *:TEXT:*:#: {
tokenize 32 $vstrip($1-)
.if ($1 == ****) { $knick msg # You cannot say that here $nick }
}
You cant call an alias within its own alias. It wont work. Also, no need for .if .. try ..
alias kicknick { kick # $nick Don't use that word! }
alias kickban { access # add deny $address($nick,1) %ban | kicknick }
on *:TEXT:*:#:{
tokenize 32 $vstrip($1-)
if ($1 == wordhere) { var %ban = 10
kickban
}
}
}
Something like that. Something real quick strewn together. Don't see why it wouldnt work. But, if it does, reply back.
$chan and # mean nothing in an alias.
alias kickban { access $1 add deny $address($2,2) $3 : $+ $4- | kick $1 $2 $4- }
on *:TEXT:*:#:{
tokenize 32 $vstrip($1-)
if ($1 == wordhere) kickban $chan $nick 10 $1 Not Allowed
}
Now this is just an example. I don't like it because it only kicks if $1 is the offensive word. This also won't remove any entry they already have.
Regardless, you cannot use common identifiers like $chan or $nick in an alias. A local variable in the text event wouldn't transfer to the alias either.
/kickban $chan $Nick <time> <reason>
in the kickban alias, now: $1 = $chan, $2 = $nick, $3 = length of ban, $4 = reason
REMOTES NEW
#subkick off
on *:text:*:#:{
if ($nick isop $chan) return
if (%sub1 isin $1-) || (%sub2 isin $1-) || (%sub3 isin $1-) || (%sub4 isin $1-) ||(%sub5 isin $1-) || (%sub6 isin $1-) || (%sub7 isin $1-) || (%sub8 isin $1-) {
set -u30 %skick. [ $+ [ $nick ] ] $calc( %skick. [ $+ [ $nick ] ] + 1)
if (%skick. [ $+ [ $nick ] ] == 1) {
msg $chan That is not a WORD we use here in this room $nick please dont say it any more its a nasty word- first warning!
}
if (%skick. [ $+ [ $nick ] ] == 2) {
/mode $chan -v $nick
msg $chan SECOND WARNING $nick , DO NOT SAY IT AGAIN :|
}
if (%skick. [ $+ [ $nick ] ] >= 3) {
access $chan add deny $$address($nick,1) 5
kick $chan $nick You were warned, this is not the room for that :| [5 minute ban]
}
}
}
on *:action:*:#:{
if ($nick isop $chan) return
if (%sub1 isin $1-) || (%sub2 isin $1-) || (%sub3 isin $1-) || (%sub4 isin $1-) || (%sub5 isin $1-) || (%sub6 isin $1-) || (%sub7 isin $1-) || (%sub8 isin $1-) {
set -u30 %skick. [ $+ [ $nick ] ] $calc( %skick. [ $+ [ $nick ] ] + 1)
if (%skick. [ $+ [ $nick ] ] == 1) {
msg $chan That is not a WORD we use here in this room $nick please dont say it any more its a nasty word- first warning!
}
if (%skick. [ $+ [ $nick ] ] == 2) {
/mode $chan -v $nick
msg $chan SECOND WARNING $nick , DO NOT SAY IT AGAIN :|
}
if (%skick. [ $+ [ $nick ] ] >= 3) {
access $chan add deny $$address($nick,1) 5
kick $chan $nick You were warned, this is not the room for that :| [5 minute ban]
}
}
}
#subkick end
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
POP UPS MENU
extras
.Subject Kick ( $+ $group(#subkick) $+ )
..On:{ .enable #subkick
echo -t $msn.get($cid,room) 5:: 13Subject Kick On
echo -t $msn.get($cid,room) 5:: 13Current Kick Words Set Are...
$iif(!%sub1,echo -t $msn.get($cid,room) 13 1. 7None Set,echo -t $msn.get($cid,room) 5::13 1.8 %sub1)
$iif(!%sub2,echo -t $msn.get($cid,room) 13 2. 7None Set,echo -t $msn.get($cid,room) 5::13 2.8 %sub2)
$iif(!%sub3,echo -t $msn.get($cid,room) 13 3. 7None Set,echo -t $msn.get($cid,room) 5::13 3.8 %sub3)
$iif(!%sub4,echo -t $msn.get($cid,room) 13 4. 7None Set,echo -t $msn.get($cid,room) 5::13 4.8 %sub4)
$iif(!%sub5,echo -t $msn.get($cid,room) 13 5. 7None Set,echo -t $msn.get($cid,room) 5::13 5.8 %sub5)
$iif(!%sub6,echo -t $msn.get($cid,room) 13 6. 7None Set,echo -t $msn.get($cid,room) 5::13 6.8 %sub6)
$iif(!%sub7,echo -t $msn.get($cid,room) 13 7. 7None Set,echo -t $msn.get($cid,room) 5::13 7.8 %sub7)
$iif(!%sub8,echo -t $msn.get($cid,room) 13 8. 7None Set,echo -t $msn.get($cid,room) 5::13 8.8 %sub8)
}
..Off:.disable #subkick | echo -t $msn.get($cid,room) 10 Subject Kick Off
..set
...change %sub1 1:set %sub1 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub1
...change %sub2 2:set %sub2 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub2
...change %sub3 3:set %sub3 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub3
...change %sub4 4:set %sub4 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub4
...change %sub5 5:set %sub5 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub5
...change %sub6 6:set %sub6 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub6
...change %sub7 7:set %sub7 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub7
...change %sub8 8:set %sub8 $$?="Enter Word To Kick For - With *Wildcards*:" | echo -t $msn.get($cid,room) 10 Kick Word/Subject Set As 13 %sub8
..Unset All Words
...YES:unset %sub* | echo -t $msn.get($cid,room) 10 All Kick Words/Subjects Cleared
..set words are
...%sub1 , %sub2 , %sub3 , %sub4 , %sub5 , %sub6 , %sub7 , %sub8:/echo -a $active $chan
Not my work just edited a little from me
worked good for me in msn days
good luck
Ok, I understand what I had wrong.
So, then to just do a kick i would say :
if ($1 == wordhere) kicknick $chan
or to ban :
if ($1 == wordhere) var %ban = 10
kickban
the 10 meaning 10 minutes
also use $1- not $1 == frist word in the sentance $1- == all words including the frist word
example
if 333 was the word to kick for
333 you mean it would kick
you mean 333 it wouldnt
but if you used $1- it would kick when ever and were ever 333 was said it would warn then kick
ect...
im trierd so i think im explaing it right
anyways good luck
Thanks everyone.
This code seems to work best for what I want to create :
alias kicknick { access $1 add deny $address($2,2) $3 : $+ $4- | kick $1 $2 $4- }
on *:TEXT:*:#:{
tokenize 32 $vstrip($1-)
if ($1- == ***) kicknick $chan $nick 0 $1 Not Allowed
}
After a few tests, i oculd not edit to just kick and not ban. I will use this snippet for ban deny, and wil try to make it just kick. I just seem to have an issue with kicknick. I am gfoing to try and edit the ban time, but if anyone can lend a hand..I'll have a pepsi for you:D
What I want is to filter a few words and kick for a few and then ban for some. I really do not want a warning system. I have the filter complete, and functional. Now the bans, but I just can't get it to do a simple kick.
THNX!
Thanks everyone.
This code seems to work best for what I want to create :
alias kicknick { access $1 add deny $address($2,2) $3 : $+ $4- | kick $1 $2 $4- } on *:TEXT:*:#:{ tokenize 32 $vstrip($1-) if ($1- == ***) kicknick $chan $nick 0 $1 Not Allowed }
After a few tests, i oculd not edit to just kick and not ban. I will use this snippet for ban deny, and wil try to make it just kick. I just seem to have an issue with kicknick. I am gfoing to try and edit the ban time, but if anyone can lend a hand..I'll have a pepsi for you:D
What I want is to filter a few words and kick for a few and then ban for some. I really do not want a warning system. I have the filter complete, and functional. Now the bans, but I just can't get it to do a simple kick.
THNX!
on *:TEXT:*:#:{
tokenize 32 $Vkick($1-)
if ($1- isin $read text/kickword.txt) { kick # $nick }
elseif ($1- isin $read text/banword.txt) { access # add deny $nick | kick # $nick }
}
alias Vkick { var %a, %b = $regsub($1-,/^VSIXc\|\|[^>]+\|\|[^>]+\|\|[^>]+\|\|* :,,%a) | return %a }
put a kickword.txt and a banword.txt in a file called text , put this file in mirc directorie
should work
dunno if this is what you r looking for
vsixc.ath.cx 6667
alias kicknick {
if (-* !iswm $1) || ($len($1) > 3) halt
if (b isin $1) access $2 add deny $address($3,2) $4 : $+ $5-
if (k isin $1) kick $2 $3 $iif(b isin $1,$5-,$4-)
}
on *:TEXT:*:#:{
tokenize 32 $vstrip($1-)
if ($1- == ***) kicknick -bk $chan $nick 0 $1 Not Allowed
}
now you can say kicknick -b to only ban, -k to only kick or -kb to kick and ban.
Ok, if ($1- == ****)
This says, if the whole text line == ****. Do you understand? The whole line has to exactly match ****. You would probably want to say isin or something.
if (**** isin $1-)
would be more what you want.
IRCx would this work?
if ($1- isin $read text/kickword.txt)
From my experience this would check to see if $1- is in a random line of kickword.txt. But I have never written a badword kick, nor do I use text files in protects, so I don't know, which is why I ask. 
Thats the same thing I asked earlier Travis. I'm used to using $read(filename.txt,line).
IRCx would this work?
if ($1- isin $read text/kickword.txt)
From my experience this would check to see if $1- is in a random line of kickword.txt. But I have never written a badword kick, nor do I use text files in protects, so I don't know, which is why I ask.
yes , i just tested the thing i posted myself and it works
vsixc.ath.cx 6667
much easier to use a .ini file
My code does NOT have bugs. It just develops random features.
Ok, if ($1- == ****)This says, if the whole text line == ****. Do you understand? The whole line has to exactly match ****. You would probably want to say isin or something.
Actually I believe I do.
alias kicknick {
if (-* !iswm $1) || ($len($1) > 3) halt
if (b isin $1) access $2 add deny $address($3,2) $4 : $+ $5- \ This would be the words that would ban.
if (k isin $1) kick $2 $3 $iif(b isin $1,$5-,$4-) \ This would be the words that would kick
}
on *:TEXT:*:#:{
tokenize 32 $vstrip($1-)
if ($1- == ***) kicknick -bk $chan $nick 0 $1 Not Allowed
}
If I used the -bk it would kick/ban for the word or phrase.
If I use -b it would ban, but in essence, this should only be used in a kick/ban scenario.
The -k would just kick.
This: alias kicknick {
if (-* !iswm $1) || ($len($1) > 3) halt
if (b isin $1) access $2 add deny $address($3,2) $4 : $+ $5-
if (k isin $1) kick $2 $3 $iif(b isin $1,$5-,$4-)
}
is basically the command/prompt/var/or we line. It is what tells the code what to respond to.
$1 will only respond to the text wanted if its the first word. if **** isin $1- will respond to textt anywhere in the statement.
Sign in to reply or start a new topic where your account has permission.