Game Making Should Be Easy...
https://www.coolbasic.com/phpBB3/
Enpä tiedä enkä muista minäkään, eikä varmaan kukaan muukaan tällä foorumilla, joten kovin yksityiskohtaisesti ei pysty auttamaan. Kokeile vaikka reinstalloida CoolBasic.Character wrote:En tiedä/muista
Eikun kyse olikin mavista 
Mavia tuskin tulee jos yritää ladata olematonta kuvaa, mutta kun kerran kaikissa projekteissa niin koita mavaako tuo 07. Jos ei niin oletettavasti koodeissasi on jotain mavaavaa. 
Ole hyvä vain. Muistan kun itse painiskelin tuon asian kanssa eikä muista oikein ollut apua — tästä johtuva ongelma kun ei taida olla kauhean yleinen. Mukavaa kun voin auttaa 
Joo, tästähän se johtuikin. KiitoksiaVesQ wrote:MAVin voi aiheuttaa myös Windowsin "Data Execution Prevention" toiminnallisuus
CoolMan wrote:Kuinka saisin tehtyä silleen että kun auto osuu esim. laatikkoo niin kuuluu ääni, laatikko häviää ja siirtyy eri paikkaan kentässä?
Kiitos!
Code: Select all
JOS osutaan_laatikkoon SITTEN
SoitaÄäni osuma
SiirräLaatikkoEriPaikkaan
LOPETAJOSCode: Select all
If MouseWX()=ObjectX(tee\obj)And MouseWY()=ObjectY(tee\obj) And luodit>0 And MouseUp (1) Then sitä ja sitä...Tässä nyt tarkistetaan, onko hiiri täsmälleen objektin koordinaateissa. Eli jos pikselinkin osut hutiin objektin keskipisteestä, ei mitään tapahdu.Lape wrote:Hmm...taasen pitääpi kysyä apuja täältä, elikkäs tällä kertaa ongelmana semmoinen, että kun on ottanut kuvan hiirikursoriksi, ja sitten kun sen liikuttaa tietyn objektin päälle ja painaa hiirestä, niin tämän objekti sitten poistetaan ja niin edespäin. Ongelmana siis se, että objekti ei suostu lähtemään siitä mihinkään. Yritin jotain tämmöstä ihmeellistä:Code: Select all
If MouseWX()=ObjectX(tee\obj)And MouseWY()=ObjectY(tee\obj) And luodit>0 And MouseUp (1) Then sitä ja sitä...
W0t, vastasin alle 4 min. kysymyksestä 
En tutkinut mitä tuo paketti piti sisällään, mutta häviämisen saat aikaiseksi DrawGhostImagen avulla. Päällekkäin olon nyt saa tarkistettua vaikka Distancen avulla.Laurenzo wrote:Kuinka onnistuisi se että kun menee leipomoon siivoomaan ja siellä on lätäkkö ja kun lätäkköä jynssää tarpeeksi se pikkuhiljaa "haviää"
kaikki varmaan ihmettelee että pelin nimi on kitupiikki 3 no se on pelin kolmos versio 1 ja 2 versio on tehty gamemakerilla ne voit ladata kotisivultani
Tämä ympyrä-jana leikkaustarkistusfunktio sopii varmaan kyseiseen tehtävään. Joudut varmaankin muokkailemaan tuota toimimaan maailmankoordinaateissa (jos niitä käytät) tai sitten muutat maailmankoordinaatit ennen leikkaustarkistusta näyttökoordinaateiksi vaikkapa näiden funktioiden avulla.Ize wrote:Hei.
Minulla olisi tässä pieni ongelma.
pelissä objekteja liikkuu ruudulla, painat hiiren pohjaan ja vedät piirtokomennoilla piirretyn viivan niiden yli. Niiden pitäisi tuhoutua. Kysymys kuuluu: Kuinka saan tarkistettua mitkä objektit ovat viivan alla?
Tattista. Tuo on varmasti avuksiVesQ wrote: Tämä ympyrä-jana leikkaustarkistusfunktio sopii varmaan kyseiseen tehtävään. Joudut varmaankin muokkailemaan tuota toimimaan maailmankoordinaateissa (jos niitä käytät) tai sitten muutat maailmankoordinaatit ennen leikkaustarkistusta näyttökoordinaateiksi vaikkapa näiden funktioiden avulla.
Code: Select all
e = makeimage(20,20)
drawtoimage e
color cbred
box 0,0,20,20
color cbWhite
drawtoscreen
saveimage e,"kuva.png"
deletefile "kuva.png"
Kyllähän se toimii... Jotenkin. CB kuitenkin tallentaa sen BMP muodossa tiedostopäätteestä huolimatta. Jos koitat avata tuota tiedostoa, niin ei tule onnistumaan.Konstaduck wrote:Miksi muuten Saveimage - komennossa pitäisi olla pääte .BMP?
itselläni ainakin toimii seuraava:
Huvitti tämä, kun huomasin tuollaisenCode: Select all
e = makeimage(20,20) drawtoimage e color cbred box 0,0,20,20 color cbWhite drawtoscreen saveimage e,"kuva.png" deletefile "kuva.png"
Code: Select all
Type AMMUS
Field obj
End Type
FrameLimit 60
ukko=LoadObject("Media\soldier.bmp",72)
pati=LoadObject("Media\bullet.bmp")
ShowObject pati,OFF
AddText "Nuolista ohjaa, CTRL=ampuu"
Repeat
If LeftKey() Then TurnObject ukko,5
If RightKey() Then TurnObject ukko,-5
If UpKey() Then MoveObject ukko,2
If DownKey() Then MoveObject ukko,-2
Tee_Ase("Pistooli",6,pati,ukko,5)
DrawGame
Text 40,40,FPS()
DrawScreen
Until EscapeKey()
Function Tee_Ase(nimi,luodin_nopeus,Luodin_kuva,pelaaja,reload_time)
If KeyDown(cbkeyspace) And reload=0 Then
Luoti.AMMUS = New(AMMUS)
luoti\obj=CloneObject(Luodin_kuva)
CloneObjectPosition luoti\obj,pelaaja
CloneObjectOrientation luoti\obj,pelaaja
reload=reload_time
EndIf
Text 40,60,reload
If reload>0 Then reload=reload-1
For luoti.AMMUS = Each AMMUS
MoveObject luoti\obj,luodin_nopeus
Next luoti
End Function
Vika johtuu siitä, että käyttämäsi "reload" muuttuja ei ole globaali. Koska aseen ja panoksen päivitys on funktiossa ja "reload" on funktion sisäinen muuttuja se on aina nolla. Funktion ei-globaalit muuttujat alustettaan vakioarvoksi (0:lla), kun funktiota kutsutaa, joten "reload" muuttujan arvo ei säily. Ongelma korjautuu tekemällä "reload" muuttujasta globaalin.spurdo wrote:Ei reload jostain syystä toimi =(
Code: Select all
Global reloadJep juuri näin, Reload muuttujan kun määrittelet Globaaliksi heti ohjelman alussa niin pitäisi ruveta toimimaan. Ja tuosta sinun Tee_Ase funktiostasi sen verran, että panoksien liikuttelua ei kannata käydä saman funktion sisällä lävitse. Itse tekisin asian näin:Latexi95 wrote:Vika johtuu siitä, että käyttämäsi "reload" muuttuja ei ole globaali. Koska aseen ja panoksen päivitys on funktiossa ja "reload" on funktion sisäinen muuttuja se on aina nolla. Funktion ei-globaalit muuttujat alustettaan vakioarvoksi (0:lla), kun funktiota kutsutaa, joten "reload" muuttujan arvo ei säily. Ongelma korjautuu tekemällä "reload" muuttujasta globaalin.spurdo wrote:Ei reload jostain syystä toimi =(
Eli koodin alkuun:Code: Select all
Global reload
Code: Select all
Type AMMUS
Field obj
Field Nopeus
End Type
Global reload
FrameLimit 60
ukko=LoadObject("Media\soldier.bmp",72)
pati=LoadObject("Media\bullet.bmp")
ShowObject pati,OFF
AddText "Nuolista ohjaa, CTRL=ampuu"
Repeat
If LeftKey() Then TurnObject ukko,5
If RightKey() Then TurnObject ukko,-5
If UpKey() Then MoveObject ukko,2
If DownKey() Then MoveObject ukko,-2
Ammu("Rynnäkkökivääri", 6, pati, ukko, 10)
If reload > 0 Then reload = reload - 1
DrawGame
PäivitäPanokset()
Text 40,40,FPS()
Text 40,55,reload
DrawScreen
Until EscapeKey()
Function Ammu(nimi,luodin_nopeus,Luodin_kuva,pelaaja,reload_time)
If KeyDown(cbkeyspace) And reload=0 Then
Luoti.AMMUS = New(AMMUS)
luoti\obj=CloneObject(Luodin_kuva)
luoti\Nopeus = luodin_nopeus
CloneObjectPosition luoti\obj,pelaaja
CloneObjectOrientation luoti\obj,pelaaja
reload=reload_time
EndIf
End Function
Function PäivitäPanokset()
For luoti.AMMUS = Each AMMUS
MoveObject luoti\obj,luoti\Nopeus
Next luoti
EndFunction minulla kylläkin toimii koodissa, että teen makeimagella kuvan, tallennan sen png, lataan sen komenolla Loadobject("kuva.png") ja ei ongelmaa. No mutta osaa olla ihmeellinen asia...Latexi95 wrote:Kyllähän se toimii... Jotenkin. CB kuitenkin tallentaa sen BMP muodossa tiedostopäätteestä huolimatta. Jos koitat avata tuota tiedostoa, niin ei tule onnistumaan.Konstaduck wrote:Miksi muuten Saveimage - komennossa pitäisi olla pääte .BMP?
itselläni ainakin toimii seuraava:
Huvitti tämä, kun huomasin tuollaisenCode: Select all
e = makeimage(20,20) drawtoimage e color cbred box 0,0,20,20 color cbWhite drawtoscreen saveimage e,"kuva.png" deletefile "kuva.png"
Veikkaisin, että CB ja moni muukin sovellus huomaa tiedostosta, että se ei ole bmp vaan png, vaikka tiedostopääte väittääkin muuta. Tiedostokoosta huomaa. CB:llä tehty png on yhtä iso kuin bmp, koska CB ei osaa pakata kuvaa.Konstaduck wrote: minulla kylläkin toimii koodissa, että teen makeimagella kuvan, tallennan sen png, lataan sen komenolla Loadobject("kuva.png") ja ei ongelmaa. No mutta osaa olla ihmeellinen asia...