Tyhmät kysymykset (I/2010)

MetalRain · Post by **MetalRain** » Sun Mar 28, 2010 9:00 pm

Sulla on vähän väärä järjestys siellä koodissa. Pitää ensin kopioida se objekti siihen muuttujaan että sitä voi sijoittaa. Kokeileppa tätä:

Code: Select all

Dim wall(26)

SCREEN 791,791

FrameLimit 20

seinä=LoadObject("kuvat\wall.png")
ShowObject seinä,OFF

For i=1 To 26
    wall(i)=CloneObject(seinä)
Next i


PositionObject wall(1),-118,276
PositionObject wall(2),-276,276
PositionObject wall(3),-39,276
PositionObject wall(4),40,276
PositionObject wall(5),-276,118
PositionObject wall(6),-276,39
PositionObject wall(7),-197,118
PositionObject wall(8),-197,-40
PositionObject wall(9),198,-40
PositionObject wall(10),277,-40
PositionObject wall(11),-39,197
PositionObject wall(12),198,197
PositionObject wall(13),198,118
PositionObject wall(14),119,118
PositionObject wall(15),-39,118
PositionObject wall(16),40,118
PositionObject wall(17),40,-40
PositionObject wall(18),40,-198
PositionObject wall(19),-39,-198
PositionObject wall(20),-39,-40
PositionObject wall(21),-197,-198
PositionObject wall(22),-118,-198
PositionObject wall(23),198,-198
PositionObject wall(24),277,-198
PositionObject wall(25),198,-277
PositionObject wall(26),277,-277

Repeat


DrawScreen

Forever

kaneli2000 · Post by **kaneli2000** » Sun Mar 28, 2010 9:01 pm

jaahas wrote:miks tää heittää memory acces violationia

Code: Select all

Dim wall(26)

For i=1 To 26

PositionObject wall(i),-118,276
PositionObject wall(i),-276,276
PositionObject wall(i),-39,276
PositionObject wall(i),40,276
PositionObject wall(i),-276,118
PositionObject wall(i),-276,39
PositionObject wall(i),-197,118
PositionObject wall(i),-197,-40
PositionObject wall(i),198,-40
PositionObject wall(i),277,-40
PositionObject wall(i),-39,197
PositionObject wall(i),198,197
PositionObject wall(i),198,118
PositionObject wall(i),119,118
PositionObject wall(i),-39,118
PositionObject wall(i),40,118
PositionObject wall(i),40,-40
PositionObject wall(i),40,-198
PositionObject wall(i),-39,-198
PositionObject wall(i),-39,-40
PositionObject wall(i),-197,-198
PositionObject wall(i),-118,-198
PositionObject wall(i),198,-198
PositionObject wall(i),277,-198
PositionObject wall(i),198,-277
PositionObject wall(i),277,-277

Next i

SCREEN 791,791

FrameLimit 20

seinä=LoadObject("kuvat\wall.png")
ShowObject seinä,OFF

Repeat

wall(i)=CloneObject(seinä)

DrawScreen

Forever

Koska heti alussa koitat posata objectia wall jota ei ole luotu. Posaamisen kuuluisi olla vasta lataamisen jälkeen.
EDIT: Ohups, Metalrain ehti.

jaahas · Post by **jaahas** » Sun Mar 28, 2010 10:07 pm

no nyt olis sellanen et mihin kohtaan se seinän ja jätkän törmääminen pitäs heittää?(eli pelissä liikutaan ruuduittain eli objectoverlapilla ei onnistu)

DatsuniG · Post by **DatsuniG** » Sun Mar 28, 2010 10:24 pm

jaahas wrote:no nyt olis sellanen et mihin kohtaan se seinän ja jätkän törmääminen pitäs heittää?(eli pelissä liikutaan ruuduittain eli objectoverlapilla ei onnistu)

Tarkistetaan jo ennenkuin objektia siirretään, että onko uusissa koordinaateissa törmäystä?

tai sitten:

Code: Select all

PositionObject obj, ObjectX(obj) + sivuttainen_siirtymä, ObjectY(obj) + pystysuuntainen_siirtymä
If ObjectsOverlap(obj, seinä) Then 
    PositionObject obj, ObjectX(obj) - sivuttainen_siirtymä, ObjectY(obj) - pystysuuntainen_siirtymä
EndIf

jaahas · Post by **jaahas** » Sun Mar 28, 2010 11:26 pm

