324998301
|
Posted: Thu Nov 23, 2017 8:11 pm Post subject: running 2 different loops at the same time |
|
|
What is it you are trying to achieve?
I am trying to have the user move the ball while the squares in the background constantly move randomly
What is the problem you are having?
the squares only move when user clicks- you have to constantly click in order to have the squares move
Describe what you have tried to solve this problem
<Answer Here>
I tried incorporating the squares loop in the ball procedure but it did not work
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
setscreen ("graphics:1650,900")
Draw.FillBox (0, 0, maxx, maxy, 1)
var picWidth, picHeight : int
var newPic : int
var sheen := Pic.FileNew ("C:\\Users\\Family\\Downloads\\Turing 4.1.2\\Turing 4.1.2\\sheen.bmp")
var a : int := maxx div 2
var b : int := maxy div 2
var i : int
var font1 : int
var count : int := 0
var g, h, button : int
var f : int
%Pic.Draw (gorilla, 150, 70, picMerge)
font1 := Font.New ("comicsans:20")
drawfilloval (a, b, 200, 200, 55)
var x : string (1)
Font.Draw ("Use The W,A,S,D Keys ", 700, 500, font1, 23)
Font.Draw (" To Move The Ball", 700, 400, font1, 23)
var r : int
var t : int
procedure other
randint (i, 0, 245)
randint (r, 1, maxx)
randint (t, 1, maxy)
/* picWidth := Pic.Width (sheen)
picHeight := Pic.Height (sheen)
newPic := Pic.Scale (sheen, picWidth div 2,
picHeight div 2)
Pic.Draw (newPic, r, t, picMerge)
Pic.Free (newPic)
*/
drawfillbox (r, t, r + 40, t + 40, i)
end other
procedure alpha
loop
drawbox (maxx - 1572, maxy - 848, 1572, 848, black)
mousewhere (g, h, button)
locate (1, 10)
put "x is: ", g, " y is: ", h
randint (f, 0, 245)
other
other
other
other
other
other
other
other
other
other
other
other
other
other
other
other
other
other
other
other
getch (x)
cls
randint (i, 0, 240)
count := count + 1
%exit when count =100
if x = ("w") then
if b > 848 then
b := b
else
b := b + 50
end if
randint (f, 0, 245)
Draw.FillBox (0, 0, maxx, maxy, f)
drawfilloval (a, b, 40, 40, i)
%Pic.Draw (newPic, a, b, picMerge)
elsif x = "s" then
if b < maxy - 848 then
b := b
else
b := b - 50
end if
Draw.FillBox (0, 0, maxx, maxy, f)
drawfilloval (a, b, 40, 40, i)
%Pic.Draw (newPic, a, b, picMerge)
elsif x = "d" then
if a > 1572 then
a := a
else
a := a + 50
end if
Draw.FillBox (0, 0, maxx, maxy, f)
drawfilloval (a, b, 40, 40, i)
%Pic.Draw (newPic, a, b, picMerge)
elsif x = "a" then
if a < maxx - 1572 then
a := a
else
a := a - 50
end if
Draw.FillBox (0, 0, maxx, maxy, f)
drawfilloval (a, b, 40, 40, i)
%Pic.Draw (newPic, a, b, picMerge)
else
a := maxx div 2
b := maxy div 2
Draw.FillBox (0, 0, maxx, maxy, f)
drawfilloval (a, b, 40, 40, i)
%Pic.Draw (newPic, a, b, picMerge)
end if
randint (i, 0, 240)
end loop
end alpha
alpha
Please specify what version of Turing you are using
<Answer Here>
Turing 4.1.2 |
|
|