Post by honkytonk on Jul 11, 2019 14:13:59 GMT
Bouh bouh snif snif, I do not know what to do.
So I do anything.
Any ideas ?
So I do anything.
Any ideas ?
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 are 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]
timer 800, [temps] 'pause en millisecondes
wait
[temps]
timer 0
return
[closew]
CLOSE #w
END