Code:
for a = 0 to columns-1 for b = 0 to rows-1 if spritemode(map(a,b)) = 1 then cmin = (a*16)-15: cmax = (a*16)+15 rmin = (b*16)-15: rmax = (b*16)+15 if r >= rmin and r <rmax>= cmin and c <= cmax then if r = rmin then r = r -1 if r = rmax then r = r +1 if c = cmin then c = c -1 if c = cmax then c = c +1 end if end if next bnext a
Statistics: Posted by BluescreenODeff — Mon Jun 08, 2009 9:24 pm
Statistics: Posted by BluescreenODeff — Mon Jun 08, 2009 8:54 pm
Statistics: Posted by Mentat — Mon Jun 08, 2009 8:39 pm
Code:
for a = 0 to columns-1 for b = 0 to rows-1 if spritemode(map(a,b)) = 1 then cmin = (a*16)-15: cmax = (a*16)+15 rmin = (b*16)-15: rmax = (b*16)+15 if r >= rmin and r <rmax>= cmin and c <= cmax then if MULTIKEY(&h48) then r = r + 1 if MULTIKEY(&h4D) then c = c - 1 if MULTIKEY(&h50) then r = r - 1 if MULTIKEY(&h4B) then c = c + 1 end if end if next bnext a
Statistics: Posted by BluescreenODeff — Mon Jun 08, 2009 7:54 pm