You must make a tutorial for darkbasicpro, you are really good in this. I hope understand your post, Ãm spanish and my english isnt good enough.
I didnt add the final cls because in the for next there is one in the beginning which cleans the previous paste image and it is used by the last paste image of loop.
To put 1 on end of get image is genial! The blur of image disappears when it´s moving! I dont know how it works but now, the program is much better. I should include you on the credits of this program.
Thanks
inicio: : hide mouse : color backdrop rgb(0,0,0) : set current bitmap 0 : box 20,20,620,460,rgb(100,0,0),rgb(200,0,0),rgb(100,0,0),rgb(200,0,0) : box 80,80,560,360,rgb(204,204,153),rgb(118,118,58),rgb(204,204,153),rgb(118,118,58)
ink rgb(255,255,255),rgb(255,255,255) : for r=30 to 2 step -2 : circle 80,410,r : circle 560,410,r : next r
ellipse 320,50,80,10 : ellipse 320,50,95,15 : set text size 20 : set text font "Arial Black" : center text 320,40,"TELESKETCH"
x=320 : y=220 : dot x,y : set text size 16 : center text 320,425,"(Use Arrowkeys)"
box 275,395,365,420,rgb(128,128,255),rgb(128,0,255),rgb(128,128,255),rgb(128,0,255) : center text 320,400,"(S) - Shake it!"
do : if upkey()=1 : dot x,y,rgb(0,0,0) : dec y : gosub limite
dot x,y : endif : if downkey()=1 : dot x,y,rgb(0,0,0) : inc y
gosub limite : dot x,y : endif : if rightkey()=1 : dot x,y,rgb(0,0,0)
inc x : gosub limite : dot x,y : endif : if leftkey()=1
dot x,y,rgb(0,0,0) : dec x : gosub limite : dot x,y : endif
if inkey$()="s" then exit
loop : get image 1,20,20,620,460,1 : cls : paste image 1,20,20
for cont=1 to 6 : cls : paste image 1,20,10 : wait 150 : cls
paste image 1,20,30 : wait 150 : next cont : goto inicio :
limite:
if x>558 then x=558
if x<81 then x=81
if y>358 then y=358
if y<81 then y=81
return