DatsuniG wrote:
jaahas wrote:no nyt olis sellanen et mihin kohtaan se seinän ja jätkän törmääminen pitäs heittää?(eli pelissä liikutaan ruuduittain eli objectoverlapilla ei onnistu)
Tarkistetaan jo ennenkuin objektia siirretään, että onko uusissa koordinaateissa törmäystä?

tai sitten:
Code: Select all
PositionObject obj, ObjectX(obj) + sivuttainen_siirtymä, ObjectY(obj) + pystysuuntainen_siirtymä
If ObjectsOverlap(obj, seinä) Then 
    PositionObject obj, ObjectX(obj) - sivuttainen_siirtymä, ObjectY(obj) - pystysuuntainen_siirtymä
EndIf 

aina kun törmätään niin se värähtää tulla tavalla eli käy seinän päällä ja tulaa takas ja toi tarkastus menis vähän monimutkaseks jos on 26 eri palasta siin

Awaclus · Post by **Awaclus** » Mon Mar 29, 2010 5:34 am

jaahas wrote:
DatsuniG wrote:
jaahas wrote:no nyt olis sellanen et mihin kohtaan se seinän ja jätkän törmääminen pitäs heittää?(eli pelissä liikutaan ruuduittain eli objectoverlapilla ei onnistu)
Tarkistetaan jo ennenkuin objektia siirretään, että onko uusissa koordinaateissa törmäystä?

tai sitten:
Code: Select all
PositionObject obj, ObjectX(obj) + sivuttainen_siirtymä, ObjectY(obj) + pystysuuntainen_siirtymä
If ObjectsOverlap(obj, seinä) Then 
    PositionObject obj, ObjectX(obj) - sivuttainen_siirtymä, ObjectY(obj) - pystysuuntainen_siirtymä
EndIf 
aina kun törmätään niin se värähtää tulla tavalla eli käy seinän päällä ja tulaa takas ja toi tarkastus menis vähän monimutkaseks jos on 26 eri palasta siin

Ei se mitään värähdä kun et laita drawscreeniä siihen väliin, eikä se mene mitenkään monimutkaiseksi kun teet sen taulukolla.

Code: Select all

For i = 0 to 25
    If ObjectsOverlap (obj, wall(i)) Then

Jani · Post by **Jani** » Mon Mar 29, 2010 5:40 am

jaahas wrote:
DatsuniG wrote:
jaahas wrote:no nyt olis sellanen et mihin kohtaan se seinän ja jätkän törmääminen pitäs heittää?(eli pelissä liikutaan ruuduittain eli objectoverlapilla ei onnistu)
Tarkistetaan jo ennenkuin objektia siirretään, että onko uusissa koordinaateissa törmäystä?

tai sitten:
Code: Select all
PositionObject obj, ObjectX(obj) + sivuttainen_siirtymä, ObjectY(obj) + pystysuuntainen_siirtymä
If ObjectsOverlap(obj, seinä) Then 
    PositionObject obj, ObjectX(obj) - sivuttainen_siirtymä, ObjectY(obj) - pystysuuntainen_siirtymä
EndIf 
aina kun törmätään niin se värähtää tulla tavalla eli käy seinän päällä ja tulaa takas ja toi tarkastus menis vähän monimutkaseks jos on 26 eri palasta siin

Hyödynnä niitä yaulukoita. En kyllä vieläkään ymmärrä suunnitelmaasi, mutta taulukoilla tuo menis näin (tehottomasti, ofc.)

Code: Select all

For i=0 To 25
    PositionObject obj, ObjectX(obj) + sivuttainen_siirtymä, ObjectY(obj) + pystysuuntainen_siirtymä
    If ObjectsOverlap(obj, seinä(i)) Then //tässä tein muutoksen.
        PositionObject obj, ObjectX(obj) - sivuttainen_siirtymä, ObjectY(obj) - pystysuuntainen_siirtymä
    EndIf
Next i

Simppeliä, eh? Suosittelisin kyllä tilemappia ja manuaalin lukemista (kuten minulle sanottiin).

EDIT:

Mato ehti ensin.

phons · Post by **phons** » Wed Mar 31, 2010 7:22 pm

Kakun pala..

Edit: miksi poistit viestisi??
Edit2: niin niin mutta miksi hän poisti sen, tämä voi näyttää tyhmältä, vastaus ilman kysymystä...
Edit3: Ei et sinä vaan se joku.. en ny muista..

DatsuniG · Post by **DatsuniG** » Wed Mar 31, 2010 9:03 pm

