Tyhmät kysymykset (I/2009)

[DatsuniG]

Miten saa tietää hiiren entiset koordinaatit??????????????????

Örr? MouseX() & MouseY()?

[Viltzu]

Miten saa tietää hiiren entiset koordinaatit??????????????????

Tuota... Kysymyksesi on melko outo. Ja kyllä 1 kysymysmerkki riittää.
Mutta laittamalla hiiren entiset koordinaatit muuttujiin?

Code: Select all

x = MouseX()
y = MouseY()
oldx = x
oldy = y

EDIT:

muutuuko se aina

Aina kun haluat että se muuttuu. [/edit]

[skorpioni-cb]

muutuuko se aina ja minä teen oman karttaeditorin ja miten saa kirjoitettua kuvan tiedostoon

[Hene]

"Error!

Memory access violation"

Yritin käynnistää erästä täältä ladattua peliä. Kukaan muu ei ole valittanut, että peli ei olisi toiminut, mutta minulla heittää tuollaisen. What I have to do?

[Nasse-setä]

Kertokaas hyvä tilekarttaohjelma, vai menetteleekö Cool Basicin mukana tullut tilester? Kuinka ison tilekartan voi tehdä, että Cool Basic jaksaa vielä vääntää? Vai tuleeko raja ollenkaan vastaan? Sitten vielä että voisitteko kertoa vähän lisää muista karttaformaateista, kun en tiedä vielä kun tilekartat, aloittelija kun olen. Mistä saisi lisää tietoa noiden tilekarttojen data-kerroksista kun en hiffaa ollenkaan. Vai voisiko joku kertoa?

[Hene]

Miten pelin näppäimet määritellään? Siis miten enter ynnä muut laitetaan tuohon koodiin

Code: Select all

 If KeyDown(cbKeyA) Then TurnObject ukko2,5

Toivottavasti ymmärsitte, mitä ajan takaa : P

[rami123]

Miten pelin näppäimet määritellään? Siis miten enter ynnä muut laitetaan tuohon koodiin

Code: Select all

 If KeyDown(cbKeyA) Then TurnObject ukko2,5

Toivottavasti ymmärsitte, mitä ajan takaa : P

ymmärsinkö oikein kysymksesi?

Entteri

Code: Select all

(cbKeyEnter)

noin eli kirjoitat (cbkeyNÄPPÄIN)

[Hene]

Miten pelin näppäimet määritellään? Siis miten enter ynnä muut laitetaan tuohon koodiin

Code: Select all

 If KeyDown(cbKeyA) Then TurnObject ukko2,5

Toivottavasti ymmärsitte, mitä ajan takaa : P

ymmärsinkö oikein kysymksesi?

Entteri

Code: Select all

(cbKeyEnter)

noin eli kirjoitat (cbkeyNÄPPÄIN)

Juu, ymmärsit ihan oikein : D

Mietinkin tuossa, että toimiiko se ihan noin simppelisti, mutta kyllä se näyttää toimivan : )

[Hene]

Mikä seuraavassa koodissa on vikana? Varmaan jäänyt minulta jokin aivan simppeli virhe huomaamatta... :/

Code: Select all

FrameLimit 40

AddText "Tekstiä 1"
AddText "Tekstiä 2"
AddText ""
AddText "Tekstiä 3"
AddText ""
AddText ""
AddText ""
AddText ""
AddText ""
AddText ""
AddText "       Tekstiä 4"




Repeat
 

    
   If KeyHit(28) Then '28=enter
        ClearText
        Goto avaus
    EndIf
    DrawScreen
    
Avaus:

  FrameLimit 40
 AddText "Tekstiä 5"
 AddText "Tekstiä 6"
    DrawScreen

Forever

Tuossa ohjelma toistaa kokoajan noita lauseita "Tekstiä 5" & "Tekstiä 6", kun painaa entteriä.

[tuhoojabotti]

Mikä seuraavassa koodissa on vikana? Varmaan jäänyt minulta jokin aivan simppeli virhe huomaamatta... :/
koodia...
Tuossa ohjelma toistaa kokoajan noita lauseita "Tekstiä 5" & "Tekstiä 6", kun painaa entteriä.

avaus koodi on jääny repeat luupin sisään eli se ajetaan joka luupin kierrolla, siirrä avaus koodi foreverin jälkeen

[Hene]

