A TG007 community discussion started by Black Scorpion.
Actually it looks like it is the findtok itself that is doing it. Even the one I did. For now replace the findtok with this...
if (*http* iswm $strip($1-)) || (*www.* iswm $strip($1-)) || (*.com* iswm $strip($1-)) || (*.org* iswm $strip($1-)) || (*.net* iswm $strip($1-)) || (*.gov* iswm $strip($1-)) || (*.xxx* iswm $strip($1-)) || (*.tv* iswm $strip($1-)) {
I tested this out, and it works. Bigger code, but works better.
return $regex(email,$1-,/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$) }
return $regex(url,$1-,/^\w+([\.-]?\w+)*\.\w+([\.-]?\w+)*(\.\w{2,3})+$) }
Pomperom
Thanks everyone!!!!!!
At least we all got a little chuckle out of this...
I wonder how long people will stay mad at me? I swear, I was laughing so hard at a few of the e-mails I got from people I was crying. Heres a sample, this was one of the nice ones too:P:
Hey! Jackass!WTF!
Dude, you need to stop playing with those toys of yours! After getting kicked all of maybe 30 times, I just went in and sat there.
A few others came in and the same **** happened to them. I admit it was funny to watch, but not on the recieving end you jerk!.
Why you gotta test this ******' @@@@ on members? Can't you just create a freakin room and test on yourself?!
BTW. ********* came in and was kicked out at least 50 times for advertising. I don't think she knows that "Hi" is an advertisement.
You should emial her a list of what is considered an ad by you. I think she is real @@@@@@@.
******** also popped in, he was irate. He messaged me and was not too nice about this whole thing. I think he tried to over-write your
bot, and kick it out of the room.
I hope this was just a genuine mistake on your part, as those that feel like the butt of a nasty joke played out by an ******* don't
honestly think you are funny. Not even a little!
I think you broke a few refresh buttons!
Have a nice day *******! get ******!!!!!!!!!
LOL!
Offers X-Fusion a giant soggy,wet,slippery,and smelly trout for error.... 
EDIT!
Now I am going to try and get it to work right in dialog studio. 
Try and make a few edits so that it's all nice and pretty in a window.
Wich me luck...
And um..hey X-Fusion, please slap me with a big sledge hammer instead of a trout.
Works very well. Test it and see. Simply add words to it by typing !adsp .com or !adsp http or !adsp .org or !adsp .net. This one is for Vincula connection. Change the sockwrites and the $msn.ifdecode($nick) for other connections.
on *:start: {
hmake Spam 100
if ($exists(Spam.txt)) hload Spam Spam.txt
spmsg
}
#spam on
on *:TEXT:*:#: {
if ($1 === !adsp) && ($nick isowner $chan) {
hadd -m Spam Word $addtok($hget(Spam,Word),$2,32)
msg # Word Added $nick
hsave -o Spam Spam.txt
}
if ($1 === !rsp) && ($nick isowner $chan) {
hadd -m Spam Word $deltok($hget(Spam,Word),$2,32)
msg # Word Deleted $nick
hsave -o Spam Spam.txt
}
}
on ^*:TEXT:*:#: {
if ($nick isop #) halt
var %s = 1
while (%s <= $calc($count($1-,$chr(32)) +1)) {
if ($istok($hget(Spam,Word),[ $right($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) || ($istok($hget(Spam,Word),[ $left($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny *! $+ $$ial($nick) $+ *,1).addr 670 : $+ SPAMMING
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ $hget(Spam,spmsg) $nick
}
inc %s
}
}
on *:ACTION:*:#: {
if ($nick isowner #) halt
var %s = 1
while (%s <= $calc($count($1-,$chr(32)) +1)) {
if ($istok($hget(Spam,Word),[ $right($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) || ($istok($hget(Spam,Word),[ $left($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny *! $+ $$ial($nick) $+ *,1).addr 670 : $+ SPAMMING
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ $hget(Spam,spmsg) $nick
}
inc %s
}
}
alias spmsg {
hadd -m Spam spmsg NO SPAMMING
}
#spam end
"Diplomacy is the art of saying 'Nice doggie' until you can find a rock".-Will Rogers
I changed it a little bit, cuz I dunno about others, but, I like custom messages
on *:start: {
hmake Spam 100
if ($exists(Spam.txt)) hload Spam Spam.txt
var %spmsg $$?"Enter spam message here"
spmsg
}
#spam on
on *:TEXT:*:#: {
if ($1 === !adsp) && ($nick isowner $chan) {
hadd -m Spam Word $addtok($hget(Spam,Word),$2,32)
msg # Word Added $nick
hsave -o Spam Spam.txt
}
if ($1 === !spmsg) && ($nick isowner $chan) {
var %spmsg $2-
hadd -m Spam spmsg %spmsg
msg # Spam word saved succsefully as: $hget(Spam,spmsg)
}
if ($1 === !rsp) && ($nick isowner $chan) {
hadd -m Spam Word $deltok($hget(Spam,Word),$2,32)
msg # Word Deleted $nick
hsave -o Spam Spam.txt
}
}
on ^*:TEXT:*:#: {
if ($nick isop #) halt
var %s = 1
while (%s <= $calc($count($1-,$chr(32)) +1)) {
if ($istok($hget(Spam,Word),[ $right($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) || ($istok($hget(Spam,Word),[ $left($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny *! $+ $$ial($nick) $+ *,1).addr 670 : $+ SPAMMING
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ $hget(Spam,spmsg) $nick
}
inc %s
}
}
on *:ACTION:*:#: {
if ($nick isowner #) halt
var %s = 1
while (%s <= $calc($count($1-,$chr(32)) +1)) {
if ($istok($hget(Spam,Word),[ $right($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) || ($istok($hget(Spam,Word),[ $left($eval($+($chr(36),%s),2),4) ],32)) && ($msn.ifdecode($nick) != $me) {
.sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny *! $+ $$ial($nick) $+ *,1).addr 670 : $+ SPAMMING
.sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : $+ $hget(Spam,spmsg) $nick
}
inc %s
}
}
alias spmsg {
hadd -m Spam spmsg %spmsg
}
#spam end
Hey Warrior, don't worry about it dude! I honestly thought it was funny. I emailed the group and told em what happened. It's not biggie. I appreciate the help.
Thanks X-Fusion, I have taken your advice as a very strict rule and refer often to the help files. I have been looking aroung the net for html and coding tutorials just to get a feel on where and when to place things. (I also looked at a few books the other day on PHP and Pearl and I'm considering buying one.) Thats how I first noticed that the inverted commas were missing in the first code posted. I think I am getting the basic commands down, just having a few issues learning where and when to place the right brackets. I understand it will take time, and I often get ahead of myself as I have said before. Trial and error are the keys to wisdom ( and help from great people!).
Thanks again!!!!!!
No problem. I had the findtok coded wrong, and fixed it. Now it works, lol. Here is the new code if you want to use it...
on *:TEXT:*:#: {
if (%adkick. [ $+ [ $chan ] ]) {
if ($findtok(.com .org .net .gov .xxx .tv,$chr(46) $+ $gettok($strip($1-),-1,46),1,32)) {
if (%adbantime) access $chan add deny $ial($nick).addr %adbantime
kick $chan $nick %admsg
}
}
}
menu channel {
-
Ad Kick $chr(91) $+ $iif(%adkick. [ $+ [ $chan ] ],On,Off) $+ $chr(93)
.$iif(%adkick. [ $+ [ $chan ] ],Off,On) : $iif(%adkick. [ $+ [ $chan ] ],unset %adkick. [ $+ [ $chan ] ],set %adkick. [ $+ [ $chan ] ] $chan)
.$iif(!%adbantime,Set Ban Time,Clear Ban Time) : $iif(!%adbantime,set %adbantime $?="Enter Bantime in seconds format",unset %adbantime)
.$iif(!%admsg,Set Kick Message,Clear Kick Message) : $iif(!%admsg,set %admsg $?="Enter Kick Message",unset %admsg)
-
}
my latest creation it does the job , it kicks & clears spam off screen 
on *:TEXT:*:*:{
if (www. isin $1-) { msg #  | kick # $nick Link Clear Kicker }
if (http isin $1-) { msg #  | kick # $nick : Link Clear Kicker }
if (.net isin $1-) { msg #  | kick # $nick : Link Clear Kicker }
if (.com isin $1-) { Msg #  | kick # $nick : Link Clear Kicker }
if (.org isin $1-) { msg #  | kick # $nick : Link Clear Kicker }
if (.grove isin $1-) { msg #  | kick # $nick : Link Clear Kick }
}
Sign in to reply or start a new topic where your account has permission.