CoolBasic Forums

JjyKs wrote:

naput telija wrote:Joku estää coolbasicin verkkoliikenteen. Jos käytössäsi on modeemin kautta reititetty internet, avaa käyttämäsi portti (löytyy internetistä hakusanoilla "port forwarding") . Voit kokeilla myös virustorjuntasi kautta kaiken coolbasic-verkkoliikenteen sallimista ja virustorjunnasta käyttämäsi portin avaamista. Kokeilepa myös käyttää omaa ulkoista ip-osoitettasi tai sisäistä (löytyy komentorivikomennolla ipconfig)

Kysymys saattoi olla hiukan epäselvä, mutta ongelmanahan oli juuri tuo Viltzu:n korjaama muuttujan tyyppi, eihän nyt localhostia varten mitään portteja tarvitse avata.

Viltzu wrote:Et ole määritellyt muuttujaa ip merkkijonoksi, jolloin syötetty ip:stä jää jäljelle vain ensimmäinen luku. (Esim. "192.168.0.1" -> "192") tulee 0.

Kiitos paljon. En vielä päässyt tuota testaamaan, mutta eiköhän se ongelma löytynyt

Misthema wrote:

JjyKs wrote:

naput telija wrote:Joku estää coolbasicin verkkoliikenteen. Jos käytössäsi on modeemin kautta reititetty internet, avaa käyttämäsi portti (löytyy internetistä hakusanoilla "port forwarding") . Voit kokeilla myös virustorjuntasi kautta kaiken coolbasic-verkkoliikenteen sallimista ja virustorjunnasta käyttämäsi portin avaamista. Kokeilepa myös käyttää omaa ulkoista ip-osoitettasi tai sisäistä (löytyy komentorivikomennolla ipconfig)

Kysymys saattoi olla hiukan epäselvä, mutta ongelmanahan oli juuri tuo Viltzu:n korjaama muuttujan tyyppi, eihän nyt localhostia varten mitään portteja tarvitse avata.

Viltzu wrote:Et ole määritellyt muuttujaa ip merkkijonoksi, jolloin syötetty ip:stä jää jäljelle vain ensimmäinen luku. (Esim. "192.168.0.1" -> "192") tulee 0.

Kiitos paljon. En vielä päässyt tuota testaamaan, mutta eiköhän se ongelma löytynyt

Mahdollista on myös tehdä master-server, johon muiden päälle laittamat serverit ottavat yhteyttä ja kertovat sille IP-osoitteensa - mikäli cbNetwork:llä on mahdollista saada tätä jostain poimittua... Master-server voisi esimerkiksi antaa palvelimille ID -järjestysnumeron jonka perään heitetään IP. Nämä tallennetaan sitten esimerkiksi tekstitiedostoon, josta master-server osaa sitten hakea ID:n avulla oikean IP-osoitteen asiakasohjelmalle (clientille).

Mutta tosiaan, ei ole mitään hajua, onko cbNetworkillä mahdollista saada poimittua IP-osoitteita. NetMatch:ssä on käytetty PHP-kikkailuja, joten sillä varmaan on osoitteetkin poimittu.

Jani wrote:Vastaanottaja (serveri) voi lukea lähettäjän IP:n jostain muuttujasta. Oliko NET_ClientId?

Konstaduck wrote:Miten saisin Inputiin/Advancedinputtiin merkkijonorajan?

Global inputBoxActive
Global inputBoxTimer
Global inputBoxBlink
inputBoxActive = False

Repeat

	teksti$ = InputBox(teksti, 10, 10, 10, 100, 20)

	DrawScreen
Forever

