source qui marche ?Résolu

Question

Salut tout le monde, je regardais un peu les auto-joins (multiserv) du
site et je suis tomb&#233; sur le super addons (graphiquement) de PuMaZ.

mais voila, je d&#233;cide de le tester sur un mirc vierge 6.16 et ca ne marche pas.

est ce normal ou pas ?



Est ce le code qui d&#233;conne ?



liens de l'addon :) http://www.ircfr.com/code.aspx?ID=20147



a++  :)

Si quelqu'un a un autojoin multiserver a propos&#233;, une source qui d&#233;passe les autres, je suis preneur :))

mopi ;)

cs_PaDa · Accepted Answer

mais lol
c'est juste, je fais pas des r&#233;ponses pour gagner des points va :) j'ai test&#233;, modifi&#233;, ca marche garanti :) valide pas, valide qq1 d'autre qui joue &#224; la course aux points =]
PaDa

cs_SornDrixer · Answer

Bonjour,

Quesqui ne fonctionne pas pr&#233;cisement ?
Impossible de lancer l'addon ? Il ne r&#233;agit pas ? Un message d'erreur ?

Cordialement, Sorn_Drixer
-
 Mon site : Sorn-Creation

TooLoW · Answer

l'addon marche sans message d erreur, je configure normalement l addon 

exemple j ajoute le server irc.quakenet.org , le chan #aaa  , je me connecte au server : /server irc.quakenet.org

et l'addon ne r&#233;agit pas, aucun chan n'est join, pourtant il est bien activ&#233; ...

mopi ;)

cs_SornDrixer · Answer

Je me rappelle avoir test&#233; l'addon &#224; l'&#233;poque, et je n'avais rencontr&#233; aucun bug.
Teste &#224; tout hasard l'auto-join sur un autre serveur (epiknet par exemple)

Cordialement, Sorn_Drixer
-
 Mon site : Sorn-Creation

TooLoW · Answer

eh bien j'ai test&#233; sur undernet et ca ne marchait &#233;galement pas :/

mopi ;)

cs_PaDa · Answer

