Access irix
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.
A mettre dans les remotes
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
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.