Window Follow

[Carey]

Quick program that took like 2 minuts to make.

Turing:

%size of window const hx := 100 const hy := 100 var mx, my, mb : int var x, y := 10 var win := Window.Open ("graphics:" + intstr (hx * 2) + ";" + intstr (hy * 2) + ", position:0;0") loop     Mouse.Where (mx, my, mb)     %remove the next line to evoke frustrated screams :)     exit when mb > 0     if mx not= hx or my not= hy then         x -= hx - mx         y -= hy - my         setscreen ("position:" + intstr (x) + ";" + intstr (y))     end if end loop

[Sean]

It's an interesting program but if you click, it stops and you can't start it again.

Now, your challenge would be to fix that.

Other then that, I like it!

[DaveAngus]

Really cool.
I like that.
And yes the whole clicking thing would be a good fix.
Also, maybe use that to make something within the run box.
So make an object follow it.
I'm not sure just trying to help you keep thinking about programs.
Good job none the less!

-Dave

[Sean]

Turing:

exit when mb > 0

My bad, didn't notice the exit when I first took a look at it.

[SIXAXIS]

I changed the code a bit so that to move the window you have to click and to exit you can press ALT+F4.

Turing:

%size of window const hx := 100 const hy := 100 var mx, my, mb : int var chars : array char of boolean var x, y := 10 var win := Window.Open ("graphics:" + intstr (hx * 2) + ";" + intstr (hy * 2) + ", position:0;0") loop     Input.KeyDown (chars)     if chars (KEY_ALT) and chars (KEY_F4) then         exit     end if     Mouse.Where (mx, my, mb)     if mb = 1 then         %remove the next line to evoke frustrated screams :)         if mx not= hx or my not= hy then             x -= hx - mx             y -= hy - my             setscreen ("position:" + intstr (x) + ";" + intstr (y))         end if     end if end loop

Hope you don't mind I changed it Carey.

[BigBear]

I like how you click the x in the top corner to terminate program it just teleports and doesn't work.
You should close the window when alt-F4 is pressed.

[Carey]

Ha. Ya it was fun to stick it in the startup folder with the exit line removed and watch my brother (not great with computers) try for about 10 minutes to close it, until i took pity on him and told him how to get to the task manager to shut it down.

@SIXAXIS nah i don't mind. Its cool your way too. maybe put it on a delay or something so when the user finally gets it to stop following the mouse and thinks they have won......They click the x and it teleports again ahh.......infinite doom and carnage Without the press alt-F4 of course >