Omat pelit ja ohjelmat

[Motokuski]

Ootteko ite tehnyt pelejä tai ohjelmia tietokoneelle? Ite oon jotain vääntänyt, suurimpana yläältäpäin kuvattu kaivinkonepeli.
Tässä kuva:


Kaivureissa on kauhanpyörittäjä, niitä voi viedä lavetilla ja pelissä on mahdollisuus kävellä myös ihmisellä
Eihän tämä grafiikoiltaan hieno ole, mutta se on kokonaan itse tehty.

[4ntti93]

mun mielestä ainakin on hieno!

[Ibi1981]

jakoon

[Motokuski]

On vielä kesken, teen tätä silloin kun huvittaa, tosin ei oo nyt vuoteen huvittanut... Nyt aattelin jatkaa vähäsen, tulee ehkä kaihettavia kauhoja ja ehkä mahdollisuus viedä soraa kuorma-autolla.
Eli ei tule vielä jakoon, mutta voin laittaa tämän 1.0 betaversion jakoon ennen joulua

[_Asd]

Siisti laita mulle yv nä haluisin kokeilla näytti niin kivalta

[Motokuski]

Vielä muutama bugi pitää korjata, laitan jakoon ennen joulua.

[Valtra6250]

Toi on kuules tosi hienon näkönen vaikka ei hieno grafiikka mut hienolta näyttää.
Itse olen joskus tehnyt pila ohjelmia Visual Basicilla... Että painaa jotaa ja sitte palkki etenee ja sitte ku täynnä se avaa koko aja jatkuvasti jotain ilmotuksii ja sitte ennen ku laittaa palkin etenemään nii niitä ei voi sulkee niitä ikkunoita kuin tehtävienhallinnal.

[Motokuski]

Jep. Tämä on tehty Coolbasicilla.

[Muskeli_]

Nätin näköinen peli! Kerrotkos vähän, että miten tuollainen tekeminen onnistuu?
Edit: Vieläkun sais 3D:ksi vaikka niinkuin propilkki2 on.. Olisi aivan mahtava peli!

[Timzze]

vähänkö on hereä

[Motokuski]

Nätin näköinen peli! Kerrotkos vähän, että miten tuollainen tekeminen onnistuu?
Edit: Vieläkun sais 3D:ksi vaikka niinkuin propilkki2 on.. Olisi aivan mahtava peli!

No se koodataan, tässä osa tämän pelin koodista:

Koodi: Valitse kaikki

If autossa = 2 
MoveObject alaosa, (KeyDown(cbkeys)-KeyDown(cbkeyw))*1
TurnObject alaosa, (KeyDown(cbkeya)-KeyDown(cbkeyd))*1
TurnObject koura, (KeyDown(cbkeyq)-KeyDown(cbkeye))*1
kulma = WrapAngle( kulma + (KeyDown(203)*1-KeyDown(205)*1) )
puomi_paikka = puomi_paikka + (DownKey()-UpKey())

 
kulma2 = WrapAngle( kulma2 + (KeyDown(16)*5-KeyDown(18)*5) )

If lavalla = 1  Then CloneObjectOrientation alaosa, kuorkki 
If lavalla = 1  Then CloneObjectPosition alaosa, kuorkki
If lavalla = 2  Then CloneObjectOrientation alaosa2, kuorkki 
If lavalla = 2  Then CloneObjectPosition alaosa2, kuorkki
  EndIf

'kamera
If autossa = 0 Then CameraFollow objpelaaja, 1, 10 
If autossa = 1 Then CameraFollow kuorkki, 1, 10 
If autossa = 2 Then CameraFollow yläosa, 1, 10 
If autossa = 3 Then CameraFollow yläosa2, 1, 10 


If kauha=1  And KeyHit(cbkeyo) 
 kauha = 0 
newBullet.BULLETS= New(BULLETS)
        newBullet\kasa=CloneObject(kasa)
        CloneObjectPosition newBullet\kasa,koura
        CloneObjectOrientation newBullet\kasa,koura