@Phons: Viestin voi poistaa vain silloin, jos siihen ei ole tullut vastauksia.

jaahas · Post by **jaahas** » Thu Apr 01, 2010 9:05 pm

DatsuniG wrote:@Phons: Viestin voi poistaa vain silloin, jos siihen ei ole tullut vastauksia.

mustakos puhutte? no jaa ihan sama meinasin opetella tekemään tekoälyn joten voisko joku laittaa jonku pienen tekoälyn jota tutkisin ja opettelisin?
en oo varma meneekö offtopiciks jos menee niin anteeksi offtopic

DatsuniG · Post by **DatsuniG** » Thu Apr 01, 2010 10:02 pm

jaahas wrote:
DatsuniG wrote:@Phons: Viestin voi poistaa vain silloin, jos siihen ei ole tullut vastauksia.
mustakos puhutte? no jaa ihan sama meinasin opetella tekemään tekoälyn joten voisko joku laittaa jonku pienen tekoälyn jota tutkisin ja opettelisin?
en oo varma meneekö offtopiciks jos menee niin anteeksi offtopic

Code: Select all

    map = LoadMap("Media\cdm2.til","Media\tileset.bmp")
    obj = LoadObject("Media/guy.bmp", 72)

    dis = 32    // Kuinka lähellä seinän tulee olla ennenkuin botti reagoi         
    Repeat
        MoveObject obj, 1
        // Tarkistetaan onko objectin edessä törmäyskerros
        If GetMap(2, ObjectX(obj) + Cos(ObjectAngle(obj)) * Dis, ObjectY(obj) + Sin(ObjectAngle(obj)) * Dis) Then
            // Edessä oli, joten katsotaan kumpaan suuntaan käännytään
            If GetMap(1, ObjectX(obj) + Cos(ObjectAngle(obj) + 90) * Dis, ObjectY(obj) + Sin(ObjectAngle(obj) + 90) * Dis) = 0 Then
                // Vasemmalla tyhjää, käännytään sinne
                RotateObject obj, ObjectAngle(obj) + 90
            ElseIf GetMap(1, ObjectX(obj) + Cos(ObjectAngle(obj) - 90) * Dis, ObjectY(obj) + Sin(ObjectAngle(obj) - 90) * Dis) = 0 Then
                // Oikealla tyhjää, käännytään sinne
                RotateObject obj, ObjectAngle(obj) - 90
            Else
                // Umpikuja, käännytään ympäri
                RotateObject obj, ObjectAngle(obj) + 180
            EndIf
            // Kääntymisen voisi tehdä myös turnobjectilla, mutta silloin reagointietäisyyttä tulisi kasvattaa
        EndIf
        DrawScreen
    Forever

jaahas · Post by **jaahas** » Thu Apr 01, 2010 10:55 pm

no entäs miten teen että jos olis obj ja obj1 ja seinä objectit ja jos seinä ei ole siinä välissä obj1 alkaa jahtaan obj objectiaja ihan sama minne se obj1 katsoo vaikka selkä obj:hin käsin sitten se kääntyy ja alkaa jahtaamaan miten teen tollasen?

Jonez · Post by **Jonez** » Fri Apr 02, 2010 4:57 am

Jos käytät tilekarttoja, kyseinen toiminto hoituu ObjectSight()- ja PointObject, sekä tietenkin MoveObject-komennoilla.

Muussa tapauksessa joudut tarkastamaan erikseen onko "seinäobjekti" kahden objektin välissä ja toimimaan sen mukaan. Tähän tarvinnet mm. trigonometriaa.

jaahas · Post by **jaahas** » Fri Apr 02, 2010 8:37 am

no entäs miten saan että botti liikkuu johonki paikkaan minne haluan ja siinä on seiniä välissä

EDIT:

mul olis tällänen koodi pätkä

Code: Select all

For plane.LENTIS = Each LENTIS
If Timer() - aika3 > 500 And ObjectsOverlap(plane\fieldi,seinäi) Then

For plane.LENTIS = Each LENTIS
ammuss.TYKI = New (TYKI)
ammuss\fieldi = CloneObject(pommi)

CloneObjectPosition ammuss\fieldi,plane\fieldi
ResetObjectCollision ammuss\fieldi

TurnObject ammuss\fieldi,-90

aika5 = Timer()

Next plane
EndIf
Next plane

For ammuss.TYKI = Each TYKI
For plane.LENTIS = Each LENTIS
If ObjectsOverlap (plane\fieldi,seinäi,1) Then
MoveObject ammuss\fieldi,1
EndIf
Next plane
Next ammuss

