What is it you are trying to achieve?
<Replace all the <> with your answers/code and remove the <>>
let my screen stop flashing
What is the problem you are having?
<Answer Here>
It was ok before i added the menu and instruction. But after I combined my menu and the function parts, the screen is keep on flashing while it is running the game.
Describe what you have tried to solve this problem
<Answer Here>
I checked my code and everything, I don't know what to do
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
%The creature program
%my name
%December 8th 2013
setscreen ("graphics:max;max")
setscreen ("nobuttonbar")
var word, start, instruction : string
var font1, font2 : int
var font, xb, yb, notused1, notused2 : int
var background, background2, instructionpage : int
var y, yChange, yMag, width, stickX, stickY, height, jumpheight : int
width := maxx
var yValues : array 1 .. width of int
var chars : array char of boolean
var picship, sprites, obstaclepic : int
%----------------------------------------------------------cover page
background := Pic.FileNew ("358_max.jpg")
background := Pic.Scale (background, maxx, maxy)
font1 := Font.New ("Trajan Pro:100")
word := "Escape"
loop
%-----------------------------------------------------------menu
Pic.Draw (background, 0, 0, picMerge)
Font.Draw (word, 150, maxy div 2, font1, 164)
start := "Pess any key to Begin"
instruction := "Instruction"
font2 := Font.New ("Trajan Pro:30:underline")
Font.Draw (instruction, 900, 200, font2, 164)
buttonwait ("down", xb, yb, notused1, notused2)
%-------------------------------------------------------------instruction
if xb > 900 and xb < 1200 and yb > 200 and yb < 230 then
instructionpage := Pic.FileNew ("instruction copy.jpg")
instructionpage := Pic.Scale (instructionpage, maxx, maxy)
Pic.Draw (instructionpage, 0, 0, picMerge)
Font.Draw (start, 700, 100, font2, 164)
end if
Input.Pause
%------------------------------------------------------------game
%SET THE INITIAL VARIABLES
for lines : 1 .. width
yValues (lines) := 80
end for
stickX := width div 2
stickY := 120
picship := Pic.FileNew ("ship.bmp")
sprites := Sprite.New (picship)
y := 80
background2 := Pic.FileNew ("334_max.jpg")
background2 := Pic.Scale (background2, maxx, maxy)
var obstacleY : array 1 .. 40 of int
var obstacle := Pic.FileNew ("images.jpeg")
obstacle := Pic.Scale (obstacle, 100, 100)
var obstacleX : int := maxx div 50
randint (obstacleX, 0, maxx)
for i : 1 .. 40
randint (height, maxy, 2 * maxy)
obstacleY (i) := height
end for
obstacle := Pic.Scale (obstacle, 100, 100)
% main loop
loop
%%%%%SECTION FOR DRAWING THE GROUND
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% sets all of the lines back
for lines : 1 .. width - 1
yValues (lines) := yValues (lines + 1)
end for
% determine height change for next line
randint (yChange, -1, 1)
% determines if the change will be magnified, (only 1% of the time)
randint (yMag, 1, 100)
if yMag = 1 then % if the change will be magnified, magnify it by a factor of maxy
yChange *= maxy div 6
end if
%checks to make sure the change does not go off the screen, or to the bottom
if y + yChange > maxy - maxy div 6 or y + yChange < 0 then
yChange *= -1 % if it does, make the change in the opposite direction
end if
% sets the y value of the new line to the value of the previous plus the change
y += yChange
yValues (width) := y
% draw all the lines that make up the ground
for line : 1 .. width
drawline (line, 0, line, yValues (line), black)
end for
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%beans
for i : 1 .. 40
% make each arrow fall 1/200th of the screen per round
obstacleY (i) := obstacleY (i) - maxy div 200
% if an arrow falls below the screen then...
if obstacleY (i) < - (maxy div 15) then
% set arrow to above the screen, by some random margin
% (effects when arrow will come into screen view again)
randint (height, maxy, 2 * maxy)
obstacleY (i) := height
end if
% draw an arror
Pic.Draw (obstacle, i * maxx div 40, obstacleY (i), picMerge)
end for % phew, the whole arrow section is over
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
stickY := stickY + 8
end if
if chars (KEY_RIGHT_ARROW) then
stickX := stickX + 8
end if
if chars (KEY_LEFT_ARROW) then
stickX := stickX - 8
end if
if chars (KEY_DOWN_ARROW) then
stickY := stickY - 8
end if
Sprite.SetPosition (sprites, stickX, stickY, true)
delay (10)
if whatdotcolour (stickX, stickY) = black then
exit
end if
% draw the spries
Sprite.Show (sprites)
% delay (allows for the computer to process)
delay (4)
% update the monitor
View.Update
% clear everything
Pic.Draw (background2, 0, 0, picMerge)
end loop
Sprite.Hide( sprites )
Pic.Draw (background, 0, 0, picMerge)
end loop
| Turing: |
<Add your code here> |
Please specify what version of Turing you are using
4.1