Tyhmät kysymykset (I/2009)

Voit pyytää apua ohjelmointiongelmiin täältä.
Locked
cheeshelmet.jr
Member
Posts: 75
Joined: Tue Aug 28, 2007 6:59 am

Re: Tyhmät kysymykset

Post by cheeshelmet.jr » Sun Jan 13, 2008 1:11 pm

olen muistanut käyttää maailman kordinaatteja mutta jotenkin se täytyis saada pysähtymään seinään

User avatar
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Tyhmät kysymykset

Post by koodaaja » Sun Jan 13, 2008 1:20 pm

cheeshelmet.jr wrote:olen muistanut käyttää maailman kordinaatteja mutta jotenkin se täytyis saada pysähtymään seinään
Liikuta sitä pikseli kerrallaan, kuten aiemmassa viestissäni opastin. Näin se ei mene sisään. Ja törmäyksen sattuessa liikuta pikselin verran taaksepäin ja poistu loopista.

User avatar
Late
Newcomer
Posts: 7
Joined: Tue Aug 28, 2007 5:55 pm
Location: Ulvila, Finland

Re: Tyhmät kysymykset

Post by Late » Sun Jan 13, 2008 3:57 pm

Code: Select all

alku:
Repeat
If KeyHit(cbkeya) Then Goto peli
Text 0,0, "Reaktiotesteri - paina näppäintä a aloittaaksesi"
Text 0,15, "Ohjeet:"
Text 0,30, "Reaktiotesteri testaa nopeutesi." 
DrawScreen
Forever
Text 0,45, "Jos vasemmalta lukien ensimmäinen pallo on täytetty, pitää sinun painaa 1, jos toinen, paina 2,"
Text 0,60, "jos kolmas, paina 3 ja jos viimeinen, paina 4."

peli:
i=Rand(1,4)

Repeat
Circle 10,30,10,0
Circle 30,30,10,0
Circle 50,30,10,0
Circle 70,30,10,0

If i=1 And KeyHit(cbkey1) Then Goto peli

If i<>1 And KeyHit(cbkey1) Then Goto gameover
    
If i=2 And KeyHit(cbkey2) Then Goto peli
    
If i<>2 And KeyHit(cbkey2) Then Goto gameover
    
If i=3 And KeyHit(cbkey3) Then Goto peli
    
If i<>3 And KeyHit(cbkey3) Then Goto gameover
    
If i=4 And KeyHit(cbkey4) Then Goto peli
    
If i<>4 And KeyHit(cbkey4) Then Goto gameover

If i=1 Then Circle 10,30,10
If i=2 Then Circle 30,30,10
If i=3 Then Circle 50,30,10
If i=4 Then Circle 70,30,10

DrawScreen
Forever

gameover:
Text 0,0, "Hävisit, voit koittaa uudestaan painamalla mitä tahansa näppäintä."
DrawScreen
WaitKey
Goto alku
Miksi heti ensimmäinen painallus tuottaa gameoverin? Siis vaikka painaisi oikein?
Jos olen oikein ajatellut, kohta "If i<>1 And KeyHit(cbkey1) Then Goto gameover" tarkoittaa hieman selkeämmin:
"Jos i on_eri_suuri_kuin 1 Ja Painetaan_Näppäintä_1 Niin Mennään_kohtaan gameover"? Jos näin on, ei periaatteessa pitäisi olla mitään vikaa? Mutta nähtävästi siellä on joku ongelma. Vai onko se jossain muualla? Kiitos jo etukäteen.
Kyl se täst lähtee... Yli puoltoista vuotta CB:llä väännetty ja voin ylpeästi todeta, ettei mitään ole saatu aikaan!

http://www.pointshop.fi/?ref=2340898

User avatar
ManualIntelligence
Newcomer
Posts: 38
Joined: Tue Sep 04, 2007 3:22 pm

Re: Tyhmät kysymykset

Post by ManualIntelligence » Sun Jan 13, 2008 4:32 pm

