Перейти к публикации
Rincewind

Беггинг

Рекомендованные сообщения

- Киса! Талант к нищенству у вас заложен с детства!

 

 

 

program arms;
var i,oldg : Integer;
Vendors: array of Cardinal;
Begin
Vendors := [
$003A8B1B,
$003A8B13,  
$0035524D,
$003A8AF6,
$003A8AFC,	  
$003A8B03,
$003A8B0A,
$003A8B23,
$003A8B29,
$003A8B31,
$003A8B3C,
$003A8B44,
$003A8B56
];
SetARStatus(true);


while (true) do
  begin

moveThroughNPC:=0;
uosay('.showclasse');
for i := 0 to Length(Vendors) - 1 do begin
NewMoveXY(Getx(vendors[i]),Gety(vendors[i]),True,0,True);

wait(1000);
WaitTargetobject(vendors[i]);
UseSkill('begging');  
wait(22000);

end;


  end;
end.

Массив Vendors надо заполнить ID вендоров, все, готово. Чар сам будет к ним бегать и просить на пропитание.

Изменено пользователем Rincewind

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Да, но если словят - посадят или скилл порежут. т.к запрещено правилами.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

каков радиус обхвата? неограничен? или вендоры должны стоять на каком-то макс. расстоянии друг от друга? Двери открывает? я так и не разобрался с функцией открывания дверей в стелсе)

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

×
×
  • Создать...