1. Accueil
  2. IRC
  3. Sources IRC
  4. Sources AddOns
  5. Worlddmt fun wbar v 1.0 - addon pour bot fun

Worlddmt fun wbar v 1.0 - addon pour bot fun

Soyez le premier à donner votre avis sur cette source.

Vue 4 848 fois - Téléchargée 176 fois

Télécharger le projet
Commenter

Description

WorldDMT Fun wBAR V 1.0
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
selon la capture que vous voyez, cet Addon vous permet de faire un bar sur chan et configurable
donc sans aucun fichier qui vous attache a vous de mettre ce qui vous plais

1.le menu
¯¯¯¯¯
La commande pour afficher le menu du wBAR est !menubar

Quand un utilisateur tape !menu sur le chan la liste des commandes défilera l’une après l’autre


2.Ajout de commandes
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vous trouverez dans le dialog trois cases vides
La première est réservée a la commande exp: !coca, !beer, etc.
La deuxième est réservée au message qui suit le pseudo qui écrit la commande
La troisième qui est facultative est réservée au message qui suit le second pseudo
Ensuite vous appuyez sur le bouton Ajouter à gauche

Le format est : <pseudo1> (premier message) <pseudo2> (deuxième message)

Exp :
si en ajoutant une commande qui est par exemple !coca
Premier message = offre un coca à
Deuxième message = avec glaçon

Si sur le chan un utilisateur écrit la commande suivit d’un pseudo par exemple

DouDou : !coca RouRou

Le bot écrit : DouDou offre un coca à RouRou avec glaçon

Au cas qu’il écrit la commande sans pseudo qui suit

DouDou : !coca

Le bot écrit : <le pseudo du bot> offre un coca à DouDou avec glaçon

3.Aperçu et suppression de commandes
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vous trouverez dans le dialog un combo list dans un cadre « Aperçu »
La commande sélectionnée apparaitra dans la case juste à coté pour voir ce que ça donne
Sous l e format est : <pseudo1> (premier message) <pseudo2> (deuxième message)
Si vous souhaité supprimé, vous appuyez sur le bouton Supprimer à droite

Amusez vous ;)

Source / Exemple : 