Late wrote: Miksi heti ensimmäinen painallus tuottaa gameoverin? Siis vaikka painaisi oikein?
Jos olen oikein ajatellut, kohta "If i<>1 And KeyHit(cbkey1) Then Goto gameover" tarkoittaa hieman selkeämmin:
"Jos i on_eri_suuri_kuin 1 Ja Painetaan_Näppäintä_1 Niin Mennään_kohtaan gameover"? Jos näin on, ei periaatteessa pitäisi olla mitään vikaa? Mutta nähtävästi siellä on joku ongelma. Vai onko se jossain muualla? Kiitos jo etukäteen.
Pistähän clearkeys peli:n alkuun jotta vanhat painallukset eivät olisi muistissa ja näin peli luulisi, että olet jo painanut jotain näppäinät. Tähän tapaan:

Code: Select all

Repeat
If KeyHit(cbkeya) Then Goto peli
Text 0,0, "Reaktiotesteri - paina näppäintä a aloittaaksesi"
Text 0,15, "Ohjeet:"
Text 0,30, "Reaktiotesteri testaa nopeutesi."
DrawScreen
Forever
Text 0,45, "Jos vasemmalta lukien ensimmäinen pallo on täytetty, pitää sinun painaa 1, jos toinen, paina 2,"
Text 0,60, "jos kolmas, paina 3 ja jos viimeinen, paina 4."

peli:
i=Rand(1,4)
ClearKeys
Repeat
Circle 10,30,10,0
Circle 30,30,10,0
Circle 50,30,10,0
Circle 70,30,10,0

If i=1 And KeyHit(cbkey1) Then Goto peli

If i<>1 And KeyHit(cbkey1) Then Goto gameover
   
If i=2 And KeyHit(cbkey2) Then Goto peli
   
If i<>2 And KeyHit(cbkey2) Then Goto gameover
   
If i=3 And KeyHit(cbkey3) Then Goto peli
   
If i<>3 And KeyHit(cbkey3) Then Goto gameover
   
If i=4 And KeyHit(cbkey4) Then Goto peli
   
If i<>4 And KeyHit(cbkey4) Then Goto gameover

If i=1 Then Circle 10,30,10
If i=2 Then Circle 30,30,10
If i=3 Then Circle 50,30,10
If i=4 Then Circle 70,30,10

DrawScreen
Forever

gameover:
Text 0,0, "Hävisit, voit koittaa uudestaan painamalla mitä tahansa näppäintä."
DrawScreen
WaitKey
Progress of "Target Humanity":
> Koukussa Kalastukseen 2
> Koukussa Kalastukseen
> RistiNolla 07
> Offlimits Minigolf

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Tyhmät kysymykset

Post by Harakka » Sun Jan 13, 2008 4:34 pm

Itse peli oli vähän purkkaa Goto:n takia. ManualIntelligence ehtikin jo vastata, mutta tein siistimmän version (koodilta) pelistä. Toivottavasti pystyt ottamaan siitä jotenkin mallia. :)

Code: Select all

SCREEN 700,30
Repeat
    If havitty Then
        Text 5,5,"Peli loppui. Sait " + pisteet + " pistettä."
    Else
        Text 5,5,"Paina kuvan osoittamaa numeronäppäintä. Paina jotain näppäintä aloittaaksesi."
    EndIf
    DrawScreen : WaitKey

    havitty = 0 : pisteet = 0
    Repeat
        i = Rand(1,4)
        'Text 0,0,i
        For x = 1 To 4
            Circle 300 + x*20,5,15,x=i
        Next x
        Text 5,2,"Pisteet: " + pisteet
        DrawScreen
        
        painettu = WaitKey() - 1
        If painettu = i Then pisteet + 1 Else havitty = 1 : Exit
    Forever
Forever
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

naabster
Member
Posts: 56
Joined: Sat Sep 22, 2007 10:10 am

Re: Tyhmät kysymykset

Post by naabster » Sun Jan 13, 2008 5:04 pm

kuinka saan viholliset ampumaan pelaajaan. voisitteko auttaa :|

Code: Select all

Type SHOT
    Field obj 'object is saved here
End Type

Type ENEMY
    Field obj 'object is saved here
   Field health 'enemys health variable
End Type


FrameLimit 40 'limit speed

player=LoadObject("Media\soldier.bmp",72)   'player object
   'master object, all other enemies are cloned from this one
