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

Search found 16 matches

by afibur
25.07.2014 13:26
Forum: Помощь по скриптам
Topic: Чета появилось вдохновение, есть идеи для скриптов?
Replies: 5
Views: 5404

Re: Чета появилось вдохновение, есть идеи для скриптов?

SailXY (Boolean) для корабля, с прокладыванием маршрута и обходом препятствий? :)
Очень универсальная штука.
by afibur
01.07.2014 0:08
Forum: Scripts
Topic: Фишинг RunUO
Replies: 6
Views: 7718

Re: Фишинг RunUO

Версия Стелса 6.4 была на момент теста.
by afibur
27.06.2014 14:06
Forum: Scripts
Topic: Фишинг RunUO
Replies: 6
Views: 7718

Re: Фишинг RunUO

Фишинг завелся с первой попытки (наверно потому что шарды наши похожи) :)
Но есть необходимость, после убийства моба облутить его (забрать SOS бутылку).
Не хочет ходилка newmoveXY ходить по кораблю.
В чем может быть проблема?
Заранее спасибо!
by afibur
24.05.2014 2:16
Forum: Помощь по скриптам
Topic: Stealth PVP
Replies: 9
Views: 8133

Re: Stealth PVP

Конечно :)
by afibur
23.05.2014 10:56
Forum: Помощь по скриптам
Topic: Stealth PVP
Replies: 9
Views: 8133

Re: Stealth PVP

Вопрос №2
суть: для эффективного пвп, необходимо всем бить одного.
задача: передать айдишник пати/гильде.
мой вариант решения: передавать через чат ID жертвы, остальные согильдейцы вылавливают это сообщение и ID в нем.

Есть ли вариант более "надежный"?
Спасибо!
by afibur
23.05.2014 10:49
Forum: Помощь по скриптам
Topic: Stealth PVP
Replies: 9
Views: 8133

Re: Stealth PVP

Program CharMacro; procedure miniheal; var IsCasting:Boolean; begin if not IsCasting then begin IsCasting:=True; if IsPoisoned (self) then begin cast ('Cure'); WaitForTarget(500); if targetpresent then begin TargetToObject(self); IsCasting:=False; end; end else begin cast ('Heal'); WaitForTarget(50...
by afibur
21.05.2014 15:40
Forum: Помощь по скриптам
Topic: Stealth PVP
Replies: 9
Views: 8133

Stealth PVP

Добрый день! Есть следующие процедурки для вызова из DLL: program support; procedure miniheal; begin if IsPoisoned (self) then begin cast ('Cure'); WaitForTarget(500); if targetpresent then begin TargetToObject(self); end; end else begin cast ('Heal'); WaitForTarget(500); if targetpresent then begin...
by afibur
01.04.2014 14:26
Forum: Помощь по скриптам
Topic: Отбор вещей из контейнера по свойствам
Replies: 8
Views: 7780

Отбор вещей из контейнера по свойствам

Сервер High Seas (AOS+).
Добрый день!
Хочу создать процедуру для лута вещей по свойствам (из трупов, сумок и тд.)
Подскажите, в сторону каких команд начинать думать?
Сам процесс должен быть таков: найти вещь, проверить свойства, забрать если вещь подошла по параметрам.
Спасибо!
by afibur
21.02.2014 1:06
Forum: Scripts
Topic: Mining SA
Replies: 82
Views: 84433

Re: Mining SA

Народ, помогите... Настраивают меседжи для копки, все верно поставил, все равно тупо вокруг обкапывается. Не хочет полностью выкапывать кочку. код procedure Mine(X, Y: Integer); var StaticData: TStaticCell; Tile: Word; Z: ShortInt; Finded: Boolean; Counter: Byte; StartTime: TDateTime; i: Integer; be...
by afibur
19.02.2014 1:59
Forum: Scripts
Topic: Mining SA
Replies: 82
Views: 84433

Re: Mining SA

1. Вопрос про скалы - надо ,infotile поюзать по скалам собрать примерную базу от х до у какие тайлы там есть, чтоб потом засунуть в автопоиск тайлов. Shinma писал скрипт под скалы, поищи там ето все уже есть. 2. Чтоб выкапывал до конца, нужно настроить месседжи системные чтоб они отвечали твоим сер...
by afibur
17.02.2014 17:56
Forum: Scripts
Topic: Mining SA
Replies: 82
Views: 84433

Re: Mining SA

1. Вопрос про скалы - надо ,infotile поюзать по скалам собрать примерную базу от х до у какие тайлы там есть, чтоб потом засунуть в автопоиск тайлов. Shinma писал скрипт под скалы, поищи там ето все уже есть. 2. Чтоб выкапывал до конца, нужно настроить месседжи системные чтоб они отвечали твоим сер...