SPACE INVADERS 2 (ZIP LIEN VERS MON SITE)
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
4 oct. 2004 à 23:28
Jean_Elens Messages postés 53 Date d'inscription dimanche 29 mai 2005 Statut Membre Dernière intervention 16 octobre 2006 - 22 juin 2005 à 19:15
Jean_Elens Messages postés 53 Date d'inscription dimanche 29 mai 2005 Statut Membre Dernière intervention 16 octobre 2006 - 22 juin 2005 à 19:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26587-space-invaders-2-zip-lien-vers-mon-site
https://codes-sources.commentcamarche.net/source/26587-space-invaders-2-zip-lien-vers-mon-site
22 juin 2005 à 19:15
If Keycode = &HD Then
If general.Enabled = True Then
general.Enabled = False
End If
If general.Enabled = False Then
general.Enabled = True
End If
End If
extrait de la procedure "Form_KeyDown" de frmjeu.frm
ou de
For Y = 0 To 17
mech1(Y).Picture = LoadPicture(App.Path & "\5.ico")
mech1(Y).Tag = 2
ten1 = 75
vit1 = 300
Next Y
extrait de Form_Load du meme module ?
A vos claviers...
22 juin 2005 à 18:50
MAIS
Idée GENIALE, je me souviens encore des premiers "space invaders" sur console.
Dommage pour le code, les fichiers manquants (faciles à reconstruire, meme pour les icones : 10 min) et tant pis pour terre.jpg inexistant (vite mis en remarque dans le code).
6 oct. 2004 à 17:24
6 oct. 2004 à 16:32
5 oct. 2004 à 22:01
à corriger :)
@+