Systeme de partage de fichier simple

Commenter

Contenu du snippet

Voici un petit systeme de partage de fichier extremement simple utilisant dcc
Je suis debutant en irc alors soyer gentil dans vos commentaires ;)

Les commandes sont les suivantes:
!search :Lister les fichier
!search xxx :Rechercher xxx
!file xxx :Downloader xxx
!aide :Afficher les commandes

Vous pouver taper !search dans la fenetre du channel mais pour downloder il faut etre en pv avec le user .Pour effectuer une recherche juste sur un user , envoyer la commande !search en pv

Vous pouver activer/desactiver le script.

Source / Exemple : 


copier/coller ce code dans remote ::

if %active == $null {
  set %active 1 
}

menu * {
  Activer le partage de fichier:set %active 1
  Desactiver le partage de fichier:set %active 0
}

on *:TEXT:!aide:*:{

  privmsg $nick 10 $+ Tapez !search pour afficher la liste des fichier disponible
  privmsg $nick 10 $+ Tapez !search 12 $+ <requete> 10 $+  pour effectuer une recherche
  privmsg $nick 10 $+ Tapez !file 12 $+ <fichier> 10 $+  pour telecharger le fichier
  close -cm $nick
}

on *:TEXT:!search*:*:{ 
  if %active != 0 {
    ;changer cette ligne pour verifier le rep
    set %dir c:\mp3    set %filter *
    set %inc 1
    set %noti 0
    set %total 0
    set %tmp $findfile(%dir,*. $+ %filter,%inc,2)
    while (%tmp != $null) {
      if ( %tmp != $null ) {
        if ( $2 isin %tmp) {
          if (%noti == 0 )             privmsg $nick  12--------------------------------------------------
          if (%noti == 0 )             privmsg $nick  12Recherche pour $2
          if (%noti == 0 )             unset %noti
          if (%noti == 0 )             set %noti 2
          privmsg $nick 12 $+ %inc : 10 $+ $remove(%tmp,%dir)
          inc %total
        }

        if ($2 == $null) {
          if (%noti == 0 )             privmsg $nick  12--------------------------------------------------
          if (%noti == 0 )             privmsg $nick  12Recherche pour $2
          if (%noti == 0 )             unset %noti
          if (%noti == 0 )             set %noti 2
          privmsg $nick 12 $+ %inc : 10 $+ $remove(%tmp,%dir)
          inc %total
        }

      }
      unset %tmp
      set %tmp $findfile(%dir,*. $+ %filter,%inc,2)  
      inc %inc
    }
    if ( %total > 1 ) privmsg $nick  12T10otal : 4 $+ %total fichiers
    if ( %total == 1 ) privmsg $nick  12T10otal : 4 $+ %total fichier
    unset %inc
  }
close -cm $nick
}

on *:TEXT:!file*:*:{
  if %active != 0 {
    set %tm %dir $+ $2
    dcc send $nick %tm
    close -cm $nick
  }
}

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_yoman64)