master_enemy=LoadObject("Media\guy.bmp",72)
ShowObject master_enemy, OFF   'hide the master objecet
bullet_obj=LoadObject("Media\bullet.bmp") ' master bullet object
ShowObject bullet_obj,OFF

AddText "    Move with arrows, CTRL to shoot."
AddText ""
AddText "    Add enemies with your mouse."
Repeat

    'Control player object with arrows
    If LeftKey() Then TurnObject player,5
    If RightKey() Then TurnObject player,-5
    If UpKey() Then MoveObject player,2
    If DownKey() Then MoveObject player,-2   

    'Shooting system
    If KeyDown(cbKeyRControl) And reload=0 Then   
        newbullet.SHOT = New(SHOT) 'create a new shot
        newbullet\obj=CloneObject(bullet_obj) 'clone from master bullet
        'place the bullet on the player
        CloneObjectPosition newbullet\obj,player           
        'put it on right orientation
        CloneObjectOrientation newbullet\obj,player         
        reload=5 'weapon reload       
    EndIf
    'update shooting
    If reload>0 Then reload=reload-1

   If MouseHit(1) Then   ' If mouse is clicked
      newenemy.ENEMY = New(ENEMY)   ' create a New enemy
      newenemy\obj = CloneObject(master_enemy) ' clone it from the master object
      newenemy\health = 75 'enemy health
     
      PositionObject newenemy\obj,MouseWX(),MouseWY() 'ON the mouse world coordinates
      RotateObject newenemy\obj,Rand(360) ' random direction
   EndIf

    'Update all the bullets
    For newbullet.SHOT = Each SHOT 'Loop through all the bullets
        MoveObject newbullet\obj,6
        If ObjectX(newbullet\obj)<-180 Or ObjectX(newbullet\obj)>180 Or ObjectY(newbullet\obj)<-130 Or ObjectY(newbullet\obj)>130 Then
            'bullet goes outside play-area --> mark it to be destroyed           
         kill_this_bullet = 1
        EndIf       
               
         'The trick is To update te enemies inside the bullet loop
         For newenemy.ENEMY = Each ENEMY 'Loop through all the bullets
            If ObjectsOverlap(newenemy\obj,newbullet\obj) Then 'If objects overlap eachother
               newenemy\health - 25 'reduce some health from the enemy
               kill_this_bullet = 1 'mark the bullet To be removed
            EndIf
            ' the actual AI And health check starts ON row 78
         Next newenemy
         
      If kill_this_bullet = 1 Then ' you cant just remove the bullet, it will cause MAV
          DeleteObject newbullet\obj 'remove the object
          Delete newbullet 'remove the whole bullet
         kill_this_bullet = 0 ' back To Default value
      EndIf
    Next newbullet

      ' And now update the ai And stuff
      For newenemy.ENEMY = Each ENEMY 'Loop through all the bullets
            'some great AI
            MoveObject newenemy\obj,1
           
            'If enemy leaves the boundaries
            If ObjectX(newenemy\obj)<-180 Or ObjectX(newenemy\obj)>180 Or ObjectY(newenemy\obj)<-130 Or ObjectY(newenemy\obj)>130 Then
               MoveObject newenemy\obj,-3 'move it back
               TurnObject newenemy\obj,180 'rotate it To the opposite direction
            EndIf
           
            If newenemy\health < 0 Then kill_this_enemy = 1 'If health goes below zero -> kill
            If kill_this_enemy = 1 Then 'If the enemy is marked To die, kill it now :(
               DeleteObject newenemy\obj
               Delete newenemy
               kill_this_enemy = 0
            EndIf
         Next newenemy

    'this before screen graphics (box)
    DrawGame

    'draw the game boundaries
    Color cbOrange
    Box 20,20,360,260,OFF   
   
    DrawScreen

Until EscapeKey()

User avatar
Myst!c
Advanced Member
Posts: 259
Joined: Fri Dec 21, 2007 12:49 pm
Location: Kemi

Re: Tyhmät kysymykset

Post by Myst!c » Sun Jan 13, 2008 5:07 pm

Jos meinaat että vihollinen tähtää sinuun niin se hoituu
kätevästi komennolla pointobject. :)

