CoolBasic Forums

Minulla on pieni ongelma ohjelman kanssa... En saa millään kuoltua pelissäni.. Coutcollisions/ObjectsOverlap komennot sanovat vain errorin, kun niiden pitäisi toimia.. Kysyn tässä samalla, että miten kannattaa tehdä, jos haluaa esim. 100vihua tulevan ruudulle 30sec välisenä aikana??? Itse hoidin tuo...

Onhan tuo ihan OK. Sais vaan olla vieritettävä versio ja hieman "graaffisempi". Tästähän on kaikenlaisia versioita, muunmuassa WinXP:n vierityspalkkia muistuttava (Vai miksi ne sitä kutsuu). PS. Ei kyllä ole resoluutio riippumaton, poistappa ensimmäinen rivi, ei toimi kunnolla 400*300:lla...

Itse olen vielä vähän aloittelija Coolbasicillä (alle viikon käyttänyt), mutta tein kuitenkin tälläisen valikon. Itse käytän tuota efekteiden/musiikin äänenvoimakkuuksien säätämiseen. Koodi on vähän sekava :mrgreen: , koska asetin sen riippumattomaksi kuvaruudunkoosta.. Toivon, että siitä on jolleki...

Thx, tuo sivu selvensi paljon asiaa. Tein tän saman nyt Typeillä, mutta edelleen sama ongelma. Vihuja ei pysty poistamaan, koska niitä käsitellään vielä, mutta en keksi mitään ratkaisua tuolle.. Nytten pystyy piilottamaan ne, mutta sitten ei pysty ampua, kun ne tulee lähelle.. Ja osumia tulee jostai...

Type AMMUS Field obj End Type Const vihumäärä=10 Dim vihu_obj(vihumäärä) Dim vihu_pic(vihumäärä) SCREEN 800,600 FrameLimit 40 'rajoita nopeutta ukko=LoadObject("Media\soldier.bmp",72) cloonattava_vihu=LoadObject("Media\guy.bmp",72) pati=LoadObject("Media\bullet.bmp") t...

Type AMMUS Field obj End Type Const vihumäärä=10 Dim vihu_obj(vihumäärä) Dim vihu_pic(vihumäärä) SCREEN 800,600 FrameLimit 40 'rajoita nopeutta ukko=LoadObject("Media\soldier.bmp",72) cloonattava_vihu=LoadObject("Media\guy.bmp",72) pati=LoadObject("Media\bullet.bmp") t...