Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: CB - Ukkelit ulkopuolella

Sivun loppuun

php-Niko [16.10.2006 21:11:28]

#

Eli ukkelit menee jostain syyst ulkopuolelle, mut en ite löydä ongelmaa mistä se menee vääri peri.

FrameLimit 40

'Alue
kentta = MakeObjectFloor()
ruoho = LoadImage("media/grass.bmp")
PaintObject kentta, ruoho

'Ukkojen objektit
Ukko1 = LoadObject("media/guy.bmp", 70)
Ukko2 = LoadObject("media/soldier.bmp", 70)

'Ukkojen suunnat
RotateObject Ukko1, 0
RotateObject Ukko2, 180

'Ukkojen aloituspaikat
PositionObject Ukko1, -150, 100
PositionObject Ukko2, 150, -100

SetupCollision Ukko1, Ukko2, 2, 2, 2
SetupCollision Ukko2, Ukko1, 2, 2, 2

Repeat

    'Ukko1 ohjaimet
    If LeftKey() Then TurnObject Ukko1, 5
    If RightKey() Then TurnObject Ukko1, -5
    If UpKey() Then MoveObject Ukko1, 2
    If DownKey() Then MoveObject Ukko1, 2

    'Ukko1 seinät
    If ObjectX(Ukko1)<-200 Then PositionObject Ukko1, -200, ObjectY(Ukko1)
    If ObjectX(Ukko1)<200 Then PositionObject Ukko1, 200, ObjectY(Ukko1)
    If ObjectY(Ukko1)<-150 Then PositionObject Ukko1, ObjectX(Ukko1), -150
    If ObjectY(Ukko1)<150 Then PositionObject Ukko1, ObjectX(Ukko1), 150

    'Ukko2 ohjaimet
    If KeyDown(cbKeyA) Then TurnObject Ukko2, 5
    If KeyDown(cbKeyD) Then TurnObject Ukko2, -5
    If KeyDown(cbKeyW) Then MoveObject Ukko2, 2
    If KeyDown(cbKeyS) Then MoveObject Ukko2, 2

    'Ukko2 seinät
    If ObjectX(Ukko2)<-200 Then PositionObject Ukko2, -200, ObjectY(Ukko2)
    If ObjectX(Ukko2)<200 Then PositionObject Ukko2, 200, ObjectY(Ukko2)
    If ObjectY(Ukko2)<-150 Then PositionObject Ukko2, ObjectX(Ukko2), -150
    If ObjectY(Ukko2)<150 Then PositionObject Ukko2, ObjectX(Ukko2), 150

    DrawScreen

Forever

Metabolix [16.10.2006 21:26:03]

#

Varmaan noissa seinät-osiossa kannattaisi olla toisen reunan tarkistuksissa > eikä <. Yritäpä ajatella siinä, miten päin merkki kuuluu laittaa. Nyt nimittäin tarkistat, että jos ukko on sisällä, heitetään ulos. Näin siis kahdessa kohdassa neljästä (niissä positiivisissa).

tgunner [17.10.2006 09:19:59]

#

Eikös tämä keskusteluosio ole QBASICille ja Visual BASICille? Tästä kyllä voitaisiin tehdä pelkkä BASIC-osio :o

php-Niko [17.10.2006 13:33:03]

#

Metabolix: (mod. edit. kirjoitapa toisten nimimerkit oikein)

Heh, no joo... Omaa tyhmyyttä.

TGunner:

Aattelin laittaa tän tänne, koska tää ei ole nettiohjelmointia ja muutenkin tää on Cool_BASIC_
Korjaus:

If ObjectX(Ukko1)<-200 Then PositionObject Ukko1, -200, ObjectY(Ukko1)
If ObjectX(Ukko1)>200 Then PositionObject Ukko1, 200, ObjectY(Ukko1)
If ObjectY(Ukko1)<-150 Then PositionObject Ukko1, ObjectX(Ukko1), -150
If ObjectY(Ukko1)>150 Then PositionObject Ukko1, ObjectX(Ukko1), 150

tgunner [17.10.2006 17:24:30]

#

Juujuu, mutta keskustelualueen nimi on "QBasic ja Visual Basic", ei siinä mainita Cool_BASIC_-kieltä. :-)
Siksi ehdotinkin keskustelualueen nimeksi BASIC-aluetta.

Antti Laaksonen [17.10.2006 18:13:09]

#

Moderaattorit siirtävät viestin tarvittaessa uudelle alueelle, joten "väärästä" alueesta ei tarvitse erikseen huomauttaa.

tgunner [17.10.2006 19:07:02]

#

En siis tarkoittanut, että tämä olisi väärällä alueella. :-)

Juhko [13.11.2006 18:08:01]

#

php-Niko kirjoitti:

laittaa tän tänne, koska tää ei ole nettiohjelmointia ja muutenkin tää on Cool_BASIC_

Tämä sopisi kyllä paremmin tuohon "Muut kielet" -alueelle.

E.K.Virtanen [13.11.2006 18:15:03]

#

Eiköhän tämä BASIC kielenä sovi juuri tänne. Tuo QBasic ja Visual Basic on kyllä vähän outo valinta alueen nimeksi mutta onhan siitä jo ollut juttua lukuisat kerrat joten se siitä.

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta