home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / bat_n_ball.amos / bat_n_ball.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1993-01-06  |  670 b   |  25 lines
  1. '
  2. ' *** BAT n BALL 
  3. '
  4. '
  5. ' ** THIS IS A SIMPLE BAT n BALL ROUTINE, JUST USE THE MOUSE.
  6. '
  7. Screen Open 0,320,200,8,Lowres : Curs Off : Flash Off : Hide 
  8. Cls 0 : Get Sprite Palette : Double Buffer 
  9. A=50 : B=50 : C=1 : D=1 : WT=300 : S=5
  10. Global X,A,B,C,D,S
  11. Do : X=X Screen(X Mouse)
  12.    If X>294 Then X=294
  13.    Bob 1,X,180,1
  14.    A=A+C : If A<0 or A>315 Then C=-C
  15.    B=B+D : If B<0 or B>195 Then D=-D
  16.    Bob 2,A,B,5
  17.    If Bob Col(1) Then B
  18. For W=0 To WT : Next W : Loop 
  19. Procedure B
  20. If A>X and A<X+S Then C=-2 : D=-1
  21. If A<X+S and A>X+S*2 Then C=-1 : D=-2
  22. If A>X+S*2 and A<X+S*3 Then C=0 : D=-2
  23. If A>X+S*3 and A<X+S*4 Then C=1 : D=-2
  24. If Z>X+S*4 and A<X+S*5 Then C=1 : D=-1
  25. End Proc