Имеем скрипт:
Code: Select all
var
b : TStringList;
bb, s: String;
a: Extended;
Begin
b := TStringList.Create;
setsilentmode(false);
GetGumpTextLines(GetGumpsCount-1,b);
SetGlobal('stealth','TestVar1',b.Strings[309]);
s:=GetGlobal('stealth','TestVar1');
AddToSystemJournal(s);
bb:=(b.Strings[309])
If (BMSearch(0, bb, 'Amount') > 0) Then Delete(bb, Pos('Amount', bb), 14);
//a:=StrToInt(bb);
a:=StrToFloat(bb);
if (a > 1) then
Begin
AddToSystemJournal('!');
End;
Code: Select all
15:27:50 [EVILORD]: Exception: Invalid float at 0.625
15:27:50 [EVILORD]: Script test.sc stopped successfuly
15:31:26 [EVILORD]: Character EVILORD Disconnected.