Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ###########################################
- #
- # Channel invite 0.1 BETA
- # Scripted by Dreamer
- #
- ###########################################
- #
- # Type /msg <botnick> @add <nick> <pass>
- # to add someone to the database
- # Type /msg <botnick> @invite <nick> <pass>
- # to get invited in to channel
- #
- # History:
- # 0.1: First version
- #
- ###########################################
- # EDIT FROM HERE
- # Channel where the bot wil invite
- set chan_1 "#chav"
- # Name of the database
- set db scripts/chan.invite
- # STOP EDITING FROM HERE
- set ver "0.1"
- bind msg - @add add_1
- bind msg - @invite inv_1
- putlog "Channel invite $ver by Dreamer loaded"
- # Script starts now
- proc add_1 { nick uhost hand args } {
- global chan_1 db
- set args [split $args " "]
- set user [lindex $args 0]
- set user [string range $user 1 end]
- set pass [lindex $args 1]
- set pass [string range $pass 0 end-1]
- if { $user == "" || $pass == "" } {
- putserv "PRIVMSG $nick :Please instert a Nickname and a password"
- return 0
- }
- set up $user|$pass
- set wfile [open $db a+]
- puts $wfile $up
- close $wfile
- putserv "PRIVMSG $chan_1 :\[\00314DB UPDATE\003\] $user is added to Database by $nick"
- }
- proc inv_1 { nick uhost hand arg } {
- global chan_1 db
- set found 0
- set arg [split $arg " "]
- set user1 [lindex $arg 0]
- set user1 [string range $user1 0 end]
- set pass1 [lindex $arg 1]
- set pass1 [string range $pass1 0 end]
- set up1 $user1|$pass1
- set found 0
- set fs [open $db r]
- while {![eof $fs]} {
- gets $fs line
- if {$line == $up1} { set found 1 }
- }
- close $fs
- if {$found} {
- putserv "PRIVMSG $chan_1 :\[\00314INVITE\003\] $user1 invited him/herself as $nick"
- putserv "invite $nick $chan_1"
- } else {
- putserv "PRIVMSG $nick :Wrong pass or username !!!!"
- putserv "PRIVMSG $chan_1 :\[\0034INTRUDER\003\] $nick tried to get in the channel"
- }
- }
Add Comment
Please, Sign In to add comment