Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Search found 240 matches

by WladL
19.03.2010 16:37
Forum: Помощь по скриптам
Topic: использованиe For
Replies: 7
Views: 7282

Проблема была в том , что в текущей версии паскальскрипта функция high вовзращает значение не Integer(как-то не удосужился проверить что именно она вовзращает) и если использовать его влоб как for a:=0 to high(rbArr) do получим ошибку, а вот если сделать прямое приведение к типу Integer, for a:=0 to...
by WladL
19.03.2010 13:11
Forum: Помощь по скриптам
Topic: использованиe For
Replies: 7
Views: 7282

rbArr: Array of Cardinal;//ID буков

rbArr := [$xxxxxx,$yyyyyy,$zzzzzz]
rmax = 16
for a:=0 to Integer(high(rbArr)) do
for r:= 1 to rmax do
Recall(rbArr[a],r);
by WladL
07.03.2010 16:21
Forum: Помощь по скриптам
Topic: Помогите организовать.
Replies: 29
Views: 21634

Можно сделать по именам чаров если нет повторов в именах.Например через список имен чаров и раздать в нем чарам ИД а-ля var ID:Integer; procedure InitNameID; begin if CharName='Вася' then ID=0 else if CharName='Петя' then ID=1 else if CharName='Вова' then ID=2 else ...... end; далее в теле своей при...
by WladL
06.03.2010 22:02
Forum: Помощь по скриптам
Topic: И снова, или опять Lamberjecking.
Replies: 5
Views: 5900

Прям то, что ты хочешь сделать.
http://stealth.od.ua/forum/viewtopic.php?t=1395
by WladL
04.03.2010 16:04
Forum: Помощь по скриптам
Topic: Lumber
Replies: 3
Views: 4574

В настройках стелса путь к .mul - файлам указан корректно? Что-бы стелсовая ходилка работала, они обязательно должны быть подгружены.
by WladL
23.02.2010 3:59
Forum: Помощь по скриптам
Topic: StrToFloat
Replies: 4
Views: 5544

Re: StrToFloat

И почему ему не нравится число "21,77" которое я ему пытаюсь скормить :) Быть может потому , что ему больше нравится "21.77" ? На будующее, добавлены в стелс такие функции как TryStrToFloat, StrToFloatDef чтоб можно было избегать подобных проблем. Ну заодно еще и TryStrToInt...
by WladL
04.02.2010 22:11
Forum: Помощь по скриптам
Topic: Как узнать номер тайла
Replies: 32
Views: 26033

А косяк выскакивает часом не в момент передвижения чара (MoveXY)? Просто в текущей версии есть баг в ходилке вываливающий эту ошибку (в текущей тестовой версии исправлен). 13:08:01 [Lww]: Starting Mining script at : 24.08.2009 13:08:01 13:08:01 [Lww]: Go to : [0] 5670.2674 13:08:07 [Lww]: Mover: Res...
by WladL
03.02.2010 1:52
Forum: Помощь по скриптам
Topic: Как узнать номер тайла
Replies: 32
Views: 26033

Code: Select all

If (TargetPresent)  and (Tile0.StaticCount > 0) then TargetToTile(Tile0.Statics[0].Tile,(Tile0.Statics[0].X)+x,(Tile0.Statics[0].Y)+y,Getz(Self));
by WladL
03.02.2010 0:58
Forum: Помощь по скриптам
Topic: Скрипт на тайминг...
Replies: 10
Views: 9195

в твоем случае правильно так procedure First(s,s1:String); First('G','GGG'); а вообще вот program any; procedure First; //объявляем процедуру без параметров begin AddToSystemJournal('Proc First alive.') end; procedure Second(s:String; i:integer); //объявляем процедуру с параметрами begin AddToSystem...
by WladL
31.01.2010 23:20
Forum: Заявки на новые возможности
Topic: Reconnect
Replies: 5
Views: 8093

Я походу точно чего-то не понял. Ты хочешь сказать, что у тебя реконнектит только 1го чара, а остальные остаются в вечном дисконнекте?
by WladL
26.01.2010 1:48
Forum: Помощь по скриптам
Topic: Tracking for DRW
Replies: 5
Views: 5876

Встаешь возле банка Бриты, пускаешь скрипт, и через 2-4ч. скилл ГМ :) program Tracking; {$Include 'all.inc'} begin AutoMenu('Track','Play'); while (not dead) And (GetSkillValue('Tracking')<100) do begin UseSkill('Tracking'); CheckSave; wait(1000); if MenuPresent then CloseMenu; end; end.
by WladL
25.01.2010 18:36
Forum: Помощь по скриптам
Topic: ОГромнейшая просьба подсказать...
Replies: 10
Views: 9224

В чем проблема-то? Все и так должно юзаться. Главное переоткрыть сундук после реконнекта. NeedReopen := false; while true do begin while connected do begin .....скрипт..... ....место где юзаем сундук.... if NeedReopen then //проверим перед использованием, был-ли реконнект. OpenBox( ПервыйСундук );//...
by WladL
25.01.2010 18:17
Forum: Помощь по скриптам
Topic: Tracking for DRW
Replies: 5
Views: 5876

Скрипт на прокачку или на использование?
by WladL
15.01.2010 10:45
Forum: Scripts
Topic: Скрипт на Lumber. Шард Forest Wars.
Replies: 36
Views: 49059

randomnoob wrote:можно ли как-то обойтись без инжекта при записи рейл-файла? а именно как узнать тайл дерева на голом клиенте / асисте ?
можно:
http://stealth.od.ua/forum/viewtopic.php?p=6011#6011