LockStat, LockSkill, SkillIS, StatIS, Display.....

[Ardno]

Zdrastvujte, u menja prosba dobavis' sledujshie funkcie esli vozmozhno

Izmennja lock statusa na skillah i statah

Code: Select all

LockStat('Stat name',Up|Down|Lock);

Code: Select all

LockSkill('Skill name',Up|Down|Lock);

Proverka lock statusa na skillah i statah

Code: Select all

SkillIS("Skill name") : Up|Down|Lock

Code: Select all

StatIS(STR|DEX|INT) : Up|Down|Lock

Funkcija po4ti kak v EasyUO

Code: Select all

Display('String',OK | OKCANCEL | YESNO | YESNOCANCEL)

Code: Select all

DispSel:OK | OKCANCEL | YESNO | YESNOCANCEL

Ozhidaet select opredelenoe vreme esli nebilo vibrano ni4ego togda zakrivaet display okno

Code: Select all

WatForDispSel(500)

Funkcija dump podobnaja var_dump kak u PHP

Code: Select all

Dump();

Exemplar:

Code: Select all

if GetSkillValue('Anatomy') > 50 then LockSkill('Anatomy',Lock);

###########
znaju 4to premer ne super no mozet v 1 den' prigaditca

Code: Select all

if StatIS(INT) <> Lock then LockStat(INT,Lock);

###########

Code: Select all

FindDistance := 2;
FindtypeEx($0190,$FFFF,Ground,True); 

if findtype <> 0 then
 begin
   Beep;
   Display(GetName(findtype)+' is near you',OK);
   Ignore(findtype);
   wait(120000);
   IgnoreReset;
 end;

###########

Code: Select all

WaitForDispSel(2000)
 if DispSel = OK then
   begin
     IgnoreReset;
   end;

###########

Sbrosit vsju info najdenova, ID, Type, FindDistance, Color.........

Code: Select all

 Dump(FindtypeEx($0190,$FFFF,Ground,True));

ili

Code: Select all

begin
 uosay('buy');
 Dump(GetShopList);
end.

zamena podonie funkcie

Code: Select all

var
i: Integer;
List: TStringList;
begin
  list:= TStringList.Create;
  uosay('buy');
...
  list.AddStrings(GetShopList);
  for i:= 0 to List.Count-1 do
...   
  list.free;     
end. 

[Vizit0r]

ох как много букаф, и не лень же было...
ладно, по порядку.

Zdrastvujte, u menja prosba dobavis' sledujshie funkcie esli vozmozhno

Izmennja lock statusa na skillah i statah

Code: Select all

LockStat('Stat name',Up|Down|Lock);

Code: Select all

LockSkill('Skill name',Up|Down|Lock);

Proverka lock statusa na skillah i statah

Code: Select all

SkillIS("Skill name") : Up|Down|Lock

Code: Select all

StatIS(STR|DEX|INT) : Up|Down|Lock

легко. не делал потому как думал, что никому не надо.

Funkcija po4ti kak v EasyUO

Code: Select all

Display('String',OK | OKCANCEL | YESNO | YESNOCANCEL)

Code: Select all

DispSel:OK | OKCANCEL | YESNO | YESNOCANCEL

ну, пожалуй можно, один момент только проверить надо.

Ozhidaet select opredelenoe vreme esli nebilo vibrano ni4ego togda zakrivaet display okno

Code: Select all

WatForDispSel(500)

а вот с этим куда сложнее. это надо отдельный класс рисовать. вряд ли.
хотя посмотрю, может когда будет время и слеплю быстренько.

Funkcija dump podobnaja var_dump kak u PHP

Code: Select all

Dump();

ну dump...и куда именно dump? в файл на диск?

###########

Sbrosit vsju info najdenova, ID, Type, FindDistance, Color.........

Code: Select all

 Dump(FindtypeEx($0190,$FFFF,Ground,True));

ili

Code: Select all

begin
 uosay('buy');
 Dump(GetShopList);
end.

zamena podonie funkcie

Code: Select all

var
i: Integer;
List: TStringList;
begin
  list:= TStringList.Create;
  uosay('buy');
...
  list.AddStrings(GetShopList);
  for i:= 0 to List.Count-1 do
...   
  list.free;     
end. 

ну уж нет. это совсем разные классы, кардинально. писать на них и на десяток других обработчики для дампа и не подумаю.
кстати, что именно дампить? в стринглисте кроме непосредственно строк еще еще пару десятков свойств. их тоже дампить? тебе не надо, а кому-то может и надо. а если брать все, то получится такая куча хлама, что по-любому выйдет легче воспользоваться функцией из примера.

Exemplar:

Code: Select all

if GetSkillValue('Anatomy') > 50 then LockSkill('Anatomy',Lock);

###########
znaju 4to premer ne super no mozet v 1 den' prigaditca

Code: Select all

if StatIS(INT) <> Lock then LockStat(INT,Lock);

###########

Code: Select all

FindDistance := 2;
FindtypeEx($0190,$FFFF,Ground,True); 

if findtype <> 0 then
 begin
   Beep;
   Display(GetName(findtype)+' is near you',OK);
   Ignore(findtype);
   wait(120000);
   IgnoreReset;
 end;

###########

Code: Select all

WaitForDispSel(2000)
 if DispSel = OK then
   begin
     IgnoreReset;
   end;

[Ardno]

Sposiba za poisnenija chego vozmozhno dobavet'

PS: znaju 4to moi slova ne dengi no ogromnoe sposiba za tvojo vreme i trud kotorij ti vladovaesh v etot projekt dla obleg4enija zhizni drugim ludam ()

[Vizit0r]

в следующей версии введу что писал
пожалуста

[Sonick071]

Вот как ряз тоже искал локи для статов и скилов! Скажите пжлста, в новом стелсе они уже есть? Допускаю что в доках еще нет, но стелс уже поддерживает эти функции.

[Vizit0r]

они уже есть пару лет как.
И в главном окне можно включать-выключать, и через скрипты.

[Sonick071]

Жалко что в доках не все методы описаны. SkillLockState

[Sonick071]

Где можно найти все-все методы которые есть в стелсе? Вот немного порывшись нашел еще SetStatState(0|1|2, 0|1|2). А гетеры есть?

[Vizit0r]

ExportedMethod^.FuncProc := 'procedure';
ExportedMethod^.FuncName := 'SkillLockState';
ExportedMethod^.FuncParamsCount := 2;
ExportedMethod^.FuncParams[0] := 'SkillName : String';
ExportedMethod^.FuncParams[1] := 'skillState : Byte';
ExportedMethod^.FuncReturnValue := '';

ExportedMethod^.FuncProc := 'procedure';
ExportedMethod^.FuncName := 'SetStatState';
ExportedMethod^.FuncParamsCount := 2;
ExportedMethod^.FuncParams[0] := 'statNum : Byte';
ExportedMethod^.FuncParams[1] := 'statState : Byte';
ExportedMethod^.FuncReturnValue := '';

Где можно найти все-все методы которые есть в стелсе?

ExportedMethod^.FuncProc := 'procedure';
ExportedMethod^.FuncName := 'PrintScriptMethodsList';
ExportedMethod^.FuncParamsCount := 2;
ExportedMethod^.FuncParams[0] := 'FileName : String';
ExportedMethod^.FuncParams[1] := 'SortedList : Boolean';
ExportedMethod^.FuncReturnValue := '';

А гетеры есть?

Не-а, никто не заказывал)