# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html## if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)                 # .chanset #channel_name +vote# and later .save   # ban after X yes votesset vote_limit 3# delete user hosts older than X minutes plus +/- 1 minute for timer cycle# timestamp from the first voteset victim_interval 10# script messagesset vote_msg(is_bot) "Can't touch this!"set vote_msg(is_op) "Can't touch this!"set vote_msg(twice_on_same_user) "You can't vote twice on the same user!"set vote_msg(not_on_chan) "Wrong user name!"set vote_msg(help) "use: !vote <user> <yes/no>"set vote_msg(noone_voted) "No one voted for this user before!"# kick messagesset kick_msgs {"Come and get some!""No pain, no pain!""I'm your father Luke!""Hail to the king baby!"}# punish method# 0 - just kick# 1 - kick & banset punish 1# ban type # 1)  *!*@*.domain.com # 2)  *!*@some.domain.com # 3)  *nick*!*@some.domain.com # 4)  *!*ident*@some.domain.comset bantype  4# file with users dataset users_file "users.db"###############################################################################################bind pub -|- !vote vote_procsetudef flag voteif {![file exists $users_file]} {                                                                             set file_handle [open $users_file w]close $file_handle}proc timestamp_timer { } {check_timestampsif {[string match *timestamp_timer* [utimers]] != 1} {utimer 60 timestamp_timer}}proc get_hosts { } { global users_fileset get_hosts [open $users_file r] set get_all [split [read $get_hosts] "\n"] close $get_hosts return $get_all }proc put_host { timestamp user_host voter_host } {global users_fileset put_host [open $users_file a] puts $put_host "$timestamp $user_host 1 $voter_host" close $put_host}proc del_host { user_host } {global users_fileset old_hosts [get_hosts]set del_hosts [open $users_file w]foreach del_host $old_hosts {if {$del_host != ""} {set del_rows [split $del_host " "]set del_user_timestamp [lindex $del_rows 0]set del_user_host [lindex $del_rows 1]set del_user_counter [lindex $del_rows 2]set del_user_voters [lindex $del_rows 3]if {$del_user_host != $user_host} {puts $del_hosts "$del_user_timestamp $del_user_host $del_user_counter $del_user_voters"}}}close $del_hosts}proc add_del_voter { user_host voter_host action } {global users_fileset old_db [get_hosts]set add_voter [open $users_file w]foreach old_host $old_db {if {$old_host != ""} {set old_rows [split $old_host " "]set old_user_timestamp [lindex $old_rows 0]set old_user_host [lindex $old_rows 1]set old_user_counter [lindex $old_rows 2]set old_user_voters [lindex $old_rows 3]if {$old_user_host == $user_host} {if {$action == "add"} {puts $add_voter "$old_user_timestamp $old_user_host [expr $old_user_counter + 1] $old_user_voters\,$voter_host"} elseif {$action == "del"} {if {$old_user_counter > 1} {puts $add_voter "$old_user_timestamp $old_user_host [expr $old_user_counter - 1] $old_user_voters\,$voter_host"}}} {puts $add_voter "$old_user_timestamp $old_user_host $old_user_counter $old_user_voters"}}}close $add_voter}proc count_voters { user_host } {set voters_count 0foreach db_host [get_hosts] {if {$db_host != ""} {set db_rows [split $db_host " "]set db_user_host [lindex $db_host 1]set db_user_counter [lindex $db_host 2]if {$db_user_host == $user_host} {set voters_count $db_user_counterbreak}}}return $voters_count}proc check_user_host { user_host } {set host_exists "no"foreach host [get_hosts] { if {$host != ""} { set rows [split $host " "]set file_user_host [lindex $rows 1]if {$file_user_host == $user_host} {set host_exists "yes"break}}}return $host_exists}proc check_voter_host { user_host voter_host } {set voter_exists "no"foreach voter [get_hosts] {if {$voter != ""} {set voter_rows [split $voter " "]set voter_user_host [lindex $voter_rows 1]set voter_voters [lindex $voter_rows 3]if {$voter_user_host == $user_host} {set host_votes [split $voter_voters ","]foreach vote $host_votes {if {$vote != ""} {if {$vote == $voter_host} {set voter_exists "yes"break}}}}}}return $voter_exists}proc vote_proc { nick uhost hand chan arg } {global users_file vote_limit kick_msgs punish vote_msgset args [split $arg] set user [lindex $args 0] set yes_or_no [lindex $args 1]if {![channel get $chan vote]} { return                                                                                          }if {$user != ""} {if {[isbotnick $user]} {putquick "PRIVMSG $nick :$vote_msg(is_bot)"return}if {[isop $user $chan]} {putquick "PRIVMSG $nick :$vote_msg(is_op)"return}if {![onchan $user $chan]} {putquick "PRIVMSG $nick :$vote_msg(not_on_chan)"return}if {($yes_or_no == "yes") || ($yes_or_no == "no")} { set user_host [getchanhost $user $chan]if {$yes_or_no == "yes"} {if {[check_user_host $user_host] == "yes"} {if {[check_voter_host $user_host $uhost] == "no"} {set user_votes_counter [count_voters $user_host]if {[expr $user_votes_counter + 1] == $vote_limit} {putquick "PRIVMSG $chan :$nick voted $user Yes. ($vote_limit) Votes."del_host $user_hostif {$punish == 1} {putquick "MODE $chan +b [ban_mask $uhost $nick]" }putkick $chan $user [lindex $kick_msgs [expr {int(rand() * [llength $kick_msgs])}]]} {putquick "PRIVMSG $chan :$nick voted $user Yes. ([expr $user_votes_counter + 1]) Votes."add_del_voter $user_host $uhost "add"}} {putquick "PRIVMSG $nick :$vote_msg(twice_on_same_user)"}} {putquick "PRIVMSG $chan :$nick voted $user Yes. (1) Votes."put_host [clock seconds] $user_host $uhost}} elseif {$yes_or_no == "no"} {if {[check_user_host $user_host] == "yes"} {if {[check_voter_host $user_host $uhost] == "no"} {set user_votes_counter [count_voters $user_host]if {[expr $user_votes_counter - 1] == 0} {putquick "PRIVMSG $chan :$nick voted $user No. (0) Votes."} {putquick "PRIVMSG $chan :$nick voted $user No. ([expr $user_votes_counter - 1]) Votes."}add_del_voter $user_host $uhost "del"} {putquick "PRIVMSG $nick :$vote_msg(twice_on_same_user)"}} {putquick "PRIVMSG $nick :$vote_msg(noone_voted)"}}} {putquick "PRIVMSG $nick :$vote_msg(help)"}} {putquick "PRIVMSG $nick :$vote_msg(help)"}}proc ban_mask { host nick } {global bantypeswitch -- $bantype {1 {set bmask "*!*@[lindex [split [maskhost $host] "@"] 1]"}2 {set bmask "*!*@[lindex [split $host @] 1]"}3 {set bmask "*$nick*!*@[lindex [split $host "@"] 1]"}                4 {set bmask "*!*[lindex [split $host "@"] 0]*@[lindex [split $host "@"] 1]"}return $bmask}}proc check_timestamps { } {global victim_interval users_fileset current_timestamp [clock seconds]set calc_timestamp [expr $victim_interval * 60]set timestamps_file [get_hosts]set fresh_timestamp [open $users_file w]foreach each_timestamp $timestamps_file {if {$each_timestamp != ""} {set victim_data [split $each_timestamp " "]set victim_timestamp [lindex $victim_data 0]if {[expr $current_timestamp - $victim_timestamp] < $calc_timestamp} {puts $fresh_timestamp $each_timestamp}}}close $fresh_timestamp}if {[string match *timestamp_timer* [utimers]] != 1} {                                           utimer 60 timestamp_timer}  putlog "simple-vote.tcl ver 0.1 by tomekk loaded"