Mikä seuraavassa koodissa on vikana? Varmaan jäänyt minulta jokin aivan simppeli virhe huomaamatta... :/
koodia...
Tuossa ohjelma toistaa kokoajan noita lauseita "Tekstiä 5" & "Tekstiä 6", kun painaa entteriä.

avaus koodi on jääny repeat luupin sisään eli se ajetaan joka luupin kierrolla, siirrä avaus koodi foreverin jälkeen

Et viitsisi laittaa kokonaan korjattua koodia? : ) Yritin tuossa pari kertaa ohjeiden mukaisesti siirrellä koodia, mutta kokoajan sama juttu :/

[Viltzu]

Code: Select all

FrameLimit 40

AddText "Tekstiä 1"
AddText "Tekstiä 2"
AddText ""
AddText "Tekstiä 3"
AddText ""
AddText ""
AddText ""
AddText ""
AddText ""
AddText ""
AddText "       Tekstiä 4"




Repeat


   
   If KeyHit(28) Then '28=enter
        ClearText
        Goto avaus
    EndIf
    DrawScreen
   
Forever

Avaus:

  FrameLimit 40
AddText "Tekstiä 5"
AddText "Tekstiä 6"
    DrawScreen

Ja jos haluat palata takaisin luuppiin niin katso manuaalista Gosub.

[Hene]

Error!

Memory access violation

Nykyään heittää jokaisessa täältä ladatussa pelissä jonkinlaisen errorin, miten pääsen viasta eroon?

EDIT:

EDIT: Ja hei kiitoksia muuten edellisestä vastauksesta, nyt toimii siltä osin : )

[Character]

Onko pelin grafiikat ja muut tiedostot oikeassa kansiossa? Heittää MAVia jos se ohjelma ei löydä niitä.

[Jonez]

Error!

Memory access violation


Nykyään heittää jokaisessa täältä ladatussa pelissä jonkinlaisen errorin, miten pääsen viasta eroon?

Onko pelin grafiikat ja muut tiedostot oikeassa kansiossa? Heittää MAVia jos se ohjelma ei löydä niitä.

Ei heitä. Silloin se ilmoittaa ettei löydä sitä ja sitä tiedostoa. Mav tulee yleensä kun yritetään käyttää jotain mediaa jota ei ole. Kuvaa, objektia, ääntä jne.

Välillä cb heittää mavin täysin turhasta syystä, ja näitä mysteerimaveja voi kiertää esim. vaihtamalla parin koodirivin järjestystä, tai lisäämällä wait 1 tiettyyn kohtaan koodia. Siis täysin epäloogisia ratkaisuja. Valitettavasti nykyinen cb on sen verran buginen, että jotkut ohjelmat, jotka toimivat täydellisesti toisilla koneilla, eivät toimi toisilla.

Nähtävästi sinun koneesi on allerginen cb-ohjelmille, muuta selitystä en keksi.

Cb:n puolustukseksi täytyy sanoa, että ainakin omasta kokemuksestani on erittäin harvinaista että exeksi käännetty koodi ei toimi tietyllä koneella... Mutta ehkä oma koneeni on vain tarpeeksi cb-yhteensopiva.

[phons]

Tavallisin syy tähän on, että käyttis ei oikein pidä näistä, kun ovat vähän erilaisia kuin noku exet. Jos sulla on XP niin en tiedä miksi heittää MAVia...

[skorpioni-cb]

Kertokaas hyvä tilekarttaohjelma, vai menetteleekö Cool Basicin mukana tullut tilester? Kuinka ison tilekartan voi tehdä, että Cool Basic jaksaa vielä vääntää? Vai tuleeko raja ollenkaan vastaan? Sitten vielä että voisitteko kertoa vähän lisää muista karttaformaateista, kun en tiedä vielä kun tilekartat, aloittelija kun olen. Mistä saisi lisää tietoa noiden tilekarttojen data-kerroksista kun en hiffaa ollenkaan. Vai voisiko joku kertoa?

Data-kerroksen voi skannata objectilla esim:

Code: Select all

'lataa mediat.

'tästä esim voi alkaa silmukka.

If Getmap(3,objectin x-koordinaati,sama y-koordinaateille)=datakerroksen numero Then tee jotain

'piirrä ruutu

'lopeta esimerkki-silmukka

EDIT:

Tai kato Program Files\Program Files (x86) riippuu biteistä ja sitten tilester kansioon ja sieltä joku lueminut tai jotain.

