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);
Code: Select all
SkillIS("Skill name") : Up|Down|Lock
Code: Select all
StatIS(STR|DEX|INT) : Up|Down|Lock
Code: Select all
Display('String',OK | OKCANCEL | YESNO | YESNOCANCEL)
Code: Select all
DispSel:OK | OKCANCEL | YESNO | YESNOCANCEL
Code: Select all
WatForDispSel(500)
Code: Select all
Dump();
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));
Code: Select all
begin
uosay('buy');
Dump(GetShopList);
end.
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.