CMAK написал(а):
Про переменную понял. А это условие будет работать?
про break точно не помню, надо почитать лучше, вроде как брик выходит из цикла и такой метод особо не подходит, так как может завершить скрипт (?).
лучше использовать что-то вроде while(user.incombat)
procedure CheckAttackingMobs;
begin
//print('Проверяем, аттакуют ли нас мобы');
while user.incombat do
begin
if(user.target.incombat) then engine.attack(1000);
if(user.target.dead) then engine.canceltarget;
delay(100);
end;
//print('Мобы не атакуют
');
end;
я как-то использовал такой костыль, перед ним отключался интерфейс, так как по механике игры если моб нас атакует то возьмет в таргет, таким образом после убийства прицепившихся мобов таргет снимается и берется автоматом на моба, который бьет нас, после того как чар будет не в "стойке" можно продолжать скрипт.
procedure lvl1_6;
begin
print('1-6 лвл');
print('Телепорт Talking Island Village -> Obelisk of Victory');
while not user.inrange(-99586, 237637, -3552, 250, 1000) do
begin
engine.bypasstoserver('_bbshome');
delay(d);
engine.bypasstoserver('_bbsteleport');
delay(d);
engine.bypasstoserver('_bbsteleport
age teleport_location');
delay(d);
engine.bypasstoserver('_bbsteleport
age teleport_villages_locations_human');
delay(d);
engine.bypasstoserver('_bbsteleport:go -99586 237637 -3568');
delay(d_tp);
end;
exp_until(6);
end;
Код:
procedure exp_until(level:integer);
begin
print('Начинаем фармить мобов');
while user.level<level do
begin
if(user.dead) then
begin
engine.FaceControl(0,false);
engine.gohome(rtTown);
break;
end;
engine.FaceControl(0,true);
delay(d);
end;
engine.FaceControl(0,false);
print('Заканчиваем фармить мобов');
CheckAttackingMobs;
end;
если код много раз повторяется, как в моем примере запуска на споте на фарм до n уровня то лучше реализовать все через процедуры, для дальнейшей простой модификации кода через процедуры.
грубо говоря табуляция это когда в коде есть отступы, в каждом вложенном for, while, if, etc.
Код:
procedure autoFollow(nickName: string = '');
var
followActor: TL2Live;
begin
while Engine.Status = lsOnline do
begin
delay(50);
if isCasting(User) or (Party.Chars.Count = 0) or not turnOn then
continue;
if (Length(nickName) = 0) or not Party.Chars.ByName(nickName, followActor) then
followActor := Party.leader;
if (User.DistTo(followActor) > 300) and (User.DistTo(followActor) < 3000)
{and (partyCount(pClarityF, true) = 0)
and (partyCount(pMentalF, true) = 0)
//and (partyCount(pResistShockF, true) = 0)
and (partyCount(pWildMagicF, true) = 0)
and (partyCount(pSpiritF, true) = 0)
and (partyCount(pConcentrationF, true) = 0) }
and not isStunned(User) and not isRooted(User) and not isAffraid(User)
then
Engine.MoveTo(followActor, -200);
end;
end;
Код:
procedure moveToLocWithCheck(coordHolder: DimensionArray; mobsCheckRange: integer = 200; mobsCountToAttack: integer = 4);
var
i: integer;
_index: integer;
begin
_index := 0;
_index := getClosestLoc(coordHolder);
try
if (inRange(User, isleX, isleY, isleZ, isleRange)) then
begin
delay(1000);
if (Length(coordHolder) > 0) then
begin
for i:=_index to Length(coordHolder)-1 do
begin
if not canMoveTo(coordHolder[i, 0], coordHolder[i, 1]) then
begin
continue;
print('Tyrannosaur on my way..');
end;
Engine.MoveTo(coordHolder[i, 0], coordHolder[i, 1], coordHolder[i, 2]);
if (countNpcs(400) > 5) then
delay(2000)
else
delay(300);
if (countNpcs(120) > mobsCountToAttack) then
attackMobs;
end;
end;
end
else
print('Oh, I am not on isle');
except
print('Exception in back function');
end;
end;
