Okay. I got only the left side to shoot.... But, the code i have set up should make both the left and right side shoot.... Also, only one enemy should shoot when it starts, but all 6 do! Here is my code:
I also attached the project as well... Please help me!Code:If sn = 20 And noes <> Difficulty + 1 And noes <> 12 And noes < Difficulty + 1 Then Dim temparr2 For temparr2 = 0 To enemyleftnum - 1 If noes >= Difficulty + 1 Or noes = 12 Then Exit For End If If enemyleftstatus(temparr2) = "Alive Left" And enemyleft(temparr2) >= 0 And enemyshotstatusl(temparr2) = "" Then enemyleftstatus(temparr2) = "Shoot Left" noes = noes + 1 enemyshotstatusl(temparr2) = "Shoot" End If If noes >= Difficulty + 1 Or noes = 12 Then Exit For End If Dim temparr3 For temparr3 = 0 To enemyrightnum - 1 If EnemyrightStatus(temparr3) = "Alive Right" And enemyright(temparr3) <= 269 And enemyshotstatusr(temparr3) = "" Then EnemyrightStatus(temparr3) = "Shoot Right" noes = noes + 1 enemyshotstatusr(temparr3) = "Shoot" Exit For End If Next temparr3 Next temparr2 End If




Reply With Quote