Vertos

Etsitkö tiimiä tai etsiikö tiimisi jäseniä?
cheeshelmet.jr
Member
Posts: 75
Joined: Tue Aug 28, 2007 6:59 am

Re: MegaX Tiimi

Post by cheeshelmet.jr » Tue Aug 19, 2008 9:10 am

Mikä ihmeen fire.exwe?

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

Re: MegaX Tiimi

Post by esa94 » Tue Aug 19, 2008 4:04 pm

Loogisesti Media/Fire.exe, jota ei kylläkään ole olemassa.

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

Re: MegaX Tiimi

Post by =Joku= » Wed Aug 20, 2008 7:16 pm

MegaX proju cB kaatu teen gamemakerilla tai javalla!
*Poistunut foorumilta*

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

Re: MegaX Tiimi

Post by esa94 » Wed Aug 20, 2008 7:18 pm

Öh... Mihinkäs tämä kaatui? Ei muuten todennäköisesti kannata kuvitellakaan tekevänsä tekstipohjaista järjestelmää GameMakerilla, ainakaan jos se ei ole muistamastani versiosta muuttunut...

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

Re: MegaX Tiimi

Post by =Joku= » Wed Aug 20, 2008 7:24 pm

Ööh... GM olen käyttännyt(6 kokoversio)

Teen että siinä painetaan kuvaketta niin se avaa kyseisen tiedoston.
Taustakuvan vaihto ym....
*Poistunut foorumilta*

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: MegaX Tiimi

Post by Koodiapina » Wed Aug 20, 2008 7:35 pm

=Joku= wrote:MegaX proju cB kaatu teen gamemakerilla tai javalla!
Turha sitä on CB:llä sählätäkkään jos on Java taituri :P

Kuitenkin, jos päätätkin tehdä sittenkin CB:llä, niin tässä olisi koodin tynkää. Se on kommentoimaton ja purkallinen, mutta toimii. Mukana on 3 komentoa, jotka ovat siinä ihan vaan esimerkkinä. Ja ihan vapaasti saat käyttää.

Code: Select all


    SCREEN 640,480,32,0

    Type sline
        Field scon$
        Field gtype
        Field sinp
    EndType 
    
    ClsColor 0,0,208
    ClsColor 0,0,0
    fnt = LoadFont("lucida console",14,1)
    SetFont fnt

    NewMsg("")
    NewMsg("")
    NewMsg("")
    NewMsg("    Joku systeemi 4.9")
    NewMsg("    Pelaako? %sys.status")
    NewMsg("")
    NewMsg("")
    NewMsg("    KOMENNOT:")
    NewMsg("")
    NewMsg("    kirjoita <teksti>")
    NewMsg("    hakemisto -listaa           (Parametri on valinnainen)")
    NewMsg("    poista <tiedosto>")
    NewMsg("")
    NewMsg("")
    
    curdir$ = "kavijat/jotain"
    
    Global inputs$
    
    status$ = "vieras.SYSTEEMI"
    Dim cmark$
    
    While True
        If Timer()>markt+200 Then
            Select n
            Case 0:cmark="|"
            Case 1:cmark="/"
            Case 2:cmark="-"
            Case 3:cmark="\"
            EndSelect 
            n = n + 1
            If n>3 Then n=0
            markt = Timer()
        EndIf
        Locate -100,-100
        inputs = Input("")
        For sl.sline = Each sline
            Color 255,255,255
            If InStr(sl\scon,status) Then Color 127,255,0
            If InStr(sl\scon,"VIRHE:") Then Color 255,0,0
            If InStr(sl\scon,"VAROITUS:") Then Color 255,255,0
            printings$ = Replace(sl\scon,"%sys.status",cmark)
            If sy>(readpoint-1) And sy<(readpoint+28) Then
                Text 10,10+(ny*16),printings
                ny = ny + 1
            EndIf 
            lastwidth = TextWidth(printings)
            sy = sy + 1
        Next sl
        ny = ny + 1
        Color 255,255,255
        Text 10,10+(ny-1)*16,status+": "+inputs
        Color 127,255,0
        Box TextWidth(status+": "+inputs)+10,10+(ny-1)*16-1,8,14,1
        If sy > readpoint+28 Then readpoint = sy-28
        sy = 0
        ny = 0
        If KeyHit(cbkeyreturn) Then
            dont = 0
            NewMsg(status+": "+inputs)
            If GetCode("kirjoita") Then
                NewMsg(GetWord(inputs,2))
            ElseIf GetCode("hakemisto")
                NewMsg("")
                NewMsg(curdir)
                If GetCode("-listaa") Then
                    NewMsg("")
                    NewMsg("    Size      Name")
                    NewMsg("")
                    StartSearch 
                        While True
                            msg$ = "    "
                            tfil$ = FindFile()
                            If tfil="" Then Exit
                            msg = msg + FileSize(tfil)
                            For a = 0 To (7-Len(Str(FileSize(tfil))))
                                msg = msg + " "
                            Next a
                            msg = msg + "  "
                            msg = msg + tfil
                            If IsDirectory(tfil) And tfil<>"." And tfil<>".." Then
                                msg = msg + "/"
                            EndIf 
                            NewMsg(msg)
                        Wend 
                    EndSearch 
                EndIf
                NewMsg("")
            // Poistaa vain tiedostoja
            ElseIf GetCode("poista")
                If FileExists(GetWord(inputs,2)) Then
                    DeleteFile GetWord(inputs,2)
                Else
                    NewMsg("VIRHE: Tiedostoa"+" ei löytynyt!")
                EndIf 
            EndIf 
            CloseInput()
            ClearKeys()
        EndIf 
        DrawScreen 
    Wend    
    
    Function NewMsg(con$,gtyp=0)
        sl.sline = New(sline)
        sl\scon = con
        sl\gtype = gtyp
        lasts = sl\scon
    EndFunction 
    
    Function GetCode(code$)
        Return InStr(Lower(inputs),Lower(code))
    EndFunction 