Code: Select all

 Pointobject vihu, pelaaja
Every Legend Has A Start!

User avatar
-Z-
Devoted Member
Posts: 682
Joined: Tue Aug 28, 2007 3:33 pm
Location: In ur danmaku, grazin ur bullets

Re: Tyhmät kysymykset

Post by -Z- » Sun Jan 13, 2008 10:12 pm

Olen onnistunut jotenkin kadottamaan koneeltani soldier.bmp:n ja ja bullet.bmp:n. Jos joku viitsisi ne lähetää vaikka liitteinä viestissään, niin olisin kovasti kiitollinen.
"Fallout 3 (#10) marked a shift in the industry, a move that saw the western RPG begin to surpass its Japanese counterparts." -IGN top 100 RPGs of all time

User avatar
Eräs cb koodaaja
Active Member
Posts: 126
Joined: Wed Aug 29, 2007 3:55 pm

Re: Tyhmät kysymykset

Post by Eräs cb koodaaja » Sun Jan 13, 2008 10:18 pm

Tässä on molemmat. Foorumi valittaa, ettei bmp-kuvia voi laittaa, joten ne on rarrissa.
Attachments
kuvat.rar
Kuvat
(864 Bytes) Downloaded 91 times
Tiimit ja tuotokset:
RE:Ydintuho
Drahtlose:Infernalisch, Pienet pelit

User avatar
-Z-
Devoted Member
Posts: 682
Joined: Tue Aug 28, 2007 3:33 pm
Location: In ur danmaku, grazin ur bullets

Re: Tyhmät kysymykset

Post by -Z- » Sun Jan 13, 2008 10:18 pm

Kiitän mitä kauneimmin ;-)
"Fallout 3 (#10) marked a shift in the industry, a move that saw the western RPG begin to surpass its Japanese counterparts." -IGN top 100 RPGs of all time

Zrazy_Coder
Member
Posts: 60
Joined: Sun Sep 09, 2007 8:46 pm

Re: Tyhmät kysymykset

Post by Zrazy_Coder » Sun Jan 13, 2008 10:46 pm

Onko mahdollista tehä Cb:llä jotain viestintä ohjelmaa, että jos kirjotan vaikka inputtii"Moi" Ja painan Enter niin se lähettäis sen "Moi" Vaikka sähköpostiin ?

Guest

Re: Tyhmät kysymykset

Post by Guest » Sun Jan 13, 2008 11:07 pm

Mulla on ollut outoja ongelmia yhdessä tekemässäni pelissä; luodit piirretään Linellä, ja välillä ohjelmaa ajaessa FPS laskee ampuessa johonkin kymmenen tienoille. Joskus taas se toimii ihan normaalisti ~60 FPS:llä. Olen melko varma, että ongelma johtuu juuri Line-komennosta, koska jos sen jättää pois, ohjelma ei hidastele koskaan. Mistä voisi johtua?

User avatar
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Tyhmät kysymykset

Post by koodaaja » Sun Jan 13, 2008 11:18 pm

Siitä, että line on hidas. Kokeilehan huviksesi piirtää satakunta viivaa näytölle, ei ole se kaikista nopein operaatio. Valitettavasti. Muutenhan CB taipuisi kaikensorttisiin hienouksiin, esimerkiksi visualisointeihin ja 3D:hen. Käytä mieluummin objektia/kuvaa, johon on piirretty viiva.

@Zrazy_Coder: Ei onnistu. Ei siis sisäänrakennetuilla komennoilla.

User avatar
atomimalli
Moderator
Moderator
Posts: 227
Joined: Wed Aug 29, 2007 3:55 pm

Re: Tyhmät kysymykset

Post by atomimalli » Mon Jan 14, 2008 1:11 am

Kaikkein nopein vaihtoehto on käyttää kuvia, sillä ne ovat ainakin kymmen kertaa nopeampia kuin objektit. Kuvia voi pyöritellä myös etukäteen.
Itseasiassa linet ovat paljon nopeampia kuin luullaan, esimerkiksi cb3dobjectviewerissä kaikkien pintojen täytöt tehtiin linellä eikä ohjelma hidastunut omalla koneella ollenkaan alle khdenkymmenen, vaikka linejä tuli yli kymmenentuhatta framessa(olivat melko lyhyitä, mutta silti.).

