while (1) do
m = GetUserVal(uservar2);
if(m>0) then
PTP(P1,50,-1,0)
PTP(P2,50,-1,0)
PTP(P3,50,-1,0)
PTP(P2,50,-1,0)
end

end