Tyhmät kysymykset (I/2009)

[TheFish]

miten minä sellasen teen? en oikeen osaa

Laita ennen päälooppia muuttujan alustus ("apuriNopeus = 5") ja sitten käytät kaikissa apurin liikuttamiskohdissa sitä muuttujaa luvun sijasta. Sitten laitat tuonne napin painamiseen jotain tämmöistä:

Code: Select all

if apuriNopeus > 0 then
    apuriNopeus = 0
else
    apuriNopeus = 5
endif 

[rami123]

kiitos neuvosta , mutta ratkasin sen todella purkkaisella koodilla , jota en meinannut millään saada toimimaan

[Character]

Olen tekemässä biljardipeliä enkä saa ratkaistua yhtä ongelmaa. Kun hiirtä painaa pohjassa
lyöntivoima kasvaa ja kun päästää hiiren ylös, maila lyö ja pallo menee oikeaan suuntaan ja oikealla
nopeudella. Suunta on siis sama kuin mailan kulma. Miten tämän saisi tehtyä?

[temu92]

Kerrankin jaksoin paneutua ongelmaan oikein kunnolla. Tässä sinulle melkein valmis runko biljardipeliin

Code: Select all

SCREEN 640, 480

// Alustetaan kaikki muuttujat floateiksi
x#		= ScreenWidth()/2	// X koordinaatti
y#		= ScreenHeight()/2	// Y koordinaatti
xforce#	= 0 // X suunnan vektori
yforce#	= 0 // Y suunnan vektori
force#	= 0 // Force (voima)
pforce#	= 0 // Pending force (odottava voima)
angle#	= 0 // Angle (kulma)

Const KITKA	= 0.99

Repeat
	// Jos voima ON suurempi kuin 0
	If force > 0 Then
		// Vähennetään voimaa 
		force	= Round(force * KITKA, 2)
		
		xforce	= Round(xforce * KITKA, 2)
		yforce	= Round(yforce * KITKA, 2)
	Else // Jos voima ei ole suurempi kuin 0
		// niin piiretään tähtäinviiva
		Line MouseX(), MouseY(), x, y
	EndIf
	
	// Jos painetaan hiirestä niin kasvatetaan odottavaa voimaa
	If MouseDown(1) And force <= 0 Then
		// Kasvatetaan odottavaa voimaa
		pforce	= pforce + 0.1
	EndIf
	
	// Rajoitetaan odottavan voiman suuruutta
	If pfocre > 20 Then pforce = 20
	
	// Kun päästetään hiiri ylös niin lyödään palloa
	If MouseUp(1) And force <= 0 And pforce > 0 Then
		// Pistetään voimaan odottava voima ja nollataan odottava voima
		force	= pforce
		pforce	= 0
		
		// Muutetaan kulma hiiren ja pallon suunnan mukaisesti
		angle	= GetAngle(MouseX(), MouseY(), x, y)//GetAngle(x, y, MouseX(), MouseY())
		
		// Lasketaan vektorien voimien suuruudet
		xforce	= Cos(angle) * force
		yforce	= - Sin(angle) * force
	EndIf	
	
	// Muutetaan pallon koordinaatteja
	x	= x + xforce
	y	= y + yforce
	
	// Estetään palloa menemästä rajojen ulkopuolelle
	If x < 0 Or x > ScreenWidth() Then xforce	= -xforce
	If y < 0 Or y > ScreenHeight() Then yforce	= -yforce
	
	// Piirretään pallo
	Color 255, 255, 255
	Circle x-8, y-8, 16, True
	
	// Piirretään tekstejä
	Text 0, 0, 		"x: "+x
	Text 0, 13, 	"y: "+y
	Text 0, 26, 	"force: "+force
	Text 0, 39, 	"pforce: "+pforce
	Text 200, 0, 	"xforce: "+xforce
	Text 200, 13, 	"yforce: "+yforce
	Text 200, 26, 	"angle: "+angle
	
	DrawScreen
Forever

