Vertos

[cheeshelmet.jr]

Mikä ihmeen fire.exwe?

[esa94]

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

[=Joku=]

MegaX proju cB kaatu teen gamemakerilla tai javalla!

[esa94]

Ö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...

[=Joku=]

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

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

[Koodiapina]

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.

[esa94]

Öö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]

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.

[Koodiapina]

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)

[Awaclus]

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

[Ilmuri]

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ä.

[=Joku=]

Parasta olisi Flash. Järjestelmäriippimaisuus ym...

[esa94]

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.

[=Joku=]

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.

[nevssons]

kelpuutatko minua tiimiisi?

[=Joku=]

Kyllä!
Kerroppa yv mitä osaat...

[nevssons]

Onkos tiimillä jo sivut? voisin tehdä sellaiset!

Jos se sellaisia tarttee?

[=Joku=]

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

[nevssons]

Mistä hankit sivutilaa? (Suosittelen 110mb:tä)

[=Joku=]

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