equal
deleted
inserted
replaced
81 end; |
81 end; |
82 |
82 |
83 procedure PlaySound(snd: TSound; infinite: boolean); |
83 procedure PlaySound(snd: TSound; infinite: boolean); |
84 var loops: LongInt; |
84 var loops: LongInt; |
85 begin |
85 begin |
86 if not isSoundEnabled then exit; |
86 if (not isSoundEnabled) or fastUntilLag then exit; |
87 if infinite then loops:= -1 else loops:= 0; |
87 if infinite then loops:= -1 else loops:= 0; |
88 Soundz[snd].lastChan:= Mix_PlayChannelTimed(-1, Soundz[snd].id, loops, -1) |
88 Soundz[snd].lastChan:= Mix_PlayChannelTimed(-1, Soundz[snd].id, loops, -1) |
89 end; |
89 end; |
90 |
90 |
91 procedure StopSound(snd: TSound); |
91 procedure StopSound(snd: TSound); |