Offtopic (I/2011)

[Timblex]

Sen viestin ansiosta minusta tuli active member

[Awaclus]

Sen viestin ansiosta minusta tuli active member

Sen ansiosta, mutta ei sen kirjoituksen aikana vaan vasta sen lähettämisen jälkeen.

[MaGetzUb]

Sen viestin ansiosta minusta tuli active member

Sen ansiosta, mutta ei sen kirjoituksen aikana vaan vasta sen lähettämisen jälkeen.

No voi herranlettas ku ollaan taas sherlockkimeiningillä täälä. Sitäpaitsi ei ole kovin arvostettavaa et saa offtopicis Active Member statuksen käsiinsä. ;D

[Awaclus]

Sen viestin ansiosta minusta tuli active member

Sen ansiosta, mutta ei sen kirjoituksen aikana vaan vasta sen lähettämisen jälkeen.

No voi herranlettas ku ollaan taas sherlockkimeiningillä täälä. Sitäpaitsi ei ole kovin arvostettavaa et saa offtopicis Active Member statuksen käsiinsä. ;D

Pointtina oli, että timpe99 ei voinut tietää, miltä tuntuu olla Active Member siinä vaiheessa, kun väitti tietävänsä, että se tuntuu ihan erilaiselta.

[Pettis]

Muistakaas, että ne rankit perustuvat viestimäärään ja siten niillä ei ole juurikaan merkitystä. Turhan offtopicia jopa offtopiciin

[Misthema]

1. Mene sivulle http://translate.google.com
2. Kirjoita tekstikenttään "will lucky star ever die" ja käännä lause englannista vietnamiksi.
3. Käännä vietnaminkielinen lause takaisin englanniksi.
4. Valmistautu hämmästymään!

Linkki laiskoille: http://translate.google.com/#vi|en|s%E1 ... %E1%BA%BFt

[Kille]

Tai kirjoita kääntäjään "lehdistön avaruusbaariin jatkoille" ja suomi>englanti

[Awaclus]

Tai kirjoita kääntäjään "lehdistön avaruusbaariin jatkoille" ja suomi>englanti

Wanha.

Wanha on myös suomi->englanti "Sauli Niinistö" sekä "haista kuule v*ttu" (ilman sensurointia). Harmi, että "Et vaan osaa" = "But you can" on korjattu. Sanoin silti, koska onhan se mahdollista että täällä liikkuu niin uutta porukkaa että eivät tiedä (tai lue ircquotseja).

[MaGetzUb]

Hupaisaa, katselin Discovery Scienceä jokunen päivä sitten, siinä joku heebo esitteli sen tietokoneohjelmaa, missä joku tekoäly ohjasi jotain laatikoita "tekoälyä" jotka söivät, väistelivät toisia, parittelivat toistensa kanssa ja tekivät uusia jälkeläisiä sekä ofc kuoli.. Eihän tuossa ole edes mitään vaikeaa tehdä.

[esa94]

Hupaisaa, katselin Discovery Scienceä jokunen päivä sitten, siinä joku heebo esitteli sen tietokoneohjelmaa, missä joku tekoäly ohjasi jotain laatikoita "tekoälyä" jotka söivät, väistelivät toisia, parittelivat toistensa kanssa ja tekivät uusia jälkeläisiä sekä ofc kuoli.. Eihän tuossa ole edes mitään vaikeaa tehdä. :D

Toteuta sitten sellainen :3

[legend]

Hupaisaa, katselin Discovery Scienceä jokunen päivä sitten, siinä joku heebo esitteli sen tietokoneohjelmaa, missä joku tekoäly ohjasi jotain laatikoita "tekoälyä" jotka söivät, väistelivät toisia, parittelivat toistensa kanssa ja tekivät uusia jälkeläisiä sekä ofc kuoli.. Eihän tuossa ole edes mitään vaikeaa tehdä.

Toteuta sitten sellainen :3

