LIRE DANS VIOS PENSÉE

on *:load:echo -a Addon lisant dans vos pensées! Idée prise sur une page codé en HTML/JavaScript...
alias pensées {
  if (!$window(@lire)) {
    window -apkC @Lire -1 -1 482 380 | titlebar @lire dans vos pensées...
    drawfill @lire 1 1 0 0 | var %a = drawtext @lire 0 Verdana 11 8
    drawtext -o @lire 0 Verdana 11 120 10 Machine à lire dans vos pensées...
    %a 30 1. Pensez à un nombre à 2 chiffre (ex: 24).
    %a 45 2. Soustrayez ces 2 chiffres (ex: 2 et 4) au nombre choisi (ex: 24 - 2 - 4 = 18).
    %a 60 3. Recherchez ce résultat dans la liste et mémorisze le symbole correspondant.
    %a 75 4. Concentrez-vous très fort sur ce symbole. 
    %a 90 5. Cliquez ensuite sur GO! et la machine le devinera. 
    var %b = 10, %d = a.b.d.f.h.{.i.l.v.x.z.I.J.M.N.o.O.R.S.T.U.m.6.^.u._.[.]
    %e = $gettok(%d,$r(1,28),46)
    while (%b) {
      var %c = 10
      while (%c) {
        var %f = $calc((%b * 10) + %c - 11)
        var %g = drawtext @lire 0 Webdings 17 $calc(%b * 40 + 18) $calc(%c * 19 + 105)
        drawrect -f @lire 14 1 $calc(%b * 40) $calc(%c * 19 + 110) 15 15
        drawtext @lire 0 Verdana 11 $calc(%b * 40 + 1) $calc(%c * 19 + 111) $calc((%b * 10) + %c - 11)
        if ($int($calc(%f / 9)) == $calc(%f / 9)) && (%f != 0) && (%f != 99) %g %e 
        else %g $gettok(%d,$r(1,28),46) | dec %c
      }
      dec %b
    }
    drawtext -o @lire 0 Verdana 15 400 323 GO!
  }
  else window -a @lire
}
menu @lire {
  mouse {
    if ($inrect($mouse.x,$mouse.y,400,323,30,20)) var %a = 14 | else var %a = 0 
    drawtext -o @lire %a Verdana 15 400 323 GO!
  }
  uclick {
    if ($inrect($mouse.x,$mouse.y,400,323,30,20)) {
      window -c @lire
      window -apkC @Pensées -1 -1  200 130
      drawfill @pensées 1 1 0 0
      drawtext -o @pensées 0 Verdana 11 35 10 Le symbole était:
      drawtext @pensées 0 Webdings 17 82 30 %e
      drawtext -o @pensées 0 Verdana 15 55 70 Rejouer!
      unset %e
    }
  }
}
menu @pensées {
  mouse {
    if ($inrect($mouse.x,$mouse.y,55,70,72,20)) var %a = 14 | else var %a = 0
    drawtext -o @pensées %a Verdana 15 55 70 Rejouer!
  }
  uclick {
    if ($inrect($mouse.x,$mouse.y,55,70,72,20)) { window -c @pensées | pensées }
  }
}