menu status,nicklist,menubar,chan {
  -
  wBAR V1.0
  .Configurer:wbar
  .Désinstaller:dwbar
}
alias introwbar if (!$dialog(introwbar)) dialog -mo introwbar introwbar
alias dwbar if (!$dialog(dwbar)) dialog -ma dwbar dwbar
alias wbar $iif($dialog(wbar),dialog -v wbar,dialog -m wbar wbar)
alias position return $iif($read(worlddmtfun/commandes,w,$+(*,$1*)),$readn)
dialog wbar {
  title WorldDMT Fun wBAR
  size -1 -1 576 206
  option pixels
  box Aperçu, 1, 2 79 572 41
  edit , 2, 108 94 400 20, read
  combo 3, 6 94 100 70, drop
  edit , 4, 6 142 100 20
  edit , 5, 108 142 202 20
  edit , 6, 310 142 200 20
  text Commande, 7, 6 126 100 16, center
  text le texte qui suit votre pseudo, 8, 108 126 200 16, center
  text le texte qui suit le pseudo cite, 9, 310 126 200 16, center
  box , 10, 2 116 572 52
  button Ajouter, 11, 512 141 56 20
  button Suprimer, 12, 512 93 56 20
  text wBAR Status, 13, 8 48 82 16
  text Besoin d'aide?, 14, 8 63 75 16
  check OFF, 15, 85 47 42 16
  link Aide, 16, 85 62 42 16
  icon 17, 141 4 430 75, bar.jpg, 0 noborder
  icon 18, 2 4 140 40, bar2.jpg, 0 noborder
  icon 19, 2 166 572 40, bar3.jpg, 0 noborder
}
dialog dwbar {
  title Désinstaller wBAR V 1.0
  size -1 -1 150 40
  option dbu
  box ATTENTION!!, 1, 1 2 148 37
  text Cette action supprime l?addon wBAR V1.0 voulez-vous désinstallé wBAR ?, 2, 12 9 125 24, Center
  button Oui, 3, 45 25 30 12, ok
  button Non, 4, 75 25 30 12, cancel
}
dialog introwbar {
  title WorldDMT Fun wBAR V1.0
  size -1 -1 154 84
  option dbu
  text WorldDMT wBAR V 1.0, 1, 2 2 65 8
  text Bravo!!, 2, 5 15 50 8
  text Chargement de l'addon wBAR V 1.0 réusit, 3, 4 25 113 8
  text vous trouverez dans les menus le mot wBAR V 1.0 avec  un submenu qui contient ''configurer'' et ''desinstaller''. Cliquez sur configurer pour la configuration et desinstaller pour la desinstallation de l'addon, 4, 5 33 138 28
  text NB: a la fermeture de cette fenetre wBAR va s'ouvrire pour effectuer les premieres configurations, 5, 4 64 146 15
  box , 6, 3 10 147 1
}
on *:dialog:introwbar:close:*:wbar
on *:dialog:dwbar:sclick:3: {
  unset %wbar
  echo -ae  - Désinstallation de l'Addon terminé avec succes
  echo -ae  - merci d'avoir utilisé wBAR V1.0
  echo -ae  - WorldDMT
  remove worlddmtfun/commandes
  if ($exists(worlddmtfun/wbar.data)) remove worlddmtfun/wbar.data
  unload -rs worlddmtfun/wbar
}
on *:dialog:wbar:*:*:{
  if ($devent == sclick) {
    set %wbar $did(15).state
    did -ra $dname 15 $iif($v1,ON,OFF)
    if ($did == 3) {
      did -ra $dname 2 <pseudo1> $gettok($readini(worlddmtfun/wbar.data,com,$did(3)),2,149) <pseudo2> $gettok($readini(worlddmtfun/wbar.data,com,$did(3)),3,149)
    }
    if ($did == 16) run worlddmtfun\guide.txt
    if ($did == 11) {
      did -ra $dname 7 Commande
      did -ra $dname 8 le texte qui suit votre pseudo
      if $did(4) {
        if $did(5) {
          if ($did(4) != $gettok($readini(worlddmtfun/wbar.data,com,$did(4)),1,149)) {
            writeini worlddmtfun/wbar.data com $did(4) $did(4) $+ $chr(149) $+ $did(5) $+ $chr(149) $+ $did(6)
            write worlddmtfun/commandes $did(4)
            did -r $dname 2,3,4,5,6
            loadbuf -o $dname 3 worlddmtfun/commandes
          }
          else {
            did -ra $dname 7 Ce mot existe*
            did -c $dname 3  $position($did(4))
            did -ra $dname 2 <pseudo1> $gettok($readini(worlddmtfun/wbar.data,com,$did(3)),2,149) <pseudo2> $gettok($readini(worlddmtfun/wbar.data,com,$did(3)),3,149)
          }
        }
        else did -ra $dname 8 Chan obligatoire*
      }
      else did -ra $dname 7 Chan obligatoire*
    }
    if ($did == 12) {
      if ($did(3).sel) {
        remini worlddmtfun/wbar.data com $did(3)
        write -ds $+ $did(3) worlddmtfun/commandes
        did -r $dname 2,3
        loadbuf -o $dname 3 worlddmtfun/commandes
      }
    }
  }
  if ($devent == init) {
    if (%wbar) { did -c $dname 15 | did -ra $dname 15 ON }
    loadbuf -o $dname 3 worlddmtfun/commandes
  }
}
on *:load:introwbar | write worlddmtfun/commandes
on *:text:*:#: {
  tokenize 149 $strip($1) $+ ? $+ $strip($nick) ? $+ $strip(!menubar) $+ ? $+ $readini(worlddmtfun/wbar.data,com,$strip($1)) $+ ? $+ $strip($2)
  if (%wbar) {
    if ($1 == $4) {
      if ($7 != $null) {
        msg # $2 $5 $7 $6
        ignore -u1 *!*@*
      }
      else {
        msg # $me $5 $2 $6
        ignore -u1 *!*@*
      }
    }
    elseif ($1 == $3) {
      ignore -u3 *!*@*
      msg # ~ le menu du BAR ~
      play # worlddmtfun/commandes
    }
  }
}