Function Round(value#, ac)
	strvalue$	= Str(value#)
	
	lefts$		= GetWord(strvalue$, 1, ".")
	rights$		= GetWord(strvalue$, 2, ".")
	
	rounded#	= Float(lefts$ + "." + Left(rights$, ac))
	
	Return rounded
EndFunction

[Character]

Kiitos, lähdenkin tästä tutkailemaan koodia.

[Nassi_Setä]

kuinka toteuttaa:kun objekti menee ruudun ulkopuolelle sen healt vähenisi.
yrittetty on mutta healt vähenee kokoajan

[temu92]

Muista että objektimaailman koordinaatit eivät ole samat kuin kuvien. Tässä kätevät funktiot niiden konversioon:

Code: Select all

Function ScreenToWorldX(sc)
    wc = CameraX() - ScreenWidth() / 2 + sc
    Return wc
End Function

Function ScreenToWorldY(sc)
    wc = CameraY() + ScreenHeight() / 2 - sc
    Return wc
End Function

Function WorldToScreenX(wc)
    sc = -CameraX() + ScreenWidth() / 2 + wc
    Return sc
End Function

Function WorldToScreenY(wc)
    sc = CameraY() + ScreenHeight() / 2 - wc
    Return sc
End Function

Noiden avulla tuon tekeminen pitäisi olla helppoa. Tarkistat vain funktioiden WorldToScreenX() ja WorldToScreenY() avulla ettei mennä ruudulta ulos.

[Character]

Millä tavalla toteuttaa biljardipallot? Taulukolla, typellä, yksitellen..?

[esa94]

Typeillä. Taulukot ovat aina huonompi vaihtoehto.

[Character]

Mutta entäs kun olen piirtänyt kaikki pallot yksitellen piirto-ohjelmalla enkä ole käyttänyt piirtokomentoja.
Sittenhän se on jo vähän hankalempaa.. Vai?

[TheFish]

Mutta entäs kun olen piirtänyt kaikki pallot yksitellen piirto-ohjelmalla enkä ole käyttänyt piirtokomentoja.
Sittenhän se on jo vähän hankalempaa.. Vai?

Nimeä kuvat numerojärjestyksessä (siis "1.png", "2.png" "3.png" jne). Sitten lataat ne for-loopilla

Code: Select all

for i = 0 to 9
   ballImgs(i) = loadimage(i + ".png")
next i

[kaivinkone]

Ongelma on se että typestä luodut kuvat menee objektien päälle... Miten saan piirrettyä objektit ylimmäiseksi eikä niin että se typen tekemä kuva on päällimmäisenä?

[temu92]

Typestä luodut kuvat?

Jos ymmärsin oikein sinun pitäisi selvitä jommalla kummalla tavalla. Eli joko:

Code: Select all

// Komento asettaa objektin päällimmäiseksi
ObjectOrder objekti, 1

tai..

Code: Select all

Repeat
  MoveObject objekti, 10, 10 // Tehdään objekt(e)illa jotakin

  Drawgame // Jos tälläinen on, se pitäisi poistaa tai siirtää parempaan paikkaan

  DrawImage kuva, 20, 20 // Piirtää kuvan. Piirtää sen kaikkien objektien päälle jos Drawgamea on käytetty
  Drawscreen
Forever

[Jani]

kuinka voi lukea hiiren rullan pyöityksen?
manuaalista ei löytynyt.

[MAVmaggot]

MouseMoveZ()

[Jani]

aaa...

Tuossahan se oli
MouseZ()

[Character]

Vielä yksi ongelma.. Kuinka saan biljardipallot aluksi kolmioon?

[Jani]

yrität sommitella niitä...

[phons]

yrität sommitella niitä...

Saiko tuosta nyt paljoa irti? Jos keksit miten laskea niiden paikat niin pistä For - Next lausekkeella jotenkin nätisti ne alkupaikat(Grandi on näis ollu hyvä ). Normaalisti ja purkammaisesti voit vaan pistää jokasen pallon x:n ja y:n sellati yksitellen et ne on kolmiossa.

[Character]

Ookoo. Yritä nyt sitten sommitella niitä.