miten saisin ton tekemään sillai ettäkö se osuu seinäi silloin alkaa pudottamaan pommeja[/edit]

sankja · Post by **sankja** » Fri Apr 02, 2010 1:28 pm

Miksiköhän en saa läpikäyntirakennetta toimimaan,tarkoitus olis tarkastaa ettei uusi jäsen tule liian lähelle aikaisempia jäseniä.Ja jäsenet ovat siis seinä objekteja.

Code: Select all

Type KOKOELMA
Field objE
EndType 

SCREEN 400,400
objPeluri=LoadObject("guy.bmp",72)
ScreenPositionObject objPeluri,32,32

'piirretään kuvaan - kuva esteestä
imgEste=MakeImage(32,3*32)
DrawToImage imgEste
    Color cbgreen 
    'piirretään kuvan koordinaattien mukaan - kohdasta 0,0 alk.
    Box 0,0,32,3*32,0
DrawToScreen 

'tehdään estekuvasta objekti
objEste=MakeObject()
PaintObject objEste,-imgEste
ShowObject objEste,OFF 

'tehdään esteobjektista muutama klooni ja 
 'sijoitetaan ne ruudulle ruutukoordinaattien mukaan

For i=1 To 2
Paluu:
    E.KOKOELMA=New(KOKOELMA)
    E\objE=CloneObject(objEste)
        
        If i>1
            For E2.KOKOELMA=Each KOKOELMA
                
                
                'verrataan viimeisintä luotua jäsentä(E) kaikkiin
                'aikaisemmin luotuihin jäseniin(E2)
                If E2<>E
                    
                    xE=Rand(40,10*32):yE=Rand(40,10*32)
                    ScreenPositionObject E\objE,xE,yE
                    If Distance2(E2\objE,E\objE)<=32
                        DeleteObject E\objE
                        Delete E
                        Exit 
                    EndIf 
                EndIf 
            Next E2
            Goto Paluu
        EndIf
        
        If i=1
            xE=Rand(40,10*32):yE=Rand(40,10*32)
            ScreenPositionObject E\objE,xE,yE
        EndIf 
        
Next i

DrawScreen 
WaitKey

Post by **JATothrim** » Fri Apr 02, 2010 3:45 pm

Annan korjatun koodin, mutta koetan selittää hieman. a) koeta välttää Gotolla hyppimistä mahdollisimman paljon: se sekoittaa koodin varsin tehokkaasti väärin käytettynä. Käytä sitä ainoastaan loopista poistumiseen niin että hyppäät eteenpäin, et taakse. b) koodissasi oli vain simppeli ajatusvirhe. En itse kerennyt juuri ajatella mihin se jää jumiin, vaan kirjoitin sen toimimaan ilman ajatusvirhettäsi.

Fix'd:

Code: Select all

Type KOKOELMA
Field objE
EndType 

SCREEN 400,400
objPeluri=LoadObject("media\guy.bmp",72)
ScreenPositionObject objPeluri,32,32

'piirretään kuvaan - kuva esteestä
imgEste=MakeImage(32,3*32)
DrawToImage imgEste
    Color cbgreen 
    'piirretään kuvan koordinaattien mukaan - kohdasta 0,0 alk.
    Box 0,0,32,3*32,0
DrawToScreen 

'tehdään estekuvasta objekti
objEste=MakeObject()
PaintObject objEste,-imgEste
ShowObject objEste,OFF 

'tehdään esteobjektista muutama klooni ja 
'sijoitetaan ne ruudulle ruutukoordinaattien mukaan

For i=1 To 2
    E.KOKOELMA=New(KOKOELMA)
    E\objE=CloneObject(objEste)
	
	// heitellään esinettä randoomisti ympäri aluetta kunnes se sopii.
	Repeat
	
		este_positio_ok = True
		xE=Rand(40,10*32):yE=Rand(40,10*32)
		ScreenPositionObject E\objE,xE,yE
		For E2.KOKOELMA=Each KOKOELMA
			If E2<>E
				If Distance2(E2\objE,E\objE)<=32
					este_positio_ok = False
					Exit 
				EndIf 
			EndIf 
		Next E2
		
	Until este_positio_ok = True
        
Next i

DrawScreen 
WaitKey

jaahas · Post by **jaahas** » Fri Apr 02, 2010 4:17 pm

