Page MenuHomeDevCentral
Files F8321991

Bip.tcl
No OneTemporary
Actions

Bip.tcl
View Options

This document is not UTF8. It was detected as ISO-8859-1 (Latin 1) and converted to UTF8 for display.
# bip.tcl v2,0 par Golden <kishpa@globetrotter.net>
# Description: Script pemettant d'améliorer les chances d'un usager pour un contacter un autre au moyen de note et de sons.
# Utilisation: '.bip <nick IRC | nick sur le bot>'
#Binds
bind dcc - bip dcc:bip
#Procédures de bip
proc dcc:bip {h i t} {
global botnick
if {([lindex $t 0] == "all")} {
foreach list [dcclist chat] {
set hand [lindex $list 1]
if {[hand2nick $hand] != ""} {append handlelist "$hand "}
}
foreach user $handlelist { if {$user != $h} {dcc:bip $h $i "$user [lrange $t 1 end]"} }
return 1
}
if {([lindex $t 0] == "ops")} {
foreach list [dcclist chat] {
set hand [lindex $list 1]
if {[hand2nick $hand] != "" && [matchattr $hand o] } {append handlelist "$hand "}
}
foreach user $handlelist { if {$user != $h} {dcc:bip $h $i "$user -à tous les ops- [lrange $t 1 end]"} }
return 1
}
if {([lindex $t 0] == "admins")} {
foreach list [dcclist chat] {
set hand [lindex $list 1]
if {[hand2nick $hand] != "" && [matchattr $hand A] } {append handlelist "$hand "}
}
foreach user $handlelist { if {$user != $h} {dcc:bip $h $i "$user -à tous les admins- [lrange $t 1 end]"} }
return 1
}
if {![validuser [lindex $t 0]]} {
putdcc $i "Usager non-valide"
return 0
}
# Vérification si l'usager est accessible par le bot
if {[hand2idx [lindex $t 0]] == "-1" && [hand2nick [lindex $t 0]] == ""} {
putdcc $i "([lindex $t 0]) n'est présent ni sur IRC ni en partyline"
return 0
} {
# Exploitation du nick IRC de l'usagé pour le contacter
if {[hand2idx [lindex $t 0]] == "-1"} {
putquick "notice [hand2nick [lindex $t 0]] :Tu es appelé en partyline par $h ([lrange $t 1 end])"
putquick "privmsg [hand2nick [lindex $t 0]] :\001sound wakeup.wav\001"
putdcc $i "[lindex $t 0] a été apellé dans $botnick"
return 1
} {
# Exploitation de l'interface partyline du bot pour le contacter
putquick "notice [hand2nick [lindex $t 0]] :Tu es appelé en partyline par $h ([lrange $t 1 end])"
putdcc [hand2idx [lindex $t 0] ] "4$h désire te parler ([lrange $t 1 end])"
putquick "privmsg [hand2nick [lindex $t 0]] :\001sound wakeup.wav\001"
putdcc $i "[lindex $t 0] ([hand2nick [lindex $t 0]]) a été apellé dans $botnick"
return 1
}
}
}

File Metadata

Mime Type
application/octet-stream
Expires
Tue, May 13, 16:57 (1 d, 3 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2572623
Default Alt Text
Bip.tcl (2 KB)

Event Timeline

Nasqueron DevCentral · If it had been much bigger the moon would have had a core of ice. · Powered by Phabricator