Ik weet niet of iemand iets weet van Lingo in Director MX.
Maar ik probeer space invaders te maken. Maar ik stuit nu op een probleem.
Ik heb 1 kanon die moet dan 1 kogel afschieten als je op spatie drukt.
Als ik op spatie druk nu, dan gaat de kogel alleen maar naar mijn kanon toe. Maar hij gaat niet omhoog.
de code van de kanon:
Belangrijkste is dus eigenlijk:
on afvuren me
if (_key.keyPressed(" ")) then
kogel1=new (script "kogel", hpositie, vpositie, -1)
end if
end
en de kogel
Het probleem is dus dat hij niet naar boven gaat wanneer je op spatie drukt. Hij zoekt alleen maar de kanon op.
Maar ik probeer space invaders te maken. Maar ik stuit nu op een probleem.
Ik heb 1 kanon die moet dan 1 kogel afschieten als je op spatie drukt.
Als ik op spatie druk nu, dan gaat de kogel alleen maar naar mijn kanon toe. Maar hij gaat niet omhoog.
de code van de kanon:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| property hpositie -- horizontale positie
property vpositie -- verticale positie
property spriteNr -- sprite kanaal
property stapH -- te zetten (horizontale) stap
property stapDelta -- grootte van de verplaatsing
property stagebreedte -- breedte van de stage
on new me
hpositie = 160
vpositie = 240
spriteNr = 1
stapH = 0
stapDelta = 6
stagebreedte = window("stage").rect.width
return me
end
on beweegtoets me
stapH = 0
if (_key.keyPressed(123)) then
stapH = stapDelta * (-1)
end if
if (_key.keyPressed(124)) then
stapH = stapDelta
end if
hpositie = hpositie + stapH
if hpositie > 0 and hpositie < stagebreedte then
sprite(spriteNr).locH = hpositie
end if
end
on afvuren me
if (_key.keyPressed(" ")) then
kogel1=new (script "kogel", hpositie, vpositie, -1)
end if
end
on muis me
hpositie=_mouse.mouseH
if hpositie > 0 and hpositie < stagebreedte then
sprite(spriteNr).locH = hpositie
end if
end
on toonMij me
sprite(spriteNr).locH = hpositie
sprite(spriteNr).locV = vpositie
end |
Belangrijkste is dus eigenlijk:
on afvuren me
if (_key.keyPressed(" ")) then
kogel1=new (script "kogel", hpositie, vpositie, -1)
end if
end
en de kogel
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| property hpositie
property vpositie
property spriteNr
property stagebreedte
property stagehoogte
property richting
on new me, waardeH, waardeV, richt
hpositie = waardeH
vpositie = waardeV
spriteNr = 2
stagebreedte = window ("stage").rect.width
stagehoogte = window ("stage").rect.height
richting = richt
sprite(spriteNr).locH = hpositie
sprite(spriteNr).locV = vpositie
repeat while vpositie > 0 and vpositie <stagehoogte
vpositie=vpositie+(richting)
sprite(spriteNr).locV=vpositie
UpdateStage
end repeat
return me
end |
Het probleem is dus dat hij niet naar boven gaat wanneer je op spatie drukt. Hij zoekt alleen maar de kanon op.
[ Voor 7% gewijzigd door DNA_Saint op 15-04-2005 17:14 ]
Huub Huub Barbatruc!