//======Wolf===========//
procedure wolf Every 126 sec
if $wolff = 1
delay 1300
keydown 5 100 | 100
delay 50
end
end