Advertisement
Guest User

Untitled

a guest
May 25th, 2017
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 0.82 KB | None | 0 0
  1. on *:START: {
  2.   hmake -s musiques 1000
  3.   hload musiques bdd.txt
  4. }
  5. on *:EXIT: {
  6.   hsave -o musiques bdd.txt
  7.   hfree -s musiques
  8. }
  9. on ^*:TEXT:*:#: {
  10.   if ($1 == !search) {
  11.     set %found $chr(32)
  12.     set %i 0
  13.     while (%i != 1000) {
  14.       set %hash $replace($hget(musiques,item- $+ [ %i ]),+,$chr(32))
  15.       if ($2- isin %hash) {
  16.         set %found %found $+ %hash (item %i $+ ),
  17.       }
  18.       set %i $calc(%i + 1)
  19.     }
  20.     set %found Item(s) trouvé(s) : %found
  21.     msg $chan $left(%found,$calc($len(%found) - 1))
  22.     msg $chan Tapez !get <numéro d'item> pour avoir un fichier.
  23.   }
  24.   elseif ($1 == !whatis) {
  25.     set %truc $replace($hget(musiques,item- $+ [ $2 ]),+,$chr(32))
  26.     if (%truc) { msg $chan L'élément $2- est : %truc }
  27.     else { msg $chan Elément $2- introuvable dans la base de données. }
  28.   }
  29. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement