Musicianship

[Edred]

Как всю жизнь качали? На Уолупе повтор LastObject ставили? А вот что можно из этого сделать на стелсе...

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.