PureBoard

Code: Alles auswählen

                                      ;############################
                                      ;##  AIMER - VERSION 1.00  ##
                                      ;##     (C) 2008/2009      ##
                                      ;############################
 
;-Initialisierung:
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 Or InitSound() = 0
  MessageBox_(#Null,"Eine oder mehrere Libraries für das Programm"+Chr(13)+"Aimer v1.00 konnten nicht initialisiert werden!"+Chr(13)+"Neuinstallation des Programmes könnte das Problem beheben.","Fehler beim Initialisieren",#MB_OK | #MB_ICONSTOP)
  End
EndIf

;KONSTANTEN
#NoAction = 0
#Released = 1
#Clicked  = 2
#Dragged  = 3 

#ShotWait  = 20
#LoadWait  = 40
#BlindWait = 10

Define MLB.l    ; Mouse Left Button 
Define MRB.l    ; Mouse Right Button 

;VARIABLEN
Global rand_backgrnd.b
Global released
Global MouseX, MouseY
Global magazine
Global erlaubnis

Magazine = 10
ShotsLeft = Magazine
erlaubnis = #True

;-Vorbereitung:
OpenScreen(640,480,32,"Aimer v1.00")

rand_backgrnd = Random(3)
rand_backgrnd = rand_backgrnd + 1

LoadSprite(013,"data\gfx\640x480\bckgrnd"+Str(rand_backgrnd)+".bmp",0)
LoadSprite(014,"data\gfx\640x480\crosshair.bmp",0)
  TransparentSpriteColor(014,RGB(255,0,255))

LoadSound(050,"data\sfx\gunshot.wav")
LoadSound(052,"data\sfx\gunin.wav")
LoadSound(053,"data\sfx\gunslide.wav")

SoundVolume(050,100)
SoundVolume(053,100)

; DisplaySprite(013,0,0)
; PlaySound(053)
; 
; FlipBuffers()

MouseLocate(640/2, 480/2)

Timer = ElapsedMilliseconds()
Duration = 40   ; 40ms => 25 Tics/sec



Repeat
  ExamineMouse()
  ExamineKeyboard()
  MouseX = MouseX()
  MouseY = MouseY()

  DisplaySprite(013,0,0)
    StartDrawing(ScreenOutput())
      DrawText(0,0,Str(TimeCounter), $00FFFF, $400000 )
      DrawText(570,0,"Shots: "+Str(ShotsLeft), $00FFFF, $400000 )
    StopDrawing()
    
    DisplayTransparentSprite(014,MouseX-37,MouseY-37)
  FlipBuffers()


If ElapsedMilliseconds() >= Timer + Duration
    Timer + Duration
; *******************************************
; *******************************************
    If MouseButton(#PB_MouseButton_Left)
      If MLB & 2
        MLB = #Dragged
      Else
        MLB = #Clicked
      EndIf
    Else
      If MLB & 2
        MLB = #Released
      Else
        MLB = #NoAction
      EndIf
    EndIf

    If MouseButton(#PB_MouseButton_Right)
      If MRB & 2
        MRB = #Dragged
      Else
        MRB = #Clicked
      EndIf
    Else
      If MRB & 2
        MRB = #Released
      Else
        MRB = #NoAction
      EndIf
    EndIf

    TimeCounter -1
    If TimeCounter = #LoadWait - #BlindWait
       PlaySound(053)
    EndIf
    If TimeCounter <= 0       ; nur auf Mausklick reagieren wenn abgelaufen
      If MLB = #Clicked
        If ShotsLeft > 0
          PlaySound(050)
          ShotsLeft -1      ; einen schuss abziehen
          TimeCounter = #ShotWait   ; Pause bei Schuss
        Else
          PlaySound(052)
          TimeCounter = #BlindWait  ; Pause bei Blind 
        EndIf
      EndIf

      If MRB = #Clicked
        If ShotsLeft = 0
          PlaySound(052)
          ShotsLeft = Magazine    ; nachladen
          TimeCounter = #LoadWait  ; Pause bei Nachladen
        EndIf
      EndIf
    EndIf
; *******************************************
; *******************************************
EndIf

Until KeyboardPushed(#PB_Key_Escape)