home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 66 / ac066b.adf / AMOS.DMS / AMOS.adf / amos_3d_demos / Dice_Spin.AMOS / Dice_Spin.amosSourceCode
AMOS Source Code  |  1991-07-30  |  1KB  |  44 lines
  1. '
  2. '                   Spinning dice demo 
  3. '
  4. '                     by Nick Harper 
  5. '
  6. '
  7. ' (c) Copyright Eurporess Software / Voodoo Software 1991
  8. '
  9. Screen Open 1,320,200,16,Lowres
  10. Screen Open 0,320,256,16,Lowres
  11.  Extension_4_04D6 ":AMOS_3D_demos/objects"
  12.  Extension_4_0024 : Hide On : Cls 0
  13.  Extension_4_0016 "dice"
  14. Double Buffer : Autoback 0
  15. Load Iff ":AMOS_3D_demos/dicepic.iff",1 : Screen 0 : Screen To Front 0
  16. X=0 : Y=0 : Z=1500 : XI=80 : YI=180 : ZI=120
  17.  Extension_4_0054 200
  18.  Extension_4_0036 1,"dice",0,0,1500,0,0,0
  19. Get Palette(1)
  20. Flash Off 
  21. FRM=0
  22. Do 
  23.     Extension_4_053C 
  24.     Extension_4_0318 
  25.     Extension_4_049E 1,0,0,320,180 To 0,0
  26.    Screen Swap 
  27.    Wait Vbl 
  28.     Extension_4_018C 1,-ZI*50,-XI*20,-XI
  29.     Extension_4_00EC 1,X,Y,Z
  30.    X=X+XI : Y=Y+YI : Z=Z+ZI
  31.    If Y<0 Then Y=0 : YI=Abs(YI)
  32.    YI=YI-30
  33.    If X>800 Then X=800 : XI=-Abs(XI)
  34.    If X<-800 Then X=-800 : XI=Abs(XI)
  35.    If Z<1000 Then Z=1000 : ZI=Abs(ZI)
  36.    If Z>8500 Then Z=8500 : ZI=-Abs(ZI)
  37.    Inc FRM
  38.    If FRM=126 Then Goto SIXED
  39. Loop 
  40. SIXED:
  41.  Extension_4_00EC 1,0,0,1475 : Extension_4_01A6 1,300,1700,-100
  42. Cls 0 : Extension_4_0318 
  43.  Extension_4_049E 1,0,0,320,180 To 0,0
  44. Screen Swap