Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Anty No Start Up - skrypt


dominikk261

Rekomendowane odpowiedzi

Opublikowano
Napisałem prosty szablon dla anty no startupup, gdzie if Ticks mod (0) = 0 then begin w nawiasach dajemy czas w milisekundach jaki upływa od czasu nacieknięcia spustu do strzału czas powinien wynosić -1. Dla berrety było to chyba nie pamiętam ile musicie to pobadać bo mi się nie chciało ale wracając chyba 18 czyli musicie dać 17.

var
Ammo, Weap, fire, click: array[1..32] of byte;
 
procedure ActivateServer();
var i: byte;
begin
AppOnIdleTimer := 1;
for i := 1 to 32 do begin
Ammo[i] := 0; Weap[i] := 0; fire[i] := 0; click[i] := 0;
end;
end;
 
procedure OnPlayerShoot(ID, Weapon: byte);
begin
if (fire[ID] = 0) then begin
Command('/say ' + GetPlayerStat(ID,'Name') + ' has fired a ' + WeaponNamebyNum(Weapon) + '.');
click[id] := 0;
end else
begin
Command('/say ' + GetPlayerStat(ID,'Name') + ' use hack in fired a ' + WeaponNamebyNum(Weapon) + '.');
click[id] := 0;
end;
end;
 
procedure ShootKeyCheck();
var
  i: byte;
begin
for i := 1 to 32 do if (GetPlayerStat(i,'Active') = true) and (GetPlayerStat(i,'Ammo') <> Ammo[i]) then begin
if (GetKeyPress(i, 'Shoot') = true) and (GetPlayerStat(i,'Ammo') >= 0) and (click[i] = 0) then begin
Command('/say 001');
fire[i] := 1;
click[i] := 1;
end;
if (GetKeyPress(i, 'Shoot') = true) and (GetPlayerStat(i,'Primary') = Weap[i]) and (GetPlayerStat(i,'Ammo') >= 0) and (GetPlayerStat(i,'Ammo') < Ammo[i]) then OnPlayerShoot(i,GetPlayerStat(i,'Primary'));
Weap[i] := GetPlayerStat(i,'Primary');
Ammo[i] := GetPlayerStat(i,'Ammo');
Command('/say 002');
end;
end;
 
procedure AppOnIdle(Ticks: Cardinal);
var i:byte;
begin
ShootKeyCheck();
for i := 1 to 32 do begin 
if (fire[i] = 1) and (GetPlayerStat(i,'Active') = true) then begin
if Ticks mod (0) = 0 then begin
fire[i] := 0;
Command('/say 004');
end;
Command('/say 003');
end;
end;
end;

Komendy z say maja ułatwić badanie doświadczone osoby szczają jak to działa i napiszą do końca ten skrypt, mi się nie chce poprostu wiec daje wam ten patent.

Opublikowano

najpierw podaje adresy jak podrasowac bronie, teraz pisze antycheaty (probuje pisać? bo czymże innym jest ten kawałek niedziałającego i tragicznie napisanego kodu) WTF gdzie tu logika; btw ten watek bardziej pasuje jako temat na oficjalnym forum soldata

  • 2 tygodnie później...
Opublikowano

dominik znany również jako Dokos, Kolos i PMG| DonEvolarao(w zasadzie wszystkie odmiany PMG to dominik)

 

znów nieudolnie stara się haxować... żal cie człowieku.

A ta twoja stronka xxx jest po prostu tragiczna jak wszystkie twoje próby zrobienia wrażenia na innych... zajmi się pomaganiem rodzicom a nie bawisz się w hakera bo to nie zabawa dla dzieci.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...