CoolBasic Forums

Sly_Jack0 wrote:https://github.com/SlyJack0/CoolTD/blob ... s/tower.CB Tuolta, UpdateTowers()-funktiosta voit katsoa, mitenkä minä tein vastaavan systeemin.

Elikkä siis, jos ei koodista selviä tarpeeksi: tornit ovat TOWER typessä ja niillä on kenttä "targetId". Viholliset ovat typessä ENEMY ja niillä on kenttä "id", johon tallennetaan vihollista luotaessa vihollisen id, joka saadaan ConvertToInteger()-funktiolla. Jos tornilla ei ole vielä kohdetta (targetId = 0), käydään kaikki viholliset läpi ja jos vihollinen on tornin kantaman sisällä asetetaan tornin targetId vihollisen id:ksi (kyseisessä koodissa otetaan huomioon lentvät viholliset, mutta siitä ei tarvitse välittää). Sitten taas, jos tornilla on kohde (targetId <> 0) (ja se on vielä elossa), asetetaan tEnemy.ENEMY osoittamaan kyseiseen instanssiin ENEMY-typessä (ConvertToType()-funktio). Tässä kohdassa hoidetaan sitten tähtäys ja ampuminen. Sitten vielä tarkistetaan, että jos vihollinen on liikkunut tornin kantaman ulkopuolella, asetetaan tornin targetId nollaksi, jolloin se etsii taas uuden kohteen.

Noun wrote:Tervepä taas. Yritän saada kahta (tyypeillä luotua) vihollisjoukkuetta sotimaan keskenään, mutta kun hahmo huomaa vihollisen se käytännössä alkaa hyppiä seinille (yrittää ilmeisesti tähdätä kaikkiin vihuihin kerralla). Miten saisin hahmon kohdistamaan huomionsa ainoastaan yhteen viholliseen, esimerkiksi lähimpään, kerralla?

etaisyys# = -1.0
lahinvihu = 0
For iVihu.VIHUT = Each VIHUT
    tmpEtaisyys# = Distance2( iVihu\obj, pelaaja_obj )
    If etaisyys < 0.0 Then
        // Otetaan talteen ensimmäinen etäisyys
        etaisyys = tmpEtaisyys
        // ...ja viittaus tyypin jäseneen
        lahinvihu = ConvertToInteger(iVihu)
    ElseIf tmpEtaisyys < etaisyys
        // Löydettiin lyhyemmältä matkalta vihu
        etaisyys = tmpEtaisyys
        // Otetaan talteen viittaus
        lahinvihu = ConvertToInteger(iVihu)
    EndIf
Next iVihu

// Tarkistetaan, onko meillä vihua
If lahinvihu <> 0 Then
    // Muunnetaan lahinvihu osoittimeksi tiettyyn VIHUT-kokoelman jäseneen
    iLahinVihu.VIHUT = ConvertToInteger( lahinvihu )
    
    // Käännetään pelaaja osoittamaan kyseiseen vihuun
    PointObject pelaaja_obj, iLahinVihu\obj
EndIf 

VesQ wrote:

Noun wrote:Tervepä taas. Yritän saada kahta (tyypeillä luotua) vihollisjoukkuetta sotimaan keskenään, mutta kun hahmo huomaa vihollisen se käytännössä alkaa hyppiä seinille (yrittää ilmeisesti tähdätä kaikkiin vihuihin kerralla). Miten saisin hahmon kohdistamaan huomionsa ainoastaan yhteen viholliseen, esimerkiksi lähimpään, kerralla?

Käy kaikki vihulaisobjektit läpi ja vertaa vihujen ja pelaajan välisiä etäisyyksiä. Aina kun lyhyempi etäisyys löytyy, tallenna muistiin viittaus tyypin jäseneen. Etäisyyksien tarkastelun jälkeen tähtää vain lähimpään viholliseen.

Tämän tyylisesti:

Code: Select all

etaisyys# = -1.0
lahinvihu = 0
For iVihu.VIHUT = Each VIHUT
    tmpEtaisyys# = Distance2( iVihu\obj, pelaaja_obj )
    If etaisyys < 0.0 Then
        // Otetaan talteen ensimmäinen etäisyys
        etaisyys = tmpEtaisyys
        // ...ja viittaus tyypin jäseneen
        lahinvihu = ConvertToInteger(iVihu)
    ElseIf tmpEtaisyys < etaisyys
        // Löydettiin lyhyemmältä matkalta vihu
        etaisyys = tmpEtaisyys
        // Otetaan talteen viittaus
        lahinvihu = ConvertToInteger(iVihu)
    EndIf
