Tekstipeli-Kisa

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Tekstipeli-Kisa

Post by =Joku= » Sat Nov 15, 2008 9:14 pm

Kun näitä kivoja tekstipelejä on tullut niin perustan kisan.
Peliaika:15-19.11.08

Säännöt:
Vanhaa pelimoottoria saa käyttää. Pelin saa tehdä jollakin ohjelmalla!
Koodi saa olla vaikka taivaisiin. Kuvia saa käyttää ja ääniä.
Notepadilla eli muistiolla tehdään näin:

Code: Select all

Tee se itse tekstipeli!


Tässä opastetaan kuinka tehdään notepadilla(muistiolla) tekstipeli.
Huom!
Tarvitset data.exe jonka saat http://up.servut.us/11267.shxcchz

Mikä on tekstipeli?

Tekstipeli on peli jossa on tekstiä ja vaihtoehdot.
Esim:
Olet huoneessa!
Mitä nyt aijot tehdä?

1.Etsiä oven
2.Syön keittiössä


Sisällysluottelo:

1.Alku
2.Perus pelimoottori
3.Testaaminen
4.Testipeli
5.Nettiin  laittaminen



1.Alku


Kun olet hankkinut Data.Exen niin tee kansio nimeltään bat peli.
Siirrä sinne Data.Exe ja avaa notepad(Muistio).


2.Perus pelimoottori

Kopioi ja liitä tämä teksti ja muokkaa:

@echo off
cls
echo Pelisi nimi
pause >nul
goto alku

:alku
cls
echo Tähän laitat valikon tekstin.
echo
echo 1.peli
echo 2.ohjeet
echo 3.Pois
goto ffds

:ffds
data.exe
if errorlevel 3 goto Pois
if errorlevel 2 goto ohje
if errorlevel 1 goto peli

:Pois
cls
pause > nul
goto alku

:ohje
cls
echo Tähän kirjoittelet ohjeet.
pause > nul
goto alku

:peli
cls
echo Tähän alat kirjoittaa pelin alkua esim:
Olet juuri hankkinut hamprilaisen. Mitä teet?
echo
echo 1.tähän kirjoitat vaihtoehto 1.
echo 2.Tähän toinen jos haluut lisää kirjoita ales echo 3. ja sen ales echo 4.  jne.
goto Paikan nimi

:Paikan nimi
data.exe
if errorlevel 1 Laita sama vaihtoehto
if errorlevel 2 Sama juttu jatkuu.


3.Testaaminen

Nyt voit testaa peliäsi näin:
Tallenna tekstitiedostosi bat päätteellä(Esim:Mun peli.bat)
Avaa peli tiedosto.
ohjaus:
vaihtoehdot valitaan numeroilla ja enterillä mennään alkuun.


4.Testipeli

@echo off
cls
echo Mun peli
pause >nul
goto alku

:alku
cls
echo Pelini!
echo
echo 1.peliin
echo 2.ohjeet
echo 3.Pois
goto ffds

:ffds
data.exe
if errorlevel 3 goto Pois
if errorlevel 2 goto ohje
if errorlevel 1 goto peli

:Pois
cls
pause > nul
goto alku

:ohje
cls
echo Eli valitset vaihtoehdon painamalla numeroa!
pause > nul
goto alku

:peli
cls
echo Olet kylppärissä mitä teet?
echo
echo 1.Mee pois
echo 2.Loppu
goto Paikan nimi

:Paikan nimi
data.exe
if errorlevel 1 Laita sama vaihtoehto
if errorlevel 2 Sama juttu jatkuu.


5.Nettiin  laittaminen


Mene http://www.mediafire.com/
Sieltä Upload files to media fire
Sieltä I want to upload without an account.
Pakkaa tätä ennen pelisi kansio jossa on pelisi ja Data.Exe.
Tee oikealla hiren napilla painamalla uusi -> pakattu kansio ja siirrä sinne pelisi ja
data.exe.
Sitten kun olet tehnyt  I want to upload without an account. niin valitse pakattu kansiosi.
ja start upload valitse vaihtoehdot kirjoita kirjoittamis paikkoihin mun peli.
Kopioi linkki. Pistä linkki sinne jonne haluat pelisi.


Helppoa.
Peli lähetetään Zipissä joka sisältää batin ai exen ja tiedostot jotka kuuluu mukaan.

Voittaja saa ihmeelisen kuvan allekirjoitukseen:(Joku sais tehdä hienonman)
Image

Kisa alkakoon
Last edited by =Joku= on Sat Nov 15, 2008 10:22 pm, edited 2 times in total.
*Poistunut foorumilta*

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

Re: Tekstipeli-Kisa

Post by -Z- » Sat Nov 15, 2008 9:31 pm

Juu, hienoa! Aioin muutenkin ruveta tekemän tekstipohjaista roolipeliä, joten tämä siivittää sitä sopivasti :P Eli ilmoittaudun siis kisaan.
"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
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: Tekstipeli-Kisa

Post by =Joku= » Sat Nov 15, 2008 9:34 pm

Noniin... Oma teos on pian valmis! ja tuleva voittaja!
EDIT:

http://up.servut.us/11269
Tuossa on esimerkki mitä saa aikaan 2 viikossa!
En tiedä onko tota vedetty läpi. Vaikka itse olen tehnyt niin karaoket ei toimi paitsi jos lataat erilliset lisukkeet.
Jos haluat ne kysy minulta!

*Poistunut foorumilta*

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Tekstipeli-Kisa

Post by esa94 » Sat Nov 15, 2008 10:00 pm

Olepa hyvä, uusi palkinto:

Image
By esa94

Vähän munasin sen mutta kelpaako?

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: Tekstipeli-Kisa

Post by =Joku= » Sat Nov 15, 2008 10:08 pm

Image
Sain ton tolta Batlorderilta.
¨Mutta molemmat pääsee voittajalle!
*Poistunut foorumilta*

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Tekstipeli-Kisa

Post by Awaclus » Sat Nov 15, 2008 10:18 pm

Jos ohjelmointikielenä on kuitenkin QBasic sallittu, miksi helvetissä pelit pitää väkertää jollain hikisellä notepadilla? 5kk kertaa helpompi QB7.1:llä.

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: Tekstipeli-Kisa

Post by =Joku= » Sat Nov 15, 2008 10:20 pm

Ok C ja Qbasikilla saa tehdä jos osaa! Pythonilla ym...
Kaikilla!
*Poistunut foorumilta*

User avatar
Ozcar
Advanced Member
Posts: 439
Joined: Mon Aug 27, 2007 8:43 pm
Location: Helsinki

Re: Tekstipeli-Kisa

Post by Ozcar » Sun Nov 16, 2008 3:08 am

Wut? Kuis vanha kunnon CB? Täällä ollaan kuitenkin CoolBasicin foorumeilla tekstipeliä vääntämässä, ja te haluatte väkertää sitä notepadilla sekä QBasicilla? Mitenkäs vaan.

Tai ei oikeastaan. Hupia tähän saataisiin sallimalla ainoastaan Tekstipeli MAKER:lla tehdyt härpäkkeet. Siinä olisi fiilistä, ja Zerppakin saisi sivussa rispektiä vähemmän tunnetuille projekteilleen. Täällä tämä nuori sukupolvi ei edes välttämättä tunne moista aarretta vanhojen foorumien kätköistä.

Niin, ja minä muuten osallistun omalla tekstipelilläni. Noukitte sen projektit-osiosta, nimellä "Travel-tekstipeli". Niin, se on muutaman viikon vanha, mutta mitä sitten? Pesee se silti suurimman osan muista CB:llä tehdyistä viritelmistä. Ja jos kerta vanhaa moottoria saa käyttää, niin minähän käytän - suoraan ja muokkaamatta. Ihmiset saavat vaikka hyödyntää minun pelini moottoria, jos ei omasta takaa löydy, se kun on paketin media-kansiossa mukana. Annetaan muillekin yhtäläiset mahdollisuudet tuottaa jotain laadukasta.

Selitäs muuten vielä, mikä on batin ai exe?
Ratkaisit juuri universaaliongelman! Hienoa, ota keksi.

Filosofia on ajattelun taidetta, mutta sen maalari elää juoden apurahojaan masennukseensa.

User avatar
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Tekstipeli-Kisa

Post by temu92 » Sun Nov 16, 2008 3:55 am

Laitetaanpas vielä oma lusikka soppaan.

Image

Älkää luulkokkaan että pääsette mun nappuloista :P

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: Tekstipeli-Kisa

Post by =Joku= » Sun Nov 16, 2008 11:09 am

Ozcar... Ööh... Hieno teos! Pelkäämpä että tuo voittaa ja
näytetäänpä kohta oma teos!
*Poistunut foorumilta*

