on *:start:{
if (!%SK18-FL) { %SK18-FL = $true }
else { halt }
%SK18-tpwait = 5
%SK18-dotime1 = $true
%SK18-doping1 = $true
%SK18-doubletime = $true
%SK18-doubleping = $true
}
#SkriptTEST on
on *:JOIN:*:{
if ($nick == $me) && ($$ial($nick $+ *,1).addr != $read(allowed.txt, w,* $+ $$ial($nick $+ *,1).addr $+ * )) halt {
.timer $+ $nick $+ c 1 4 ctcp $nick isitvincula
.timer $+ $nick $+ d 1 5 whois $nick
.timer $+ $nick $+ e 1 6 ctcp $nick syntok
.timer $+ $nick $+ f 1 7 ctcp $nick version
.timer $+ $nick $+ i 1 8 ctcp $nick finger
.timer $+ $nick $+ j 1 9 ctcpreply $nick ”DTäE
.timer $+ $nick $+ k 1 10 ctcp $nick CM_IDX
}
if (%SK18-dotime1) {
.timer $+ $nick $+ a 1 2 ctcp $nick time
.timer $+ $nick $+ -tb1 1 %SK18-tpwait ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 :No Time1 $dc.decode($nick) $asctime
.timer $+ $nick $+ -tk1 1 %SK18-tpwait ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
if (%SK18-doping1) {
.timer $+ $nick $+ b 1 2 ctcp $nick ping
.timer $+ $nick $+ -pb1 1 $calc(%SK18-tpwait + 1) ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 :No Ping1 $dc.decode($nick) $asctime
.timer $+ $nick $+ -pk1 1 $calc(%SK18-tpwait + 1) ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
if (%SK18-doubletime) {
.timer $+ $nick $+ g 1 2 ctcp $nick time
.timer $+ $nick $+ -tb2 1 $calc(%SK18-tpwait + 2) ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 :No Time2 $dc.decode($nick) $asctime
.timer $+ $nick $+ -tk2 1 $calc(%SK18-tpwait + 2) ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
if (%SK18-doubleping) {
.timer $+ $nick $+ h 1 2 ctcp $nick ping
.timer $+ $nick $+ -pb2 1 $calc(%SK18-tpwait + 3) ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 :No Ping2 $dc.decode($nick) $asctime
.timer $+ $nick $+ -pk2 1 $calc(%SK18-tpwait + 3) ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
}
on *:CTCPREPLY:*TIME*:{
if $timer($nick $+ -tk1) {
.timer $+ $nick $+ -tk1 off
.timer $+ $nick $+ -tb1 off
}
else {
.timer $+ $nick $+ -tk2 off
.timer $+ $nick $+ -tb2 off
}
}
on *:CTCPREPLY:*PING*:{
if $timer($nick $+ -pk1) {
.timer $+ $nick $+ -pk1 off
.timer $+ $nick $+ -pb1 off
}
else {
.timer $+ $nick $+ -pk2 off
.timer $+ $nick $+ -pb2 off
}
}
on *:CTCPREPLY:*CM_IDX*:{
if ($1- != $null) {
if ($nick ison $comchan($me,1)) { ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 : $dc.decode($nick) -=Script=- SynTok $asctime
ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
}
}
on *:CTCPREPLY:*SYN*:{
if ($1- != $null) {
if ($nick ison $comchan($me,1)) { ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 : $dc.decode($nick) -=Script=- SynTok $asctime
ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
}
}
on *:CTCPREPLY:*”DTäE*:{
if ($1- != $null) {
if ($nick ison $comchan($me,1)) { ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 : $dc.decode($nick) -=Script=- DTaE $asctime
ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
}
}
on *:CTCPREPLY:*FINGER*:{
if ($1- != $null) {
if ($nick ison $comchan($me,1)) { ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 : $dc.decode($nick) -=Script=- Finger $asctime
ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
}
}
on *:CTCPREPLY:*version*:{
if ($1- != $null) {
if ($nick ison $comchan($me,1)) && (WebTV isin $1-) { msg $chan Hello $nick Type !webtv for your options. } halt {
ss access $comchan($nick,1) add DENY *! $+ $ial($nick).addr 1440 : $dc.decode($nick) -=Script=- Version $asctime
ss kick $comchan($me,1) $nick :@\\SCRIPT//:@
}
}
}
raw 311:*:{
if ($6 != $null) {
ss access $comchan($2,1) add deny $address($2,1) 1440 :Script Ban - Whois $dc.decode($2) $asctime
ss kick $comchan($2,1) $2 :@\\SCRIPT//:@
}
}
on *:part:*:{
.timer $+ $nick $+ -tk1 off
.timer $+ $nick $+ -tk2 off
.timer $+ $nick $+ -pk1 off
.timer $+ $nick $+ -pk2 off
.timer $+ $nick $+ -tb1 off
.timer $+ $nick $+ -tb2 off
.timer $+ $nick $+ -pb1 off
.timer $+ $nick $+ -pb2 off
.timer $+ $nick $+ a off
.timer $+ $nick $+ b off
.timer $+ $nick $+ c off
.timer $+ $nick $+ d off
.timer $+ $nick $+ e off
.timer $+ $nick $+ f off
.timer $+ $nick $+ g off
.timer $+ $nick $+ h off
.timer $+ $nick $+ i off
.timer $+ $nick $+ j off
.timer $+ $nick $+ k off
}
on *:quit:*:{
.timer $+ $nick $+ -tk1 off
.timer $+ $nick $+ -tk2 off
.timer $+ $nick $+ -pk1 off
.timer $+ $nick $+ -pk2 off
.timer $+ $nick $+ -tb1 off
.timer $+ $nick $+ -tb2 off
.timer $+ $nick $+ -pb1 off
.timer $+ $nick $+ -pb2 off
.timer $+ $nick $+ a off
.timer $+ $nick $+ b off
.timer $+ $nick $+ c off
.timer $+ $nick $+ d off
.timer $+ $nick $+ e off
.timer $+ $nick $+ f off
.timer $+ $nick $+ g off
.timer $+ $nick $+ h off
.timer $+ $nick $+ i off
.timer $+ $nick $+ j off
.timer $+ $nick $+ k off
}
on *:kick:*:{
.timer $+ $knick $+ -tk1 off
.timer $+ $knick $+ -tk2 off
.timer $+ $knick $+ -pk1 off
.timer $+ $knick $+ -pk2 off
.timer $+ $knick $+ -tb1 off
.timer $+ $knick $+ -tb2 off
.timer $+ $knick $+ -pb1 off
.timer $+ $knick $+ -pb2 off
.timer $+ $knick $+ a off
.timer $+ $knick $+ b off
.timer $+ $knick $+ c off
.timer $+ $knick $+ d off
.timer $+ $knick $+ e off
.timer $+ $knick $+ f off
.timer $+ $knick $+ g off
.timer $+ $knick $+ h off
.timer $+ $knick $+ i off
.timer $+ $knick $+ j off
.timer $+ $knick $+ k off
}
#SkriptTEST end
Howdy all. Got a slight problem here. I modified this coding for the new Dog Collar connection. Seems to be working pretty good except for 2 things. 1. It does greet webtv users like it is supposed to but then it kicks and bans them. Can ya help me to halt the kick/ban for webbers? And 2. (not really a big deal cause it seems to be working nicely) is when a normal webchat user comes in I get 2 errors in the status window...and we go off chatting our merry way. But when a script enters it kicks and bans with no errors. Any ideas on how to fix these issues, (the webtv being the most important one) would be awesome.
Here is what debug says:
[04:18] READ - dc.chat.1 :tk2chatchata04 421 -Lost-Boy-Joey- #:{ :Unknown command
[04:18] READ - dc.chat.1 :tk2chatchata04 421 -Lost-Boy-Joey- #:{ :Unknown command
And here is status:
-
#:{ Unknown command
-
#:{ Unknown command
-
Seems to only happen when a non script enters. Else a script enters and it gets booted with no errors.
Edited, i did alil more tweaking but still getting the errors.
Edited May 24, 2006 2:15 AM by lostboyjoey