begin
print ('mapaddobjbyname monster 石大王(这里就是打碎霸王石出来的怪物，可以自由调整) 80 40 10 38 false');
print ('bopickbymapname 地下采石场2层(这里是地图名，也就是霸王石只有在这里可以打出石大王) true');
end;
begin
print ('boiceallbyname 地下石巨人 monster true');
print ('bohitallbyname 地下石巨人 monster false');
n := 0;
end;
procedure OnHit (aStr : String);
var
Str : String;
Life : Integer;
begin
if n = 1 then exit;
Str := callfunc ('getlife');
Life := StrToInt (Str);
if Life <= 50000 then begin
print ('boiceallbyname 地下石巨人 monster false');
print ('bohitallbyname 地下石巨人 monster true');
n := 1;
exit;
end;
end;
end.
以上脚本设定二层的石巨人在石大王出现时不会动，石大王没出现时可以自由攻击（巨体设置不详解了，很简单的）
