Olipa kerran ja sitten ei ollutkaan

<3 Vanhat vitsit <3

Siis! Skriptihöskän kuvanpyöritin edistyy. Kaikki muut varmaan kutsuisivat sitä moottoriksi... Mutta erilainen nuoruus on elämäntapa. Joka tapauksessa. Se sisältää nykyään liikutuskomennon kuvilla. Komento pohjautuu CB:n TranslateObjectiin, koska tässä pisteessä ei vielä ole tarvetta leikkiä kuvanpyörityksellä, on helpointa hoitaa liikuntasuunnan muutos yhdellä komennolla; johtopäätöksenä TranslateObject oli siis paras vaihtoehto.

Kasasin myös komennon, joka tarkistaa onko määritelty kuva ruudulla. Jos objektin koordinaatit ovat ruudun ulkopuolella, asettaa se "Ruudulla" - muuttujan arvoksi 1:n, else múuttuja on 0. Tätä arvoa voi sitten hyväksikäyttää ehtolauseissa... Tosin tämänhetkinen, julkaisukelvoton testiscrini pistää tulkin mavvaamaan. Tosin tässä kirjoittaessa tuli mieleen suunnitelma... Kytken tikun koneeseen ja kokeilen sitä! Näemme taas!

Helpotetaanpa tulevaa dokumentointia

Koska Skriptihöskä 0.8.3:n (vai mikä hemmetti se versionumero nykyyän olikaan) kuvanpyöritystuki on perseestä, koodasin tässä ruokavälkällä koulussa uuden kuvanpyöritysmoottorin ja tein sille malliscrinin, jonka julkaisen täällä:

lataakuva "E:\skriptihöskä\se moottori\nimetön.jpg" 12
lataakuva "E:\skriptihöskä\se moottori\kopio nimetön.jpg" 15

päivitä_ruutu
odota_painallusta

sijoitakuva 12 20 30


päivitä_ruutu
odota_painallusta

sijoitakuva 15 200 30

sijoitakuva 12 300 20

päivitä_ruutu
odota_painallusta

sijoitakuva 15 500 300

päivitä_ruutu
odota_painallusta


sijoitakuva 15 300 200

päivitä_ruutu
odota_painallusta

sijoitakuva 12 600 600
sijoitakuva 15 100 100

päivitä_ruutu
odota_painallusta

lohkoloppu

lataakuva "polku" kuvaosoitin
sijoitakuva osoitin X-koordinaatti Y-koordinaatti

eli pilkuilla ei leikitä

Kirjoitetaanpa teksti!

Viikon pleika... Sängyssälojumisen ja parin koulupäivän jälkeen kuulutan että henkeni kulkee yhä!

Olipa tässä yksi päivä (tiistai ellen täysin väärin muistele) tylsää. Aina kun on tylsää, on hyvä aika selata keskustelupalstoja. Osuin CB-foorumin Teh DLL-opas - ketjuun. Eli kiitokset kipinästä esa94:lle! Aloitusviestissänsä hän linkkasi "C++ - oppaaseen", ja havaitsin että koneeltani näkyy löytyvän Dev-C++ - ympäristö. Tätä se reilun teratavun tallennustila teettää ;)

Jokatapauksessa... Laskin yhteen 1 + 1, sehän tekee tunnetusti n. 400,234. Hetken aikaa luettuani olin jo saanut Helloworldin pyörimään konsolissa (toki kun ollaan Windowsissa niin oikeampi ilmaus olisi että cmd:ssä). Vielä vähän perehtymistä, ja sain exen siihen muotoon, etttei ikkuna vain vilahda ruudulla, vaan se jää ruudulle kunnes käyttäjä antaa sille luvan sulkeutua. Suomeksi: löysin cin - olion get() - metodin!

Ja näin yhteenvetona: CBV3:sta tulee aivan loistava työkalu, vaikka C++:kin on suunnilleen yhtä tehokas. Joka tapauksessa CB:n Beta 10 on Zeroa referoiden "Badly outdated"

Tyyppikokoelmat ovat mahtavia!

Julkaisen nyt kansionluontifunktion VFS-kirjastosta osoittaakseni projektin olemassaolon, jopa toimivana:

Function luo_kansio(kansionnimi$ As String)//luo kansion mountattuun asemaan
//eli
//juureen luodaan [kansio]

CloseInput:ClearText

kansionperustus=False

For filuviite.VFS=Each VFS
    If filuviite\asema="[/]" Then
        kansionperustus=True//Sallitaan seuraavan lohkon suoritus otettuamme kansion loppukohta talteen
        kansio_loppui=ConvertToInteger(filuviite)//Otetaan talteen missä edellinen kansio loppuu
        //kansio_loppui_1=ConvertToInteger(After(filuviite))'täysin turha arvo
        EndIf//mitä tällä tehdään? :O
   
    If kansionperustus=True Then

        filuviite.VFS=New(VFS)//kokeile pistää rivit 135-138 riville 145 niin ymmärrät tämän järjestyksen
        filuviite\asema="[/]"

        Insert filuviite,ConvertToType(kansio_loppui)'_1)       
       
        filuviite.VFS=New(VFS)
       
        filuviite\asema="["+Lower(kansionnimi)+"]"

        Insert filuviite,ConvertToType(kansio_loppui)
       
            'MakeError "Tämä toimii"
        luotu_kansio=kansionnimi
remstart
            For filuviite.VFS = Each VFS
                Print filuviite\asema
            Next filuviite.VFS
                Print luotu_kansio
            WaitKey
remend
'            End
       
       
        Exit
    EndIf
Next filuviite.VFS

If kansionperustus=False Then
    Return 0
ElseIf kansionperustus=True Then
    Return 1
EndIf

EndFunction

Syntynyt kuolema

”Tuolla he ovat: lavalle ominaisessa elementissään.” Donna sanoi ylpeänä ääneen. ”Onko se totta, että he tulevat pelastamaan Siputtanian kuudensadan vuoden päästä?” Traajana kysyi ihmeissään. ”Sinulle se on totta, heidän silmissään Siputtania on kuudensadan vuoden päästä jo pelastettu. Ketään heistä ei ole vielä syntynyt ja silti tuolla he haaveilevat uudesta R.T.urasta, joita useimmille tiimeille suodaan vain yksi, koska urasta ei poistuta, urasta kuollaan. Eli he eivät teoriassa voi syntyä, ja he ovat syntyneet, eivätkä he voi kuolla, vaikka he ovat jo kuolleita, koska he ovat antaneet osansa pyhän Roskateamin perintöön.” Donna selitti kikattaen vienosti.