Et kertonut, että jääkö fps pysyvästi alas, vai palautuuko se. Jos se jää alas, niin se johtuu selvästi siitä ettei juoteja poisteta.

Toinen vaihtoehto on se, että ampuminen on lipsahtanut väärään kohtaan koodia, jonkun silmukan sisään,jolloin luoteja tulee monta päällekkäin.

User avatar
beg
Newcomer
Posts: 19
Joined: Fri Dec 14, 2007 3:08 pm

Re: Tyhmät kysymykset

Post by beg » Tue Jan 15, 2008 3:56 pm

Miksi tulee mav kun yritän kääntää pelaajan hiirtä kohti? :cry:
koodi:

Code: Select all

FrameLimit 40

tähtäys=LoadImage("media\cursor.bmp")
heppu=LoadObject("media\soldier.bmp")

Repeat

TranslateObject heppu ,RightKey()*2,0
TranslateObject heppu, -LeftKey()*2,0
TranslateObject heppu,0,UpKey()*2
TranslateObject heppu,0, -DownKey()*2
    
    
    
PointObject heppu,tähtäys 
ShowMouse tähtäys  

    
    DrawScreen

Until EscapeKey()

User avatar
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Tyhmät kysymykset

Post by koodaaja » Tue Jan 15, 2008 3:59 pm

Koska sinulla ei ole objektia nimeltä "tähtäys", sehän on kuva. Korvaa tuo PointObject -alkuinen rivi tällä:

Code: Select all

RotateObject objGuy, GetAngle(ObjectX(objGuy),-ObjectY(objGuy),MouseWX(),-MouseWY())

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Tyhmät kysymykset

Post by Harakka » Tue Jan 15, 2008 4:00 pm

Koska tähtäys ei ole objekti vaan kuva. Muuta se objektiksi ja sijoita se hiiren kohdalle positionobjectilla.

Code: Select all

FrameLimit 40

tähtäys=LoadObject("media\cursor.bmp")
heppu=LoadObject("media\soldier.bmp")

Repeat
PositionObject tähtäys,mouseWX(),mouseWY()

TranslateObject heppu ,RightKey()*2,0
TranslateObject heppu, -LeftKey()*2,0
TranslateObject heppu,0,UpKey()*2
TranslateObject heppu,0, -DownKey()*2
    
    
    
PointObject heppu,tähtäys 

    
    DrawScreen

Until EscapeKey()
EDIT: Taas myöhässä.. Toivottavasti tästäkin oli hyötyä.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

User avatar
beg
Newcomer
Posts: 19
Joined: Fri Dec 14, 2007 3:08 pm

Re: Tyhmät kysymykset

Post by beg » Tue Jan 15, 2008 4:14 pm

Joko olen vaan tyhmä tai sitten selitin huonosti. :oops: Nyt ei tule mavia mutta pelaaja ei vieläkään käänny hiirtä kohti.

User avatar
Jonez
Devoted Member
Posts: 575
Joined: Mon Aug 27, 2007 8:37 pm

Re: Tyhmät kysymykset

Post by Jonez » Tue Jan 15, 2008 4:19 pm

Johtuu siitä että objektille "heppu" ei ole asetettu käännösarvoa, eli se voi osoittaa vain yhteen suuntaan. Muuta sen hepun lataus tällaiseksi:
heppu=LoadObject("media\soldier.bmp", 72)
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War

User avatar
beg
Newcomer
Posts: 19
Joined: Fri Dec 14, 2007 3:08 pm

Re: Tyhmät kysymykset

Post by beg » Tue Jan 15, 2008 4:23 pm

Jonez wrote:Johtuu siitä että objektille "heppu" ei ole asetettu käännösarvoa, eli se voi osoittaa vain yhteen suuntaan. Muuta sen hepun lataus tällaiseksi:
heppu=LoadObject("media\soldier.bmp", 72)
No nyt joku ymmärsi kuinka tyhmä olen! Kiitokset kaikille kolmelle siitä, että jaksoitte nähdä vaivaa.

Locked