c'est un petit jeu sans pretention aucune, pour les novices qui veulent s'essayer au petits merdiques et inutiles
Source / Exemple :
Dim monster_x
Dim score
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To Shape2.Count - 1
If Not Shape2(i).Visible Then
Shape2(i).Visible = True
Shape2(i).Left = Shape1.Left + Shape1.Width / 2 - Shape2(i).Width / 2
Shape2(i).Top = Shape1.Top - Shape2(i).Height
Exit Sub
End If
Next i
Max = Shape2.Count
Load Shape2(Max)
Load Timer1(Max)
Shape2(Max).Visible = True
Shape2(Max).Left = Shape1.Left + Shape1.Width / 2 - Shape2(Max).Width / 2
Shape2(Max).Top = Shape1.Top - Shape2(Max).Height
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Rnd
Shape1.Left = X - Shape1.Width / 2
End Sub
Private Sub Timer1_Timer(Index As Integer)
If Shape2(Index).Visible Then
Shape2(Index).Top = Shape2(Index).Top - 90
If Shape2(Index).Top < -Shape2(Index).Height Then
Shape2(Index).Visible = False
End If
posx = Shape2(Index).Left + Shape2(Index).Width / 2
If posx > Shape3.Left And posx < Shape3.Left + Shape3.Width And Shape2(Index).Top < Shape3.Top + Shape3.Height Then
Shape2(Index).Visible = False
score = score + 900
Me.Caption = "space fucker : score <<< " & score & " >>>"
End If
End If
End Sub
Private Sub Timer2_Timer()
If monster_x < Shape3.Left Then
Shape3.Left = Shape3.Left - 20
Else
Shape3.Left = Shape3.Left + 20
End If
End Sub
Private Sub Timer3_Timer()
monster_x = (Me.Width - Shape3.Width) * Rnd
End Sub
Conclusion :
cliquer pour tirer, bougez la souris pour vous deplacer
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.