Посадил гм? - не беда

[dontfear]

Увидел созданную тему и вспомнил, что писал процеду от проверки ГМами.

procedure GM_Sit;
begin
	while true do begin
		if User.Sitting then begin
			Engine.FaceControl(0,false);
			Engine.BlinkWindow(true);
			delay(5000);
			Engine.Say('Ебушки воробушки, меня приземлили',3,'');
			Script.Stop;
		end;
		delay(50);		
	end;	
end;


begin
	Script.NewThread(@GM_Sit);
end.

 

[SARCAZM]

Engine.Say('Ебушки воробушки, меня приземлили',3,'');

 

[cravil]

Простенько но полезно.
Только если сажать будут больше одного раза, а скрипт то на стопе. В афк версии можно поменять

Script.Stop;

на

delay(10000);
engine.FaceControl(0, true);