dim TTSObject dim currentpercentlife dim currentlife dim currentmaxlife dim currentadvpercentlife dim currentadvlife dim mode currentpercentlife = 0 currentlife = 0 currentmaxlife = 0 currentadvlife = 0 currentadvpercentlife = 0 mode = Int(world.GetVariable( "mode")) set TTSObject = CreateObject("jfwapi") sub ModeToggle (name, line, x) if mode = 1 then mode = 0 TTSObject.sayString "Mode verbeux désactivé", 0 world.SetVariable "mode", "0" else mode = 1 TTSObject.sayString "Mode verbeux activé", 0 world.SetVariable "mode", "1" end if end sub sub SoundPrompt (sName, sLine, wildcards) dim percentlife dim life dim maxlife dim strpercentlife percentlife = wildcards(1) * 100 / wildcards(2) percentlife = Int(percentlife / 10) life = Int(wildcards(1)) maxlife = Int(wildcards(2)) if percentlife < 10 Then strpercentlife = "0" & percentlife else strpercentlife = percentlife end if if (mode = 0 and currentpercentlife <> percentlife) or (mode = 1 and (life <> currentlife or maxlife <> currentmaxlife)) Then currentpercentlife = percentlife currentlife = life currentmaxlife = maxlife world.note sLine playsound 0, (getinfo(67) & "\sounds\61" & strpercentlife & ".wav"), false, -6, 0 end if end sub sub SoundAdvPrompt (sName, sLine, wildcards) dim advpercentlife dim stradvpercentlife dim advlife advpercentlife = int(wildcards(1) / 10) advlife = Int(wildcards(1)) if (mode = 0 and currentadvpercentlife <> advpercentlife) or (mode = 1 and advlife <> currentadvlife) Then currentadvpercentlife = advpercentlife currentadvlife = advlife if advpercentlife < 10 then advpercentlife = "0" & advpercentlife end if world.note sLine playsound 0, (getinfo(67) & "\sounds\60" & advpercentlife & ".wav"), false, -6, 0 end if end sub sub SayLine (sName, sLine, wildcards) TTSObject.sayString sLine, 0 end sub