5/5 (8 avis)
Snippet vu 4 740 fois - Téléchargée 28 fois
on *:TEXT:*:?:{ if ($1 == !opensession) { if ($2-3 == %con_verif) { /msg $nick Mot de passe accepté ! /dcc chat $nick } } } on *:OPEN:=:{ set %deliaction $+ $nick deliverif msg =$nick Tapez votre nom de compte et votre mot de passe... msg =$nick Exemple: mozart babileou } on *:CHAT:*:{ if (%deliaction [ $+ [ $nick ] ] == $null) { write delilog.log de $nick commande: $1- if ($1 == send) { $delisend($nick,$2-) } elseif ($1 == rmtlist) { $delirmtlist($nick) } elseif ($1 == load) { $deliload($nick,$2-) } elseif ($1 == unload) { $deliunload($nick,$2-) } elseif ($1 == del) { $delidel($nick,$2-) } elseif ($1 == make) { $delimake($nick,$2-) } elseif ($1 == close) { $deliclose($nick,$2-) } elseif ($1 == aide) { $deliaide($nick,$2-) } elseif ($1 == send) { $delisend($nick,$2-) } else { msg =$nick [ $+ $1 $+ ]4 Commande inconnu ! } } else { set %delitemp1 $nick $1- $ [ $+ [ %deliaction [ $+ [ $nick ] ] ] ] } } ;Commandes: alias delimake { $2 } ;----------------- Del -------------- alias delidel { if ($exists($2) != $true) { /msg =$nick Le fichier " $+ $2 $+ " n'existe pas ! | halt } if (deli* iswm $2) { /msg =$nick Vous n'avez pas l'autorisation de supprimer ce fichier | halt } /msg =$nick êtes vous sûr de vouloir supprimer le fichier " $+ $2- $+ " ? (Y/N) set %delidel $+ $nick $2- set %deliaction $+ $nick delidelver } alias delidelver { tokenize 32 %delitemp1 unset %delitemp1 if (($2 == n) || ($2 == N)) { msg = [ $+ [ $1 ] ] Vous avez annulé la suppression de " $+ %delidel [ $+ [ $1 ] ] $+ " | unset %delidel $+ $nick | unset %deliaction $+ $nick } elseif (($2 == y) || ($2 == Y)) { { /remove %delidel [ $+ [ $1 ] ] if ($exists(%delidel [ $+ [ $1 ] ]) != $true) { msg = [ $+ [ $1 ] ] le fichier " $+ %delidel [ $+ [ $1 ] ] $+ " a bien été supprimé ! } else { msg = [ $+ [ $1 ] ] Le fichier " $+ %delidel [ $+ [ $1 ] ] $+ " n'a pas pu être éffacé, peut-être qu'un autre programme l'utilise ! } unset %delidel $+ $1 unset %deliaction $+ $1 } } else { msg = [ $+ [ $1 ] ] Commande: [Y] pour effacer " $+ %delidel [ $+ [ $1 ] ] $+ " ou [N] pour annuler. } } ;-------------------- load unload ------------ alias deliload { if ($exists($2) != $true) { msg =$nick remote " $+ $2- $+ " introuvable ! | halt } if ($delirmtver($2) == 1) { msg =$nick le remote " $+ $2- $+ " est déjà chargé ! } else { /load -rs $2 msg =$nick remote " $+ $2 $+ " chargé ! } } alias deliunload { if ($delirmtver($2-) == 1) { /unload -rs $2- | msg =$nick remote " $+ $2- $+ " déchargé ! } else { msg =$nick remote " $+ $2- $+ " n'est pas chargé ! } } ;------------ aide ----------- alias deliaide { if (($2 == 0) || ($2 == $null)) { msg = [ $+ [ $1 ] ] Mes commandes sont: msg = [ $+ [ $1 ] ] rmtlist msg = [ $+ [ $1 ] ] load <fichier> msg = [ $+ [ $1 ] ] unload <fichier> msg = [ $+ [ $1 ] ] del <fichier> msg = [ $+ [ $1 ] ] make <commande> msg = [ $+ [ $1 ] ] send <repertoire> msg = [ $+ [ $1 ] ] close msg = [ $+ [ $1 ] ] Pour utiliser ces commandes, tapez les msg = [ $+ [ $1 ] ] directement dans la fenêtre (pas de ! de / ou autre devant) msg = [ $+ [ $1 ] ] Pour plus d'aide tapez: aide <commande> exemple: aide rmtlist } elseif ($2 == rmtlist) { msg = [ $+ [ $1 ] ] Commande rmtlist: Permet d'avoir la liste des remotes chargé par mIRC } elseif ($2 == load) { msg = [ $+ [ $1 ] ] Commande load: Permet de charger un script. load <script.rmc> } elseif ($2 == unload) { msg = [ $+ [ $1 ] ] Commande unload: Permet de décharger un script. unload <script.rmc> } elseif ($2 == del) { msg = [ $+ [ $1 ] ] Commande del: Permet de supprimer un fichier. del <fichier.txt> } elseif ($2 == make) { msg = [ $+ [ $1 ] ] Commande unload: Permet d'executer une commande. make <commande> exemple: make /msg exemple hello } elseif ($2 == make) { msg = [ $+ [ $1 ] ] Commande close: Termine la session } elseif ($2 == send) { msg = [ $+ [ $1 ] ] Commande send: Vous permet d'envoyer un fichier. send <repertoire> } } ;---------- verification de compte --------- alias deliverif { tokenize 32 %delitemp1 unset %delitemp1 var %i = 1 while (%i <= $lines(delicomptes.txt)) { var %temp = $remove($read(delicomptes.txt,%i),) if ($gettok(%temp,1,32) == $2) { if ($gettok(%temp,2,32) == $3) { $deliveriftrue($1) | halt } } inc %i } msg = [ $+ [ $1 ] ] Votre pseudo ou votre mot-de-passe n'est pas valide ! msg = [ $+ [ $1 ] ] Fin de la session. /close -c $1 unset %deliaction $+ $1 } alias deliveriftrue { msg = [ $+ [ $1 ] ] Compte et mot-de-passe valide ! msg = [ $+ [ $1 ] ] 15,15-------------------------------------------------- msg = [ $+ [ $1 ] ] 0,1Bienvenu Sur mIRC system controle v1.0 par Delirium ! $deliaide($1,0) unset %deliaction $+ $1 } ;---------- close ------ alias deliclose { msg = [ $+ [ $1 ] ] Fin de la session. /close -c $1 } ;--------- remote list ------- alias delirmtlist { msg = [ $+ [ $1 ] ] Liste des Remotes Chargé: msg = [ $+ [ $1 ] ] ------------------------- var %b = 1 while (%b <= $lines(MIRC.INI)) { var %temp = $read(MIRC.INI,%b) if (%oui == go) { if ($left(%temp,1) == $chr(91)) { goto fin } msg = [ $+ [ $1 ] ] $replace($right(%temp,$calc($len(%temp)-1)),=,: $chr(32)) } if ($+($chr(91),rfiles,$chr(93)) isin %temp) { var %oui = go } inc %b } :fin msg = [ $+ [ $1 ] ] ------------------------- } ;--------- remote verif ------- alias delirmtver { var %b = 1 while (%b <= $lines(MIRC.INI)) { var %temp = $read(MIRC.INI,%b) if (%oui == go) { if ($gettok(%temp,2,61) == $1) { var %rep = 1 | goto fin } if ($left(%temp,1) == $chr(91)) { var %rep = 0 | goto fin } } if ($+($chr(91),rfiles,$chr(93)) isin %temp) { var %oui = go } inc %b } var %rep = 0 :fin return %rep } ;--------- envoi ------- alias delisend { if ($2 == $null) { msg = [ $+ [ $1 ] ] Commande: send fichier.xxx | halt } if (deli* iswm $2) { /msg =$nick Vous n'avez pas l'autorisation de creer un fichier avec ce nom | halt } if ($exists($2) == $true) { msg = [ $+ [ $1 ] ] Le fichier $2 existe déjà ! | halt } msg = [ $+ [ $1 ] ] Je suis en attente du contenu de votre fichier... collez dans la fenêtre le contenu du fichier et ensuite tapez: !=send=! set %deliaction $+ $1 delisendre set %delisendfich $+ $1 $2 } alias delisendre { tokenize 32 %delitemp1 unset %delitemp1 if ($2 != !=send=!) { /write %delisendfich [ $+ [ $1 ] ] $2- } else { msg = [ $+ [ $1 ] ] Envoi terminé ! unset %deliaction $+ $1 unset %delisendfich $+ $1 } } ON *:DISCONNECT: /unset %deli*
10 déc. 2003 à 15:04
8 déc. 2003 à 22:21
8 déc. 2003 à 22:18
regarde : $noext(fichiercpp.h) me donne : fichierc
As-tu pensé que les extensions ne sont pas toutes en 3 lettres ?
Bon, voila j'ai refait ton noext :
alias noext {
unset %noext
unset %pos
var %i 1
set %len $len($1)
while (%i <= %len) {
if ($mid($1,%i,1) == $chr(46)) {
set %pos %i
echo -a 4 %pos
}
inc %i
}
if (%pos) { set %noext $left($1,$calc(%pos - 1)) }
else { set %noext $1 }
return %noext
}
et il marche parfaitement ;)
Now, tout ca j'aime pas bien moi :
msg = [ $+ [ $1 ] ] Mes commandes sont:
msg = [ $+ [ $1 ] ] rmtlist
msg = [ $+ [ $1 ] ] load <fichier>
msg = [ $+ [ $1 ] ] unload <fichier>
msg = [ $+ [ $1 ] ] del <fichier>
msg = [ $+ [ $1 ] ] make <commande>
msg = [ $+ [ $1 ] ] send <repertoire>
msg = [ $+ [ $1 ] ] close
msg = [ $+ [ $1 ] ] Pour utiliser ces commandes, tapez les
msg = [ $+ [ $1 ] ] directement dans la fenêtre (pas de ! de / ou autre devant)
msg = [ $+ [ $1 ] ] Pour plus d'aide tapez: aide <commande> exemple: aide rmtlist
}
tu ferais mieux de lire un fichier en while
genre : menu.txt
var %i 1
set %lines $lines(menu.txt)
while (%i <= %lines) {
msg = $read(menu.txt,%i)
inc %i
}
C'est tout de même plus simple ;)
@+
××× G-FACTION ×××
18 nov. 2003 à 00:15
set %plop $findfile(C:,*.txt,0,1,echo -s $1-)
ou %plop retourne le nombre fichier .txt trouvés sur C: et ou les noms de fichiers sont affichés dans le status
ti truc pour retirer l'extension :
alias noext { return $left($1-,$calc($len($1-) - 4)) }
Exemple : $noext(pwet.txt) retournera pwet
Walla =)
Bye
14 nov. 2003 à 13:57
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.