Whats up here? - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|515\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Whats up here?
Wed, 25 Apr 2018, 14:43
spinal	Whats up here? OK, I haven't BLitzed in such a long time, why the hell does this not work? Don't worry, it's really short... Graphics 220,176,0,2 AppTitle "Test" px = 0 py = 0 bgColour = ReadPixel(0,0) Color 255,255,255 Plot 0,0 wallColour = ReadPixel(0,0) frameCount=0 While Not KeyHit(1) Delay(2) frameCount=frameCount+1 If frameCount=10 Then frameCount=0 If KeyDown(200) Then ; up arrow If ReadPixel(py-1,px) <> wallColor Then py=py-1 End If End If If KeyDown(208) Then ; down arrow If ReadPixel(py+1,px) <> wallColor Then py=py+1 End If End If If KeyDown(203) Then ; left arrow If ReadPixel(py,px-1) <> wallColor Then px=px-1 End If End If If KeyDown(205) Then ; right arrow If ReadPixel(py,px+1) <> wallColor Then px=px+1 End If End If End If Plot px,py Wend End --v -=-=- Check out my excellent homepage!
Wed, 25 Apr 2018, 14:57
Jayenkai	Flip?
Wed, 25 Apr 2018, 23:56
spinal	Nope. Further explanation - It should stop when you bump into a line, it doesn't. -=-=- Check out my excellent homepage!
Thu, 26 Apr 2018, 11:22
jm2bits	Should your ReadPixels be the other way around? eg ReadPixel(py,px+1) Should be ReadPixel(px+1, py) ??
Thu, 26 Apr 2018, 13:17
spinal	Yes, however, fixing it didn't make the code work Graphics 220,176,0,2 AppTitle "Test" px = 0 py = 0 bgColour = ReadPixel(0,0) Color 255,255,255 Plot 0,0 wallColour = ReadPixel(0,0) frameCount=0 While Not KeyHit(1) Delay(2) frameCount=frameCount+1 If frameCount=10 Then frameCount=0 If KeyDown(200) Then ; up arrow If ReadPixel(px,py-1) <> wallColor Then py=py-1 End If End If If KeyDown(208) Then ; down arrow If ReadPixel(px,py+1) <> wallColor Then py=py+1 End If End If If KeyDown(203) Then ; left arrow If ReadPixel(px-1,py) <> wallColor Then px=px-1 End If End If If KeyDown(205) Then ; right arrow If ReadPixel(px+1,py) <> wallColor Then px=px+1 End If End If End If Plot px,py Wend End --v \|edit\| readpixel is returning -1 always... -=-=- Check out my excellent homepage!
Thu, 26 Apr 2018, 13:46
jm2bits	Your issue is a typo wallColour = Readpixel(0, 0) vs <> wallColor
Thu, 26 Apr 2018, 13:53
spinal	Dammit. Thanks jm2bits
Thu, 26 Apr 2018, 15:24
therevillsgames	SuperStrict/Strict for the win!