Statistics: Posted by tomekk — Thu Jul 28, 2011 1:28 pm

Statistics: Posted by tomekk — Tue Jul 26, 2011 5:34 pm

Statistics: Posted by tomekk — Fri Jun 24, 2011 4:14 am

Statistics: Posted by tomekk — Thu Jun 23, 2011 10:27 am

Statistics: Posted by samhain — Thu Jun 23, 2011 7:13 am

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html## if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)                 # .chanset #channel_name +vote# and later .save   # ban after X yes votesset vote_limit 3# script messagesset vote_msg(is_bot) "Can't touch this!"set vote_msg(is_op) "Can't touch this!"set vote_msg(twice_on_same_user) "You can't vote twice on the same user!"set vote_msg(not_on_chan) "Wrong user name!"set vote_msg(help) "use: !vote <user> <yes/no>"set vote_msg(noone_voted) "No one voted for this user before!"# kick messagesset kick_msgs {"Come and get some!""No pain, no pain!""I'm your father Luke!""Hail to the king baby!"}# punish method# 0 - just kick# 1 - kick & banset punish 1# ban type # 1)  *!*@*.domain.com # 2)  *!*@some.domain.com # 3)  *nick*!*@some.domain.com # 4)  *!*ident*@some.domain.comset bantype  4# file with users dataset users_file "users.db"###############################################################################################bind pub -|- !vote vote_procsetudef flag voteif {![file exists $users_file]} {                                                                             set file_handle [open $users_file w]close $file_handle}proc get_hosts { } { global users_fileset get_hosts [open $users_file r] set get_all [split [read $get_hosts] "\n"] close $get_hosts return $get_all }proc put_host { user_host voter_host } {global users_fileset put_host [open $users_file a] puts $put_host "$user_host 1 $voter_host" close $put_host}proc del_host { user_host } {global users_fileset old_hosts [get_hosts]set del_hosts [open $users_file w]foreach del_host $old_hosts {if {$del_host != ""} {set del_rows [split $del_host " "]set del_user_host [lindex $del_rows 0]set del_user_counter [lindex $del_rows 1]set del_user_voters [lindex $del_rows 2]if {$del_user_host != $user_host} {puts $del_hosts "$del_user_host $del_user_counter $del_user_voters"}}}close $del_hosts}proc add_del_voter { user_host voter_host action } {global users_fileset old_db [get_hosts]set add_voter [open $users_file w]foreach old_host $old_db {if {$old_host != ""} {set old_rows [split $old_host " "]set old_user_host [lindex $old_rows 0]set old_user_counter [lindex $old_rows 1]set old_user_voters [lindex $old_rows 2]if {$old_user_host == $user_host} {if {$action == "add"} {puts $add_voter "$old_user_host [expr $old_user_counter + 1] $old_user_voters\,$voter_host"} elseif {$action == "del"} {if {$old_user_counter > 1} {puts $add_voter "$old_user_host [expr $old_user_counter - 1] $old_user_voters\,$voter_host"}}} {puts $add_voter "$old_user_host $old_user_counter $old_user_voters"}}}close $add_voter}proc count_voters { user_host } {set voters_count 0foreach db_host [get_hosts] {if {$db_host != ""} {set db_rows [split $db_host " "]set db_user_host [lindex $db_host 0]set db_user_counter [lindex $db_host 1]if {$db_user_host == $user_host} {set voters_count $db_user_counterbreak}}}return $voters_count}proc check_user_host { user_host } {set host_exists "no"foreach host [get_hosts] { if {$host != ""} { set rows [split $host " "]set file_user_host [lindex $rows 0]if {$file_user_host == $user_host} {set host_exists "yes"break}}}return $host_exists}proc check_voter_host { user_host voter_host } {set voter_exists "no"foreach voter [get_hosts] {if {$voter != ""} {set voter_rows [split $voter " "]set voter_user_host [lindex $voter_rows 0]set voter_voters [lindex $voter_rows 2]if {$voter_user_host == $user_host} {set host_votes [split $voter_voters ","]foreach vote $host_votes {if {$vote != ""} {if {$vote == $voter_host} {set voter_exists "yes"break}}}}}}return $voter_exists}proc vote_proc { nick uhost hand chan arg } {global users_file vote_limit kick_msgs punish vote_msgset args [split $arg] set user [lindex $args 0] set yes_or_no [lindex $args 1]if {![channel get $chan vote]} { return                                                                                          }if {$user != ""} {if {[isbotnick $user]} {putquick "PRIVMSG $nick :$vote_msg(is_bot)"return}if {[isop $user $chan]} {putquick "PRIVMSG $nick :$vote_msg(is_op)"return}if {![onchan $user $chan]} {putquick "PRIVMSG $nick :$vote_msg(not_on_chan)"return}if {($yes_or_no == "yes") || ($yes_or_no == "no")} { set user_host [getchanhost $user $chan]if {$yes_or_no == "yes"} {if {[check_user_host $user_host] == "yes"} {if {[check_voter_host $user_host $uhost] == "no"} {set user_votes_counter [count_voters $user_host]if {[expr $user_votes_counter + 1] == $vote_limit} {putquick "PRIVMSG $chan :$nick voted $user Yes. ($vote_limit) Votes."del_host $user_hostif {$punish == 1} {putquick "MODE $chan +b [ban_mask $uhost $nick]" }putkick $chan $user [lindex $kick_msgs [expr {int(rand() * [llength $kick_msgs])}]]} {putquick "PRIVMSG $chan :$nick voted $user Yes. ([expr $user_votes_counter + 1]) Votes."add_del_voter $user_host $uhost "add"}} {putquick "PRIVMSG $nick :$vote_msg(twice_on_same_user)"}} {putquick "PRIVMSG $chan :$nick voted $user Yes. (1) Votes."put_host $user_host $uhost}} elseif {$yes_or_no == "no"} {if {[check_user_host $user_host] == "yes"} {if {[check_voter_host $user_host $uhost] == "no"} {set user_votes_counter [count_voters $user_host]if {[expr $user_votes_counter - 1] == 0} {putquick "PRIVMSG $chan :$nick voted $user No. (0) Votes."} {putquick "PRIVMSG $chan :$nick voted $user No. ([expr $user_votes_counter - 1]) Votes."}add_del_voter $user_host $uhost "del"} {putquick "PRIVMSG $nick :$vote_msg(twice_on_same_user)"}} {putquick "PRIVMSG $nick :$vote_msg(noone_voted)"}}} {putquick "PRIVMSG $nick :$vote_msg(help)"}} {putquick "PRIVMSG $nick :$vote_msg(help)"}}proc ban_mask { host nick } {global bantypeswitch -- $bantype {1 {set bmask "*!*@[lindex [split [maskhost $host] "@"] 1]"}2 {set bmask "*!*@[lindex [split $host @] 1]"}3 {set bmask "*$nick*!*@[lindex [split $host "@"] 1]"}                4 {set bmask "*!*[lindex [split $host "@"] 0]*@[lindex [split $host "@"] 1]"}return $bmask}}putlog "simple-vote.tcl ver 0.1 by tomekk loaded"

