Showing the SkillValue with UoSay

[canabisman]

Hello friends im back!

So, im having a little problem how can i show the value from an specific skill, i was trying like this:

Code: Select all

program showskill;

{$Include 'all.inc'} 

var
tempskill : integer;


Begin 
 UoSay('Show Magery Skill Test');
 tempskill := GetSkillValue('Magery');
 UoSay('Magery: '+IntToStr(tempskill');
end.

But it doesnt work, could someone show the correct way, thank you.. :DD

[canabisman]

Im getting this error:

Compiling
Compiler: [Error] (Show Skill Value Test.sc at 11:38): Type mismatch
Compiling failed
Script Show Skill Value Test.sc stopped successfuly

[Vizit0r]

Code: Select all

function GetSkillValue(SkillName: String): Double;

Double - float type, but integer - not

Code: Select all

tempskill := Round(GetSkillValue('Magery'));

or

Code: Select all

tempskill : double; 


Begin 
 UoSay('Show Magery Skill Test'); 
 tempskill := GetSkillValue('Magery'); 
 UoSay('Magery: '+FloatToStr(tempskill');

you may need functions like RoundTo or something like this

[canabisman]

It worked successfully thanks..

the only problem is that it shows like this

Magery: 50.0000000000

not

Magery: 50.0

it shows a lot of 0

but thats ok

[WladL]

Code: Select all

function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; 

http://delphi.about.com/library/rtl/blr ... ToStrF.htm

[canabisman]

thanks!

[elemeNt X]

You forget one ) in the last line

UoSay('Magery: '+IntToStr(tempskill'));