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

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

Only for requests.
Post Reply
Ardno
Neophyte
Neophyte
Posts: 24
Joined: 15.08.2009 20:06

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

Post by 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. 
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by Vizit0r »

ох как много букаф, и не лень же было...
ладно, по порядку.
Ardno wrote: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
легко. не делал потому как думал, что никому не надо.
Ardno wrote:Funkcija po4ti kak v EasyUO

Code: Select all

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

Code: Select all

DispSel:OK | OKCANCEL | YESNO | YESNOCANCEL
ну, пожалуй можно, один момент только проверить надо.
Ardno wrote:Ozhidaet select opredelenoe vreme esli nebilo vibrano ni4ego togda zakrivaet display okno

Code: Select all

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

Ardno wrote:Funkcija dump podobnaja var_dump kak u PHP

Code: Select all

Dump();
ну dump...и куда именно dump? в файл на диск?
Ardno wrote: ###########

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

Ardno wrote: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
Neophyte
Neophyte
Posts: 24
Joined: 15.08.2009 20:06

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by 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 :) ()
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

в следующей версии введу что писал
пожалуста :)
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Sonick071
Neophyte
Neophyte
Posts: 41
Joined: 21.04.2015 22:27

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by Sonick071 »

Вот как ряз тоже искал локи для статов и скилов! Скажите пжлста, в новом стелсе они уже есть? Допускаю что в доках еще нет, но стелс уже поддерживает эти функции.
Если б не было stealth, то его следовало б придумать!
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by Vizit0r »

они уже есть пару лет как.
И в главном окне можно включать-выключать, и через скрипты.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Sonick071
Neophyte
Neophyte
Posts: 41
Joined: 21.04.2015 22:27

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by Sonick071 »

Жалко что в доках не все методы описаны. SkillLockState
Если б не было stealth, то его следовало б придумать!
Sonick071
Neophyte
Neophyte
Posts: 41
Joined: 21.04.2015 22:27

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by Sonick071 »

Где можно найти все-все методы которые есть в стелсе? Вот немного порывшись нашел еще SetStatState(0|1|2, 0|1|2). А гетеры есть?
Если б не было stealth, то его следовало б придумать!
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: LockStat, LockSkill, SkillIS, StatIS, Display.....

Post by 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 := '';

Sonick071 wrote:Где можно найти все-все методы которые есть в стелсе?
ExportedMethod^.FuncProc := 'procedure';
ExportedMethod^.FuncName := 'PrintScriptMethodsList';
ExportedMethod^.FuncParamsCount := 2;
ExportedMethod^.FuncParams[0] := 'FileName : String';
ExportedMethod^.FuncParams[1] := 'SortedList : Boolean';
ExportedMethod^.FuncReturnValue := '';
Sonick071 wrote:А гетеры есть?
Не-а, никто не заказывал)
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Post Reply