egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-09-03T08:03:49-04:00 https://forum.eggheads.org/app.php/feed/topic/2494 2002-09-03T08:03:49-04:00 2002-09-03T08:03:49-04:00 https://forum.eggheads.org/viewtopic.php?p=10384#p10384 <![CDATA[Could it be done better?]]> Statistics: Posted by stdragon — Tue Sep 03, 2002 8:03 am

]]> 2002-09-03T07:31:00-04:00 2002-09-03T07:31:00-04:00 https://forum.eggheads.org/viewtopic.php?p=10381#p10381 <![CDATA[Could it be done better?]]> set o_fid [open "spammers.dat" r]
gets $o_fid spammerz
close $o_fid
set o_fid [open "spammers.dat" w]
puts $o_fid "[expr $spammerz + 1]"
close $o_fid
# something like

set o_fid [open "spammers.dat" rw]
gets $o_fid spammerz
puts $o_fid "[expr $spammerz + 1]"
close $o_fid
# Thanks in advance for any help

Statistics: Posted by Nexus6 — Tue Sep 03, 2002 7:31 am

]]> 2002-09-02T18:44:45-04:00 2002-09-02T18:44:45-04:00 https://forum.eggheads.org/viewtopic.php?p=10367#p10367 <![CDATA[Could it be done better?]]> #normal user and increases a number in a file. I didn't do proc which #checks if file exists because it exists and no need to check it all the time
#It works for me, i'm just kinda not sure about the part with file. Thanks # any comments
bind NOTC - "*www.*" glinen
bind NOTC - "*http//*" glinen
bind NOTC - "*/server*" glinen
set gtime "5d"

proc glinen {nick uhost handle text dest} {
global botnick gtime
if {![validchan $dest]} { retrun 0 }
if {[matchattr $nick mf|mf $dest] || [isop $nick $dest] || [isvoice $nick $dest] || [matchattr $nick f|f $dest]} {return 0}
if {([isbotnick $nick]) || ([string tolower $nick] == "ChanServ")} {return 0}
set sm "*!*[lindex [split $uhost @] 1]"
putquick "PRIVMSG OperServ :gline $gtime $sm Auto Gline - spamming"
set o_fid [open "spammers.dat" r]
gets $o_fid spammerz
close $o_fid
set o_fid [open "spammers.dat" w]
puts $o_fid "[expr $spammerz + 1]"
close $o_fid
return 1
}

#stats
bind pub m !spammers spammers
proc spammers {nick host hand chan arg} {
global spammerz
set o_fid [open "spammers.dat" r]
gets $o_fid spammerz
close $o_fid
putserv "PRIVMSG $chan :$spammerz have been caught since bla"
}
putlog "Loaded Spam Notice Kill by Neuxs6"

Statistics: Posted by Nexus6 — Mon Sep 02, 2002 6:44 pm

]]>