Code: Select all

    FrameLimit 40

    SCREEN 500,500
    
    AkkaM = LoadObject("media\guy.bmp", 72)
    UkkoM = LoadObject("media\soldier.bmp", 72)
    ShowObject UkkoM, OFF 
    ShowObject AkkaM, OFF 

    Type ukko
        Field obj
        Field y
    EndType
    
    Type akka
        Field obj
        Field y
    EndType
    
    For i=1 To 1
        u.ukko = New(ukko)
        u\obj = CloneObject(UkkoM)
        PositionObject u\obj, Rand(-100,100),Rand(-100,100)
    Next i
    
    For i=1 To 1
        a.akka = New(akka)
        a\obj = CloneObject(AkkaM)
        PositionObject a\obj,Rand(-100,100),Rand(-100,100) 
    Next i


    Repeat
        
        a.akka = Last(akka)
        For u.ukko = Each ukko
            PointObject u\obj, a\obj
            MoveObject u\obj, 1, 1
            If a = First(akka)
                a = Last(akka)
            Else
                a = Before(a)
            EndIf
            u\y - 1
        Next u
        
        u.ukko = Last(ukko)
        For a.akka = Each akka    
            PointObject a\obj, u\obj
            MoveObject u\obj, 0.05, 0.05
            If u = First(ukko)
                u = Last(ukko)
            Else
                u = Before(u)
            EndIf
            a\y - 1
        Next a
        
        For a.akka = Each akka
            For u.ukko = Each ukko
                If  ObjectsOverlap(a\obj, u\obj, 2) And u\y < 0 And a\y < 0
                    luo = 1
                    u\y = 200
                    a\y = 200
                EndIf
            Next u
        Next a
        
        If luo = 1
            If Rand(1,2) = 1
                u.ukko = New(ukko)
                u\obj = CloneObject(UkkoM)
                PositionObject u\obj, Rand(-240,240),Rand(-240,240) 
            Else
                a.akka = New(akka)
                a\obj = CloneObject(AkkaM)
                PositionObject a\obj,Rand(-240,240),Rand(-240,240)  
            EndIf
            luo = 0
        EndIf
        DrawScreen  
    
    Forever
    

Mä päätin kokeilla luoda nopeasti sellaisen... Odottaakaa hetki kunnes alkaa taphtua =D

[MaGetzUb]

Tekoäly siis vain söi, paritteli ja väisteli toisiaan. En näe tuossa ohjelmallisesti mitään vaikeaa, ja sen professorin grafiikat ei ollu mitää kummoosta.

[esa94]

Tekoäly siis vain söi, paritteli ja väisteli toisiaan. En näe tuossa ohjelmallisesti mitään vaikeaa, ja sen professorin grafiikat ei ollu mitää kummoosta.

Tjaa, ajattelin että siinä olisi ollut genetiikkaa taustalla :P

[TheFish]

Tekoäly siis vain söi, paritteli ja väisteli toisiaan. En näe tuossa ohjelmallisesti mitään vaikeaa, ja sen professorin grafiikat ei ollu mitää kummoosta.

Joku voisi tietysti väittää, että se, että et näe siinä mitään vaikeaa, ei tarkoita mitään ennen kuin olet toteuttanut sellaisen.

[N_S]

kehtaisiko joku heittää CB:n zippinä?

[Herra Siili]

kehtaisiko joku heittää CB:n zippinä?

Näitä on laitettu aiemminkin muutamia. Tässä ensimmäinen minkä löysin. www.coolbasic.com/phpBB3/viewtopic.php?p=41841#p41841

[Viltzu]

kehtaisiko joku heittää CB:n zippinä?

Näitä on laitettu aiemminkin muutamia. Tässä ensimmäinen minkä löysin. viewtopic.php?p=41841#p41841

Kyseessä ei ole CB vaan sen kääntäjä. Ja jos et huomannut, linkki ei ole toimiva.
Mutta onhan sitä kyselty foorumeilla ennenkin. viewtopic.php?p=44826#p44826

[DJ-Filbe]

Miten voin PHP:n avulla vaihtaa merkkijonosta kahden merkkijonoparametrin välistä löytyvän tekstin:

Code: Select all

$merkkijono="dataa xd wtf lol wow";
$merkkijono = vaihda("xd ", " lol", "vaihtui", $merkkijono);
echo $merkkijono;
// tulostaa:
// dataa xd vaihtui lol wow

[TheFish]

Miten voin PHP:n avulla vaihtaa merkkijonosta kahden merkkijonoparametrin välistä löytyvän tekstin:

Code: Select all

$merkkijono="dataa xd wtf lol wow";
$merkkijono = vaihda("xd ", " lol", "vaihtui", $merkkijono);
echo $merkkijono;
// tulostaa:
// dataa xd vaihtui lol wow

Pikainen tekele. Mikäli merkkijonossa on useampi kohta, jossa etsittävät merkkijonot esiintyvät, uloimpien välissä oleva teksti vaihdetaan.

Code: Select all

function vaihda($alku, $loppu, $uusi, $merkkijono) {
  return preg_replace("/\\Q$alku\\E.*\\Q$loppu\\E/", "$alku$uusi$loppu", $merkkijono);
}

EDIT:

paranneltu...

[Herra Siili]

kehtaisiko joku heittää CB:n zippinä?

Näitä on laitettu aiemminkin muutamia. Tässä ensimmäinen minkä löysin. viewtopic.php?p=41841#p41841

Kyseessä ei ole CB vaan sen kääntäjä. Ja jos et huomannut, linkki ei ole toimiva.
Mutta onhan sitä kyselty foorumeilla ennenkin. viewtopic.php?p=44826#p44826

Ohops, katoin vähän huolimattomasti, sori.