My first Game in PureBasic
Posted: Tue Oct 24, 2006 9:26 am
It's Classic game...
Sorry only SoundTip.dll in Russian Sound
Version: 0.0.3.0
Download (2.88Mb) here:
http://byzack.servehttp.com/load/4-1-0-5
or this
http://byzack.servehttp.com/load/0-0-0-5-20
SoundTip.dll Code
Version: 0.0.3.0
http://byzack.servehttp.com/load/4-1-0-5
or this
http://byzack.servehttp.com/load/0-0-0-5-20
SoundTip.dll Code
Code: Select all
DataSection
noAmmo: IncludeBinary "data\NoAmmo.wav"
ShotMiss: IncludeBinary "data\ShotMiss.wav"
3xHit: IncludeBinary "data\3xHit.wav"
3xHit2: IncludeBinary "data\3xHit2.wav"
Fire3x: IncludeBinary "data\Fire3x.wav"
NoClick: IncludeBinary "data\NoClick.wav"
EndDataSection
ProcedureDLL GetSound(Num.w)
Select Num
Case 0
ProcedureReturn ?noAmmo
Case 1
ProcedureReturn ?ShotMiss
Case 2
ProcedureReturn ?3xHit
Case 3
ProcedureReturn ?3xHit2
Case 4
ProcedureReturn ?Fire3x
Case 5
ProcedureReturn ?NoClick
EndSelect
EndProcedure
; IDE Options = PureBasic (Windows)
; ExecutableFormat = Shared Dll
; CursorPosition = 6
; Folding = -
; Executable = SoundTip.dll