0 Members and 1 Guest are viewing this topic.
Shame on weapon mode. This weapon mode definetly kills steyr from competitive soldat.Buffing ruger is really silly think to do. You asked us on topic and many guys talked about AK and all you did is nerfing whole weapons except Ruger. I've never seen this thing in any game. Changing weapon mode all updates and killing weapons every wm... Just work on your anti-cheat progress instead of bringing weapon modes from your empty mind about competitive soldat.
Good release, now let's look forward for the big 1.8!
You seem to have missed darDar's suggestion post about ergonomic default controls.Believe that was the intention for this change: Make the controls more easily accessible for new players.
Players[1].Kick;
function RandomizeFile(fname: string): array of string;var len, high, i, rand: integer; fl: array of string;begin fl := Explode(readfile(fname),chr(13)+chr(10)); len := GetArrayLength(fl)-1; SetArrayLength(result, len); high := len-1; for i := 0 to len-1 do begin rand := Random(0, high); result[i] := fl[rand]; fl[rand] := fl[high]; dec(high, 1); end; WriteFile(fname,xjoin(result,chr(13)+chr(10)));end;
procedure SetPlayerHealth(Player: TActivePlayer; Health, Vest: integer);var chealth, cvest, delta: integer;begin chealth := Player.Health; cvest := Player.Vest; if ((chealth=health) and (cvest=vest)) then exit; if (chealth = 0) then Player.Damage(Player.ID,1000); if (vest = 0) then begin while (cvest > 0) do begin Player.Damage(Player.ID,2); cvest := (cvest - 1); end; Player.Damage(Player.ID,(chealth-health)); exit; end else begin if (cvest = 0) then begin Player.GiveBonus(3); Player.BigText(HK,'',1,$D0D21D,0.112,20,360); cvest := 100; end; while (chealth <> health) do begin if (chealth < health) then delta := -1 else delta := 1; Player.Damage(Player.ID,3*delta); chealth := (chealth - delta); cvest := (cvest - delta); if (cvest < 0) then cvest := 0; if (cvest > 100) then cvest := 100; if (cvest = 0) then begin Player.GiveBonus(3); Player.BigText(HK,'',1,$D0D21D,0.112,20,360); cvest := 100; end; if (cvest <> vest) then begin if (cvest < vest) then delta := -1 else delta := 1; Player.Damage(Player.ID,2*delta); cvest := (cvest - delta); end; end; while (cvest <> vest) do begin if (cvest < vest) then delta := -1 else delta := 1; Player.Damage(Player.ID,2*delta); cvest := (cvest - delta); end; exit; end; Player.GiveBonus(3); Player.BigText(HK,'',1,$D0D21D,0.112,20,360); cvest := 100; while (cvest > vest) do begin Player.Damage(Player.ID,2); cvest := (cvest-1); end;end;
FIX ALT+TAB, lock gl engine but not move to desktop.. Reported by many for a long time.
Non work... im dont see updates in wiki, i dont know how use..Code: [Select]Players[1].Kick;And non work: (bug here dec(high, 1)
Code: [Select]function RandomizeFile(fname: string): array of string;var len, high, i, rand: integer; fl: array of string;begin fl := Explode(readfile(fname),chr(13)+chr(10)); len := GetArrayLength(fl)-1; SetArrayLength(result, len); high := len-1; for i := 0 to len-1 do begin rand := Random(0, high); result[i] := fl[rand]; fl[rand] := fl[high]; dec(high, 1); end; WriteFile(fname,xjoin(result,chr(13)+chr(10)));end;
And this not work (Bug in chealth := Player.Health; cvest := Player.Vest;)Code: [Select]procedure SetPlayerHealth(Player: TActivePlayer; Health, Vest: integer);var chealth, cvest, delta: integer;begin chealth := Player.Health; cvest := Player.Vest; if ((chealth=health) and (cvest=vest)) then exit; if (chealth = 0) then Player.Damage(Player.ID,1000); if (vest = 0) then begin while (cvest > 0) do begin Player.Damage(Player.ID,2); cvest := (cvest - 1); end; Player.Damage(Player.ID,(chealth-health)); exit; end else begin if (cvest = 0) then begin Player.GiveBonus(3); Player.BigText(HK,'',1,$D0D21D,0.112,20,360); cvest := 100; end; while (chealth <> health) do begin if (chealth < health) then delta := -1 else delta := 1; Player.Damage(Player.ID,3*delta); chealth := (chealth - delta); cvest := (cvest - delta); if (cvest < 0) then cvest := 0; if (cvest > 100) then cvest := 100; if (cvest = 0) then begin Player.GiveBonus(3); Player.BigText(HK,'',1,$D0D21D,0.112,20,360); cvest := 100; end; if (cvest <> vest) then begin if (cvest < vest) then delta := -1 else delta := 1; Player.Damage(Player.ID,2*delta); cvest := (cvest - delta); end; end; while (cvest <> vest) do begin if (cvest < vest) then delta := -1 else delta := 1; Player.Damage(Player.ID,2*delta); cvest := (cvest - delta); end; exit; end; Player.GiveBonus(3); Player.BigText(HK,'',1,$D0D21D,0.112,20,360); cvest := 100; while (cvest > vest) do begin Player.Damage(Player.ID,2); cvest := (cvest-1); end;end;