home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d3.amos / d3.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-14  |  1KB  |  39 lines
  1. '------------------------------------
  2. Proc INIT_SCREEN
  3. Proc INIT_ANIMATIE1
  4. Do 
  5.  If Mouse Click=1 Then Proc EINDE
  6. Loop 
  7. '------------------------------------
  8. Procedure INIT_SCREEN
  9.  Break Off 
  10.  Screen Open 0,320,250,16,Lowres
  11.  Flash Off : Curs Off : Double Buffer 
  12.  Get Sprite Palette : Palette $0,$0, : Hide On : Draw 0,231 To 320,231
  13.  Locate 1,1 : Centre "WALKING DROID"
  14.  Locate 1,2 : Centre "PRESS MOUSE BUTTON TO STOP"
  15.  Locate 1,3 : Centre "J.Valks"
  16. End Proc
  17. '
  18. Procedure INIT_ANIMATIE1
  19.  Bob 0,0,200,$8000+1
  20.  Channel 0 To Bob 0
  21.  A$=A$+"Anim 0,($8000+1,4)($8000+2,4)($8000+3,4)($8000+4,4)($8000+5,4)"
  22.  A$=A$+"($8000+6,4)($8000+7,4)($8000+8,4)($8000+9,4)($8000+10,4)"
  23.  A$=A$+"($8000+11,4)($8000+12,4)($8000+13,4)($8000+14,4)($8000+15,4);"
  24.  A$=A$+"Loop:For R0=1 To 350 ;Let X=X+1; Pause; Next R0;"
  25.  A$=A$+"Anim 0,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(7,4)(8,4)(9,4)(10,4)(11,4)"
  26.  A$=A$+"(12,4)(13,4)(14,4)(15,4);"
  27.  A$=A$+"For R0=1 To 350 ;Let X=X-1; Pause; Next R0;"
  28.  A$=A$+"Anim 0,($8000+1,4)($8000+2,4)($8000+3,4)($8000+4,4)($8000+5,4)"
  29.  A$=A$+"($8000+6,4)($8000+7,4)($8000+8,4)($8000+9,4)($8000+10,4)"
  30.  A$=A$+"($8000+11,4)($8000+12,4)($8000+13,4)($8000+14,4)($8000+15,4);"
  31.  A$=A$+"Jump Loop;"
  32.  Amal 0,A$ : Amal On 0
  33. End Proc
  34. '
  35. Procedure EINDE
  36.  Cls 
  37.  Bob Off 
  38.  Run "df0:menu.AMOS"
  39. End Proc