EDIT: Koodissa on kaikenlaista outoa ja turhaa, koska en sitä paljoa siistinyt. Ne outoudet olivat siinä suunnittelemiani ominaisuuksia varten, ennen kuin proju jäätyi.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

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

Re: MegaX Tiimi

Post by esa94 » Thu Aug 21, 2008 6:43 pm

=Joku= wrote:Ööh... GM olen käyttännyt(6 kokoversio)

Teen että siinä painetaan kuvaketta niin se avaa kyseisen tiedoston.
Taustakuvan vaihto ym....
GameMaker on suoraan sanottuna perseestä. Elä käytä.

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

Re: MegaX Tiimi

Post by Awaclus » Thu Aug 21, 2008 7:55 pm

Yhdyn edelliseen kommenttiin. Itse olen sen verran käytellyt, että tiedän, että onhan se helppokäyttöinen ja vaikka mitä mutta GML on ihan karseasti rakennettu skriptikieli -> Sillä tulee huonoja ohjelmia -> saat huonoa mainetta. Moni muu skriptikieli on paljon parempi -> saat parempia ohjelmia -> et saa niin huonoa mainetta.

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: MegaX Tiimi

Post by Koodiapina » Thu Aug 21, 2008 8:26 pm

Jos haluat editorilla väsätä pelejä, niin kannattaa tosiaankin unohtaa Game Maker. Tässä joitain todella laadukkaita - tosin maksullisia - editoreita, joita olen käyttänyt aikoinaan:

2D:
Multimedia fusion
The games factory (Edellistä hieman parempi pelintekoon)

3D:
Jamagic (Tarvitaan tässäkin vähän osata scriptata)
FPS Creator (First Person Shootereille)
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

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

Re: MegaX Tiimi

Post by Awaclus » Thu Aug 21, 2008 8:51 pm

RPG Maker. Kyllä sillä voi tehdä muitakin kun roolipelejä, vähän hankalaa vain, mutta täysin mahdollista.

User avatar
Ilmuri
Developer
Developer
Posts: 277
Joined: Sun Aug 26, 2007 2:46 pm
Location: \o

Re: MegaX Tiimi

Post by Ilmuri » Thu Aug 21, 2008 10:21 pm

Chaosworm wrote:Yhdyn edelliseen kommenttiin. Itse olen sen verran käytellyt, että tiedän, että onhan se helppokäyttöinen ja vaikka mitä mutta GML on ihan karseasti rakennettu skriptikieli -> Sillä tulee huonoja ohjelmia -> saat huonoa mainetta. Moni muu skriptikieli on paljon parempi -> saat parempia ohjelmia -> et saa niin huonoa mainetta.
Mielenkiintoinen sivuhuomautus: Battleships Forever on tehty GM:llä.
CoolBasic henkilökuntaa
Kehittäjä
CoolBasic Classic

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

Re: MegaX Tiimi

Post by =Joku= » Sat Aug 23, 2008 10:38 am

Parasta olisi Flash. Järjestelmäriippimaisuus ym...
*Poistunut foorumilta*

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

Re: MegaX Tiimi

Post by esa94 » Sat Aug 23, 2008 6:50 pm

Chaosworm wrote:RPG Maker. Kyllä sillä voi tehdä muitakin kun roolipelejä, vähän hankalaa vain, mutta täysin mahdollista.
Ja warettamallahan se täytyy hankkia, jollei luottokorttia ole.

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

Re: MegaX Tiimi

Post by =Joku= » Thu Sep 04, 2008 6:29 pm

Entä Jaava eli java pelien teko?
G-Maker kuulin vai mikä se oli.
Mutta tämä megax on hyvässä vauhdissa vai mikä se taas oli.
*Poistunut foorumilta*

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: MegaX Tiimi

Post by nevssons » Thu Sep 04, 2008 7:28 pm

kelpuutatko minua tiimiisi?
Koodarina kohtalainen, henkilönä vittumainen
Image

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

Re: MegaX Tiimi

Post by =Joku= » Fri Sep 12, 2008 7:03 pm

Kyllä!
Kerroppa yv mitä osaat...
*Poistunut foorumilta*

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: MegaX Tiimi

Post by nevssons » Thu Sep 18, 2008 6:00 pm

Onkos tiimillä jo sivut? voisin tehdä sellaiset!

Jos se sellaisia tarttee?
Koodarina kohtalainen, henkilönä vittumainen
Image

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

Re: MegaX Tiimi

Post by =Joku= » Sat Sep 20, 2008 10:38 am

Ei ole...
Nyt kun muistin tämän niin alan tehdä pohjaa.
*Poistunut foorumilta*

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: MegaX Tiimi

Post by nevssons » Sat Sep 20, 2008 11:27 am

Mistä hankit sivutilaa? (Suosittelen 110mb:tä)
Koodarina kohtalainen, henkilönä vittumainen
Image

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

Re: MegaX Tiimi

Post by =Joku= » Sun Sep 21, 2008 11:59 am

Etsiskelen aluksi jotain ilmaisa sivunteko tilaa...
osote:www.(Sivuntilaan nimi).com/MegaX
*Poistunut foorumilta*

Post Reply