Code: Select all
program MusicUP;
// v.1.00 (c) Edred
{$Include 'all.inc'}
const
Lute = $0EB3;
var
MyLute : Cardinal;
OldSkill : Double;
Begin
if findtype( Lute, backpack) = 0 then exit;
MyLute := finditem;
OldSkill := GetSkillValue('Musicianship');
repeat
waitconnection(3000);
UseObject(MyLute);
wait(4000);
checksave;
if GetSkillValue('Musicianship') > OldSkill then
begin
AddToSystemJournal('Скилл вырос. Теперь он равен ' + FloatToStr(GetSkillValue('Musicianship')));
OldSkill := GetSkillValue('Musicianship');
end;
until GetSkillValue('Musicianship') >= 100.0;
End.