Page MenuHomeDevCentral
Files F12419755

No OneTemporary
Actions

View Options

This document is not UTF8. It was detected as ISO-8859-1 (Latin 1) and converted to UTF8 for display.
diff --git a/PreSurfBoard/Bip.tcl b/PreSurfBoard/Bip.tcl
new file mode 100644
index 0000000..246e47f
--- /dev/null
+++ b/PreSurfBoard/Bip.tcl
@@ -0,0 +1,65 @@
+# 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
+ }
+ }
+}
\ No newline at end of file
diff --git a/PreSurfBoard/README b/PreSurfBoard/README
new file mode 100644
index 0000000..d796246
--- /dev/null
+++ b/PreSurfBoard/README
@@ -0,0 +1,5 @@
+This folder contains TCL from a 2001 backup.
+
+They're from Slippy or ViperServ and then have been ported to SurfBoard.
+
+I'll publish SurfBoard complete script sets later, if I can recover the relevan HD.
diff --git a/PreSurfBoard/Raccourcis.tcl b/PreSurfBoard/Raccourcis.tcl
new file mode 100644
index 0000000..42db61e
--- /dev/null
+++ b/PreSurfBoard/Raccourcis.tcl
@@ -0,0 +1,53 @@
+# Notefix.tcl v1.2 par Golden <kishpa@globetrotter.net>
+# Description: Scripts pemettant d'envoyer rapidement des notes aux personne qui nous ont envoyer des notes ou aux personne
+# ayant recu une note de nous.
+# Utilisation: ++ ou & réenvoie une nouvelle note à la personne que vous avez noté la dernière fois que vous avez envoyé une note.
+# -- ou | ou ¦ réenvoie une nouvelle note à la personne qui vous a noté la dernière fois que vous avez reçu une note.
+# Installation: 1) Mettez ce tcl dans un répertoire accesible par l'Eggdrop.
+# 2) Chargez le scripts par un des moyen suivant:
+# a) En partyline, tapez => .tcl source repertoire_du_scripts/nom_du_scripts.tcl
+# b) Ajoutez A LA TOUTE FIN du votre fichier de configuration général (eggdrop.conf) Ceci =>
+# source repertoire_du_scripts/nom_du_scripts.tcl
+# ATTENTION: Afin d'utiliser correctement se script, vous devez avoir chargé le module 'NOTES' de Eggdrop.
+# Par simple sécurité, vérifier que la commande loadmodule notes a bien été éxécuté avant le chargement du script.
+
+# Binds de filtration du texte envoyé au note permettant de définir ce qui est une note d'une autre commande.
+
+bind filt - ".note *" filt:note
+bind filt - "++ *" note:resend
+bind filt - "++ *" note:reponse
+
+
+# Procédure employé afin d'enregistrer les actions posées par les usagers (coté note)
+
+proc filt:note {idx text} {
+ set note [lrange $text 1 end]
+ foreach destinataire [split [lindex $text 1] ,] {
+ if {![validuser $destinataire] || [matchattr $destinataire b]} {putdcc $idx "$destinataire n'est pas un usager valide" ; continue}
+ setuser [idx2hand $idx] XTRA LASTSEND $destinataire
+ setuser $destinataire XTRA LASTRECEIVE [idx2hand $idx]
+ return ".note $destinataire $note"
+ }
+}
+
+# Procédure employé afin de trouvé qui vous avez noté pour la dernière fois
+
+proc note:resend {idx text} {
+ if {[getuser [idx2hand $idx] XTRA LASTSEND] == ""} {
+ putdcc $idx "Vous n'avez jamais envoyé de note!"
+ return 0
+ }
+ set handle [getuser [idx2hand $idx] XTRA LASTSEND]
+ return ".note $handle $text"
+}
+
+# Procédure employé afin de trouvé de qui vous avez recu une note pour la dernière fois
+
+proc note:reponse {idx text} {
+ if {[getuser [idx2hand $idx] XTRA LASTRECEIVE] == ""} {
+ putdcc $idx "Vous n'avez jamais reçu de note!"
+ return 0
+ }
+ set handle [getuser [idx2hand $idx] XTRA LASTRECEIVE]
+ return ".note $handle $text"
+}
diff --git a/PreSurfBoard/laping.tcl b/PreSurfBoard/laping.tcl
new file mode 100644
index 0000000..3dac405
--- /dev/null
+++ b/PreSurfBoard/laping.tcl
@@ -0,0 +1,79 @@
+#Coded by Sébastien Santoro aka Dereckson
+#Inspired from Clément Didier aka TheClem sentence ideas
+#This version isn't the SurfBoard production one but a backup from 2001-07-29 23:39:48
+#
+
+bind dcc -|- laping laping
+bind dcc -|- carotte laping2
+bind dcc -|- cage laping3
+bind dcc -|- herbe laping2herbe
+bind dcc -|- gazon ReplanterGazon
+bind dcc -|- eau DonnerBoisson
+bind join -|- *!*@* join:laping
+bind nick - "#win laping" nick:laping
+proc nick:laping {nick uhost handle canal newnick}
+
+proc laping {h i a} {
+ global Znick
+ set Znick [hand2nick $h]
+ putserv "privmsg #win :$Znick cherche le laping ki et caché dans la party-line, mais il trouveras po le laping"
+}
+
+proc laping2 {h i a} {
+ global Znick
+ set Znick [hand2nick $h]
+ putserv "privmsg #win :$Znick a pris une carotte pour attirer le laping mais le laping ne va pas tomber dans le piège."
+ putserv "privmsg #win :Vive le laping !"
+ }
+
+proc laping2herbe {h i a} {
+ global Znick
+ set Znick [hand2nick $h]
+ putserv "privmsg #win :$Znick arrache de l'herbe pour donner le laping"
+ putserv "privmsg #win :Mais le laping n'aime pas ce type d'herbe :("
+ putserv "privmsg #win :Arggg ... ViperServ va pas être content ! Tu as arraché trop d'herbe"
+ putserv "kick #win $Znick :Non mais tu vas me replanter du .gazon tout de suite !"
+ setuser $h XTRA GAZON! 1
+ }
+
+proc ReplanterGazon {h i a} {
+ global Znick
+ set Znick [hand2nick $h]
+ putserv "privmsg #win :$Znick est de corvée plantage gazon"
+ putserv "privmsg #win :Le soleil lui tape sur le système ..."
+ putserv "privmsg #win :<$Znick> Pitié je veux une pause, il fait trop chaud"
+ putserv "privmsg #win :<Laping> Pas question ! Tu continues jusqu'à mourir d'épuisement."
+ putserv "privmsg #win :<Laping> Niark Niark Niark!"
+ putserv "privmsg #win :<TheClem> Vive le laping :)"
+ setuser $h XTRA GAZON! 0
+}
+
+proc DonnerBoisson {h i a} {
+ global Znick
+ set Znick [hand2nick $h]
+ putserv "privmsg #win :*** $Znick offre de l'eau bien fraîche au laping :)"
+ putserv "privmsg #win :<Laping> Slurpppppp"
+ putserv "privmsg #win :<Laping> Merci $Znick"
+ putserv "privmsg #win :<Laping> *Smack*"
+ putserv "privmsg #win :<$Znick> Grrrrr c dégoutant ... Et il m'a encore échappé"
+ putserv "privmsg #win :<TheClem> Vive le laping :)"
+}
+
+proc join:laping {nick userhost handle canal} {
+if {[getuser $handle XTRA GAZON!] == "1" } { putserv "kick #win $nick :Non mais tu vas me replanter du .gazon tout de suite !"
+ setuser $handle XTRA GAZON! 2
+ return 0}
+if {[getuser $handle XTRA GAZON!] == "2" } { putserv "privmsg #win :Tel est pris qui croyait prendre, chasseur de laping !"
+ setuser $handle XTRA GAZON! 1
+ return 0}
+}
+
+proc laping3 {h i a} {
+ global Znick
+ set Znick [hand2nick $h]
+putserv "privmsg #win :Gniark, $Znick a libéré le laping de la party-line, allons vite protéger le stock de carottes !"
+utimer 45 laping3b
+utimer 90 laping3c
+}
+proc laping3b {} {putserv "privmsg #win :<Laping> Je suis libreeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee :)" }
+proc laping3c {} {putserv "privmsg #win :Ouf j'ai récupéré le laping :) Réenfermé en partyline" }
\ No newline at end of file
diff --git a/PreSurfBoard/note+.tcl b/PreSurfBoard/note+.tcl
new file mode 100644
index 0000000..2837461
--- /dev/null
+++ b/PreSurfBoard/note+.tcl
@@ -0,0 +1,64 @@
+#Note+
+#(c) Sébastien Santoro
+
+bind dcc - note+ dcc:note+
+
+proc dcc:note+ {handle idx arg} {
+if {$arg==""} {putdcc $idx "Usage : note+ <ops/admins/all> <texte de la note>"
+ putdcc $idx " ou note+ spec <spécialité> <texte de la note>"
+ return
+ }
+
+set dest [lindex $arg 0]
+set ucmd "error"
+if {$dest=="ops"} {set ucmd "[userlist O]"}
+if {$dest=="admins"} {set ucmd "[userlist A]"}
+if {$dest=="all"} {
+
+ if {!([matchattr $handle A]) && !($handle=="Laping") && !($handle=="ViperServ") } {
+ putdcc $idx "Seul les administrateurs et le laping peuvent envoyer une note à tout le monde."
+ putdcc $idx "Utilise à la place .news add - <texte> ou .+forum <texte>"
+ return
+ }
+
+ set ucmd "[userlist]"
+}
+
+if {$dest=="spec"} {
+set sujet [lrange $arg 1 end]
+if {$sujet==""} {
+ putdcc $idx "Usage : .note+ spec <spécialité> <texte de la note>"
+ return
+ }
+set ucmd ""
+foreach helper [userlist] {
+ if {[string match "*[string tolower $sujet]*" [string tolower [getuser $helper XTRA specialites]]]} {
+ lappend ucmd "$helper"
+ }
+}
+
+if {$ucmd==""} {
+ putdcc $idx "Aucun spécialiste en $sujet."
+ return
+}
+
+
+}
+
+if {$ucmd=="error"} {putdcc $idx "Usage : note+ <ops/admins/all> <texte de la note>"
+ return
+ }
+
+set texte [lrange $arg 1 end]
+if {$texte==""} {putdcc $idx "Quel note veux-tu envoyé ?"
+ returns
+ }
+
+foreach user $ucmd {
+ storenote $handle $user $texte -1
+}
+
+putdcc $idx "Ok, notes envoyées."
+putcmdlog "#$handle# NOTE+ $dest ..."
+
+}
\ No newline at end of file

File Metadata

Mime Type
application/octet-stream
Expires
Thu, Nov 6, 09:48 (2 d)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3136513
Default Alt Text
(11 KB)

Event Timeline

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