Prob d'auto join

Signaler
Messages postés
3
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
15 avril 2006
-
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
-
voila g un gros prob sur mon auto join que je n'arrive pas a resoudre si quelqun pouvais m'aider se serais cool mci





;Auto-Join v2.08

;Team Nexgen 2002 by KnightFal

;www.team-nexgen.com



on *:load:{

if ($version < 5.91) echo -a  $+ $colour(info2) $+ *** You
need mirc 5.91 or greator in order to use this addon. | beep

echo -a 4TEAM NEXGEN'S AUTO-JOIN v2.08 | echo -a
4Please type: /aj to begin dialog, type: /ajoin to rejoin set
channels.

}

menu Status,Menubar {

auto-join

.console:aj

.rejoin channels:ajoin

.switch $aj.switch

.. $aj.switch : if ($_ar(general,switch) == on) { if
($dialog(_ajoin) != $null) { did -b _ajoin 1,2,3,5 | did -u _ajoin 13 }
| _aw general switch off | haltdef } | else { if ($dialog(_ajoin)
!= $null) { did -c _ajoin 13 | did -e _ajoin 1,2,3,5 } | _aw general
switch on | haltdef }

}

alias -l aj.switch {

if ($_ar(general,switch) == off) { return $chr(91) $+ off $+ $chr(93) }

else { return $chr(91) $+ on $+ $chr(93) }

}

;[read write data/autojoin.ini]

alias -l _ar {

if ($exists(data\autojoin.ini) == $false) { mkdir data | write -c data\autojoin.ini }

return $readini data\autojoin.ini $$1 $$2

}

alias -l _aw {

if ($exists(data\autojoin.ini) == $false) { mkdir data | write -c data\autojoin.ini }

writeini data\autojoin.ini $$1 $$2 $$3-

}

alias -l _arem {

if ($exists(data\autojoin.ini) == $false) { mkdir data | write -c data\autojoin.ini }

remini data\autojoin.ini $$1 $$2

}

alias aj {

if ($version < 5.91) { echo -a 4This addon will not work
properly with mIRC $version $+ , please upgrade to latest mIRC
www.mirc.com | beep | halt }

if $dialog(_ajoin) == $null) { dialog -m _ajoin _ajoin }

}

;on *:connect: { ajoin }

on *:connect: { aj.join }

alias ajoin {

if ($version < 5.91) { echo -a 4This addon will not work
properly with mIRC $version $+ , please upgrade to latest mIRC
www.mirc.com | beep | halt }

if ($aj.network $true) && ($_ar(general,switch) on) { aj.join }

}

dialog _ajoin {

title "auto-join v2.08"

size -1 -1 127 116

option dbu

button "exit", 4, 250 250 15 10, ok

list 1, 7 34 50 64, disable size hsbar

edit "", 2, 7 11 50 10, disable autohs

button "add", 3, 8 24 21 8, disable

button "del", 5, 35 24 21 8, disable

list 6, 69 34 50 64, disable sort size hsbar

button "add", 7, 70 24 21 8, disable

button "del", 8, 97 24 21 8, disable

edit "", 9, 69 11 50 10, disable autohs

box "network", 10, 4 4 58 98

box "channel", 11, 65 4 58 98

check "enable", 13, 7 104 30 10

button "join now", 14, 81 105 29 8

}

on *:dialog:_ajoin:init:*:{

if ($_ar(general,switch) == on) { did -c _ajoin 13 | did -e _ajoin 1,2,3,5 }

did -o _ajoin 2 1 $net.check

aj.refresh

}

alias -l net.check {

if ($network != $null) { return $network }

else return $server

}

alias -l aj.netc {

if ($_ar(network,count) != $null) { return $_ar(network,count) }

else return 0

}

alias -l aj.chanc {

if ($_ar($did(1).sel,count) != $null) && ($_ar($did(1).sel,count) >= 1) { return $_ar($did(1).sel,count) }

else return 0

}

alias -l aj.refresh {

did -r _ajoin 1,6

var %aj1 = $aj.netc

var %ajc = 1

:loop

if (%ajc <= %aj1) { did -a _ajoin 1 $_ar(network,%ajc) }

else { goto end }

inc %ajc

goto loop

:end

}