Next iVihu

// Tarkistetaan, onko meillä vihua
If lahinvihu <> 0 Then
    // Muunnetaan lahinvihu osoittimeksi tiettyyn VIHUT-kokoelman jäseneen
    iLahinVihu.VIHUT = ConvertToInteger( lahinvihu )
    
    // Käännetään pelaaja osoittamaan kyseiseen vihuun
    PointObject pelaaja_obj, iLahinVihu\obj
EndIf 

Jotta saisit tuon toimimaan siis sitten kahdelle kokoelmalle vihollisia, niin saat hieman säätää sisäkkäisten silmukoiden kanssa. ezben Type-tutoriaalista löytyy hyvät vinkit tuolle läpikäymiselle - ettei tarvitsisi kaikkia objekteja käydä kahteen kertaan läpi turhaan kahdessa sisäkkäisessä For...next-silmukassa.

legend wrote:Nyt tuli yksinkertaiselta kuulostava ongelma. Miten saan laskettua onko piste henkilön/objectin näköalueella 3d-maailmassa? Henkilö/objecti voi olla kääntyneenä mihin suuntaan tahansa.
Laitoin tähän kuvan havainnollistamaan asiaa. Punaiset viivat rajaavat näköalueen. Musta on henkilö/objecti. Pitäisi laskea onko vihreä piste näköalueella. Kuva on 2d....

EDIT:

Tiedän pisteen ja henkilön sijainnin. Tiedän myös henkilön kulman suhteessa y-akseliin.

EDIT:

Selkeennetty laskutapa voi riittä

Laurenzo wrote:Asensin eilen CoolBasicin WIN7 koneelle mutta kun kokeilin tälläistä koodinpätkää:

Code: Select all

Print "HelloWorld"
WaitKey

Niin tuli virheilmoitus:

legend wrote:

Laurenzo wrote:Asensin eilen CoolBasicin WIN7 koneelle mutta kun kokeilin tälläistä koodinpätkää:

Code: Select all

Print "HelloWorld"
WaitKey

Niin tuli virheilmoitus:

Ensimmäinen viesti toinen kohta...

äijä wrote:haluasin tietää miten pystyy lukemaan .txt tiedostosta esim. nimi=äijä ikä=22 ja laittaa ne muuttujaan ilman tuota nimi= ja ikä=

äijä wrote:haluasin tietää miten pystyy lukemaan .txt tiedostosta esim. nimi=äijä ikä=22 ja laittaa ne muuttujaan ilman tuota nimi= ja ikä=

Dim etsityt(1) as string

While Not EOF(file)

  f$=Lower(ReadLine(file))

  If InStr(Lower(f$),"nimi") Then
  
    etsitty(0)=Right(f$,Len(f$)-InStr(f$,"nimi")-4)
    
  ElseIf InStr(Lower(f$),"ikä") Then
  
    etsitty(1)=Right(f$,Len(f$)-InStr(f$,"ikä")-4)
  
  EndIf
  
Wend

jaahas wrote:

äijä wrote:haluasin tietää miten pystyy lukemaan .txt tiedostosta esim. nimi=äijä ikä=22 ja laittaa ne muuttujaan ilman tuota nimi= ja ikä=

Lue while not eof(tiedosto)- wend silmukassa rivi tiedostostasi jokaisen lukemisen jälkeen tarkasta instr:llä kumpi on kyseessä ikä vai nimi. Ja sitte vaan poistat sen alun siitä rivistä.
Esim.

Code: Select all

Dim etsityt(1) as string

While Not EOF(file)

  f$=Lower(ReadLine(file))

  If InStr(Lower(f$),"nimi") Then
  
    etsitty(0)=Right(f$,Len(f$)-InStr(f$,"nimi")-4)
    
  ElseIf InStr(Lower(f$),"ikä") Then
  
    etsitty(1)=Right(f$,Len(f$)-InStr(f$,"ikä")-4)
  
  EndIf
  
Wend