Statistics: Posted by tomekk — Thu Jun 23, 2011 5:46 am

Statistics: Posted by samhain — Thu Jun 23, 2011 3:02 am

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html## if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)                 # .chanset #channel_name +vote# and later .save   # ban after X yes votesset vote_limit 5# dir with users dataset users_file "users.db"# kick messagesset kick_msgs {"message 1""message 2""message 3""message N"}# punish method# 0 - just kick# 1 - kick & banset punish 0###############################################################################################bind pub -|- !vote vote_procsetudef flag voteif {![file exists $users_file]} {                                                                             set file_handle [open $users_file w]close $file_handle}proc get_hosts { } { global users_fileset get_hosts [open $users_file r] set get_all [split [read $get_hosts] "\n"] close $get_hosts return $get_all }proc put_host { user_host voter_host } {global users_fileset put_host [open $users_file a] puts $put_host "$user_host $voter_host" close $put_host}proc del_host { user_host } {global users_fileset old_hosts [get_hosts]set del_hosts [open $users_file w]foreach del_host $old_hosts {if {$del_host != ""} {set del_rows [split $del_host " "]set del_user_host [lindex $del_rows 0]set del_user_voters [lindex $del_rows 1]if {$del_user_host != $user_host} {puts $del_hosts "$del_user_host $del_user_voters"}}}close $del_hosts}proc add_voter { user_host voter_host } {global users_fileset old_db [get_hosts]set add_voter [open $users_file w]foreach old_host $old_db {if {$old_host != ""} {set old_rows [split $old_host " "]set old_user_host [lindex $old_rows 0]set old_user_voters [lindex $old_rows 1]if {$old_user_host == $user_host} {puts $add_voter "$old_user_host $old_user_voters\,$voter_host"} {puts $add_voter "$old_user_host $old_user_voters"}}}close $add_voter}proc count_voters { user_host } {set voters_count 0foreach db_host [get_hosts] {if {$db_host != ""} {set db_rows [split $db_host " "]set db_user_host [lindex $db_host 0]set db_user_voters [lindex $db_host 1]if {$db_user_host == $user_host} {set voters_split [split $db_user_voters ","]set voters_count [llength $voters_split]break}}}return $voters_count}proc check_user_host { user_host } {set host_exists "no"foreach host [get_hosts] { if {$host != ""} { set rows [split $host " "]set file_user_host [lindex $rows 0]if {$file_user_host == $user_host} {set host_exists "yes"break}}}return $host_exists}proc check_voter_host { user_host voter_host } {set voter_exists "no"foreach voter [get_hosts] {if {$voter != ""} {set voter_rows [split $voter " "]set voter_user_host [lindex $voter_rows 0]set voter_voters [lindex $voter_rows 1]if {$voter_user_host == $user_host} {set host_votes [split $voter_voters ","]foreach vote $host_votes {if {$vote != ""} {if {$vote == $voter_host} {set voter_exists "yes"break}}}}}}return $voter_exists}proc vote_proc { nick uhost hand chan arg } {global users_file vote_limit kick_msgs punishset args [split $arg] set user [lindex $args 0] set yes_or_no [lindex $args 1]if {[isbotnick $user]} { return }if {$user != ""} {if {($yes_or_no == "yes") || ($yes_or_no == "no")} { if {[onchan $user $chan]} { set user_host [getchanhost $user $chan]if {[check_user_host $user_host] == "yes"} {if {[check_voter_host $user_host $uhost] == "no"} {set user_votes_counter [count_voters $user_host]if {[expr $user_votes_counter + 1] == $vote_limit} {putquick "PRIVMSG $chan :$nick voted $user Yes. ($vote_limit) Votes."if {$punish == 1} {putquick "MODE $chan +b *!*$user_host" }putkick $chan $user [lindex $kick_msgs [expr {int(rand() * [llength $kick_msgs])}]]del_host $user_host} {putquick "PRIVMSG $chan :$nick voted $user Yes. ([expr $user_votes_counter + 1]) Votes."add_voter $user_host $uhost}}} {put_host $user_host $uhostputquick "PRIVMSG $chan :$nick voted $user Yes. (1) Votes."}}}}}putlog "simple-vote.tcl ver 0.1 by tomekk loaded"

Statistics: Posted by tomekk — Wed Jun 22, 2011 6:27 am

Statistics: Posted by tomekk — Wed Jun 22, 2011 5:16 am