 Stealth, помощи прошу ) |
 16 марта 2010 21:31 Сообщение #1
|
|
помогите пожалста со скриптом на Stealth client. Суть в следующем: юзание предмета,лежащего в паке,когда в руках ничего нет (предъдущий сломался).Пасибо
|
|
|
|
|
 Сообщений: 350 Рег. 30.10.2009 |
16 марта 2010 23:29 Сообщение #2
|
program TT; begin while True do begin UseObject(FindType($0000,Backpack)); wait(5000); end; end.
Тип умеешь вписывать в стелс? |
|
|
|
|
|
17 марта 2010 05:58 Сообщение #3
|
|
Я думаю ему проверка нужна на наличие предыдущей вещи в руке.  |
|
|
|
|
Сообщений: 1684 Рег. 6.09.2009 |
17 марта 2010 07:37 Сообщение #4
|
function CheckPickaxe : Boolean; // Проверяем есть ли кирка и одеваем ее (если необходимо) в правую руку // возвращаем true - если все ок, false - если нет кирки // Проверка на то, что в руке у чара не кирка не производится! var tmpser : Cardinal; begin Result := true; if (ObjAtLayerEx(RhandLayer,self) = 0) then begin // ничего в руках нету tmpser := findtype(Pickaxe1,backpack); if tmpser = 0 then tmpser := findtype(Pickaxe2,backpack); if tmpser = 0 then begin Result := false; exit; end; if not equip(RhandLayer,tmpser) then begin wait(1000); if not equip(RhandLayer,tmpser) then begin &n bsp; Result := false; &n bsp; exit; end; end; wait(500); checksave; end; end; |
|
|
|
|
|
17 марта 2010 07:42 Сообщение #5
|
|
begin
while not Dead do if ObjAtLayer(RHandLayer) = 0 then if Count($xxxx) > 0 then begin UseObject(FindType($xxxx,Backpack)); repeat wait(50); until ObjAtLayer(RHandLayer) > 0 end else wait(50) end. Вот так норм. Тип вставь только. Это для одноручного. Если нужно двуручное - не RHandLayer, а LHandLayer. |
|
|
|
|
Последние посетители (0):
| Сейчас: 19 мая 2025 01:44 |