Warlock
Member
Posts: 79
Joined: Thu Jul 31, 2008 11:08 pm

Re: Tekstipeli-Kisa

Post by Warlock » Sun Nov 16, 2008 1:02 pm

Voisin osallistua, vaikka en välttämättä saa peliä kovin pelattavaan muotoon määräaikaan mennessä.
Image

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Tekstipeli-Kisa

Post by esa94 » Sun Nov 16, 2008 1:13 pm

temu92 wrote:Laitetaanpas vielä oma lusikka soppaan.

Image

Älkää luulkokkaan että pääsette mun nappuloista :P

Off: Miten sä teet noi nappulas?

User avatar
Sly_Jack0
Devoted Member
Posts: 612
Joined: Mon Dec 10, 2007 9:25 am

Re: Tekstipeli-Kisa

Post by Sly_Jack0 » Sun Nov 16, 2008 1:32 pm

Veikkaisin Photoshoppia. =P

User avatar
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Tekstipeli-Kisa

Post by rami123 » Sun Nov 16, 2008 1:33 pm

minäkin ilmoittaudun kisaan jos saisin jotain aikaan

User avatar
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Tekstipeli-Kisa

Post by rami123 » Sun Nov 16, 2008 10:37 pm

tarviiko exen laitaa jos vaan laittaa koodinpätkänsä tänne? kun on tehnyt coolbasicilla

User avatar
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Tekstipeli-Kisa

Post by MAVmaggot » Sun Nov 16, 2008 10:43 pm

Osallistun. Ainakin vitsillä, jos en parempaa keksi. Tuleeko tästä sitten äänestys vai miten voittaja ratkeaa?

User avatar
Ozcar
Advanced Member
Posts: 439
Joined: Mon Aug 27, 2007 8:43 pm
Location: Helsinki

Re: Tekstipeli-Kisa

Post by Ozcar » Sun Nov 16, 2008 10:58 pm

Eiköhän se koodikin käy, rami. Jos täällä foorumeilla ei sitä osaa itse kääntää, niin on väärässä paikassa.

Ja äänestys on kyllä must. Voitto raadin kautta ei ole yhtä hohdokas kuin yleisön suosikki <3.
Ratkaisit juuri universaaliongelman! Hienoa, ota keksi.

Filosofia on ajattelun taidetta, mutta sen maalari elää juoden apurahojaan masennukseensa.

User avatar
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Tekstipeli-Kisa

Post by rami123 » Sun Nov 16, 2008 11:02 pm

Ozcar wrote:Eiköhän se koodikin käy, rami. Jos täällä foorumeilla ei sitä osaa itse kääntää, niin on väärässä paikassa.

Ja äänestys on kyllä must. Voitto raadin kautta ei ole yhtä hohdokas kuin yleisön suosikki <3.
selvä kiitos , mun peli alkaa olla kohta puolin valmis , enpäs kerro mitä se sisältää saatte nähä sitten
ja muute se on minun ensimmäinen julkaistava peli ja toinen peli tulee jouluna (viikatemies) :lol:

User avatar
Ozcar
Advanced Member
Posts: 439
Joined: Mon Aug 27, 2007 8:43 pm
Location: Helsinki

Re: Tekstipeli-Kisa

Post by Ozcar » Sun Nov 16, 2008 11:45 pm

Ps. Rami ja kaikki muut. Sisällyttämällä tarinan koodiin siitä tulee kamalaa luettavaa, jos tekstiä on yli 3 riviä. Suosittelen erittäin lämpimästi tekstien lukemista erillisestä tiedostosta. Siisteyttää paljon, ja tarinan muokkauksesta tulee paljon mukavampaa ja helpompaa. Myös töiden jako useammalle henkilölle helpottuu.

Code: Select all

Function PrintAFile(story$)

 f = OpenToRead("files/" +story$+ ".txt")
   
  y=45   
   
   While Not EOF(f)
     Text 20,y,ReadLine(f)
     y=y+12
   Wend
  
 CloseFile f
 
 DrawScreen
 
End Function 
Ratkaisit juuri universaaliongelman! Hienoa, ota keksi.

Filosofia on ajattelun taidetta, mutta sen maalari elää juoden apurahojaan masennukseensa.

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Tekstipeli-Kisa

Post by Awaclus » Mon Nov 17, 2008 11:53 am

Tässä on huono, mutta jännä pelini.

Tein sen QBasicilla.

Post Reply