some object intersects 7 other objects and then the blend is set to 30 and the counter must increase with 1. But in this case the counter dosn't count in a right way, it is falling down to 1 again after one or two intersects. Wy is that, what is wrong
(sorry for my english, i am dutch)
property pSprite, snelheid, punten, raak, timer
on beginsprite me
pSprite=sprite(me.spriteNum)
punten=0
put punten into field "puntentelling"
snelheid=4
end
end
on prepareframe me
-- prepareframe; nadat het frame verlaten is en voordat
-- het volgende frame wordt binnengegaan
controleerinput(me)
controleerbotsing(me)
tijdscontrole(me)
end
on tijdscontrole me
put the timer/60 into field "verstrekentijd"
end
on controleerinput me
if keyPressed(126) then -- naar bovenpijl
pSprite.locV=pSprite.locV-snelheid
else if keyPressed(125) then --naar beneden pijl
pSprite.locv=pSprite.locv+snelheid
end if
if keyPressed(123) then -- naar links
pSprite.loch=pSprite.loch-snelheid
else if keyPressed(124) then --naar rechts
pSprite.loch=pSprite.loch+snelheid
end if
end
on controleerbotsing me
repeat with i = 9 to 15 --lus door sprite 9 tot 14
if pSprite.intersects(sprite(i)) and raak<>i and sprite(i).blend<>30 then
--geeft actie bij raken van de opstakels
sprite(i).blend=30
punten=punten+1
put punten into field "puntentelling"
raak=i
exit repeat
end if
end repeat
end
(sorry for my english, i am dutch)
property pSprite, snelheid, punten, raak, timer
on beginsprite me
pSprite=sprite(me.spriteNum)
punten=0
put punten into field "puntentelling"
snelheid=4
end
end
on prepareframe me
-- prepareframe; nadat het frame verlaten is en voordat
-- het volgende frame wordt binnengegaan
controleerinput(me)
controleerbotsing(me)
tijdscontrole(me)
end
on tijdscontrole me
put the timer/60 into field "verstrekentijd"
end
on controleerinput me
if keyPressed(126) then -- naar bovenpijl
pSprite.locV=pSprite.locV-snelheid
else if keyPressed(125) then --naar beneden pijl
pSprite.locv=pSprite.locv+snelheid
end if
if keyPressed(123) then -- naar links
pSprite.loch=pSprite.loch-snelheid
else if keyPressed(124) then --naar rechts
pSprite.loch=pSprite.loch+snelheid
end if
end
on controleerbotsing me
repeat with i = 9 to 15 --lus door sprite 9 tot 14
if pSprite.intersects(sprite(i)) and raak<>i and sprite(i).blend<>30 then
--geeft actie bij raken van de opstakels
sprite(i).blend=30
punten=punten+1
put punten into field "puntentelling"
raak=i
exit repeat
end if
end repeat
end