J'ai eu ce pb &#233;galement en le testant ya 5 mins : le probl&#232;me vient de l&#224; :

    if ($ini($ca,$server,0)) || ($ini($ca,$network,0)) {

      var %x 1 | var %s $iif($network,$network,$server)

...



l'addon se lance si tu as rentr&#233; un autojoin sur le server ou le
network, mais la boucle qui /join ensuite se base uniquement sur l'un
des deux, prioritairement le network

si tu utilises l'exemple employ&#233;, ca fonctionnera avec "Voila' comme
server, mais pas avec irc.voila.fr (puisque irc.voila.fr est un des
servers de voila/wanadoo qui renvoie correctemt un nom de network a la
connexion)

idem pour Epik, Undernet etc

mets donc le $network au lieu d'un nom de serveur et ca fonctionnera :)

ou alors modifie le code pour que la boucle se fasse sur les deux



PaDa

cs_PaDa · Answer

euh dsl : qd je dis 




&#171; "Voila' comme
server, mais pas avec irc.voila.fr &#187;



Je parle de "Voila" employ&#233; dans le champ server de l'addon bien sur...




PaDa

Camanche · Answer

Voila,

alias joinall msaj_joinall alias dlg { var %dlg $$1 $+ .dlg | if ($dialog(%dlg) $null) { dialog -domr %dlg %dlg } } alias -l dlg_p { var %dlg $$1 $+ .dlg | if ($dialog(%dlg) $null) { dialog -amrov %dlg %dlg } } 
alias -l dlg_close { dialog -x $dname $dname } 
alias -l msaj_save { hsave -bo msaj_data scripts\serveur } alias -l msaj_load { if ($hget(msaj_data) !msaj_data) { hmake msaj_data 1 } | if ($exists(scripts\serveur) $true) { hload -b msaj_data scripts\serveur } } 
alias -l msaj_err { $dlg_p(msaj_err) } 
alias -l msaj_errmsg { did -ra msaj_err.dlg 1 $$1- } 
alias -l msaj_hget { return $hget(msaj_data,$$1) } 
alias -l msaj_hgetitem { return $hget(msaj_data,$$1).item } 
alias -l msaj_hgetsize { return $hget(msaj_data,$$1).size } 
alias -l msaj_connect { server $$1 $2 $3 -j $4- } 
alias -l msaj_connectm { server -m $$1 $2 $3 -j $4- } 
alias -l msaj_closeall { scon -a partall | scon -at1 quit | scon -a window -c "Status Window" } 
alias -l msaj_delist { var %i = $did(msaj.dlg,$$1).lines | while (%i != 0) { did -r msaj.dlg $$1 %i | dec %i } } 
alias -l msaj_refresh_srvlist { var %i = $msaj_hgetitem(0) | while (%i != 0) { if (.msaj !isin $msaj_hgetitem(%i)) { did -a msaj.dlg 2 $msaj_hgetitem(%i) } | dec %i } } alias -l msaj_refresh_chanlist { var %temp $did(msaj.dlg,2).seltext $+ .msajchan, %list.chan, %i | %list.chan $msaj_hget(%temp) | %i = $numtok(%list.chan,44) | while (%i != 0) { did -a msaj.dlg 7 $gettok(%list.chan,%i,44) | dec %i } } 


alias -l msaj_joinall {  var %first 1, %i $msaj_hgetitem(0), %srv, %srv.activ, %port, %passwd, %chan
  while (%i != 0) {
    %srv = $msaj_hgetitem(%i)
    %port = %srv $+ .msajport
    %port = $msaj_hget(%port)
    %passwd = %srv $+ .msajpasswd
    %passwd = $msaj_hget(%passwd)
    %chan = %srv $+ .msajchan
    %chan = $msaj_hget(%chan)
    if (.msaj !isin %srv) {
      %srv.activ = $msaj_hget(%srv)      if (%srv.activ 1 && %first 1) {
        $msaj_connect(%srv,%port,%passwd,%chan)
        %first = 0
      }
      elseif (%srv.activ == 1) {
        $msaj_connectm(%srv,%port,%passwd,%chan)
      }
    }
    dec %i
  }
}


on *:start:{ msaj_load | msaj_closeall | dialog -m msaj.dlg msaj.dlg } 
dialog msaj.dlg { 
  title "                                     Connexion"
  size -1 -1 202 156
  option dbu
  box "Liste des serveurs", 1, 5 6 81 55
  combo 2, 8 16 74 50, sort size drop
  check "Activer l'autojoin", 5, 9 47 50 10
  button "Ajouter", 3, 11 33 30 9
  button "Supprimer", 4, 49 33 30 9
  box "liste des salons", 6, 90 6 109 55
  list 7, 94 15 62 42, size
  button "Ajouter", 8, 162 21 30 9
  button "Supprimer", 9, 162 40 30 9
  box "Configuration", 21, 4 64 194 71
  text "Pseudo:", 10, 5 78 47 8, right
  text "Pseudo Alternatif:", 11, 5 92 47 8, right
  text "Nom Complet:", 12, 5 106 47 8, right
  text "E-mail:", 13, 5 120 47 8, right
  edit $readini mirc.ini mirc nick     ,14, 53 77 140 10
  edit $readini mirc.ini mirc anick   ,15, 53 91 140 10
  edit $readini mirc.ini mirc user     ,16, 53 105 140 10
  edit $readini mirc.ini mirc email ,17, 53 119 140 10
  button "Connexion", 20, 43 139 37 12, default, ok
  button "Fermer", 200, 122 139 37 12, default, cancel
}


on 1:dialog:msaj.dlg:edit:14 { set %nick $did(14) }
on 1:dialog:msaj.dlg:edit:15 { set %anick $did(15) }
on 1:dialog:msaj.dlg:edit:16 { set %user $did(16) }
on 1:dialog:msaj.dlg:edit:17 { set %email $did(17) }
on *:dialog:msaj.dlg:init:*: { msaj_refresh_srvlist } 
on *:dialog:msaj.dlg:sclick:*: {   if ($did 2) { $msaj_delist(7) | msaj_refresh_chanlist | var %srv $did($dname,2).seltext | if ($msaj_hget(%srv) == 1) { did -c $dname 5 } | else { did -u $dname 5 } } 
  if ($did == 3) { dlg_p msaj.addsrv }   if ($did 4) { if ($did($dname,2).seltext) { var %srv $did($dname,2).seltext $+ * | hdel -w msaj_data %srv | $msaj_delist(2) | msaj_refresh_srvlist | $msaj_delist(7) | did -u msaj.dlg 5 | msaj_save } | else { msaj_err | $msaj_errmsg(Tu dois s&#233;lectionner un serveur) } }   if ($did 5) { if ($did($dname,2).seltext) { var %srv $did($dname,2).seltext, %state | %state = $did($dname,5).state | hadd msaj_data %srv %state | msaj_save } | else { msaj_err | $msaj_errmsg(Tu dois s&#233;lectionner un serveur) } } 
  if ($did == 8) { if ($did($dname,2).seltext) { dlg_p msaj.addchan } | else { msaj_err | $msaj_errmsg(Tu dois s&#233;lectionner un serveur) } }   if ($did 9) { if ($did(msaj.dlg,7).sel) { var %chan $did($dname,7).seltext, %srv, %list.chan, %pos, %new.list | %srv = $did($dname,2).seltext $+ .msajchan | %list.chan = $msaj_hget(%srv) | %pos = $findtok(%list.chan,%chan,1,44) | %new.list = $deltok(%list.chan,%pos,44) | hdel msaj_data %srv | hadd msaj_data %srv %new.list | did -d msaj.dlg 7 $did($dname,7,1).sel | msaj_save } | else { msaj_err | $msaj_errmsg(Tu dois s&#233;lectionner un channel) } } 
  if ($did == 99) { msaj_closeall | msaj_joinall | dlg_close } 
  if ($did == 20) { msaj_closeall | msaj_joinall | nick %nick | fullname %user | emailaddr %email | msaj_load } 
} 
on 1:dialog:msaj.dlg:sclick:20: {
  if ( $did(msaj.dlg,14).edited == $true ) { /.nick $did(msaj.dlg,14).text | /writeini mirc.ini mirc nick $did(msaj.dlg,14).text }
  if ( $did(msaj.dlg,15).edited == $true ) { /.anick $did(msaj.dlg,15).text | /writeini mirc.ini mirc anick $did(msaj.dlg,15).text }
  if ( $did(msaj.dlg,16).edited == $true ) { /.fullname $did(msaj.dlg,16).text | /writeini mirc.ini mirc user $did(msaj.dlg,16).text }
  if ( $did(msaj.dlg,17).edited == $true ) { /.emailaddr $did(msaj.dlg,17).text | /writeini mirc.ini mirc email $did(msaj.dlg,17).text }
}
dialog msaj.addsrv.dlg { 
  title "          Ajouter un serveur" 
  size -1 -1 260 170 
  option pixels 
  text "Nom du serveur : ", 1, 25 10 90 16, right 
  edit "", 2, 125 8 100 21, autohs center 
  text "Port : ", 3, 25 40 90 16, right 
  edit "6667", 4, 125 38 100 21, autohs center 
  text "Mot de passe : ", 5, 25 70 90 16, right 
  edit "", 6, 125 66 100 21, pass autohs center 
  check "Activer l'auto-join pour ce serveur", 7, 35 100 190 20 
  button "&Ajouter", 98, 45 135 75 25, default 
  button "A&nnuler", 99, 125 135 75 25, cancel 
} on *:dialog:msaj.addsrv.dlg:sclick:98 { if ($did($dname,2).text && $did($dname,4).text) { var %nom.srv $did($dname,2).text, %activ.srv | if ($did($dname,7).state 0) { %activ.srv = 0 } | else { %activ.srv = 1 } | hadd -m msaj_data %nom.srv %activ.srv | hadd -m msaj_data %nom.srv $+ .msajport $did(msaj.addsrv.dlg,4).text | if ($did($dname,6).text) { hadd -m msaj_data %nom.srv $+ .msajpasswd $did(msaj.addsrv.dlg,6).text } | $msaj_delist(2) | $msaj_delist(7) | msaj_refresh_srvlist | msaj_save | dlg_close } | else { msaj_err | $msaj_errmsg(Tu dois entrer le nom d'un chan et un port) } } 
dialog msaj.addchan.dlg { 
  title "             Ajouter un salon" 
  size -1 -1 260 110 
  option pixels 
  text "Nom du salon : ", 1, 25 10 90 16, right 
  edit "", 2, 125 8 100 21, autohs center 
  text "Mot de passe : ", 3, 25 40 90 16, disable right 
  edit "", 4, 125 38 100 21, disable autohs center 
  button "&Ajouter", 98, 45 75 75 25, default 
  button "A&nnuler", 99, 125 75 75 25, cancel 
} on *:dialog:msaj.addchan.dlg:sclick:98: { var %srv $did(msaj.dlg,2).seltext, %chan, %temp, %list.chan | if ($did($dname,2).text) { %chan $did($dname,2).text | if ($left(%chan,1) != $chr(35)) { %chan = $chr(35) $+ %chan } | %temp = %srv $+ .msajchan | %list.chan = $msaj_hget(%temp) | %list.chan = $addtok(%list.chan,%chan,44) | hadd -m msaj_data %temp %list.chan | $msaj_delist(7) | msaj_refresh_chanlist | msaj_save | dlg_close } | else { msaj_err | $msaj_errmsg(Tu dois entrer un chan) } } 
dialog msaj_err.dlg { 
  title "                 Erreur" 
  size -1 -1 240 70 
  option pixels 
  text "", 1, 10 10 222 16, center 
  button "&OK", 99, 80 40 75 25, default cancel 
} 

Tout n'est pas de moi, mais &#231;a m'a aid&#233; &#224; connaitre beaucoup de chose.
Je cherche encore &#224; utiliser mdx dans mes dialogs, &#231;a ne devrait pas tarder (enfin si j'y arrive).

Camanche

cs_PaDa · Answer

??

le rapport stp ?

PaDa

TooLoW · Answer

il veut nous montrer quoi la ? :D je cherchais juste a comprendre ce qui ne marchait pas ...

je laisse ta r&#233;ponse en suspen PaDa j'essayerai plus tard et je validerai si c juste :)


mopi ;)

TooLoW · Answer

loool eh bien toc je valide la tienne :) ! :p

tu peux mettre le morceau de code, rescript&#233; correctement stp ? (si ca te fais chier t'emmerde pas hein ;) )
merci 
mopi ;)

cs_PaDa · Answer

n'&#233;tant pas chez moi ce soir, j'ai pas le code sous la main :
j'ai fait un truc a la vol&#233;e qui fait la boucle sur les deux, je pense que ca fonctionne :

 if ($ini($ca,$server,0)) {
      var %x = 1 | var %s $server
      goto Autojoin
      :Autojoin      if (%x <$ini($ca,%s,0)) { var %k $readini($ca,%s,$ini($ca,%s,%x))
        join $ini($ca,$server,%x) $iif(%k != non,%k) | inc %x | goto Autojoin
      }
}
if ($ini($ca,$network,0)) && $network {
      var %x = 1 | var %s $network
      goto Autojoin
      :Autojoin      if (%x <$ini($ca,%s,0)) { var %k $readini($ca,%s,$ini($ca,%s,%x))
        join $ini($ca,$server,%x) $iif(%k != non,%k) | inc %x | goto Autojoin
      }
}

le goto est tr&#232;s laid, mais bon je cherche pas a modifier sans avoir mirc sous la main :))

PaDa

TooLoW · Answer

il est fantastique ce PaDa, meme pas chez lui qu'il aide encore les autres :D

je regarderai ca demain, la g le cervo en bouillie, jvai aller jouer a
un jeu de brute (CS) le seul truc auquel je r&#233;agisse encore lol

mopi ;)

Source qui marche ?

13 réponses

Votre réponse

Discussions similaires