WT-Fakawi
2006-03-12 04:39:19
Below a small script to witness the difference between the two MMouse algorhythms.
[FONT="Courier New"]//----------------------------------------------------------------------------//
// SRL Mouse Demo
//----------------------------------------------------------------------------//
// This script demonstrates SRL two main mousemodes:
// - BenLand100 mouse mode
// - Mutant Squirrle/RsN mouse mode
//
// The different mouse modes are toggled using the global var BenMouse: Boolean
// You can set BenMouse to True or False anywhere inside your script, but
// recommended @ startup.
//----------------------------------------------------------------------------//
program MouseToggle;
{.include SRL/SRL.scar}
var
w,h: Integer;
toggle: Boolean;
begin
SetupSRL;
GetClientDimensions(w,h);
writeln('Width = '+ IntToStr(w)+' Height = '+ IntToStr(h));
repeat
if Toggle then
begin
Toggle:=False
writeln('BenMouse = False')
end
else
begin
Toggle:=True;
writeln('BenMouse = True')
end;
BenMouse:=Toggle;
MMouse(0, 0, 0, 0);
MMouse(w, h, 0, 0);
until(false);
end.[/FONT]