EndIf 
 
 If kauha = 0  And KeyHit(cbkeyu)
        kauha = 1
        newBullet.BULLETS= New(BULLETS)
        newBullet\obj=CloneObject(bullet)
        CloneObjectPosition newBullet\obj,koura
        CloneObjectOrientation newBullet\obj,koura
EndIf

Hyvin yksinkertainen ohjelmointikieli tämä Coolbasic on, eli jos kiinnostaa koodaus niin kannattaa aloittaa tällä tai vaikka Visual Basicilla. 3D ei onnistu tällä ohjelmalla.

[JkkaM]

No itsellä vain Visual Basicista okkemusta, varmaankin yksinkertaisin ohjelmointikieli, joilla noita ohjelmia saa aikaan.

[Valtra6550]

Juu tää on ihan hyvin tehty! Mie sain isältä tuan Visual Basic 6 Pro Training-Ohje kirjan,joten Kohta saattaa tulla täältäkinpäin pelejä...

[MB_Trac]

Ei muutakuin johkin miniclippiin tämä peli!

[Valtra6550]

Tämä ei ole oma mutta olisi pirun hienoa jos tällänen olisi!

Juttua aiheesta--> TÄSTÄ!

[Peluri4]

laita joulu aattona niinku joulu lahjaksi

[Valtra6250]

Visual Basicissa saa ikkunan sellaseks ettei sulkeudu ruksista niin tällee:
Eli mennään ikkunassa siihe koodaus juttuun ja sitte salaman kuvassa lukee jotain nii sielt pitäs löytää FormClosing ja sitte ottaa se ja sitte kirjottaa: e.Cancel = True
Muistaakseni tollee oli ku ei ny oo pitkää aikaa tullu käytettyy visual basiccia

[Motokuski]

Tuli tehtyä parempia tekstuureja noihin koneisiin:
-kaivurin telat
-kaivurin ylävaunu
-lavetti
-kaivettu kohta ja maakasa
-ym. muuta pientä.

Laittakaahan kommenttia.

[Muskeli_]

On kyllä makian näkönen! innolla kyllä odotan tätä! Tulee ihan GTA ykkönen mieleen!

[Traktori_Mies]

Tuo on kyl aika siisti!

[JkkaM]

Ja Visual Basicilla huono pelejä kyllä tehdä, mielummin tuolla Cool Basicilla

[Motokuski]

Kuvia pelistä:

[Valtra6550]

No mutta tuohan on pirun hyvä!!!

[Claas_FANI]

JAKOON!!! Näyttää upeelta! Laita jakoon ja tee v2 versio! PLIISS???

[Motokuski]

No se on kiva että tykätään Ennen joulua tulee betaversio, voi olla etten ehdi/osaa korjata yhtä ongelmaa sitä enne, mutta silloin se tulee kuitenkin. Kaivamaan pystyy kuitenkin normaalisti.
Vielä on semmonen ongelma että että kun kaivaa ojaa, niin jos ajaa kaivurilla sen ojan kohdalle, niin se oja näkyy sen koneen päällä.
Tuo kaivaminen toimii sillä periaatteella, että w,a,s,d näppäimistä liikkuu telat, nuolinäppäimistä ylävaunun kääntö ja puomin jatko, q ja e näppäimistä kauhan pyöritys ja u ja o (pyöräalustaisessa r ja y) napeista ottaa kauhaan maata ja tyhjentää.Z-napista kone pysyy lavetilla ja x-napista painamalla sen voi ajaa pois. Sitten kirjainnäppäinten yläpuolisista numeroista valitaan kone jolla ajetaan:
1=ukkeli
2=lavetti
3=telakaivuri
4=pyöräkaivuri
5=henkilöauto
Ehkä pientä hifistelyä tulee, kuten lavetin varoitusvilkkuun animaatio ym pientä...