home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 60 / supercd60_2.iso / BlitzBasic / inputtest / cleancode.bb next >
Encoding:
Text File  |  2001-10-15  |  3.2 KB  |  169 lines
  1. ; INPUTEST.BB
  2. ; ================================================================================
  3. ; 
  4. ; INITIALISATION
  5.  
  6. Graphics 640, 480
  7. AppTitle "Basic Graphics/Input Test"
  8. SetBuffer BackBuffer()
  9.  
  10. ; CONSTANTS
  11.  
  12. Const c_ArrowFlash = 4
  13. Const k_NumPad8 = 72
  14. Const k_NumPad4 = 75
  15. Const k_NumPad6 = 77
  16.  
  17. ; OBJECTS 
  18.  
  19. Global g_Dancer = LoadAnimImage("media\dancer.bmp", 220, 326, 0, 5)
  20. Global g_LeftArrow = LoadImage("media\leftarrow.bmp")
  21. Global g_RightArrow = LoadImage("media\rightarrow.bmp")
  22. Global g_UpArrow = LoadImage("media\uparrow.bmp")
  23.  
  24. Global g_Background = LoadAnimImage("media\back_flip.bmp", 536, 261, 0, 2)
  25.  
  26. Global g_DanceFloor = LoadAnimImage("media\dancefloor.bmp", 299, 81, 0, 3)
  27. Global v_DanceFloorStep, v_DanceCount, v_DanceFloorSpeed=15
  28.  
  29. Global v_LeftArrowPressed=0, v_RightArrowPressed=0, v_UpArrowPressed=0, v_DownArrowPressed=0
  30. Global v_BackTimer=0
  31. Global v_PoseTimer=0, v_NeutralTimer=0
  32.  
  33. Global s_BackgroundMusic = LoadSound ("media\bgm.wav")
  34.  
  35. ; STARTING SPRITES
  36.  
  37. MaskImage g_Dancer, 255, 0, 255
  38.  
  39. ; CUE MUSIC
  40.  
  41. LoopSound s_BackgroundMusic
  42.  
  43. ; MAIN LOOP
  44.  
  45. While Not KeyHit(1)
  46.  
  47.     ; Draw Background
  48.     DrawImage g_Background, 50, 50, BackSetting
  49.  
  50.     ; Lighting
  51.  
  52.     If Backtimer>50 Then
  53.         BackSetting=0
  54.             Else
  55.                 BackSetting=1
  56.                 EndIf
  57.                 
  58.         BackTimer=BackTimer+1
  59.  
  60.         If BackTimer=100 Then
  61.             BackTimer=0
  62.             EndIf 
  63.             
  64.     ; DanceFloor
  65.  
  66.     DrawImage g_DanceFloor, 150,400, v_DanceFloorStep
  67.     
  68.     If v_DanceFloorCount=v_DanceFloorSpeed Then
  69.     
  70.         If v_DanceFloorStep=2 Then
  71.             v_DanceFloorStep=0
  72.                 Else
  73.                     v_DanceFloorStep=v_DanceFloorStep+1
  74.                     EndIf
  75.         
  76.         v_DanceFloorCount=0
  77.         
  78.         Else
  79.             v_DanceFloorCount=v_DanceFloorCount+1
  80.         EndIf
  81.         
  82.     ; Dancer
  83.  
  84.     DrawImage g_Dancer, 220, 110, v_PoseSelect
  85.  
  86.     ; Draw Arrows
  87.     
  88.         If v_LeftArrowPressed>0
  89.             DrawImage g_LeftArrow, 135, 210
  90.             v_LeftArrowPressed=v_LeftArrowPressed-1
  91.             Else
  92.                 DrawImage g_LeftArrow, 140, 210, 0
  93.             EndIf
  94.  
  95.     
  96.         If v_RightArrowPressed>0
  97.             DrawImage g_RightArrow, 420, 210
  98.             v_RightArrowPressed=v_RightArrowPressed-1
  99.             Else
  100.                 DrawImage g_RightArrow, 415, 210, 0
  101.             EndIf
  102.  
  103.     
  104.         If v_UpArrowPressed>0
  105.             DrawImage g_UpArrow, 257, 50
  106.             v_UpArrowPressed=v_UpArrowPressed-1
  107.             Else
  108.                 DrawImage g_UpArrow, 257, 55, 0
  109.             EndIf
  110.  
  111.     ; INPUT
  112.         
  113.     If PoseTimer=0
  114.     
  115.         If KeyHit (k_NumPad4) And v_LeftArrowPressed=0
  116.             v_LeftArrowPressed=c_ArrowFlash
  117.             v_NeutralTimer=15
  118.             v_PoseSelect=2
  119.             EndIf
  120.         
  121.         If KeyHit (k_NumPad6) And v_RightArrowPressed=0
  122.             v_RightArrowPressed=c_ArrowFlash
  123.             v_NeutralTimer=15
  124.             v_PoseSelect=3
  125.             EndIf
  126.     
  127.         If KeyHit (k_NumPad8) And v_UpArrowPressed=0
  128.             v_UpArrowPressed=c_ArrowFlash
  129.             v_NeutralTimer=15
  130.             v_PoseSelect=4
  131.             EndIf
  132.         
  133.         Else
  134.         
  135.     EndIf        
  136.             
  137.     
  138.     ; Time the pose
  139.             
  140.     If v_PoseSelect>1 And v_NeutralTimer=0 Then
  141.         v_PoseSelect=0
  142.             Else If v_PoseSelect>1
  143.                     v_NeutralTimer=v_NeutralTimer-1
  144.                     EndIf
  145.                                 
  146.     ; Neutral poses
  147.  
  148.     If v_PoseSelect=0 Or v_PoseSelect=1
  149.         v_NeutralTimer=v_NeutralTimer+1
  150.         EndIf
  151.                      
  152.     If v_PoseSelect=0 And v_NeutralTimer=30 Then
  153.               v_NeutralTimer=0
  154.             v_PoseSelect=1
  155.             EndIf
  156.             
  157.     If v_PoseSelect=1 And v_NeutralTimer=30 Then
  158.             v_NeutralTimer=0
  159.             v_PoseSelect=0
  160.             EndIf
  161.     
  162.     ; DISPLAY
  163.     
  164.     Flip
  165.     Cls
  166.     
  167.     Wend
  168.  
  169. End