koordinaatisto homma ongelma...

[Ihminen]

mulla tuli joku ihan ihme ongelma kun mulla on ihan perus komento että...

Code: Select all

FrameLimit 40 


ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("grass.bmp")
PaintObject ruoho, nurmikko


ukko=LoadObject("characterback.bmp")

Repeat
 
 If UpKey() Then MoveObject ukko, 0,5

      
      
  DrawScreen

Forever

Siis mulla toi tyyppi ei liiku ylöspäin vaikka pitäisi... en ymmärrä. Auttakaa ihmiset!

[MaGetzUb]

Code: Select all

FrameLimit 40 


ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("grass.bmp")
PaintObject ruoho, nurmikko


ukko=LoadObject("characterback.bmp")

Repeat

If UpKey() Then MoveObject ukko, 0,-5

      
      
  DrawScreen

Forever

Nyt toimii. Tämä ongelmasi olisi kyllä mennyt tuonne "Tyhmiin" kysymyksiin.

Aika jännä yleensä objektien koordinaatit menee niin, että Y akselilla positiiviset arvot menevät ylöspäin..

[Feuer]

Missä on tälläinen koordinaatisto käytössä? Tietokoneella en muista kohdanneeni yhtään koordinaatistoa, jossa Y-akseli ei olisi kasvanut positiivisesti alaspäin. Tietääkseni vain matematiikan puolella Y kasvaa tavanomaisesti ylöspäin.

[TheFish]

Code: Select all

...koodia...

Nyt toimii. Tämä ongelmasi olisi kyllä mennyt tuonne "Tyhmiin" kysymyksiin.

Aika jännä yleensä objektien koordinaatit menee niin, että Y akselilla positiiviset arvot menevät ylöspäin..

Parempi ratkaisu voisi olla vain kääntää objekti osoittamaan ylöspäin (eikä liikuttaa sitä sivuttain). MoveObject:han liikuttaa sitä sen osoittamaan suuntaan (0, -5 liikuttaa sitä siis vasemmalle).

Code: Select all

FrameLimit 40 


ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("grass.bmp")
PaintObject ruoho, nurmikko


ukko=LoadObject("characterback.bmp", 72) 'lisätty kääntyvyys
rotateobject ukko, 90

Repeat

If UpKey() Then MoveObject ukko, 5

      
      
  DrawScreen

Forever