TCL EGGDROP

Commentaire de aliassangelius le 14/02/2010 17:53:22

bonjour

oui en effet j'avait completement oublier un " merci beaucoup ;)


Apprendre c'est comprendre..

Commentaire de aliassangelius le 18/02/2010 18:53:13

Bonjour

quand je fais addowner sa fonctionne correctement mais je vais tester et modifier comme tu me la dis voir ce que sa donne :)

le seul truc qui déconne dans ce tcl la c'est quand je fait un addmaster en pl je doit rajouter le flaq "s" et "n" enfin je vais modifier plein de chose et le re poster içi pour avoir vos avis merci pour les commentaire =)

Commentaire de aliassangelius le 20/02/2010 13:44:47

Bonjour SornDrixer

je vais le détailler ce que fais la source quand j'aurais apporter les modification dessus

et oui j'ai demander l'autorisation à l'auteur de publier son code je ne poste pas de source sans accord si elle n'est pas de moi à la base

Commentaire de aliassangelius le 24/02/2010 23:20:19

Bonjour UAIP

Return 0 permet de quitter une fonction en renvoyant 0 à la fonction appelante. 0 signifie que le code s'est terminé sans erreur.

Merci pour ton commentaire qui ma fait très plaisir :)

Commentaire de uaip le 24/02/2010 23:45:04

Salut,
Je sais bien ce que signifie l'instruction "return" :)
Mais je parlais des return en fin de proc par bind.
Comme tu l'as dit, "return" permet à la procédure appelante de récupérer la valeur de retour.
Mais dans le cas où la fonction est bindée (ou triggée, ou ce que tu veux), il n'y a rien qui vérifie la valeur de retour (si ?).
Du moins, je n'ai jamais mis de "return" dans des proc par bind.

Commentaire de uaip le 25/02/2010 00:02:19

Pour prendre l'exemple de pub_deop, elle n'est appelée par aucune autre proc, simplement appelé par un bind. Don personne ne se soucie de sa valeur de retour.
De voir des return 0 et 1 partout, ça me fait mal aux yeux ^^
Enfin bon. Passons.

Commentaire de uaip le 25/02/2010 00:39:34

Euh...
Je précise que je parlais des valeurs de retour (0 et 1). Si tu veux stopper une procédure et retourner dans la proc appelante, tu es obligé d'utiliser return (pour simplifier).
Mais si tu veux tester d'enlever des return, tu dois réorganiser la proc.
Du genre :
proc { param } {
..if { condition 1 } { return }
..commandes
..if { condition 2 } { return }
..commandes
}
devient :
proc { param } {
..if { !condition 1 } {
....commandes
....if { !condition 2 } {
......commandes
....}
..}
}
Et j'ai pas assez regardé ton code pour voir ce qui était le plus intéressant entre des return et des if/else, et là j'ai très mal au crâne d'où mon "Enfin bon. Passons." :)

Bonne nuit.

Commentaire de uaip le 25/02/2010 15:22:22

Tu n'es pas obligé de te prendre la tête pour ça. Le script fonctionne, c'est l'essentiel.

Commentaire de aliassangelius le 26/02/2010 17:48:16

# Op #
bind pub o|o [string trim $prefixcmd]op pub_op
proc pub_op {nick uhost hand chan text} {
  global botnick kaneda
  if {[matchattr $hand S] == 0} {
    if {[matchattr $hand Q] == 0}  {
      puthelp "NOTICE $nick :Vous devez vous identifier (/msg $botnick id <password>)"
    }
  }
  if {![botisop $chan]} {
    puthelp "NOTICE $nick : Je vais maintenant prendre controle de ton salon."
  }
  if {[lindex $text 0]!=""} {
    if {[onchan [lindex $text 0] $chan] == 0} {
      puthelp "NOTICE $nick :[lindex $text 0] n'est pas sur $chan."
    }
    pushmode $chan +o [lindex $text 0]
  }
  pushmode $chan +o $nick
}

voilà  un exemple en fesant comme ça sa fonctionne bien =)

Commentaire de Amelie_lyon le 23/10/2010 11:57:14

bind pub -|- !kickpl kicksource

proc kicksource { nick host handle chan text } {
#ip:
set server "IPDELASTREAM"
#port:
set port "PORT"
#login: (wird erzeugt aus (ab ins mirc) //echo $encode(admin:PASS,m) bei
#pass auch das pass angeben ^^ und dann eintragen sonst tut das nicht
#login (get it in mirc with //echo $encode(admin:PASS,m)
set login ""

#ab hier nixmehr ändern / don't change anything under this

set sock [socket $server $port]
puts $sock "GET /admin.cgi?admin=admin&pass=ICIPASS&mode=kicksrc HTTP/1.1"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $server"
puts $sock "Authorization: Basic $login"
puts $sock ""
flush $sock
}
putlog "sourcekick by #@homer (quakenet) loadet"

Commentaire de XSXS le 23/10/2010 16:15:37

Re Bonjour, Désolé j'ai fait une  erreur dans ma demande de tcl pour un KPL  de shoutcast direct sur le  salon d'animateurs!!! En fait c'est pas un eggdrop, mais un Mirc,  donc je suppose que le mots approprié est  "remotte"!!!  veuillez m'excuser je suis nouveau dans ce domaine!!! Merci d'avance, bon week-end a toutes et tous !!!!

Commentaire de XSXS le 23/10/2010 18:40:37

UAIP je suis reste correct alors ou tu peut m'aider, ou tu laisses les autres le faire merci!!bonne soirée

Commentaire de aliassangelius le 23/10/2010 19:47:18

votre kpl et nul.. voici un bout de code d'un vrai kpl..

bind pub |U !kpl kicksource

proc kicksource { nick host handle chan text } {
  #ip:
  set server "ip"
  #port:
  set port "port"
  #login: (wird erzeugt aus (ab ins mirc) //echo $encode(admin:PASS,m) bei
  #pass auch das pass angeben ^^ und dann eintragen sonst tut das nicht
  #login (get it in mirc with //echo $encode(admin:PASS,m)
  set login "pass"

  #ab hier nixmehr ändern / don't change anything under this
  putquick "PRIVMSG #chan :| Mode.Kick.PL | $nick vient de Kick la PL"

  if ![catch {set sock [socket $server $port]} error] {
....

de plus je suis d'accord avec UAIP faire un autre topic serait plus approprier franchement.. et sa ne dur que quelque minutes.