NOMAINWIN
    WindowWidth = 600
    WindowHeight = 410
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
    'TEXTBOX  #w.letextbox, 20 , 50, 180, 25
   ' BUTTON #w.go, "Go !", [go], UL, 270, 50, 40, 20
    BUTTON #w.ne, "New", [new], UL, 100, 307, 50, 20
    STATICTEXT #w, "Cumul", 500, 305, 100, 20
    GRAPHICBOX #w.m 5, 5, 585, 300
    GRAPHICBOX #w.g 5, 330, 585, 40
    OPEN "Test" FOR window_nf AS #w
    #w, "TRAPCLOSE [closew]"
    #w, "font courrier 14 bold"
  [new]
    score =100
    #w.m  "down;fill black": #w.g "down;fill black"
    #w.m, "color yellow; backcolor black": #w.m, "font comic 14"
    #w.g, "color pink; backcolor black": #w.g, "font comic 16"
    #w.g, "place 500 25": #w.g, "\ ";str$(cumul)
    xm=50: ym=50
    #w.m, "place 15 20": #w.m, "\Where is my pixels  ";str$(xm);" x ";str$(ym)
    #w.g, "place 20 25": #w.g, "\ ";str$(score)
    #w.m, "when mouseMove [scanne]"
    xp=int(rnd(1)*550) + 1: yp=int(rnd(1)*250) + 1
    #w.g, "place 150 25": #w.g, "\ ";"x: ";str$(xp);"  y: ";str$(yp)
    wait
 [scanne]
   x=MouseX: y=MouseY
   #w.m, "color white; backcolor black"
   #w.m, "size 2": #w.m, "set ";x;" ";y
   ' xp=int(rnd(1)*550) + 1: yp=int(rnd(1)*250) + 1

    #w.g, "place 150 25": #w.g, "\ ";"x: ";str$(x);"  y: ";str$(y)
    if x>xp and x<xp+50 and y>yp and y< yp+50 then goto [un]
   ' gosub [un]
 wait
 [un]
   #w.m, "when mouseMove": #w.m, "when leftButtonDown [teste]"
   #w.m, "color pink; backcolor blue"
   #w.m, "place ";xp;" ";yp: #w.m, "boxfilled ";xp+50;" ";yp+50
   #w.m, "color yellow; backcolor black"
   xt=xp: yt=yp+70
   if xp >430 then xt=400
   if yp >220 then  yt=yp-10
   if xp >430 and yp >220 then xt=400: yt=yp-10
   #w.m, "place ";xt;" ";yt: #w.m, "\Clic my center  "
   #w.m, "flush"
 wait 'return
 [teste]
   x=MouseX: y=MouseY
   score =score -20
   #w.g, "place 20 25": #w.g, "\        "
   #w.g, "place 20 25": #w.g, "\ ";str$(score)
   #w.g, "place 300 25": #w.g, "\ ";"x: ";str$(x);"  y: ";str$(y)
   #w.g, "place 150 25": #w.g, "\                             "
   #w.g, "place 150 25": #w.g, "\ ";"x: ";str$(int(xp+50/2));"  y: ";str$(int(yp+50/2))
   if x=int(xp+50/2) or x=int(xp+50/2)-1 or x= int(xp+50/2)+1 and y=int(yp+50/2) or y=int(yp+50/2)-1 or y=int(yp+50/2)+1 then
   score =score+20
     #w.g, "place 20 25": #w.g, "\ + ";str$(score)
     cumul=cumul+score: #w.g, "place 500 25": #w.g, "\ ";str$(cumul)
     'if score=0 goto [new]
     #w.m, "place 1 1": gosub [pause]: goto [new]
   end if
 
 wait
 '...suite du prog...
    [pause] 'bloc à mettre où tu veux puisqu'indépendant
        timer 800, [temps]   'pause en millisecondes
        wait
        [temps]
        timer 0
  return
  [closew]
    CLOSE  #w
    END