скажите что не так в этих скриптах исправлю то эроры замучали begin VH_MGE_ShaderScript short ActivateShader1 short ActivateShader2 short DisableShader short ForceStop short OldBloodLevel short OldShader short temp if ( ForceStop == 1 ) set ForceStop to 0 set DisableShader to 1 StopScript VH_MGE_ShaderScript endif if ( PCVampire == 1 ) if ( OldBloodLevel != VH_BloodLevel ) set OldBloodLevel to VH_BloodLevel if ( VH_Setting_ShaderType < 2 ) set temp to ( VH_Setting_BloodDecrease * 2 ) if ( VH_BloodLevel <= 0 ) if ( VH_Setting_ShaderType == 0 ) if ( OldShader != 2 ) set ActivateShader2 to 1 endif elseif ( VH_Setting_ShaderType == 1 ) if ( OldShader != 1 ) set ActivateShader1 to 1 endif endif elseif ( VH_BloodLevel <= temp ) if ( OldShader != 1 ) set ActivateShader1 to 1 endif else if ( OldShader != 0 ) set DisableShader to 1 endif endif endif endif endif ifx ( ActivateShader1 ) set ActivateShader1 to 0 set OldShader to 1 xFileWriteString, "|MGEpipe", "SDVH\Bloodlust 2.fx" xFileWriteString, "|MGEpipe", "SEVH\Bloodlust.fx" endif ifx ( ActivateShader2 ) set ActivateShader2 to 0 set OldShader to 2 xFileWriteString, "|MGEpipe", "SDVH\Bloodlust.fx" xFileWriteString, "|MGEpipe", "SEVH\Bloodlust 2.fx" endif ifx ( DisableShader ) set DisableShader to 0 set OldShader to 0 xFileWriteString, "|MGEpipe", "SDVH\Bloodlust.fx" xFileWriteString, "|MGEpipe", "SDVH\Bloodlust 2.fx" endif end следущий: begin VH_MGE_ShaderScript short ActivateShader1 short ActivateShader2 short DisableShader short ForceStop short OldBloodLevel short OldShader short temp if ( ForceStop == 1 ) set ForceStop to 0 set DisableShader to 1 StopScript VH_MGE_ShaderScript endif if ( PCVampire == 1 ) if ( OldBloodLevel != VH_BloodLevel ) set OldBloodLevel to VH_BloodLevel if ( VH_Setting_ShaderType < 2 ) set temp to ( VH_Setting_BloodDecrease * 2 ) if ( VH_BloodLevel <= 0 ) if ( VH_Setting_ShaderType == 0 ) if ( OldShader != 2 ) set ActivateShader2 to 1 endif elseif ( VH_Setting_ShaderType == 1 ) if ( OldShader != 1 ) set ActivateShader1 to 1 endif endif elseif ( VH_BloodLevel <= temp ) if ( OldShader != 1 ) set ActivateShader1 to 1 endif else if ( OldShader != 0 ) set DisableShader to 1 endif endif endif endif endif ifx ( ActivateShader1 ) set ActivateShader1 to 0 set OldShader to 1 xFileWriteString, "|MGEpipe", "SDVH\Bloodlust 2.fx" xFileWriteString, "|MGEpipe", "SEVH\Bloodlust.fx" endif ifx ( ActivateShader2 ) set ActivateShader2 to 0 set OldShader to 2 xFileWriteString, "|MGEpipe", "SDVH\Bloodlust.fx" xFileWriteString, "|MGEpipe", "SEVH\Bloodlust 2.fx" endif ifx ( DisableShader ) set DisableShader to 0 set OldShader to 0 xFileWriteString, "|MGEpipe", "SDVH\Bloodlust.fx" xFileWriteString, "|MGEpipe", "SDVH\Bloodlust 2.fx" endif end следущий: begin VH_MGE_RandomizeKeysScript short EnableKeys short DisableKeys short HandleKeyPresses short Forward short Backward short Left short Right short ForceStop short temp if ( ForceStop == 1 ) set ForceStop to 0 set EnableKeys to 1 set HandleKeyPresses to 0 StopScript VH_MGE_RandomizeKeysScript endif if ( PCVampire == 1 ) if ( VH_Setting_RandomKeys == 1 ) if ( VH_BloodLevel <= 0 ) if ( HandleKeyPresses != 1 ) set DisableKeys to 1 set HandleKeyPresses to 1 set temp to Random 9 if ( temp == 0 ) set Forward to 30 set Backward to 17 set Left to 32 set Right to 31 elseif ( temp == 1 ) set Forward to 30 set Backward to 32 set Left to 17 set Right to 31 elseif ( temp == 2 ) set Forward to 30 set Backward to 32 set Left to 31 set Right to 17 elseif ( temp == 3 ) set Forward to 31 set Backward to 17 set Left to 32 set Right to 30 elseif ( temp == 4 ) set Forward to 31 set Backward to 30 set Left to 32 set Right to 17 elseif ( temp == 5 ) set Forward to 31 set Backward to 32 set Left to 17 set Right to 30 elseif ( temp == 6 ) set Forward to 32 set Backward to 17 set Left to 31 set Right to 30 elseif ( temp == 7 ) set Forward to 32 set Backward to 30 set Left to 17 set Right to 31 else set Forward to 32 set Backward to 30 set Left to 31 set Right to 17 endif endif else if ( HandleKeyPresses != 0 ) set EnableKeys to 1 set HandleKeyPresses to 0 endif endif endif endif ifx ( DisableKeys ) set DisableKeys to 0 xFileWriteShort, "|MGEpipe", 25707 xFileWriteShort, "|MGEpipe", 17 xFileWriteShort, "|MGEpipe", 25707 xFileWriteShort, "|MGEpipe", 30 xFileWriteShort, "|MGEpipe", 25707 xFileWriteShort, "|MGEpipe", 31 xFileWriteShort, "|MGEpipe", 25707 xFileWriteShort, "|MGEpipe", 32 endif ifx ( EnableKeys ) set EnableKeys to 0 xFileWriteShort, "|MGEpipe", 24939 xFileWriteShort, "|MGEpipe", 17 xFileWriteShort, "|MGEpipe", 24939 xFileWriteShort, "|MGEpipe", 30 xFileWriteShort, "|MGEpipe", 24939 xFileWriteShort, "|MGEpipe", 31 xFileWriteShort, "|MGEpipe", 24939 xFileWriteShort, "|MGEpipe", 32 endif ifx ( HandleKeyPresses ) setx temp to xKeyPressed, 87 ifx ( temp ) xFileWriteShort, "|MGEpipe", 29803 xFileWriteShort, "|MGEpipe", Forward endif setx temp to xKeyPressed, 83 ifx ( temp ) xFileWriteShort, "|MGEpipe", 29803 xFileWriteShort, "|MGEpipe", Backward endif setx temp to xKeyPressed, 65 ifx ( temp ) xFileWriteShort, "|MGEpipe", 29803 xFileWriteShort, "|MGEpipe", Left endif setx temp to xKeyPressed, 68 ifx ( temp ) xFileWriteShort, "|MGEpipe", 29803 xFileWriteShort, "|MGEpipe", Right endif endif end следущий: begin VH_MGE_BloodMeterScript short BloodMeterBit1 short BloodMeterBit2 short BloodMeterBit3 short BloodMeterBit4 short ChangeBloodMeter short DisableBloodMeter short ForceStop short OldBloodLevel short OldBloodMeterLevel short temp float tempf if ( ForceStop == 1 ) set ForceStop to 0 set DisableBloodMeter to 1 StopScript VH_MGE_BloodMeterScript endif if ( PCVampire == 1 ) if ( OldBloodLevel != VH_BloodLevel ) set OldBloodLevel to VH_BloodLevel if ( VH_Setting_NoBloodMeter != 1 ) if ( VH_BloodLevel <= 0 ) set temp to 0 else set temp to ( VH_BloodLevel / 214.25 + 1 ) endif if ( temp != OldBloodMeterLevel ) set OldBloodMeterLevel to temp set DisableBloodMeter to 1 set ChangeBloodMeter to 1 if ( temp == 0 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 0 set BloodMeterBit3 to 0 set BloodMeterBit4 to 0 elseif ( temp == 1 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 0 set BloodMeterBit3 to 0 set BloodMeterBit4 to 1 elseif ( temp == 2 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 0 set BloodMeterBit3 to 1 set BloodMeterBit4 to 0 elseif ( temp == 3 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 0 set BloodMeterBit3 to 1 set BloodMeterBit4 to 1 elseif ( temp == 4 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 1 set BloodMeterBit3 to 0 set BloodMeterBit4 to 0 elseif ( temp == 5 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 1 set BloodMeterBit3 to 0 set BloodMeterBit4 to 1 elseif ( temp == 6 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 1 set BloodMeterBit3 to 1 set BloodMeterBit4 to 0 elseif ( temp == 7 ) set BloodMeterBit1 to 0 set BloodMeterBit2 to 1 set BloodMeterBit3 to 1 set BloodMeterBit4 to 1 elseif ( temp == 8 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 0 set BloodMeterBit3 to 0 set BloodMeterBit4 to 0 elseif ( temp == 9 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 0 set BloodMeterBit3 to 0 set BloodMeterBit4 to 1 elseif ( temp == 10 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 0 set BloodMeterBit3 to 1 set BloodMeterBit4 to 0 elseif ( temp == 11 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 0 set BloodMeterBit3 to 1 set BloodMeterBit4 to 1 elseif ( temp == 12 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 1 set BloodMeterBit3 to 0 set BloodMeterBit4 to 0 elseif ( temp == 13 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 1 set BloodMeterBit3 to 0 set BloodMeterBit4 to 1 elseif ( temp == 14 ) set BloodMeterBit1 to 1 set BloodMeterBit2 to 1 set BloodMeterBit3 to 1 set BloodMeterBit4 to 0 else set BloodMeterBit1 to 1 set BloodMeterBit2 to 1 set BloodMeterBit3 to 1 set BloodMeterBit4 to 1 endif endif endif endif endif ifx ( DisableBloodMeter ) set DisableBloodMeter to 0 xFileWriteString, "|MGEpipe", "HdVH_BloodMeter00" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter00" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter01" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter01" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter02" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter02" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter03" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter03" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter04" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter04" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter05" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter05" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter06" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter06" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter07" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter07" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter08" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter08" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter09" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter09" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter10" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter10" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter11" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter11" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter12" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter12" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter13" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter13" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter14" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter14" xFileWriteString, "|MGEpipe", "HdVH_BloodMeter15" xFileWriteString, "|MGEpipe", "HfVH_BloodMeter15" endif ifx ( ChangeBloodMeter ) set ChangeBloodMeter to 0 xFileWriteShort, "|MGEpipe", 27720 ;Hl ifx ( BloodMeterBit1 ) ifx ( BloodMeterBit2 ) ifx ( BloodMeterBit3 ) ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter15" xFileWriteString, "|MGEpipe", "VH\BloodMeter15.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter15" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter15" else xFileWriteString, "|MGEpipe", "VH_BloodMeter14" xFileWriteString, "|MGEpipe", "VH\BloodMeter14.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter14" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter14" endif else ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter13" xFileWriteString, "|MGEpipe", "VH\BloodMeter13.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter13" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter13" else xFileWriteString, "|MGEpipe", "VH_BloodMeter12" xFileWriteString, "|MGEpipe", "VH\BloodMeter12.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter12" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter12" endif endif else ifx ( BloodMeterBit3 ) ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter11" xFileWriteString, "|MGEpipe", "VH\BloodMeter11.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter11" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter11" else xFileWriteString, "|MGEpipe", "VH_BloodMeter10" xFileWriteString, "|MGEpipe", "VH\BloodMeter10.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter10" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter10" endif else ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter09" xFileWriteString, "|MGEpipe", "VH\BloodMeter09.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter09" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter09" else xFileWriteString, "|MGEpipe", "VH_BloodMeter08" xFileWriteString, "|MGEpipe", "VH\BloodMeter08.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter08" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter08" endif endif endif else ifx ( BloodMeterBit2 ) ifx ( BloodMeterBit3 ) ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter07" xFileWriteString, "|MGEpipe", "VH\BloodMeter07.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter07" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter07" else xFileWriteString, "|MGEpipe", "VH_BloodMeter06" xFileWriteString, "|MGEpipe", "VH\BloodMeter06.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter06" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter06" endif else ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter05" xFileWriteString, "|MGEpipe", "VH\BloodMeter05.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter05" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter05" else xFileWriteString, "|MGEpipe", "VH_BloodMeter04" xFileWriteString, "|MGEpipe", "VH\BloodMeter04.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter04" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter04" endif endif else ifx ( BloodMeterBit3 ) ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter03" xFileWriteString, "|MGEpipe", "VH\BloodMeter03.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter03" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter03" else xFileWriteString, "|MGEpipe", "VH_BloodMeter02" xFileWriteString, "|MGEpipe", "VH\BloodMeter02.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter02" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter02" endif else ifx ( BloodMeterBit4 ) xFileWriteString, "|MGEpipe", "VH_BloodMeter01" xFileWriteString, "|MGEpipe", "VH\BloodMeter01.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter01" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter01" else xFileWriteString, "|MGEpipe", "VH_BloodMeter00" xFileWriteString, "|MGEpipe", "VH\BloodMeter00.dds" xFileWriteString, "|MGEpipe", "HeVH_BloodMeter00" xFileWriteString, "|MGEpipe", "HpVH_BloodMeter00" endif endif endif endif if ( VH_Screen_Width == 0 ) set tempf to VH_Screen_Width else set tempf to ( VH_Screen_Width - 24 ) endif xFileWriteFloat, "|MGEpipe", tempf if ( VH_Screen_Height == 0 ) set tempf to VH_Screen_Height else set tempf to ( VH_Screen_Height - 190 ) endif xFileWriteFloat, "|MGEpipe", tempf endif end
Если не сложно прошу перевести Vampire Realism II и Vampire_Embrace.