Function InputBox(_var$, _x#, _y#, _maxlen, _width, _height)

	// Hiiren ykkösnappi klikattu...
	If MouseHit(1) Then
		//..laatikon sisäpuolelta
		If BoxOverlap(MouseX(), MouseY(), 1, 1, _x, _y, _width, _height) Then
			// Nollataan välkyn ajastin
			inputBoxTimer = Timer()
			// Välkky näkyviin
			inputBoxBlink = 1
			// Inputti aktiiviseksi
			inputBoxActive = True
			// Ettei huomioitaisi inputin kiinniollessa painettuja näppäimiä
			ClearKeys
		//..Laatikon ulkopuolelta
		Else
			// Suljetaan inputti
			inputBoxActive = False
		EndIf
	EndIf
		
	If inputBoxActive Then
	
		//Otetaan näppäimenpainalukset talteen
		_a = GetKey()
		// Jätetään joitain näppäimenpainaluksia huomiotta
		// Ja jos tekstin pituus ei ylitä maksimirajaa
		If _a > 31 And Len(_var) < _maxlen Then
			// Lisätään merkkijonoon
			_var = _var + Chr(_a)
		EndIf
		
		// Päivitetään välkky
		If Timer() > inputBoxTimer + 500 Then
			inputBoxBlink = -inputBoxBlink
			inputBoxTimer = Timer()
		EndIf
		
		// Merkkien pyyhkiminen
		If KeyHit(cbKeyBackspace) And Len(_var) > 0 Then
			_var = Left(_var, Len(_var) - 1)
		EndIf

		// Piirtely
		Color cbSilver
		Box _x, _y, _width, _height, True
		If inputBoxBlink = 1 Then 
			Color cbDark
			Box _x + 7 + TextWidth(_var), _y + TextHeight(_var)/2, 2, TextHeight(_var), True
		EndIf
		Color cbWhite
		CenterText _x + 5, _y + _height/2, _var, 1
		
		// Jos enter tai esc niin suljetaan inputti
		If KeyHit(cbKeyReturn) Or KeyHit(cbKeyEscape) Then
			inputBoxActive = False
		EndIf
		
	Else
	
		// Piirtelyä
		Color cbSilver
		Box _x, _y, _width, _height, False
		Color cbWhite
		CenterText _x + 5, _y + _height/2, _var, 1
		
	EndIf
	
	Return _var
	
EndFunction 

Kumiankka wrote: Tämä nyt ei ole suora vastaus mutta tässä olisi nyt ainakin esimerkkinä miten toteutin merkkijonon maksimipituuden Solupelissä

Code: Select all

Global inputBoxActive
Global inputBoxTimer
Global inputBoxBlink
inputBoxActive = False

Repeat

	teksti$ = InputBox(teksti, 10, 10, 10, 100, 20)

	DrawScreen
Forever

Function InputBox(_var$, _x#, _y#, _maxlen, _width, _height)

	// Hiiren ykkösnappi klikattu...
	If MouseHit(1) Then
		//..laatikon sisäpuolelta
		If BoxOverlap(MouseX(), MouseY(), 1, 1, _x, _y, _width, _height) Then
			// Nollataan välkyn ajastin
			inputBoxTimer = Timer()
			// Välkky näkyviin
			inputBoxBlink = 1
			// Inputti aktiiviseksi
			inputBoxActive = True
			// Ettei huomioitaisi inputin kiinniollessa painettuja näppäimiä
			ClearKeys
		//..Laatikon ulkopuolelta
		Else
			// Suljetaan inputti
			inputBoxActive = False
		EndIf
	EndIf
		
	If inputBoxActive Then
	
		//Otetaan näppäimenpainalukset talteen
		_a = GetKey()
		// Jätetään joitain näppäimenpainaluksia huomiotta
		// Ja jos tekstin pituus ei ylitä maksimirajaa
		If _a > 31 And Len(_var) < _maxlen Then
			// Lisätään merkkijonoon
			_var = _var + Chr(_a)
		EndIf
		
		// Päivitetään välkky
		If Timer() > inputBoxTimer + 500 Then
			inputBoxBlink = -inputBoxBlink
			inputBoxTimer = Timer()
		EndIf
		
		// Merkkien pyyhkiminen
		If KeyHit(cbKeyBackspace) And Len(_var) > 0 Then
			_var = Left(_var, Len(_var) - 1)
		EndIf

		// Piirtely
		Color cbSilver
		Box _x, _y, _width, _height, True
		If inputBoxBlink = 1 Then 
			Color cbDark
			Box _x + 7 + TextWidth(_var), _y + TextHeight(_var)/2, 2, TextHeight(_var), True
		EndIf
		Color cbWhite
		CenterText _x + 5, _y + _height/2, _var, 1
		
		// Jos enter tai esc niin suljetaan inputti
		If KeyHit(cbKeyReturn) Or KeyHit(cbKeyEscape) Then
			inputBoxActive = False
		EndIf
		
	Else
	
		// Piirtelyä
		Color cbSilver
		Box _x, _y, _width, _height, False
		Color cbWhite
		CenterText _x + 5, _y + _height/2, _var, 1
		
	EndIf
	
	Return _var
	
EndFunction 

Awaclus wrote:Nyt tulee näin kolmelta aamuyöstä erittäin tyhmä kysymys: Millä tavalla erilaiset loogiset operaattorit stäkkäävät ja voinko vaikuttaa siihen jotenkin?

Toisin sanoen, jos koodini on

Code: Select all

If a And b Or c Then

niin tarkoittaako tuo sitä, että ehto on tosi jos sekä a että b ovat tosia tai jos c on tosi, vai sitä, että ehto on tosi jos a on tosi ja lisäksi b tai c on tosi, ja miksi se toimii sillä tavalla, ja miten saan sen toimimaan sillä toisella tavalla?

a | b | c | a And b Or c
________________
0 | 0 | 0 |    0
0 | 0 | 1 |    1
0 | 1 | 0 |    0
0 | 1 | 1 |    1
1 | 0 | 0 |    0
1 | 0 | 1 |    1
1 | 1 | 0 |    1
1 | 1 | 1 |    1

Character wrote:mitenköhän laskettaisiin semmonen että arvottaisiin satunnainen luku vaikka yhden ja sadan välillä ja mitä pienempi luku sitä todennäköisempää on että se tulee? ei nyt millään saa päähän että miten näin saisi tehtyä. matikka vähän ruosteessa...

Kyrath wrote:Hei,

toimiiko tuo Tilester enää ollenkaan? Tuntuu, että mikään kartta mitä sillä teen ei toimi. CB lataa kaiken mukisematta, mutta karttaa ei näy, pelkkää mustaa. Kaikki muu toimii koodissa kuten tarkoitettu. Heti kun käytin mukana tulevaa cdm2.tilliä ja tileset.bmptä ni kartta ilmestyi. Pitääkö tilesetti tallentaa jossain tietyssä bittimuodossa vai mitä taikuutta tää vaatii? Olen yrittänyt sijoittaa omatekemät tillit valmiisiin tutorialkoodeihin, mutta aina tulee pelkkää mustaa.

Sitten jos tosiaan on niin, että tuo Tilester on niin buginen, niin mistä näitä Tilegenejä sun muita saa ladattua? Pitääkö tässä vaan siirtyä takas C++:n pariin?

Kiitos.

Dyyd wrote:Moro, kuinka tehdään sellainen koodi että jos ukkeli kävelee vaikka maailman kohtaan 100,100 niin mappi/taso vaihtuu?

FrameLimit 40 'rajoita nopeutta

kartta = LoadMap("Media\cdm2.til","Media\tileset.bmp")
PlayObject kartta,0,0,1

ukko = LoadObject ("Media\guy.bmp",72)

SetupCollision ukko, kartta, 1, 4, 2

Repeat

    //ukon ohjaus
    If LeftKey() Then TurnObject ukko,5
    If RightKey() Then TurnObject ukko,-5
    If UpKey() Then MoveObject ukko,2
    If DownKey() Then MoveObject ukko,-2
    
    If ObjectX(ukko) > 150 And ObjectY(ukko) > 150
        //vanha kartta tuhoutuu automaattisesti (huom. objektit eivät)
        kartta = LoadMap("Media\cdm2.til","Media\tileset.bmp") //uusi kartta
        PlayObject kartta,0,0,1
        
        //sijoitetaan pelaaja kentän alkuun
        PositionObject ukko, 0, 0 
        //kartta piirtyy nyt vanhojen objektien päälle, sillä se ladattiin viimeksi
        //siirretään ukko piirtojärjestyksen päälle
        ObjectOrder ukko, 1
    EndIf
    

    UpdateGame

    CloneCameraPosition ukko

    DrawScreen

Forever