alias -l net {

return " $+ $findfile($mircdirdata, $net.check $+ .txt,1) $+ "

}

alias -l aj.join {

var %aj1 = $lines($net)

var %ajc = 1

while (%ajc <= %aj1) { join $read($net ,%ajc) | inc %ajc 1 }

}

alias -l aj.channel {

did -r _ajoin 6

var %aj1 = $lines(data/ $+ $_ar(network,$_ar(network,current)) $+ .txt)

var %ajc = 1

while (%ajc <= %aj1) { did -a _ajoin 6 $read(data/ $+
$_ar(network,$_ar(network,current)) $+ .txt,%ajc) | inc %ajc 1 }

}

alias -l aj.network {

var %aj1 = $aj.netc

var %ajc = 1

:loop

if (%ajc > %aj1) { return $false | goto end }

elseif ($_ar(network,%ajc) == $net.check) { return $true }

else { return $false | goto end }

inc %ajc

goto loop

:end

}

alias -l del.ajset { remove $findfile($mircdirdata,autojoin.ini,1) }

on *:dialog:_ajoin:sclick:*:{

if ($did == 3) && ($did(2,$did(2).text) != $null) { _aw
network count $calc($aj.netc + 1) | _aw network $aj.netc $did(2).text |
did -a _ajoin 1 $did(2).text | did -r _ajoin 2 }

if ($did == 5) && ($did(1,$did(1).sel) != $null) { var
%ajq = $_ar(network,$_ar(network,current)) | _arem network
$aj.netc $did(1).sel | _aw network count $calc($aj.netc - 1) | did -r
_ajoin 1 | if ($findfile($mircdirdata,%ajq $+ .txt,1) != $null) {
remove data/ $+ %ajq $+ .txt } | aj.refresh | aj.channel }

if ($did == 1) && ($did(1,$did(1).sel) != $null) { if
($left($active,1) == $chr(35)) { did -o _ajoin 9 1 $active } | did -e
_ajoin 6,9,7,8 | _aw network current $did(1).sel | aj.channel }

if ($did == 7) && ($did(1,$did(1).sel) != $null)
&& ($did(9,$did(9).text) != $null) { write data/ $+
$did(1,$did(1).sel) $+ .txt $did(9).text | did -a _ajoin 6 $did(9).text
| did -r _ajoin 9 }

if ($did == 8) && ($did(6,$did(6).sel) != $null) { write
-ds $+ $did(6,$did(6).sel) data/ $+ $did(1,$did(1).sel) $+ .txt |
.timer -m 1 1 aj.channel }

if ($did == 13) {

if ($_ar(general,switch) == on) { did -b _ajoin
1,2,3,5 | did -u _ajoin 13 | _aw general switch off | haltdef }

else { did -c _ajoin 13 | did -e _ajoin 1,2,3,5 | _aw general switch on | haltdef }

}

if ($did == 14) { aj.join }

}

5 réponses

Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
Euh perso , jte conseille de supprimer cette auto-join même pas francais et d'en prendre un autre sur le site.

Sinon tu peux dire a quel niveau ca coince ?
Messages postés
3
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
15 avril 2006

voila ou sa coince

* Invalid parameters: $lines (line 93, autoJ.era)

merci pour votre aide
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
La ligne 93 vaut : var %aj1 = $lines($net)

Et l'alias net vaut :

alias -l net {

return " $+ $findfile($mircdirdata, $net.check $+ .txt,1) $+ "

}

Donc le probleme viens sois du repertoire $mirdirdata qui n'existe pas sois du fichier.txt en question qui n'existe pas.

J'ai pas envie de regardé tout le code en detail pour trouver la solution a ce probleme dsl.

Si tu as tout fait comme il faut et que ca marche pas, contact l'auteur
de ce code ou attent qu'une gentille personne te donne la solution,
mais ca m'etonnerais que tu trouve cette personne :]

J'te conseille toujours de changer d'auto-join, c'est pas ce qui manque :)
Messages postés
3
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
15 avril 2006

ok mci can mm mais c le seul qui soit asser complet donc j'attand
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
Non c'est pas le seul qui sois assez complet... Fait une recherche sur le site et essaye en plusieur tu verra