home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / TargetSystem.AMOS / TargetSystem.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1994-02-09  |  2.5 KB  |  95 lines
  1. 'another very early in development demo by Wayne Johnson of the
  2. 'Australian AMOS Club
  3. 'only a few hours work done on this  
  4. '
  5. '
  6. Unpack 6 To 0
  7. Set Sprite Buffer 260
  8. Double Buffer 
  9. Hide : Cls 0
  10. Autoback 0
  11. Flash Off 
  12. 'Get Sprite Palette  
  13. Colour 17,$AAA : Colour 21,$AAA : Colour 25,$AAA : Colour 29,$AAA
  14. Colour 2,$F00 : Colour 3,$700
  15. Sprite 0,250,160,1
  16. Sprite 7,250,41,2
  17. Bob 0,-50,-50,3
  18. Bob 1,-20,-50,4
  19. Bob 2,10,-50,5
  20. Bob 3,40,-50,6
  21. Bob 4,70,-50,7
  22. Bob 5,100,-50,7
  23. Bob 6,0,270,51
  24. Bob 7,10,270,51
  25. Bob 8,20,270,51
  26. Bob 9,30,270,51
  27. For I=1 To 54
  28.    Set Bob I,-1,,
  29. Next 
  30. Channel 0 To Sprite 0
  31. Channel 1 To Sprite 7
  32. Channel 2 To Bob 0
  33. Channel 3 To Bob 1
  34. Channel 4 To Bob 2
  35. Channel 5 To Bob 3
  36. Channel 6 To Bob 4
  37. Channel 7 To Bob 5
  38. Channel 8 To Bob 6
  39. Channel 9 To Bob 7
  40. Channel 10 To Bob 8
  41. Channel 11 To Bob 9
  42. For X=0 To 11 : Amal X,X : Next X
  43. '=========================================================================== 
  44. 'Do not give more than 300 'STARS', this would take to much processor time 
  45. 'and the machine could crash !!! (MC68000 based machine) 
  46. 'Anyway with 300 'STARS' on screen it would be to jerky... 
  47. '150 to 200 seems to be good enough. 
  48. 'Also, the 'STARS' speed must ly between -7 and 7, else crash. Don't know
  49. 'why... I've checked the 'STARS' code but I could not find any BUG ! 
  50. '=========================================================================== 
  51. STARS_COUNT#=200.0
  52. STARS_COUNT=STARS_COUNT#
  53. Y_INC#=(Screen Height-1.0)/STARS_COUNT#
  54.  Extension_12_03A2 STARS_COUNT
  55. For I=1 To STARS_COUNT
  56.     Extension_12_03B6 I,Rnd(319),I*Y_INC#,0,0
  57. Next 
  58.  Extension_12_041C 1 To STARS_COUNT,(160-X Screen(X Mouse))/8,(128-Y Screen(Y Mouse))/20
  59. Amal On 
  60. Limit Mouse 178,48 To 384,278
  61. Bob Update Off 
  62. _X_OLD=X Mouse
  63. _Y_OLD=Y Mouse
  64. Repeat 
  65.    Screen Swap 
  66.    Wait Vbl 
  67.     Extension_12_0380 1
  68.    Bob Clear 
  69.    Bob Draw 
  70.    If Bob Col(4,0 To 3)=-1 and Col(0)=-1 and Col(3)=-1 : Amreg(8)=1 : End If 
  71.    If Bob Col(5,0 To 3)=-1 and Col(0)=-1 and Col(3)=-1 : Amreg(8)=2 : End If 
  72.     Extension_12_03D0 
  73.    MOUSE_X=X Mouse and $FFF8
  74.    MOUSE_Y=Y Mouse and $FFF8
  75. '   If(MOUSE_X<>_X_OLD) or(MOUSE_Y<>_Y_OLD)
  76.    If((MOUSE_X xor _X_OLD) xor(MOUSE_Y xor _Y_OLD))
  77.       X_SPEED=(160-X Screen(MOUSE_X))/6
  78.       Y_SPEED=(128-Y Screen(MOUSE_Y))/4
  79.       _X_OLD=MOUSE_X
  80.       _Y_OLD=MOUSE_Y
  81.       If X_SPEED<0
  82.          X_SPEED=Max(X_SPEED,-7)
  83.       Else 
  84.          X_SPEED=Min(X_SPEED,7)
  85.       End If 
  86.       If Y_SPEED<0
  87.          Y_SPEED=Max(Y_SPEED,-7)
  88.       Else 
  89.          Y_SPEED=Min(Y_SPEED,7)
  90.       End If 
  91.        Extension_12_041C 1 To STARS_COUNT,X_SPEED,Y_SPEED
  92.    End If 
  93.  
  94. Until Mouse Key=2
  95.  Extension_12_03E4