# Script d'aide pour un chan.
#
# Il contient plusieurs catgories, configurables.
#
# Par Pontiac6000
####################################################
################## Configuration ###################
####################################################
# Canal d'aide:
set helpchan "#aide"
# Chans que le bot va faire de la publicit pour le canal d'aide
# (Laissez vide si vous n'en voulez pas)
set pubchan1 "#Download"
set pubchan2 ""
set pubchan3 ""
# Message dit aux utilisateurs l'arrive dans le chan d'aide:
set advertisetext "3Bienvenue sur #Aide! 4Tappez !aide pour la liste des comandes. 12Veuillez quitter le chan si vous n'avez pas de question. 13Merci!"
# Message dit aux chans o le bot fait de la publicit:
set globaltext "4Pour les utilisateurs ayant besoin d'aide quelquonque, n'hsitez pas a venir sur 12#Aide 4..."
# La commande pour la liste des commandes principales:
set hsmaintrigger "!aide"
# La commande pour appeler les helpeurs:
set hscalltrigger "!call"
# La commande pour voir qui sont les helpeurs:
set hshelplisttrigger "!helpeurs"
# La commande pour avoir la liste des catgories d'aide
# automatise disponibles:
set hscategorietrigger "!catgories"
# Les commandes pour setter les helpeurs 1, 2 et 3
set sethelpeur1trigger "!sethelpeur1"
set sethelpeur2trigger "!sethelpeur2"
set sethelpeur3trigger "!sethelpeur3"
# La commande pour la catgorie "upload"
set catsendtrigger "!upload"
# La commande pour la catgorie "download"
set catreceivetrigger "!download"
# La commande pour la catgorie "services"
set catservicestrigger "!services"
# La commande pour la catgorie "connexion"
set catconnexiontrigger "!connexion"
# La commande pour la catgorie "radio"
set catradiotrigger "!radio"
# La commande pour la catgorie "Questions diverses"0
set catquestiontrigger "!question"
# Ces helpeurs sont par dfaut.
set helpeur1 "Pontiac6000"
set helpeur2 "LE-FLO"
set helpeur3 "Darkness"
###############################################
############## Catgories d'aide ##############
###############################################
# Aide sur "upload" :
set uploadtext1 "L'upload est l'envoi de donnes aux autres utilisateurs du rseau. Il est trs frquent qu'un utilisateur ne puisse pas envoyer de donnes un autre utilisateurs via l'IRC, mme si cela fonctionne par MSN ou d'autres programmes. La principale cause du disfonctionnement de l'envoi est les routeurs. Si vous avez un routeur, prenez soin d'ouvrir le port 1024 (port habituel de send) dans les configurations."
set uploadtext2 "Si vous ne savez pas comment ouvrir les ports de votre routeur, allez sur le site de celui-ci. Il se pourrait aussi que votre Pare-feu personnel puisse barrer le port de transfert. Lisez le manuel de votre Pare-Feu et ouvrez le port 1024 avec l'application mIRC (ou Xchat, selon le cas). Si vous utilisez un proxy, il se pourrait aussi que les Uploads ne fonctionnent pas."
set uploadtext3 "Si apres toutes ces tentatives, vous continuez avoir des problmes d'upload, appelez un helpeur ( en tappant $hscalltrigger ) qui traitera votre problme avec vous. Merci!"
# Aide sur "download" :
set downloadtext "Le download est quand vous recevez des donnes d'utilisateurs. Si vous n'tes pas capable de recevoir des donnes d'nu autre utilisateur, c'est probablement l'autre qui a un problme d'upload."
# Aide sur "services" :
set servicestext "Les services sont Nickserv, Chanserv, Memoserv, Helpserv, Hostserv, Botserv et Operserv (pour les IRCops seulement). Ils servent vous aider dans pluseurs domaines, comme les Nick pour Nickserv, les Salons pour Chanserv, etc. Une liste de leur commandes est disponible en tappant /msg Helpserv help . Si cela ne fonctionne pas, c'est que votre rseau IRC n'a pas la version des services que nous traitons, ou n'en a pas. Merci!"
# Aide sur "connexion" :
set connexiontext "Les problmes de connexion surviennent souvent quand vous passez par un trop bon Pare-feu, il faudra alors dbarrer le port du serveur que vous utilisez. Lisez le manuel de votre pare-feu pour trouver comment dbarrer ce port. Si vous n'avez pas de Pare-feu ou que vous avez d'autres problmes de connexion, appelez les helpeurs ( en tappant $hscalltrigger ) qui traitera votre problme."
# Aide sur "radio" :
set radiotext "La radio du serveur est une radio gratuite et libre, vous pouvez aller sur son canal en tappant /join #Radio . Merci!"
# Aide sur "Questions Diverses"
set questiontext "Si vous avez des problmes avec d'autre choses ou que vous avez des questions envers le serveur, tappez $hscalltrigger pour appeller un helpeur qui se fera un plaisir de vous aider."
###############################################
################### Script ####################
###############################################
### ne pas modifier, c'est vos risques! ###
###############################################
bind pub - $hsmaintrigger pub_mainhelp
bind pub - $hscalltrigger pub_callhelper
bind pub - $hshelplisttrigger pub_helplist
bind pub - $hscategorietrigger pub_categorie
bind pub - $catsendtrigger cat_send
bind pub - $catreceivetrigger cat_receive
bind pub - $catservicestrigger cat_services
bind pub - $catconnexiontrigger cat_connexion
bind pub - $catradiotrigger cat_radio
bind pub - $catquestiontrigger cat_question
bind msg p $sethelpeur1trigger msg_sethelpeur1
bind msg p $sethelpeur2trigger msg_sethelpeur2
bind msg p $sethelpeur3trigger msg_sethelpeur3
bind pub p $sethelpeur1trigger pub_sethelpeur1
bind pub p $sethelpeur2trigger pub_sethelpeur2
bind pub p $sethelpeur3trigger pub_sethelpeur3
bind join - * advertisechan
bind time - "10 * * * *" globalpub
proc mainhelp { target } {
global hsmaintrigger hscalltrigger hscategorietrigger hshelplisttrigger
putserv "notice $target :Voici les commandes disponibles:"
putserv "notice $target :$hscalltrigger - Tapez cette commande pour appeler les helpeurs prsents..."
putserv "notice $target :$hshelplisttrigger - Va vous dire qui sont les helpeurs disponibles."
putserv "notice $target :$hscategorietrigger - Va vous donner les multiples catgories d'aides automatises disponibles."
putserv "notice $target :Veuillez nous signaler toute dfectuosit sur ce robot, Merci !"
putlog "Help: $target a reu le menu principal."
}
proc pub_mainhelp { nick uhost hand chan arg } { mainhelp $nick }
proc callhelper { nick } {
global helpeur1 helpeur2 helpeur3
putserv "privmsg $helpeur1 :$nick besoin d'aide sur le chan d'aide."
putserv "privmsg $helpeur2 :$nick besoin d'aide sur le chan d'aide."
putserv "privmsg $helpeur3 :$nick besoin d'aide sur le chan d'aide."
putserv "notice $nick :Les helpeurs ont bien ts calls."
putserv "notice $nick :Merci de ne pas tapper la commande plusieurs fois, une seule suffit."
putlog "Help: Les helpeurs ont t calls par $nick"
}
proc pub_callhelper { nick uhost hand chan arg } { callhelper $nick }
proc helplist { nick } {
global helpeur1 helpeur2 helpeur3 hscalltrigger
putserv "notice $nick :Voici les helpeurs disponibles:"
putserv "notice $nick :#1: $helpeur1"
putserv "notice $nick :#2: $helpeur2"
putserv "notice $nick :#3: $helpeur3"
putserv "notice $nick :Merci de ne pas les appeler en PV, mais en tappant $hscalltrigger . Merci"
putlog "Help: $nick a demand la liste des helpeurs."
}
proc pub_helplist { nick uhost hand chan arg } { helplist $nick }
proc sethelpeur1 { nick newhelpeur1 } {
global helpeur1
set helpeur1 "$newhelpeur1"
putserv "notice $nick :Le Helpeur #1 est maintenant $helpeur1 ."
putlog "Help: Helpeur 1 t chang par $nick et sera maintenant $helpeur1."
}
proc msg_sethelpeur1 { nick uhost hand arg } { sethelpeur1 $nick $arg }
proc pub_sethelpeur1 { nick uhost hand chan arg } { sethelpeur1 $nick $arg }
proc sethelpeur2 { nick newhelpeur2 } {
global helpeur2
set helpeur2 "$newhelpeur2"
putserv "notice $nick :Le Helpeur #2 est maintenant $helpeur2 ."
putlog "Help: Helpeur 2 t chang par $nick et sera maintenant $helpeur2."
}
proc msg_sethelpeur2 { nick uhost hand arg } { sethelpeur2 $nick $arg }
proc pub_sethelpeur2 { nick uhost hand chan arg } { sethelpeur2 $nick $arg }
proc sethelpeur3 { nick newhelpeur3 } {
global helpeur3
set helpeur3 "$newhelpeur3"
putserv "notice $nick :Le Helpeur #3 est maintenant $helpeur3 ."
putlog "Help: Helpeur 3 t chang par $nick et sera maintenant $helpeur3."
}
proc msg_sethelpeur3 { nick uhost hand arg } { sethelpeur3 $nick $arg }
proc pub_sethelpeur3 { nick uhost hand chan arg } { sethelpeur3 $nick $arg }
proc categorie { target } {
global catsendtrigger catreceivetrigger catservicestrigger catconnexiontrigger catradiotrigger catquestiontrigger
putserv "notice $target :Voici les catgories disponibles:"
putserv "notice $target :$catsendtrigger - Pour les problmes d'envoie de donnes vers d'autres personnes."
putserv "notice $target :$catreceivetrigger - Pour des problmes en recevant des donnes."
putserv "notice $target :$catservicestrigger - Pour des problmes avec Nickserv, Chanserv, Botserv, Hostserv, Helpserv, Memoserv ou Operserv."
putserv "notice $target :$catconnexiontrigger - Pour des problmes de connexion avec le serveur."
putserv "notice $target :$catradiotrigger - Pour des problmes, questions ou commentaires envers la Radio-Chatnetworld."
putserv "notice $target :$catquestiontrigger - Pour des questions gnrales propos du serveur."
putserv "notice $target :La rponse du bot peut tre lente, veuillez patienter 5 secondes entre chaque commande tape. Merci"
putlog "Help: $target a demand la liste des catgories disponibles."
}
proc pub_categorie { nick uhost hand chan arg } { categorie $nick }
proc csend { nick } {
global hscalltrigger uploadtext1 uploadtext2 uploadtext3
putserv "notice $nick :$uploadtext1"
putserv "notice $nick :$uploadtext2"
putserv "notice $nick :$uploadtext3"
putlog "Aide automatise envoye $nick : Upload"
}
proc cat_send { nick uhost hand chan arg } { csend $nick }
proc creceive { nick } {
global downloadtext
putserv "notice $nick :$downloadtext"
putlog "Aide automatise envoye $nick : Download"
}
proc cat_receive { nick uhost hand chan arg } { creceive $nick }
proc cservices { nick } {
global servicestext
putserv "notice $nick :$servicestext"
putlog "Aide automatise envoye $nick : Services"
}
proc cat_services { nick uhost hand chan arg } { cservices $nick }
proc cconnexion { nick } {
global hscalltrigger connexiontext
putserv "notice $nick :$connexiontext"
putlog "Aide automatise envoye $nick : Connexion"
}
proc cat_connexion { nick uhost hand chan arg } { cconnexion $nick }
proc cradio { nick } {
global radiotext
putserv "notice $nick :$radiotext"
putlog "Aide automatise envoye $nick : Radio"
}
proc cat_radio { nick uhost hand chan arg } { cradio $nick }
proc cquestion { nick } {
global hscalltrigger questiontext
putserv "notice $nick :$questiontext"
putlog "Aide automatise envoye $nick : Questions Diverses"
}
proc cat_question { nick uhost hand chan arg } { cquestion $nick }
proc advertisechan { nick uhost hand chan } {
global helpchan advertisetext helpeur1 helpeur2 helpeur3
if { $helpchan == $chan } { putserv "notice $nick :$advertisetext" }
putlog "Help: Nouveau user sur $chan ($nick)."
if { $nick != $helpeur1 && $nick != $helpeur2 && $nick != $helpeur3 && $chan == $helpchan } {
putserv "privmsg $helpeur1 :$nick vient d'arriver sur $helpchan et ce n'est pas un helpeur."
putserv "privmsg $helpeur2 :$nick vient d'arriver sur $helpchan et ce n'est pas un helpeur."
putserv "privmsg $helpeur3 :$nick vient d'arriver sur $helpchan et ce n'est pas un helpeur."
}}
proc globalpub { nick uhost hand chan arg } {
global pubchan1 pubchan2 pubchan3 globaltext
if { pubchan1 == "*" } { putserv "privmsg $pubchan1 :$globaltext" }
if { pubchan2 == "*" } { putserv "privmsg $pubchan2 :$globaltext" }
if { pubchan3 == "*" } { putserv "privmsg $pubchan3 :$globaltext" }
putlog "Help: Publicit globale..."
}
# FIN DU SCRIPT
putlog "Script d'aide v.1.3 par Pontiac6000 charg!"