Conclusion :


Téléchargez le zip vous trouverez un dossier WorldDMTfun, mettez le dans le dossier du mIRC que vous voulez utilisé

ensuite tapez dans votre mIRC /load -rs worlddmtfun/wbar

NB: "worlddmtfun/wbar" simple n'ajoutez pas .txt, .ini, .mrc ou autre copier coller sera mieu.

vous trouverez dans les menus (status,nicklist,menubar,chan) le mot wBAR V 1.0 avec un submenu qui contient "configurer" et "desinstaller".
Cliquez sur configurer pour la configuration et desinstaller pour la desinstallation de l'addon
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
4 août 2008 à 21:26
Bon personnelement c'est pas le genre de code qui me sera utile, mais je vais parlé du code :) :

Plutot que de n'ouvrir les dialog que s'ils ne sont pas ouvert, tu devrais soit l'ouvrir s'il n'existe pas, soit le rendre visible.

Dans l'alias position, tu fait une boucle sur chaque ligne d'un fichier pour voir si la ligne correspond a un truc de ton dialog ($did(4)), cette methode est ultra mauvaise, $read permet déja de faire ça, accompagné de $readn :

alias position return $iif($read(worlddmtfun/commandes,w,$+(*,$1*)),$readn)

j'ai mis $1 car ds le code tu apelle l'alias comme ça $position($did(4)).Et dailleur fait attention, la syntaxe de $did est $did(nom,id), le nom du dialog p-e être omis si tu est dans un evenement on dialog, ou toute routine étant apellé depuis un evenement on dialog, mais ça peut jouer des tours donc fait gaffe.

Met des . sur tes /removes, lors de la desinstallation et tu set des variables avec le dialog, tu ne les effaces aps celle là? Tu pourrais également fermé le/les dialog.

# on *:dialog:wbar:*:*:{
# if ($devent == sclick) {
# set %wbar $did(15).state

C'est bizarre, tu ne fait pas un cas a part pour le check 15, parce que tu utilise direct cette variable globale après.En tout cas :
if (%wbar) did -ra $dname 15 ON | else did -ra $dname 15 OFF
devient
if (%wbar) did -ra $dname 15 $iif($v1,ON,OFF)

En fait, tu utilise $position dans un /did -c, mais cela ne sert a rien, le did -c ne prend pas de parametre supplémentaire a part les Id, donc je vois pas bien l'utilité du $position.

Souvent dans ton code tu répète des $+, tu pourrais mettre u n $+().Idem que le $+, tu utilise souvent $gettok(machin,N,159) pense a utilisé /tokenize pour avoir tout ce que tu veux sous forme de $1 $2 etc... beaucoup plus lisible

Ici :
if (%wbar) { did -c $dname 15 | did -ra $dname 15 ON }
deviens
if (%wbar) { did -cra $dname 15 ON }

Lol ici :
var %t $remove($1,,,,,,$chr(44),1,2,3,4,5,6,7,8,9,0),%n $remove($2,,,,,,$chr(44),1,2,3,4,5,6,7,8,9,0),%m $remove($nick,,,,,,$chr(44),1,2,3,4,5,6,7,8,9,0)

Apparement tu essayes de faire un $strip, mais c'est faux car tu peux supprimé des chiffres qui ne sont pas partis d'un control + k, utilise $strip donc. A noté également que $nick ne peut pas contenir les controls code mais la même remarque s'applique

Et pour finir je trouve les ignore bien restrictif, mais c'est p-e normal, voila, essaye de changé ça :]
WorldDMT Messages postés 871 Date d'inscription jeudi 6 juillet 2006 Statut Membre Dernière intervention 6 janvier 2012 1
4 août 2008 à 22:15
salut
tout d'abor j'attendais ce jare de commentaires qui m'ont tjr aidé a m'amelioré je te remerci encore une fois bro de bien avoir eus le temp de lire mon code :)

