Luovutan.. miks tää antaa code 88 Can't find missing Next:in rivillä 100??
Code: Select all
Type Padit
Field obj
End Type
Type ykkösvihu
Field obj
End Type
FrameLimit 40
SCREEN 640,480,0,cbsizable
SetWindow "...",3
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
player = LoadObject ("Media\guy.bmp",360)
vihu1 = LoadObject ("Media\particle.bmp",360)
ShowObject vihu1,OFF
perusluoti = LoadObject ("Media\bullet.bmp")
ShowObject perusluoti,OFF
hiiri = LoadObject("Media\crosshair.bmp")
peruslaaseri = LoadSound ("Media\lazer 2.wav")
ShowMouse OFF
Repeat
'---------------------------------------------------------------------------------------------------
'ohjelma ei suostunut millään toistamaan Showmouse hiiri komentoa joten piti kikkailla...
'saipahan samalla tarkan tähtäyksen...
A =MouseWX()
B =MouseWY()
PositionObject hiiri,A-9,B
CloneObjectOrientation hiiri,player
'---------------------------------------------------------------------------------------------------
'ukkoa ohjataan seuraavista.
'sivuttaisliikkeet ja kääntyminen ovat eri napeissa pelattavuuden parantamiseksi
'WASD ohjaus, hahmo kääntyy num4 ja num5:stä
Kääntö=GetAngle(ObjectX(player),-ObjectY(player),MouseWX(),-MouseWY())
RotateObject Robotron, Kääntö-90
If KeyDown(32) Then TranslateObject player,2,0,0
If KeyDown(30) Then TranslateObject player,-2,0,0
If KeyDown(17) Then TranslateObject player,0,2,0
If KeyDown(31) Then TranslateObject player,0,-2,0
'---------------------------------------------------------------------------------------------------
'ensimmäinen laserase pelissä. loputtomasti pateja.
If MouseDown(1) And reload =0 Then
laser.padit = New (Padit)
laser\obj = CloneObject(perusluoti)
CloneObjectPosition laser\obj,player
PlaySound peruslaaseri, 100
reload =15
MoveObject laser\obj,-9,-12
PointObject laser\obj,hiiri
TurnObject laser\obj,-90
EndIf
If reload>0 Then reload=reload-1
For laser.Padit = Each Padit
MoveObject laser\obj,0,-6
SetupCollision vihu1,laser\obj,2,2,2
SetupCollision laser\obj,vihu1,2,2,2
If Distance2(laser\obj,vihu1)=0 Then
DeleteObject(laser\obj)
Delete laser
EndIf
Next laser
'----------------------------------------------------------------------------------------------------
'vihut
SetupCollision vihu1,player,2,2,2
SetupCollision player,vihu1,2,2,2
C=Rand(-150,150)
D=Rand(-150,150)
EV1=10
If ST=0 Then
PV.ykkösvihu = New (ykkösvihu)
PV\obj = CloneObject(vihu1)
PositionObject PV\obj,C,D
ST=2000
EndIf
If ST>0 Then ST=ST-1
For PV.ykkösvihu = Each ykkösvihu
PointObject PV\obj,player
MoveObject PV\obj,0,-2
SetupCollision vihu1,laser\obj,2,2,2
SetupCollision laser\obj,vihu1,2,2,2
If Distance2 (PV\obj,laser\obj)<1 Then
EV1=EV1-1
If EV1=0 Then
DeleteObject(PV\obj)
Delete PV
EndIf
EndIf
Next vihu1
'----------------------------------------------------------------------------------------------------
CloneCameraPosition player
DrawScreen
Forever
muutin mielestäni bmpt cbn omasta kansiosta löytyviksi mutta joitain on voinu jäädä huomaamatta..