CoolBasic Forums

Lisäät tarkistuksen, että onko objekti Olemassa !! oho, tuhoojabotti kerkesi ensin

Minunkin täytyy kysyä tuosta DSL käyttiksestä. Kun en ole linux käyttiksiä/distroja paljoa kokeillut, niin kunka saan netin toimimaan? ( emulattorilla toimii :( ) Mietin että katotaapa ajureita tai vastaavaa, mutta linuxissahan homma on ihan erillainen. :? Eli kunka saan (boardcomin) langattoman yht...

En ole aivan varma etsitkö tämmöistä. Funktio tarkistaa onko reitti A:sta B:en olemassa. taulukon kokoa voi muuttaa. Sotkuinen funktio ja esimerkki: Dim Kenttä(10,10) Dim Käyty(10,10) As Byte Type cord Field x Field y EndType Function MapThrought(x,y,x2,y2) //Aloitus kohta For i=1 To 10 For j=1 To 1...

*reps* Ei vitsi, repesin tolle kuvalle. Miksi juuri eilen otin selvää tuon karhun maineesta ??

Ilmoittaudun Mestariksi. Kokemusta löytyy, noin neljä vuotta CB:llä koodausta takana. Osaan käyttää jokaista kielessä olevaa komentoa, ja muistan tilanteeseen sopivia yllättävän monta ulkoa. 8-) :D Harmillisesti en ole kuitenkaan saanut tehtyä yhtään peliä, mutta koodia olen näpytellyt. Ja paljon, a...

Gäh! latasin Sledgehammerin ja yllätyin. proju etenee parempaan päin ! ;) Pakko lisäys luokkiin: Parametrien välittäminen Construtor:lle. Vaan bugithan pitää tietenkin korjata ensin, ettei tule tehtyä win95 tapaista systeemiä. :lol: Vaikka en ole vielä näpytellyt ChB:lä mitään, tulen vielä koodaamaa...

Kuten ensimmäisessä viestissä kerroin, ohjelman käyttöliittymä on kökkö. :? Ohjelma EI valmiiksi osaa tunnistaa mitään, ensin se kysyy merkkiä joka tämän JÄLKEEN pitäisi saada tunnistettua MUISTA tietokantaan LISÄTYISTÄ merkeistä. :) Hitaudesta sen verran, että ohjelma lukee KAIKKI piirroksen piksel...

:? Kirjoitus Virheitä.. Vaan Vilkaiseppa miten merkki tunnistetaan .. If Distance(x,y,iLetter\dotx,iLetter\doty)<MaxDistance Distance funktiolla ?? :lol: Eli siis jos saman merkin kirjoittaa eri kohtaan niin ei merkki ole enää sama. Muuten ohjelma kyllä pelittää kohtuullisesti. d näkyy olevan hankal...

Wov. Näpelsin siis ohjelman joka "oppii" tunnistamaan merkkin kuvasta. Ohjemasta en aijo ruveta kehittelemään mitään erikoista/seuraavia versioita, joten annan täydet valtuudet kehittää tätä ohjelmaa. Kannattaa piirtää ensin ainakin kolme eri kirjainta ja sitten kokeilla toimiiko tunnistus...

Haa! Jossain välin meinasin lyödä tämän funktion lukkoon, MUTTA TÄSSÄ VIELÄ YKSI VERSIO AdvancedInputista. Todennäköisesti myös viimeinen, sillä koodi menee jo hyvin lähelle, purkaa :? Korjatkaa/Lisätkää itse juttunne funktioon. Ilmeisesti ainoa parannus itse inputin toimintaan: asdf tulee rytisemmä...

valonnopeus on vain valon maksiminopeus, ei muuta. suurin tunnettu nopeus. entä pimeä materia?) matkustaa ajassa - sillä sehän tarkoittaisi edelleen että kaikki ympäröivä aine liikkuu täsmälleen koneen mukana samalla nopeudella, ja peruuttaa omaa tilaansa jonkinsorttisen muisti-ilmiön mukaan. Näin ...

Hmm...!!! Kun objekti maalataan kuvalla niin,

Paintobject obj, -kuva //!!!HUOMATKAA MIINUS MERKKI!!!!

Että sileen, Anteeksi jos menee ny huti kysymyksestä, en jaksanut nyt lukea kaikkia posteja.

!!! WARNING !!! :lol: teipäs tämmösen, käyttäkää omalla vastuulla: Hakkeroi (köh) siis lue koneesi muistia: HACK_WIDTH=40 Const HACK_HEIGHT=20 Dim hack(0) As Byte Color 0,255,0 Repeat offset=offset+RightKey()+KeyHit(cbkeydown)*HACK_WIDTH*HACK_HEIGHT HACK_WIDTH=HACK_WIDTH+MouseMoveZ() For y=0 To HACK...

Huomasin itsekkin, että funktio ei ole täydellinen. Mutta mutta.. ;) ottamalla objektilistasta ensimmäisen objektin ja 'objektin' välisen matkan 'lyhimmäksi' niin tuota rajoitusta ei ole, mutta jäin nyt laittamatta. Funktiotakin on muokattu *ikuisuus* sitten. Ja olisin joutunut tekemään vielä muutam...

Ongelma näyttää jo ratkenneen, mutta silti: :D Palauttaa lähimmän objektin annetulta maximi etäisyydeltä, jos ei löydy niin palautetaan annettu objekti. Function NearestObject(obj,säde#=50) InitObjectList matka#=0 lyhinmatka#=säde# Nearobj=obj Repeat Current_obj=NextObject() If Current_obj Then If C...

Napakasti 20 fps. Iha kiva testi, mutta pixelin käsittelyä ? Ehh.. hidasta. tuommonen pitää saada ainakin 40 fps:ään nii tulee jotain jännää .

Mielestäni Uusi kartta formaatti olisi hyvä, nimittäin on sama tehdä uusi kuin parannella vanhaa. helpompaa. Ja kartan lataamiseen tarvitaan vain yksi lisä funktio. Muistakaa ihmeessä ne valmiit kartta komenot - kaikki mitä niillä saadaan tehtyä tehdään myös niillä, turha sitä pyörää on uudestaan ke...

Päivitin Funktiota muutamasta kohtaa. F napeista muuten ideoita ? miksi se lyö (fontista riippuen) tyhjän merkin, vaikka sen ei pitäisi tehdä mitään ? Esimerkki koodin otin pois, sillä EI ole vaikeaa arvata miten tuota käytetään. Ja tuo asd juttu. Koska funktio tarkistaa napit järjestyksessä, a-d va...

'Lähes' tein tämän TODELLA nopeasti, joten ei ihme että virheitä löytyy. + en ole pikakirjoittaja, moisia virheitä en huomannut, kokeilkaapa vetää sormella ympäri näppäimistöä niin kyllä se huomaa kaikki painallukset. > ja | merkkejä ei tosiaankaan saanut ulos näppiksestä. korjataan.

Uudempi versio funktiosta löytyy alempaa viestiketjusta. :!: Wanha Funktioni UUSIN kujein, olkaa hyvä lähes täydellinen Input Funktio: //Globaalit Muuttujat Funktiolle. Global AInput_Text As String Global AInput_Offset As integer Global AInput_AddChar As Byte Global AInput_CapsLock As Byte Global AI...