Найден 1 результат
- Автор
- Сообщение
- 13 сен 2024, 18:12
- Форум: Информационный центр
- Тема: скрипт на бовкрафт
- Ответы: 20
- Просмотры: 6337
Re: скрипт на бовкрафт
Program BowCraft_arrows; var i : Integer; Const DaggerType = $0F51; ShaftsType = $1BD4; ArrowsType = $0F3F; FeathersType = $1BD1; {$Include 'all.inc'} procedure CheckShafts; var k : Integer; begin WaitConnection(3000); CheckSave; findtype(ShaftsType, ground); if (findquantity >= 100) then Exit; Disc...