bon pour le $did(name,id) je connais cette syntaxe mais je n'ai qu'un seul dialog alors inutil de faire $did(wbar,4).

l'alias position je l'utilise rien que pour un seul $did c'est pk j'ai pas precisé $did(4) ça marche tjr si je ne me trompe pas mais t'a bien raison d'utilisé $1

"En fait, tu utilise $position dans un /did -c, mais cela ne sert a rien, le did -c ne prend pas de parametre supplémentaire a part les Id, donc je vois pas bien l'utilité du $position."

ici tu comprendra plus pk j'ai fais did -c $position($did(4)) si tu essaye le code chez toi

lors qu'on met dans l'id 4 qui est l'edit la ou on met la "commande" par exp !coca si ce mot !coca existe dejà alors l'alias position renvoi le numero du mot dans $did(4) pour que le combo "id 3" coche automatiquement le mot et comme ça tu verra que le mot existe avec la suite alors soit tu suprime soi tu change de mot dans la case "id 4"

pour "if (%wbar) { did -cra $dname 15 ON }" ça marche pas j'avais essayé de le faire je n'ai pas testé si sur autre version que 6.21 peut allé mais quand on ouvre le dialog le -c ne coche pas l'id

pareil pour "if (%wbar) did -ra $dname 15 $iif($v1,ON,OFF)" ça marche pas!!

peut etre mon code ne te dis rien mais essaye de bien regardé et de tester avant de me donné de fausse idée bro

pour le $strip c'est ce que je cherchais a faire :/ mais ce jour ça ne marchait pas parceque j'avais fais une betise en ecrivant $script($1-) :/

pour les pseudos il y a des scripts que quand tu tape le pseudo de quelqun ça s'affiche en couleur alors ça risque des prob c'est juste ce que j'ai pensé quoi

pour le check j'ai pas trop compris ce que tu voulais dire tu peu m'expliqué encore plus stp?
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
5 août 2008 à 03:48
Je te donne pas de fausse idée mdr :

bon pour le $did(name,id) je connais cette syntaxe mais je n'ai qu'un seul dialog alors inutil de faire $did(wbar,4).

Genre là, ça me fait bien rire, tu sous entend que la syntaxe permise varie selon le nombre de dialog.Quand tu utilise $did, tu doit spécifier le nom du dialog si la routine (là ou sa se situe dans un script) ou tu apelle ce $did n'est pas dans un evenement on dialog.Toi, tu apelle l'alias position a l'interieur d'un evenement on dialog, donc ça passe, c'est pour ça que je te disais juste de faire attention parce que si t'es pas dans une routine qui a la base par pas d'un on dialog, mirc il sait pas de quel dialog tu parles, même si le nombre de dialog ouvert est 1.

l'alias position je l'utilise rien que pour un seul $did c'est pk j'ai pas precisé $did(4) ça marche tjr si je ne me trompe pas mais t'a bien raison d'utilisé $1

Là, c'est ambigu ce que tu dis (le manque de ponctuation encore, n'aide pas).Mais effectivement, si l'alias n'est utilisé que pour un seul ID, $1 ou $did(4) font l'affaire ($1 est moins long a écrire, et ça ira plus vite.)

Par contre pour le did -c, tu as raison, je ne connaissais simplement pas cet usage ^^

le did -cra qui marche pas est un bug selon moi, je vais voir ça (effectivement ça ne marche pas)

J'ai fait une faute, dsl c'est :
did -ra $dname 15 $iif($v1,ON,OFF)
au lieu de
if (%wbar) did -ra $dname 15 $iif($v1,ON,OFF)

Utilise $strip, mdr.

pour le check j'ai pas trop compris ce que tu voulais dire tu peu m'expliqué encore plus stp?

