prog24.as :
screen 2, 200, 200, 1 picload "pic1.bmp" picx = winx : picy = winy screen 3, 200, 200, 1 palcopy 2 picload "pic2.bmp" gamenx = dispx : gameny = dispy bgscr 4, gamenx, gameny, 1 palcopy 2 cls 4 repeat rnd x, gamenx-picx rnd y, gameny-picy pos x, y repeat 3 gcopy 2, 0,0, picx,picy await 300 gcopy 3, 0,0, picx,picy await 300 loop color 0,0,0 : boxf x,y, x+picx,y+picy loop stop |