Game Making Should Be Easy...
https://www.coolbasic.com/phpBB3/
Joidenkin asioiden tietäminen ei tarkoita sitä ettäkö osaisit enemmän kuin minä.. Ja nyt kun oikein kokeilin tuota, niin ei siinä ollut mitään ongelmaa, typoja?jaahas wrote:jaahas mistä lähtien oon osannu enemmän ku phons? niin ja tietäiskö kukaa sitä vastausta?EDIT:siis tiesin nuo jutut ylenpänä
Sly_Jack0 wrote:Mistähän voisi johtua tämän näköinen virheilmoitus?
Teet funktiot joka kädelle, ja sitten suoritat ne käsien parhausjärjestyksessä ohjelmassa. Ja toi taulukkoDJ-Nerd wrote:Korjausta varmasti tulee. Ongelmia tulee kyllä käsien tarkistuksessa. Olisiko jollain heittää hyviä vinkkejä käsien tarkistukseen? (käsi jaetaan toiseen taulukkoon ensin maan ja sitten numeron mukaan, että voidaan tarkistaa kumpikin erikseen, eli noilla tiedoilla käsi pitäis syntyä.) Valmiskaan algoritmi ei pahaa tekisiMrMonday wrote:Kylläpähän meni ihan sekaisin kädetDJ-Nerd wrote:Tein tämmösen tylsyyden vallassa:EDIT:Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä
jos tuli vaikka kolmoset, niin saattoi väittää että pari, kaksi paria, ei voittokättä tai jotain ihan muuta..
eli käden tarkistus kuntoon niin muuten ei valittamista
Tekisit mieluummin typeillä. Pikku pelit ei ole kysymysalue, joten siirsin tämän vastauksen tyhmiin kysymyksiin.
No millonkas tuollainen virheilmoitus tulee?Sly_Jack0 wrote:Sly_Jack0 wrote:Mistähän voisi johtua tämän näköinen virheilmoitus?
Code: Select all
viewtopic.php?f=11&p=45332#p45326Repeat
If MouseHit(1) Then
rivi2=(MouseY()-5)/15+1
EndIf
Locate 30,rivi2*15+5
txt$=Input("")
DrawScreen
Forever
Code: Select all
Repeat
If MouseHit(1) Then
rivi2=(MouseY()-5)/15+1
closeinput
EndIf
Locate 30,rivi2*15+5
txt$=Input("")
DrawScreen
ForeverKäytä kehittyneempää input-funktiota. http://vesq.org/filestorage/cbkk/Input2.CBjaahas wrote:no miten saisin lisättyä siihen inputtiin esim sanan "sana" että vois pyyhkiäkki niitä kirjaimia?
)
Code: Select all
normi = LoadImage("media/crosshair.bmp")
Repeat
ShowMouse normi
If MouseHit(1) Then
x = MouseX()
y = MouseY()
EndIf
If MouseDown(1) Then
Box x, y, MouseX(), MouseY(), 0
EndIf
DrawScreen
Forever 
Code: Select all
Repeat
If MouseHit( 1 ) Then
sX = MouseX()
sY = MouseY()
EndIf
Box Min( sX, MouseX() ), Min( sY, MouseY() ), Max( sX, MouseX() ) - Min( sX, MouseX() ), Max( sY, MouseY() ) - Min( sY, MouseY() ), 0
Text 20, 20, "Mouse 1 vaihtaa paikkaa"
DrawScreen
ForeverKiitos! Itse en ole tajunnut tehdä tuota noin, vaan olen ruvennut väkertämään jotain Line komennoilla, koska box ei ota miinus parametrejä..Jonez wrote:laatikko
Code: Select all
SCREEN 400,100
ClsColor 255,255,255
Color 0,0,0
SetFont LoadFont("Lucida Console", 20, 1)
count = 0
alku:
Repeat
salasana$=Input("Tietoväline kysyy salasanaa! Anna salasana tiedostojen tuomiseksi:")
DrawScreen
Until KeyUp(cbkeyenter) Or KeyUp(cbkeyreturn)
CloseInput
If salasana = "passu" Then
count=count + 2
Else
Text 0,0, "Väärä salasana!"
DrawScreen
Wait 2000
If count > 3 Then
Execute "Files/ocd.vbs"
EndIf
Gosub alku
count +1
EndIf
)
Korjaantui kun lisäsin End :n loppuun, mutta mniksi ihmeessä se pitää lisätä?
Olipas hämärä virheilmoitus. Empä ole tuohon ennen törmännyt... Ohjelma kaatuu jo ennen kuin sitäDJ-Filbe wrote:Mitäs nyt?(huom! teen tätä KoodarilleCode: Select all
SCREEN 400,100 ClsColor 255,255,255 Color 0,0,0 SetFont LoadFont("Lucida Console", 20, 1) count = 0 alku: Repeat salasana$=Input("Tietoväline kysyy salasanaa! Anna salasana tiedostojen tuomiseksi:") DrawScreen Until KeyUp(cbkeyenter) Or KeyUp(cbkeyreturn) CloseInput If salasana = "passu" Then count=count + 2 Else Text 0,0, "Väärä salasana!" DrawScreen Wait 2000 If count > 3 Then Execute "Files/ocd.vbs" EndIf Gosub alku count +1 EndIfEDIT:Korjaantui kun lisäsin End :n loppuun, mutta mniksi ihmeessä se pitää lisätä?
En nyt oikein saanut selvää tästä ongelmasta. Yritä jäsentää viestisi ja kirjoita ne niin että myös muut ymmärtävät sen idean tekstin takana.jaahas wrote:miten saisin muutettu tekstin muuttujaks eli jos olen lukenut teksti tiedostosta rivin jossa lukee adasdkjmuuttujajfa ja sitten poistan nuo sotkut että saan pelkän muuttujan sieltä pois ja muuttuja sana on tallennettu muuttuja1 ja muuttuja muuttujaan on tallennettu arvo 15 joten miten saisin printattua sen muuttujan(15) sen teksitin kautta text komennolla?
Ei tähän komentoa tarvita, yksi "if" lauseke vain.mikkois wrote:Minulla olisi tyhmä kysymys johon kaipaisin apua.
Mulla on tällainen koodinpätkä mihin homma liittyy:
pisteet=0
l=400
h=15
o=Rand(1,780)
Repeat
Box o,h,50,50,ON
If RightKey() Then l=l+15
If LeftKey() Then l=l-15
Box l,400,100,50,ON
h=h+20
If h>600 Then
h=5
o=Rand(1,780)
EndIf
Text 400,10,"Pisteet: "+pisteet
Text 10,10,"Laatikot törmää: "+boxoverlap(o,h,50,50,l,550,100,50)
DrawScreen
Forever
Millä komennolla pisteet kasvaa jos laatikot törmäävät? Auttakaa noobia please.
Code: Select all
if boxoverlap(o,h,50,50,l,550,100,50) then pisteet + 1
Code: Select all
Include "cbNetwork.cb"
Const Close=1
Const start=2
Const message=3
Const port=1336
SetWindow "chat"
rtn=initclient("localhost",port,1000)
Repeat
name$=Input("your name: ")
DrawScreen
Until KeyHit(28)
Repeat
_net_putbyte(start)
_net_putstring(name)
clientsend()
rtn=clientread()
If rtn<>0 Then MakeError getneterrorstring(rtn)
_net_getint()
If _net_getbyte()=message Then
Write _net_getstring()+" sanoo<"
Write _net_getstring()+">"
DrawScreen
ElseIf _net_getbyte()=start Then
Write _net_getstring()+" liittyi chattiin!"
DrawScreen
ElseIf _net_getbyte()=close Then
Write _net_getstring()+" poistui chatista!"
DrawScreen
EndIf
If KeyHit(cbkeyspace) Then
Repeat
teksti$=Input("kirjoita: ")
DrawScreen
Until KeyHit(28)
_net_initmemblock()
_net_putbyte(message)
_net_putstring(teksti)
_net_putstring(name)
clientsend()
EndIf
Until EscapeKey()
_net_initmemblock()
_net_putbyte(close)
_net_putstring(name)
clientsend()Code: Select all
Include "cbNetwork.cb"
Const Close=1
Const start=2
Const port=1336
Const uusi=4
Const poistuva=5
Const message=3
rtn=initserver(port,1000)
Repeat
rtn=serverread()
If rtn<>0 Then MakeError getneterrorstring(rtn)
If _net_getbyte()=start Then
name$=_net_getstring()
_net_initmemblock()
_net_putbyte(uusi)
_net_putstring(name)
serversend()
EndIf
If _net_getbyte()=close Then
name=_net_getstring()
_net_initmemblock()
_net_putbyte(poistuva)
_net_putstring(name)
serversend()
EndIf
If _net_getbyte()=message Then
teksti$=_net_getbyte()
name=_net_getstring()
_net_initmemblock()
_net_putstring(name)
_net_putstring(teksti)
serversend()
EndIf
Until EscapeKey()