Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Search found 30 matches
- 18.10.2011 23:31
- Forum: Основной раздел
- Topic: Stealth 3.7-3.8-3.9 Обсуждение
- Replies: 287
- Views: 194384
Re: Stealth 3.7-3.8-3.9 Обсуждение
что вы наделали со стелсом, бандиты? :mrgreen: в прошлой версии все работало! использую сркипт на ламбер из http://stealth.od.ua/forum/viewtopic.php?f=3&t=1906 выдает ошибку Type mismatch при использовании проверки if (ChopTilesArray[j] = TempFoundTilesArray[i]) then из type ChopTile = Record x,...
- 02.10.2011 13:11
- Forum: Scripts
- Topic: Autolumber - ламбер с автопоиском деревьев
- Replies: 96
- Views: 153478
Re: Autolumber - ламбер с автопоиском деревьев
офигенный скрипт! главное, что очень качественное ядро, а дальше уже вешай что хочь....
завелся с пол-оборота
автору респект
завелся с пол-оборота
автору респект
- 22.03.2010 14:51
- Forum: Помощь по скриптам
- Topic: trade
- Replies: 3
- Views: 4361
что-то типа
Code: Select all
procedure test;
begin
if bla bla bla then ВЫХОД_ИЗ_ПРОЦЕДУРЫ
...
до этого месте не доходит если условие бла бла выполняется
end;
begin
test;
end.
- 20.03.2010 16:34
- Forum: Помощь по скриптам
- Topic: trade
- Replies: 3
- Views: 4361
trade
Ребят, кто работал с этой функцией поделитесь примерчиком или кусочком скрипта
заранее спасибо
ПС: еще нубский вопрос. как организовать прерывание в процедуре?
заранее спасибо
ПС: еще нубский вопрос. как организовать прерывание в процедуре?
- 20.02.2010 17:43
- Forum: Помощь по скриптам
- Topic: помагит переделать скрипт inj v steals
- Replies: 1
- Views: 3338
Code: Select all
program hide;
begin
repeat
while not hidden do
begin
SetWarMode(false);
UseSkill('Hiding');
wait(1000);
end;
until false;
end.
- 17.02.2010 20:29
- Forum: Помощь по скриптам
- Topic: trade функции
- Replies: 2
- Views: 4234
- 01.02.2010 15:35
- Forum: Scripts
- Topic: Парсер строк результата функции GetGumpFullLines
- Replies: 3
- Views: 8190
кто может объяснить работу этого скрипта? function GetButtonNumFromRBForRune(RBID : Cardinal; runeNum : Byte) : Word; var GumpLines : TStringList; GumpsCount : Byte; i : Word; a : String; ButtonStringStart,Butt_Num : Word; stime : TDateTime; begin GumpLines := TStringList.Create; // закрываем гамп, ...
- 31.01.2010 20:10
- Forum: Помощь по скриптам
- Topic: Animal Taming -> Kill
- Replies: 16
- Views: 15190
- 31.01.2010 19:36
- Forum: Помощь по скриптам
- Topic: Animal Taming -> Kill
- Replies: 16
- Views: 15190
[quote="45vvv"]
Code: Select all
uosay('all come' );
if FindTypeEx(animal, $FFFF, ground, false) <> 0 then
Attack(FindItem);
wait(2000);
until FindTypeEx(animal, $FFFF, ground, false) = 0;
end;
CheckSave;
end;
wait(10000);
until dead;
end.
- 31.01.2010 19:12
- Forum: Помощь по скриптам
- Topic: Animal Taming -> Kill
- Replies: 16
- Views: 15190
измени свои строки на: while FindTypeEx(animal, $FFFF, ground, false) <> 0 do begin while not connected do wait(100); if dead then exit; сам не знаю, что в моей конструкции не так. кстати, у тебя скрипт не зацыклен. если нужно чтоб он проверял бесконечно, скажем, раз в 10 секунд repeat while FindTyp...
- 31.01.2010 19:00
- Forum: Помощь по скриптам
- Topic: Animal Taming -> Kill
- Replies: 16
- Views: 15190
- 31.01.2010 18:42
- Forum: Помощь по скриптам
- Topic: Animal Taming -> Kill
- Replies: 16
- Views: 15190
- 31.01.2010 17:26
- Forum: Помощь по скриптам
- Topic: Animal Taming -> Kill
- Replies: 16
- Views: 15190
program tamingKill; var k : integer; ctime : TDateTime; const animal := ; {$Include 'all.inc'} Begin FindDistance := 10; FindVertical := 20; //нужно ли тебе искать в разной //высоте? while FindTypeEx(animal, $FFFF, ground, false) <> 0 and (not dead) do begin while not connected do wait(100); SetWar...
- 29.01.2010 9:40
- Forum: Помощь по скриптам
- Topic: Alchemy Gump Forgotten World
- Replies: 7
- Views: 7545
- 28.01.2010 14:17
- Forum: Помощь по скриптам
- Topic: Alchemy Gump Forgotten World
- Replies: 7
- Views: 7545
спасибо за помощь! получилось вот что: program test; {$Include 'all.inc'} var k:integer; TimeStart : TDateTime; begin {while IsGump = true do begin CloseSimpleGump(GetGumpsCount); wait(500); end; } Checksave; usetype($0E9B, $0000); while GetGumpID(GetGumpsCount-1) <> $3B do wait(100); WaitGump('802'...