Quel check ? si c'est le 15, je disais juste que ta methode étais bizarre, c'est tout =/
WorldDMT Messages postés 871 Date d'inscription jeudi 6 juillet 2006 Statut Membre Dernière intervention 6 janvier 2012 1
5 août 2008 à 10:31
salut
"Genre là, ça me fait bien rire, tu sous entend que la syntaxe permise varie selon le nombre de dialog"
je te fais rire :) j'ai pas dis qu'elle varie mais puisque l'effet qu'elle fait est relative a un dialog ouvert et il n'y a pas d'action sur d'autre dialog peut etre je m'exprime pas bien mais aussi quand on utilise $dname au lieu du nom meme c'est a peu pret pareil :) et ça ne gene pas ici et le code fonctionne.

exp: si un bouton (id 1) est dans un dialog nomé "X" en appuyant il fait une action sur un autre dialog nomé "Y"

on *:dialog:X:*:*:{
if ($devent == sclick) {
if ($did == 1) {
did -ra Y 1 text ; ici j'ai pas mis $dname car $dname = X alors faut precisé
write fichier.txt $did(Y,2) ; ici j'ai précisé que c'est le id 2 du dialog Y
}
}

"Quel check ? si c'est le 15, je disais juste que ta methode étais bizarre, c'est tout =/"

a ton avis tu trouve plusieurs check pour posé une tel question? :)

quand tu click ça set $did(15).state

> soit state 1 soit state = 0 ce que j'avais parlé avec PADA dernierement

if (%var) {
state = 1 return $true
state = 0 return $false

si tu vois dans l'evenement on TEXT il y a "if (%wbar)" pour controlé le status ON ou OFF

mais reston dans les choses utile plutot

tu m'a parlé de tokenize je ne sais pas trop comment le faire

tokenize 149 $readini(worlddmtfun/wbar.data,com,$strip($1))

$1 = $gettok($readini(worlddmtfun/wbar.data,com,$strip($1)),1,149))
$2 = $gettok($readini(worlddmtfun/wbar.data,com,$strip($1)),2,149))

mais le pseudo et le 2eme pseudo seront quoi?

tu peu m'expliqué cmt ça marche stp?
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
5 août 2008 à 19:01
Tu comprend pas vraiment ce que j'ai voulu dire sur le $did, c'est assez chiant.Je constatais simplement que tu utilisais $did sans spécifié le nom dialog du dialog dans une routine autre que celle d'un on dialog.Le fait que ça marche est, comme je l'ai expliqué plus haut, parce que l'alias position est apellé depuis l'evenement on dialog.

""Quel check ? si c'est le 15, je disais juste que ta methode étais bizarre, c'est tout =/"

a ton avis tu trouve plusieurs check pour posé une tel question? :)

quand tu click ça set $did(15).state

> soit state 1 soit state = 0 ce que j'avais parlé avec PADA dernierement

if (%var) {
state = 1 return $true
state = 0 return $false

si tu vois dans l'evenement on TEXT il y a "if (%wbar)" pour controlé le status ON ou OFF
"

Mdr, j'ai déja très bien compris tout ça, c'est toi qui as mal compris encore une fois, je te dis juste que dans mon ancien commentaire j'ai fait une faute,s'pour ça que tu me disais que ça marchais pas :

Dans code il y a ça :
if (%wbar) did -ra $dname 15 ON | else did -ra $dname 15 OFF

On le traduit littéralement par :
SI %wbar est différent de $null, $false ou 0, alors on efface le texte de l'id 15 et on met a la place ON
Sinon, on efface le texte de l'id 15 et on lui met OFF a la place.

J'fais exprès de bien détaillé pour que tu comprennes bien que ça se répète beaucoup tout ça, et donc que tu peux l'écrire :

did -ra $dname 15 $iif(%wbar,ON,OFF)
que l'on traduit littéralement par :
On efface le texte de l'id 15 et l'on le change par On ou Off selon la valeur de %wbar.

De manière général tu crois que ce que je dis est inutile parce que tu les comprend pas...
Pour le tokenize, tu as l'air de bien avoir compris, c'est moi qui n'est pas compris ce que tu dis avec ton "pseudo et deuxieme pseudo"
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 (WorldDMT)