[Nasse-setä]

Kertokaas hyvä tilekarttaohjelma, vai menetteleekö Cool Basicin mukana tullut tilester? Kuinka ison tilekartan voi tehdä, että Cool Basic jaksaa vielä vääntää? Vai tuleeko raja ollenkaan vastaan? Sitten vielä että voisitteko kertoa vähän lisää muista karttaformaateista, kun en tiedä vielä kun tilekartat, aloittelija kun olen. Mistä saisi lisää tietoa noiden tilekarttojen data-kerroksista kun en hiffaa ollenkaan. Vai voisiko joku kertoa?

Data-kerroksen voi skannata objectilla esim:

Code: Select all

'lataa mediat.

'tästä esim voi alkaa silmukka.

If Getmap(3,objectin x-koordinaati,sama y-koordinaateille)=datakerroksen numero Then tee jotain

'piirrä ruutu

'lopeta esimerkki-silmukka

EDIT:

Tai kato Program Files\Program Files (x86) riippuu biteistä ja sitten tilester kansioon ja sieltä joku lueminut tai jotain.

Onks toi niinku et jos paikka on datakerrosta niin sit tee jotain?

[skorpioni-cb]

Kertokaas hyvä tilekarttaohjelma, vai menetteleekö Cool Basicin mukana tullut tilester? Kuinka ison tilekartan voi tehdä, että Cool Basic jaksaa vielä vääntää? Vai tuleeko raja ollenkaan vastaan? Sitten vielä että voisitteko kertoa vähän lisää muista karttaformaateista, kun en tiedä vielä kun tilekartat, aloittelija kun olen. Mistä saisi lisää tietoa noiden tilekarttojen data-kerroksista kun en hiffaa ollenkaan. Vai voisiko joku kertoa?

Data-kerroksen voi skannata objectilla esim:

Code: Select all

'lataa mediat.

'tästä esim voi alkaa silmukka.

If Getmap(3,objectin x-koordinaati,sama y-koordinaateille)=datakerroksen numero Then tee jotain

'piirrä ruutu

'lopeta esimerkki-silmukka

EDIT:

Tai kato Program Files\Program Files (x86) riippuu biteistä ja sitten tilester kansioon ja sieltä joku lueminut tai jotain.

Onks toi niinku et jos paikka on datakerrosta niin sit tee jotain?

Kyllä!

[Luuster]

Ei perhana. Seikkalu peliäni tehdessä on tullut vastaan graffa ongelma. Kun vaihtaa huonetta kuva ei vaihdu enkä löydä tälle mitään järkevää syytä. Ja koodi. "Huoneita" on vain 2.

Code: Select all

roomid = 1
Global item1$
Global item2$
Global name$
Global Room
item1$="none"
item2$="none"
name$="none"
Room=1
// Huone
//  _ _ _
// |6|5|7|
//  _|4|_
// |3|2|1|  
//
// kartta

cow = LoadImage("media/cow.bmp")
guy = LoadImage("media/guy.bmp")
hahmo_im = cow

Global cow,guy

rep://-----------------------------------------------------------------------------

CloseInput 
ClearKeys

Repeat 
Color 0,255,0
roomid = Input(":")

  update_room() 
  drawroom(hahmo_im)
  
  DrawScreen
  
Until KeyHit(28) 

Select roomid
    Case 1
        goroom(1)
    Case 2
        goroom(2)
    Default
        error()           
End Select   
    
    Goto rep//<------------------------------------------------------------------------
 
Function goroom(roomid)

    room = roomid
    Return 0
    
EndFunction    

Function update_room()
        
    If room = 1 Then 
        name = "Cow has"
        item1 = "Car keys"
        item2 = "Map"
        hahmo_im = cow
    ElseIf room = 2
        name = "Guy has"
        item1 = "Candywrapper"
        item2 = "Screwdriver"
        hahmo_im = guy
    EndIf    

EndFunction

Function drawroom(hahmo)

    Text 5,15,name
    Text 5,25,item1
    Text 5,35,item2
    DrawImage hahmo,100,100
     
    Return 0
EndFunction    

Function error()

    Color 0,255,0
    Text ScreenWidth()/2-40,ScreenHeight()/2-10,"invalid" 
    Text ScreenWidth()/2-50,ScreenHeight()/2,"try again" 
    DrawScreen OFF
    Wait 500
    
    Return 0
EndFunction