jaahas wrote:no entäs miten saan että botti liikkuu johonki paikkaan minne haluan ja siinä on seiniä välissä
EDIT:
mul olis tällänen koodi pätkä
Code: Select all
For plane.LENTIS = Each LENTIS
If Timer() - aika3 > 500 And ObjectsOverlap(plane\fieldi,seinäi) Then

For plane.LENTIS = Each LENTIS
ammuss.TYKI = New (TYKI)
ammuss\fieldi = CloneObject(pommi)

CloneObjectPosition ammuss\fieldi,plane\fieldi
ResetObjectCollision ammuss\fieldi

TurnObject ammuss\fieldi,-90

aika5 = Timer()

Next plane
EndIf
Next plane

For ammuss.TYKI = Each TYKI
For plane.LENTIS = Each LENTIS
If ObjectsOverlap (plane\fieldi,seinäi,1) Then
MoveObject ammuss\fieldi,1
EndIf
Next plane
Next ammuss
miten saisin ton tekemään sillai ettäkö se osuu seinäi silloin alkaa pudottamaan pommeja[/edit]

auttakaas nyt tossa

sankja · Post by **sankja** » Sat Apr 03, 2010 10:28 am

Ei vaan toimi,esteet menee päällekkäin että pölisee,vaikka ainakin vaakasuunnassa niiden pitäisi olla erillään toisistaan.Ei ton kans riitä hermot,auttasko joku.

Code: Select all


Type KOKOELMA
Field objE
EndType 

SCREEN 400,400
objPeluri=LoadObject("guy.bmp",72)
ScreenPositionObject objPeluri,32,32

'piirretään kuvaan - kuva esteestä
imgEste=MakeImage(32,3*32)
DrawToImage imgEste
    Color cbgreen 
    'piirretään kuvan koordinaattien mukaan - kohdasta 0,0 alk.
    Box 0,0,32,3*32,0
DrawToScreen 

'tehdään estekuvasta objekti
objEste=MakeObject()
PaintObject objEste,-imgEste
ShowObject objEste,OFF 

'tehdään esteobjektista muutama klooni ja 
'sijoitetaan ne ruudulle ruutukoordinaattien mukaan

For i=1 To 12
    E.KOKOELMA=New(KOKOELMA)
    E\objE=CloneObject(objEste)
   
   // heitellään esinettä randoomisti ympäri aluetta kunnes se sopii.
   Repeat
   
      este_positio_ok = True
      xE=Rand(40,10*32):yE=Rand(40,10*32)
      ScreenPositionObject E\objE,xE,yE
      For E2.KOKOELMA=Each KOKOELMA
         If E2<>E
         'jokin virhe tässäkin on,kun esteet menevät päälletysten
            If Distance2(E2\objE,E\objE)<=32
                DeleteObject E\objE
                Delete E
                    E.KOKOELMA=New(KOKOELMA)
                    E\objE=CloneObject(objEste)
                    este_positio_ok = False
               Exit 
            EndIf 
         EndIf 
      Next E2
   'jos este_positio_ok = false, niin repeat-until silmukka pyörii  
   Until este_positio_ok = True
        
Next i

DrawScreen 
WaitKey

jaahas · Post by **jaahas** » Sat Apr 03, 2010 11:43 am

olis tällänen koodi pätkä

Code: Select all

For plane.LENTIS = Each LENTIS
If Timer() - aika3 > 500 And ObjectsOverlap(plane\fieldi,seinäi) Then

For plane.LENTIS = Each LENTIS
ammuss.TYKI = New (TYKI)
ammuss\fieldi = CloneObject(pommi)

CloneObjectPosition ammuss\fieldi,plane\fieldi
ResetObjectCollision ammuss\fieldi

TurnObject ammuss\fieldi,-90

aika5 = Timer()

Next plane
EndIf
Next plane

For ammuss.TYKI = Each TYKI
For plane.LENTIS = Each LENTIS
If ObjectsOverlap (plane\fieldi,seinäi,1) Then
MoveObject ammuss\fieldi,1
EndIf
Next plane
Next ammuss

miten saisin ton tekemään sillai ettäkö lentokone(plane) osuu seinään(seinäi) niin silloin alkaa pudottamaan pommeja(ammuss)

EDIT:

oho olin laittanu ton vika tekstin ton koodin loppuun

Post by **temu92** » Sat Apr 03, 2010 12:13 pm

Kristallipallo on rikki.

(Kukaan ei voi auttaa jos et kerro mikä on vikana)

CoolBasic Forums

Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)

Re: Tyhmät kysymykset (I/2010)