@up @upup
Mnie nie obchodzi co byście woleli, czekam na Evera pod Tibianica (:
const
bl=$005C68B4;
bl_offset=156;
procedure licz;
var i,x:integer;
begin
i:=0
for i:=0 to 250 do begin
if Length(memreadstring(bl+(i*bl_offset)))>3 then i:=i+1;
end;
showmessage('There is '+i+' creatures on screen !');
end;
BEGIN
if iskey(?????) then begin
licz;
end;
END.
Ostatnio zmieniony przez BBsrv : 20-05-2014, 03:00
Kontakt ze mną:
pw
Ostatnio zmieniony przez Lord : 20-05-2014, 17:25
TIBIANTIS.ONLINE NAJLEPSZY SERWER 7.4
ONLINE SINCE 2020
Ostatnio zmieniony przez Foorlen : 10-09-2014, 17:04
begin
if getmp>100 then begin
movetoslot(10,6,ID_BLANK,1);
wait(1000);
say('adura vita');
wait(500);
movetoslot(6,3,ID_RUNY,1);
wait(500);
end;
end.
Ostatnio zmieniony przez Lord : 20-05-2014, 20:53
TIBIANTIS.ONLINE NAJLEPSZY SERWER 7.4
ONLINE SINCE 2020
Ostatnio zmieniony przez Foorlen : 10-09-2014, 17:04
TIBIANTIS.ONLINE NAJLEPSZY SERWER 7.4
ONLINE SINCE 2020
TIBIANTIS.ONLINE NAJLEPSZY SERWER 7.4
ONLINE SINCE 2020
Ostatnio zmieniony przez Wojtczak : 27-05-2014, 12:31
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki