home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / warp!.amos / warp!.amosSourceCode
Encoding:
AMOS Source Code  |  1990-08-11  |  971 b   |  46 lines
  1. Close Workbench : Close Editor 
  2. Degree : Randomize Timer
  3. Screen Open 0,320,256,4,Lowres
  4. Screen 0
  5. Curs Off : Flash Off : Hide 
  6. C=0
  7. For V=0 To 3
  8.    Colour V,C
  9.    Add C,$444
  10. Next 
  11. Double Buffer : Autoback 0
  12. Cls 0
  13. M=200
  14. N=15
  15. MASPEED=2
  16. Dim ANGLE(M),SPEED(M),DIST(M)
  17. For X=1 To M
  18.    ANGLE(X)=Rnd(360)
  19.    SPEED(X)=Rnd(MASPEED)+3
  20.    DIST(X)=Rnd(40)
  21. Next 
  22. Ink 1
  23. Screen Swap 
  24. YL=70
  25. Repeat 
  26.    Cls 0
  27.    For X=1 To N
  28.       DIST(X)=DIST(X)+SPEED(X)
  29.       If DIST(X)>=140
  30.          DIST(X)=Rnd(40)
  31.          SPEED(X)=Rnd(MASPEED)+3
  32.          ANGLE(X)=Rnd(360)
  33.       End If 
  34.       If Jleft(1) Then Dec ANGLE(X)
  35.       If Jright(1) Then Inc ANGLE(X)
  36.       XP=DIST(X)*Sin(ANGLE(X))
  37.       YP=DIST(X)*Cos(ANGLE(X))
  38.       Plot 160+XP,128+YP,DIST(X)
  39.       If Fire(1) Then Draw 160,128 To 160+XP,128+YP
  40.    Next 
  41.    If Jup(1) Then Inc N : Locate 1,1 : Print N;" stars."
  42.    If Jdown(1) Then Dec N : Locate 1,1 : Print N;" stars."
  43.    If N<0 Then N=0
  44.    If N>M Then N=M
  45.    Screen Swap 
  46. Until Mouse Key