well for starters (not sure if it's the only problem)
you don't have "sync on" when you set "sync rate 20" at line 18
try adding "sync on" before you set the sync rate
also i suggest putting your gosub calls
before your functions...
so it'd end up something like this...
`Pie Blast 1.
`======================
`©Colin Hart
`======================
`Main Source File
`Dimention the global varibles {performace quesiton on the forum}
newpiex# = 0
newpiey# = 0
newdirection# = 0
`general house keeping
hide mouse
sync on
sync rate 20
`Prep.
set image colorkey 185,234,255
load image "D:\Programming\std images\greencir.png", 1
`Plan is to load the image and then move the image,
`main program
gosub _loadimages
gosub _MainEngine
function piedirection(inputvalue as integer)
direction = rnd(175)
endfunction
_loadimages:
paste image 1, 100,100
sprite 1, 100,100,1
cls
print "Sprite being printed"
paste sprite 1, 400,400
paste sprite 1, 400,100
rotate sprite 1,90
Return
`Random Starting point around the screen.
_piestart:
pos#=rnd(2800)
if (pos# >0) and (pos#<800)
newpiex# = pos#
newpiey# = 0
print "L1"
wait key
endif
if (pos# >800) and (pos# < 1400)
newpiex# = 0
newpiey# = pos# - 640
print "L2"
wait key
endif
if (pos# > 1400) and (pos# < 2200)
newpiex# = pos# - 1120
newpiey# = 480
print "L3"
wait key
endif
if (pos# > 2200) and (pos# < 2800)
newpiex# = 0
newpiey# = pos# - 1120
print "L4"
wait key
endif
set cursor 5,435
print "Pie Starting Position"
print "Pie X = "; newpiex#
print "Pie Y = "; newpiey#
wait key
direction#=rnd(160)
return
_MainEngine:
`Main Engin.
`This should move the Sprite in the set direction, if the "LEFT Arrow KEy"
`is pressed at 10(0) onto the existign angle?
TimeToExit# = 0
repeat
sync
move sprite 1, 5
TimeToExit# = spacekey()
if leftkey() then rotate sprite 1, 10
until TimeToExit# = 1
ReturnQuote: "Help your self to the ideas, code. Please remember me when you all become rich and famouse."
111 lines...i'm really feeling rich
Hope that's a joke
"We make the worst games in the universe."
