Kod:
const
bl_start=$5C68B4;
player_id=$5C684C;
procedure playeronscreen;
//Classicus
var
adr,i:integer;
o1,o2,o3,o4,o5:integer;
begin
for i:=0 to 250 do
begin
adr:=bl_start+(i*156);
if memreadinteger(adr-4)=memreadinteger(player_id) then
begin
o1:=memreadinteger(adr+92);
o2:=memreadinteger(adr+96);
o3:=memreadinteger(adr+100);
o4:=memreadinteger(adr+104);
o5:=memreadinteger(adr+108);
continue;
end;
if memreadinteger(adr+40)=playerz then
if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7) then
if memreadinteger(adr+136)=1 then begin
if o1=memreadinteger(adr+92) then
if o2=memreadinteger(adr+96) then
if o3=memreadinteger(adr+100) then
if o4=memreadinteger(adr+104) then
if o5=memreadinteger(adr+108) then
alarm;
end;
end;
end;
begin
//twoj skrypt
playeronscreen();
end.
Zakładki