const
bl=$005C68B4;
bl_offset=156;
procedure stopattack;
var p: array [0..0] of byte;
begin
p[0]:=$BF;
packet(p,1);
end;

procedure monk;
var i:integer;
begin
for i:=0 to 250 do begin
if (memreadstring(bl+(i*bl_offset))='Bonk') and (memreadinteger(bl+(i*bl_offset)+128)>80) then begin memwritestring(bl+(i*bl_offset),'Monk',4); end;
if (memreadstring(bl+(i*bl_offset))='Monk') and (memreadinteger(bl+(i*bl_offset)+128)<70) then begin memwritestring(bl+(i*bl_offset),'Bonk',4);
stopattack; cleartarget;
end;
end;
end;

BEGIN
if getmp>30 then say('exura');
monk;
end.
