diff --git a/src/samplesrc/hgrtest.pla b/src/samplesrc/hgrtest.pla index f04b3d4..70206db 100644 --- a/src/samplesrc/hgrtest.pla +++ b/src/samplesrc/hgrtest.pla @@ -42,6 +42,7 @@ def testblt(sprtnum)#0 jj[0] = -1 if sprtnum for k = 1 to sprtnum + spriteAdd(k, spriteDup(sprtBall)) i[k] = ((i[k - 1] ^ 37) + 97) % 270 ii[k] = -ii[k - 1] j[k] = ((j[k - 1] ^ 29) + 53) % 180 @@ -74,21 +75,6 @@ testline memcpy($4000, $2000, $2000) // Copy to both buffers spriteDrawBuf(hgrDrawBuf(1)) spriteAdd(0, sprtBall) -spriteAdd(1, spriteDup(sprtBall)) -spriteAdd(2, spriteDup(sprtBall)) -spriteAdd(3, spriteDup(sprtBall)) -spriteAdd(4, spriteDup(sprtBall)) -spriteAdd(5, spriteDup(sprtBall)) -spriteAdd(6, spriteDup(sprtBall)) -spriteAdd(7, spriteDup(sprtBall)) -spriteAdd(8, spriteDup(sprtBall)) -spriteAdd(9, spriteDup(sprtBall)) -spriteAdd(10, spriteDup(sprtBall)) -spriteAdd(11, spriteDup(sprtBall)) -spriteAdd(12, spriteDup(sprtBall)) -spriteAdd(13, spriteDup(sprtBall)) -spriteAdd(14, spriteDup(sprtBall)) -spriteAdd(15, spriteDup(sprtBall)) testblt(16) getc txtMode diff --git a/src/samplesrc/sfm.pla b/src/samplesrc/sfm.pla index 548f54d..731eba7 100644 --- a/src/samplesrc/sfm.pla +++ b/src/samplesrc/sfm.pla @@ -422,9 +422,9 @@ def game(spdrcnt)#1 fin fin if lasercharge < FULL_CHARGE - lasercharge++ - hgrColor(1) - hgrRect((lasercharge - 1) * 4 + 5, YSHIP+6, lasercharge * 4 + 4, 188) + lasercharge++ + hgrColor(1) + hgrRect((lasercharge - 1) * 4 + 5, YSHIP+6, lasercharge * 4 + 4, 188) fin if btn1 and lasercharge == FULL_CHARGE // @@ -467,10 +467,18 @@ def game(spdrcnt)#1 // Draw Laser beams // hgrColor(3) - for k=0 to 1 - if leftxlaser + k >= 0; hgrXorVLin(leftylaser, YSHIP-8, leftxlaser+k); fin - if rightxlaser + k < 280;hgrXorVLin(rightylaser, YSHIP-8, rightxlaser-k); fin - next + //for k=0 to 1 + // if leftxlaser + k >= 0; hgrXorVLin(leftylaser, YSHIP-8, leftxlaser+k); fin + // if rightxlaser + k < 280;hgrXorVLin(rightylaser, YSHIP-8, rightxlaser-k); fin + //next + if leftxlaser >= 0 + hgrXorVLin(leftylaser, YSHIP-8, leftxlaser) + hgrXorVLin(leftylaser, YSHIP-8, leftxlaser+1) + fin + if rightxlaser < 280 + hgrXorVLin(rightylaser, YSHIP-8, rightxlaser) + hgrXorVLin(rightylaser, YSHIP-8, rightxlaser-1) + fin if lefthit <> 255 // // Hit @@ -543,10 +551,18 @@ def game(spdrcnt)#1 // Undraw lasers // hgrColor(3) - for k=0 to 1 - if leftxlaser + k >= 0; hgrXorVLin(leftylaser, YSHIP-8, leftxlaser+k); fin - if rightxlaser + k < 280;hgrXorVLin(rightylaser, YSHIP-8, rightxlaser-k); fin - next + //for k=0 to 1 + // if leftxlaser + k >= 0; hgrXorVLin(leftylaser, YSHIP-8, leftxlaser+k); fin + // if rightxlaser + k < 280;hgrXorVLin(rightylaser, YSHIP-8, rightxlaser-k); fin + //next + if leftxlaser >= 0 + hgrXorVLin(leftylaser, YSHIP-8, leftxlaser) + hgrXorVLin(leftylaser, YSHIP-8, leftxlaser+1) + fin + if rightxlaser < 280 + hgrXorVLin(rightylaser, YSHIP-8, rightxlaser) + hgrXorVLin(rightylaser, YSHIP-8, rightxlaser-1) + fin fin spritePosIndex(xship, YSHIP, SHIP_SPRTNUM) spriteDrawXorList()