Vertos
-
- Member
- Posts: 75
- Joined: Tue Aug 28, 2007 6:59 am
Re: MegaX Tiimi
Mikä ihmeen fire.exwe?
Re: MegaX Tiimi
Loogisesti Media/Fire.exe, jota ei kylläkään ole olemassa.
Re: MegaX Tiimi
Ö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...
Re: MegaX Tiimi
Ööh... GM olen käyttännyt(6 kokoversio)
Teen että siinä painetaan kuvaketta niin se avaa kyseisen tiedoston.
Taustakuvan vaihto ym....
Teen että siinä painetaan kuvaketta niin se avaa kyseisen tiedoston.
Taustakuvan vaihto ym....
*Poistunut foorumilta*
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: MegaX Tiimi
Turha sitä on CB:llä sählätäkkään jos on Java taituri :P=Joku= wrote:MegaX proju cB kaatu teen gamemakerilla tai javalla!
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
Re: MegaX Tiimi
GameMaker on suoraan sanottuna perseestä. Elä käytä.=Joku= wrote:Ööh... GM olen käyttännyt(6 kokoversio)
Teen että siinä painetaan kuvaketta niin se avaa kyseisen tiedoston.
Taustakuvan vaihto ym....
Re: MegaX Tiimi
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.
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: MegaX Tiimi
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)
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)
Re: MegaX Tiimi
RPG Maker. Kyllä sillä voi tehdä muitakin kun roolipelejä, vähän hankalaa vain, mutta täysin mahdollista.
Re: MegaX Tiimi
Mielenkiintoinen sivuhuomautus: Battleships Forever on tehty GM:llä.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.
CoolBasic henkilökuntaa
Kehittäjä
CoolBasic Classic
Kehittäjä
CoolBasic Classic
Re: MegaX Tiimi
Ja warettamallahan se täytyy hankkia, jollei luottokorttia ole.Chaosworm wrote:RPG Maker. Kyllä sillä voi tehdä muitakin kun roolipelejä, vähän hankalaa vain, mutta täysin mahdollista.
Re: MegaX Tiimi
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.
G-Maker kuulin vai mikä se oli.
Mutta tämä megax on hyvässä vauhdissa vai mikä se taas oli.
*Poistunut foorumilta*
Re: MegaX Tiimi
Onkos tiimillä jo sivut? voisin tehdä sellaiset!
Jos se sellaisia tarttee?
Jos se sellaisia tarttee?
Koodarina kohtalainen, henkilönä vittumainen
Re: MegaX Tiimi
Mistä hankit sivutilaa? (Suosittelen 110mb:tä)
Koodarina kohtalainen, henkilönä vittumainen
Re: MegaX Tiimi
Etsiskelen aluksi jotain ilmaisa sivunteko tilaa...
osote:www.(Sivuntilaan nimi).com/MegaX
osote:www.(Sivuntilaan nimi).com/MegaX
*Poistunut foorumilta*