Access irix

Soyez le premier à donner votre avis sur cette source.

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

Description

Cet add-ons n'est utile que pour Wanadoo/Voila.
Quand on tape !access * ou !access ? ca ouvre un dialog avec
tout les access que IriX trouvent, cela permet de voir tout les mask,pseudo, info, etc... dans un dialog.
Inutile de dire qu'il faut un access pour s'en servir.

Source / Exemple :


dialog irix {
  title "Access IriX"
  size -1 -1 494 312
  option pixels
  list 1, 20 29 184 259, size vsbar center
  box "Liste des accesseurs", 2, 10 8 205 289
  box "Information sur le salon", 3, 219 8 270 62
  text "Nom du salon :", 4, 224 28 75 16
  text "", 5, 299 28 140 16
  text "Nombres total d'access :", 6, 225 46 121 16
  text "", 7, 349 46 100 16
  text "Idnick :", 9, 230 93 37 16
  text "", 10, 269 93 188 16
  text "Level d'access :", 11, 230 114 78 16
  box "Information sur l'accesseur", 12, 220 71 270 202
  text "", 13, 310 114 148 16
  text "Auto-OP :", 14, 231 135 51 16
  text "Protect :", 15, 339 135 45 16
  text "", 16, 282 135 50 16
  text "", 17, 383 135 50 16
  text "Suspend :", 18, 230 156 51 16
  text "", 19, 281 156 54 16
  text "Seen :", 20, 230 177 35 16
  text "", 21, 266 177 216 16
  text "Masks :", 22, 231 198 39 16
  combo 23, 274 196 210 100, size drop
  text "Infoline", 24, 306 226 84 16, center
  edit "", 25, 224 244 258 21,read,autohs
  button "Quitter", 26, 372 281 105 25, ok flat
  combo 27, 230 281 125 75, size  drop
}
on 1:dialog:irix:init:0:{ 
  did -a irix 27 Mailler Nazario
  did -a irix 27 Forum
}
on 1:dialog:irix:sclick:27:{
  if ( $did(irix,27).sel == 1 ) { run mailto:NazarioBoSs@Hotmail.com?subject=Ton add-ons sur IriX }
  if ( $did(irix,27).sel == 2 ) { run http://perso.wanadoo.fr/nazario }
}
on *:input:#:{
  if ($1- == !access *) { unset %access* | set %access.chan $chan | set %access.nb 0 | .enable #access | echo -a 4Récupération de la liste d'access en cours de %access.chan }
  if ($1- == !access ?) { unset %access* | set %access.chan $chan | set %access.nb 0 | .enable #access | echo -a 4Récupération de la liste d'access en cours de %access.chan }
}
#access off
on *:notice:*:*:{
  if $nick == Irix {
    var %text = $strip($1-)
    if $gettok(%text,1,32) == Profile: || $gettok(%text,1,32) == LastSeen: || $gettok(%text,1,32) == Masks: || $gettok(%text,1,32) == InfoLine: {
      if $gettok(%text,1,32) == Profile: { inc %access.nb | set %access [ $+ [ %access.nb ] ] $gettok(%text,3,32) $gettok(%text,6,32) $gettok(%text,9,32) $gettok(%text,11,32) $gettok(%text,13,32) }
      if $gettok(%text,1,32) == LastSeen: { set %accessen [ $+ [ %access.nb ] ] $gettok(%text,2-,32) }
      if $gettok(%text,1,32) == Masks: { set %accessmask [ $+ [ %access.nb ] ] $gettok(%text,2-,32) }
      if $gettok(%text,1,32) == InfoLine: { set %accessinfo [ $+ [ %access.nb ] ] $gettok(%text,2-,32) }
    }
    if A total of isin %text {
      $opens(irix)
      did -ra irix 5 %access.chan
      did -ra irix 7 %access.nb
      var %i = 1
      while %i <= %access.nb {
        did -a irix 1 $chr(160) $+ $gettok(%access [ $+ [ %i ] ],1,32)
        inc %i
      }
      .disable #access
    }
    if Accès refusé isin %text { .echo -a 5 $+ %text | .disable #access }
    halt
  }
}
#access end
on *:dialog:irix:sclick:1:{
  if $did(1).Sel != $null {
    var %access.nb $did(1).sel
    did -ra irix 10 $gettok(%access [ $+ [ %access.nb ] ],1,32)
    did -ra irix 13 $gettok(%access [ $+ [ %access.nb ] ],2,32)
    did -ra irix 16 $gettok(%access [ $+ [ %access.nb ] ],3,32)
    did -ra irix 17 $gettok(%access [ $+ [ %access.nb ] ],4,32)
    did -ra irix 19 $gettok(%access [ $+ [ %access.nb ] ],5,32)
    var %temp = $remove($replace(%accessen [ $+ [ %access.nb ] ],Mon,Lundi,Tue,Mardi,Wed,Mercredi,Thu,Jeudi,Fri,Vendredi,Sat,Samedi,Sun,Dimanche,Aug,Août,Jan,Janvier,Feb,Février,Mar,Mars,Apr,Avril,May,Mai,Jun,Juin,Jul,Juillet,Sep,Septembre,Oct,Octobre,Nov,Novembre,Dec,Décembre),CEST -1)
    did -ra irix 21 $gettok(%temp,1,32) $gettok(%temp,3,32) $gettok(%temp,2,32) $gettok(%temp,5,32) ( $+ $gettok(%temp,4,32) $+ )
    var %i = 1
    did -r irix 23
    while %i <= $numtok(%accessmask [ $+ [ %access.nb ] ],32) {
      did -a irix 23 $gettok(%accessmask [ $+ [ %access.nb ] ],%i,32)
      inc %i
    }
    did -c irix 23 1
    if %accessinfo [ $+ [ %access.nb ] ] != $null { did -ra irix 25 %accessinfo [ $+ [ %access.nb ] ] }
    Else { did -ra irix 25 Pas d'infoline }
  }
}
on *:dialog:irix:init:0:idll | mdx SetColor 5,7,10,13,16,17,21,19,25 text $color(2) | mdx SetBorderStyle 26,1 staticedge
alias dernieririx {
  $opens(irix)
  did -ra irix 5 %access.chan
  did -ra irix 7 %access.nb
  var %i = 1
  while %i <= %access.nb {
    did -a irix 1 $chr(160) $+ $gettok(%access [ $+ [ %i ] ],1,32)
    inc %i
  }
}
alias opens {
  if $dialog($1).title == $null { dialog -m $1 $1 }
  Else dialog -v $1 $1
}

Conclusion :


A mettre dans les remotes

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1052
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
30 novembre 2009
2
j'aime bien :o)
8/10
je met une note pour une fois :)
Messages postés
358
Date d'inscription
dimanche 8 février 2004
Statut
Modérateur
Dernière intervention
9 octobre 2017
1
bon code mais le reseau laisse à desirer :/

Cordialement

Tempusus
Messages postés
230
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
13 mai 2004

même remarque que SornDrixer pour la structure des dialogs. Et ça :
on 1:dialog:irix:sclick:27:{
if ( $did(irix,27).sel == 1 ) { run mailto:NazarioBoSs@Hotmail.com?subject=Ton add-ons sur IriX }
if ( $did(irix,27).sel == 2 ) { run http://perso.wanadoo.fr/nazario }
}
Pas besoin du irix dans ton $did donc $did(27).sel . Sinon bon code mais je ne vais jamais sur Voila/Wanadoo... D'ailleurs je n'aime pas !
7/10
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004

on *:input:#:{
if ($1- == !access *) { unset %access* | set %access.chan $chan | set %access.nb 0 | .enable #access | echo -a 4Récupération de la liste d'access en cours de %access.chan }
if ($1- == !access ?) { unset %access* | set %access.chan $chan | set %access.nb 0 | .enable #access | echo -a 4Récupération de la liste d'access en cours de %access.chan }
}
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
Pas trop mal, et assez bien codé.
Tu aurais pu juste regrouper tes événements DIALOG :
if ($devent == slick)
if ($devent == init)
etc..

if $did(1).Sel != $null { } donne : if $did(1).Sel { }
if $dialog($1).title == $null { } donne if !$dialog($1).title { }

Bonne continuation.
( je juge pas trop ton addon car j'aime pas Voila/wanadoo )

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.