demande d aide sur une remote

Question

voila j ai une remote mais elle foncitonne pu sur le server orange pour ver vou m aider a la rectifier svp ;===================================================================== Alias coach { if (!$1) { echo -a $timestamp Utilisation: /Coach <#Salon> } | else { sockclose coach. [ $+ [ $1 ] ] | sockopen coach. [ $+ [ $1 ] ] irc.voila.fr 80 } } dialog chaninfo { title $readini(Chaninfo\ $+ %chaninfo $+ .ini,info,nom) size 250 80 104 155 icon chaninfo\chaninfo.ico,0 option dbu list 1, 0 0 105 156, size button "x", 2, 194 123 37 12, ok } Alias -l mdx { return Chaninfo\mdx.dll } Alias -l views { return Chaninfo\views.mdx } Alias -l ic:d { did -i chaninfo 1 1 seticon normal $+(Chaninfo\,$1,.ico) } Alias showchannel { if ($dialog(chaninfo)) { dialog -x chaninfo } | dialog -m chaninfo chaninfo } on *:dialog:chaninfo:init:*:{ dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname dll $mdx SetControlMDX 1 treeview haslines hasbuttons linesatroot showsel > $views did -i $dname 1 1 iconsize normal small $ic:d(coach) | $ic:d(fondateur) | $ic:d(membre) | $ic:d(off) | $ic:d(on) | $ic:d(suspend) var %f = $+(Chaninfo\,%chaninfo,.ini) did -i $dname 1 1 cb root did -a $dname 1 +be 1 1 Coach ( $+ $ini(%f,coach,0) $+ ) | did -i $dname 1 1 cb last var %i = 1 | while (%i <= $ini(%f,coach,0)) { var %s = $readini(%f,coach,$ini(%f,coach,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,coach,%i),°°,[,šš,]) | inc %i } did -i $dname 1 1 cb up did -a $dname 1 +be 2 2 Fondateurs ( $+ $calc($ini(%f,fondatrice,0) + $ini(%f,fondateur,0)) $+ ) | did -i $dname 1 1 cb last var %i = 1 | while (%i <= $ini(%f,fondateur,0)) { var %s = $readini(%f,fondateur,$ini(%f,fondateur,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,fondateur,%i),°°,[,šš,]) | inc %i } var %i = 1 | while (%i <= $ini(%f,fondatrice,0)) { var %s = $readini(%f,fondateur,$ini(%f,fondatrice,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,fondatrice,%i),°°,[,šš,]) | inc %i } did -i $dname 1 1 cb up did -a $dname 1 +be 3 3 Membres ( $+ $ini(%f,membre,0) $+ ) | did -i $dname 1 1 cb last var %i = 1 | while (%i <= $ini(%f,membre,0)) { var %s = $readini(%f,membre,$ini(%f,membre,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,membre,%i),°°,[,šš,]) | inc %i } .remove %f | unset %a | unset %b | unset %check. [ $+ [ %chaninfo ] ] | unset %chaninfo } on *:sockopen:coach.*:{ var %coach $remove($gettok($sockname,2-,46),$chr(35)) , %x $+(onglet=home&searchMode=alpha&searchType=salon&submit=submit&fichier=search_result&accesskey="enter"&alphaValueSalon=,%coach,&display=yes) sockwrite -n $sockname POST /page.php HTTP/1.1 sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8 sockwrite -n $sockname Host: tchat.orange.fr sockwrite -n $sockname Content-Length: $len(%x) sockwrite -n $sockname User-Agent: m0zilla-w0rld sockwrite -n $sockname Connection: close sockwrite -n $sockname $crlf sockwrite -n $sockname %x } on *:sockread:coach.*:{ sockread %a var %coach = $remove($gettok($sockname,2-,46),$chr(35)) if (s">Pas de r isin %a) { echo -a 4***12 Le salon %coach n'a pas été trouvé... | sockclose $sockname | unset %a | halt } if ($+(alt=",%coach," title=",%coach,") isin %a) { set %tmp. [ $+ [ %coach ] ] 1 } if (%tmp. [ $+ [ %coach ] ]) && (index.php?onglet=salons&salon= isin %a) { set %coachfound 1 | sockopen coachinfo. [ $+ [ $remove($gettok(%a,5,61),&retour) ] ] tchat.orange.fr 80 | unset %tmp. [ $+ [ %coach ] ] | sockclose $sockname } } on *:sockclose:coach.*:if (!%coachfound) { echo -a 4***12 Le salon $gettok($sockname,2-,46) n'a pas été trouvé... | halt } on *:sockopen:coachinfo.*:{ unset %coachfound sockwrite -n $sockname get http://tchat.voila.fr/index.php?onglet=salons&salon= [ $+ [ $gettok($sockname,2-,46) ] ] $+ &retour=home sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8 sockwrite -n $sockname Host: tchat.orange.fr var %chan $gettok($sockname,2-,46) , %f $+(Chaninfo\,%chan,.ini) if ($isfile(%f)) { .remove %f } | sockwrite -n $sockname User-Agent: m0zilla-w0rld | unset %check. [ $+ [ %chan ] ] } on *:sockread:coachinfo.*:{ sockread %b var %coach $remove($gettok($sockname,2-,46),$chr(35)) , %f $+(Chaninfo\,%coach,.ini) if (Infos salon : isin %b) { writeini %f Info NOM $remove(%b,

Infos salon : ,/span> ,<) } if ( isin %b) { var %z = $remove(%b,,,$chr(9)) | set %tmp.nick. [ $+ [ %coach ] ] %z } if (%nxt. [ $+ [ %coach ] ] == 1) && (connec isin %b,Connecté,Déconnecté) | set %nxt. [ $+ [ %coach ] ] 2 | goto nxt } if (%nxt. [ $+ [ %coach ] ] == 2) && ( isin %b) || ( isin %b) { set %nxt. [ $+ [ %coach ] ] 1 | set %check. [ $+ [ %coach ] ] 1 } :nxt } on :sockclose:coachinfo.:var %chan $gettok($sockname,2-,46) , %f $+(Chaninfo\,%chan,.ini) | set %chaninfo %chan | showchannel on *:Load:{ echo -a $timestamp Addon Coach 0,7Orange chargé! | coach | echo -a 13mÕ?ï6ll13ä6¬13wÔrl6Ð13? 14® }

Zova · Answer

Au lieu de reprendre betement un code existant, tu ferai mieux d'apprendre le mIRC scripting car dans la vie on a rien sans rien.
De plus ce forum et fait pour l'entre-aide et non pas pour assister les gens.

.:]| z0va / Zova |[:.

AlPaCinO35 · Answer

merci Zova mais justement ou apprendre le mirc ?
de plus il existe plusieurs niveaux ici debutants a experts si on veut ke des experts ne me gardez pas je suis vraiment novice et non programmeur ( OUI un routier c'est con !)
sinon je recherche justement la liste et explication des codes mirc

Zova · Answer

Si tu souhaites apprendre tu as déjà quelques tutoriaux sur ce site, tu peux aussi en trouver sur scriptsdb.org et pour finir si tu as besoin d'une aide quelconque je t'invite à nous rejoindre sur irc.epiknet.org dans le salon #mIRC
Après le mIRC scripting s'apprends à force de pratique et de motivation ;)


.:]| z0va / Zova |[:.

Demande d aide sur une remote

3 réponses

Votre réponse

Discussions similaires