ACCESS IRIX

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
}