Offtopic (I/2010)

Post by **koodaaja** » Sun Sep 05, 2010 11:09 pm

Itselläni toimi Win7:lla sekä Operalla, Chromella että IE:llä aivan oikein.

En silti tiedä onko mielekästä tehdä useampia CBKK:n elämäntyön jatkajia, käyttäjiä ja koodia ei kuitenkaan ole niin paljoa.

Sly_Jack0 · Post by **Sly_Jack0** » Mon Sep 06, 2010 7:18 pm

KilledWhale wrote:Ulkoasu perseää.

Josko nyt olisi kunnossa.

Rekisteröitykää ihmiset toki ja lisäilkää koneidenne syövereistä löytyviä koodeja muiden saataville. Viuhka.fi:stä on jo sivutila ja pyrin muuttamaan sivut sinne huomenissa, joten nykyistä luotettavampi hosti tulee olemaan.

Jare · Post by **Jare** » Mon Sep 06, 2010 8:29 pm

Sly_Jack0 wrote:Rekisteröitykää ihmiset toki ja lisäilkää koneidenne syövereistä löytyviä koodeja muiden saataville.

Itse ainakin odottelen Pettiksen tuotosta. Katsotaan sitten, kumpi tuntuu toimivammalta.

Ja toi sun CBKK näyttää ihan hyvältä alulta. Jostain tosin tuli ylimääräinen escape-korvaus Viltzun lisäämään koodiin (= lainausmerkin eteen tulee kenoviiva). Lieneekö PHP:n Magic Quotes syynä?

Sly_Jack0 · Post by **Sly_Jack0** » Mon Sep 06, 2010 8:56 pm

Jare wrote:
Sly_Jack0 wrote:Ja toi sun CBKK näyttää ihan hyvältä alulta. Jostain tosin tuli ylimääräinen escape-korvaus Viltzun lisäämään koodiin (= lainausmerkin eteen tulee kenoviiva). Lieneekö PHP:n Magic Quotes syynä?

Kiitos. Koodinlisäysskripti on nyt korjattu ja samalla korjasin Viltzun koodinkin. Kiitos huomautuksesta. =)

Latexi95 · Post by **Latexi95** » Mon Sep 06, 2010 10:15 pm

Taas kerran tulen kaupittelemaan "syntaksivärjäys"-funktiotani CBKK-klooneille...

Näin sen eteen vaivaa joten toivottavasti joku viitsii käyttää sitä.
Tässä se taas kerran on:

Code: Select all

function highlighttext($path,$keywordspath)
{
   $lines = file($path);
   $keywords = file($keywordspath);
   $sisennys = 0;
   for ($i = 1;$i < count($keywords)-1;$i++)
   {
      $words = explode(" ",$keywords[$i]);
      $keywords[$i] = $words[0];
   }
   foreach ($lines as $line)
   {
      $line = trim($line);
      $front = "";
      $mid="";
      $sisennysmuutos=0;
      if ($comment==true)
      {
         $cpos1 = stripos($line,"remend");
         if ($cpos1 !== false)
         {
            if($cpos1>0)
            {
               if (strpos(" ()=><",substr($line,$cpos1-1,1)) === false) $cpos1 = false;
            }
            if($cpos1<strlen($line)-7)
            {
               if (strpos(" ()=><",substr($line,$cpos1+6,1)) === false) $cpos1 = false;
            }
         }
         if ($cpos1!==false)
         {
            $front = substr($line,0,$cpos1)."</span><span class='keyword'>RemEnd</span>";
            $line = substr($line,$cpos1+6);
            $comment=false;
         }
         else
         {
            $mid = $line;
         }
      }
      if ($comment==false)
      {
         
         $cpos1 = stripos($line,"remstart");
         $cpos2 = strpos($line,"//");
         $cpos3 = strpos($line,"'");
         if ($cpos3 === false)
         {
            $cpos3 = 20000;
         }
         if ($cpos2 === false)
         {
            $cpos2 = 20000;
         }
         if ($cpos1 === false)
         {
            $cpos1 = 20000;
         }
         else
         {   
            if($cpos1>0)
            {
               if (strpos(" ()=><",substr($line,$cpos1-1,1)) === false) $cpos1 = 20000;
            }
            if($cpos1<strlen($line)-8 )
            {
               if (strpos(" ()=><",substr($line,$cpos1+8,1)) === false) $cpos1 = 20000;
            }
         }
         if ($cpos1 < $cpos2 and $cpos1 < $cpos3)
         {
            if ($cpos1 > 0)
            {
               $codes[] = substr($line,0,$cpos1);
            }
            else
            {
               $codes[] = "";
            }
            $comment = true;
            $cpos2 = stripos($line,"remend",$cpos1);
            if ($cpos2 !== false)
            {
               if($cpos2>0)
               {
                  if (strpos(" ()=><",substr($line,$cpos2-1,1)) === false) $cpos2 = false;
               }
               if($cpos2<strlen($line)-6)
               {
                  if (strpos(" ()=><",substr($line,$cpos2+6,1)) === false) $cpos2 = false;
               }
               echo $cpos2."<br/>\n";
            }
            if ($cpos2 !== false)
            {
               $after[] = "<span class='keyword'>RemStart</span><span class='comment'>".substr($line,$cpos1+8,$cpos2-$cpos1-8 );
               $codes[] = "";
               $after[] = "</span><span class='keyword'>RemEnd</span>";
               $codes[] = substr($line,$cpos2+6);
               $after[] = "";
               $comment = false;
            }
            else
            {
               $after[] = "<span class='keyword'>RemStart</span><span class='comment'>".substr($line,$cpos1+8 );
            }
         }
         elseif ($cpos2 < $cpos1 and $cpos2 < $cpos3)
         {
            if ($cpos2 > 0)
            {
               $codes[] = substr($line,0,$cpos2);
            }
            else
            {
               $codes[] = "";
            }
            $after[] = "<span class='comment'>".substr($line,$cpos2)."</span>";
         }
         elseif ($cpos3 < $cpos2 and $cpos3 < $cpos1)
         {
            if ($cpos2 > 0)
            {
               $codes[] = substr($line,0,$cpos3);
            }
            else
            {
               $codes[] = "";
            }
            $after[] = "<span class='comment'>".substr($line,$cpos3)."</span>";
         }
         else
         {
            $codes[] = $line;
            $after[] = "";
         }
         for($i3=0;$i3<count($codes);$i3++)
         {
            $clips = explode("\"",$codes[$i3]);
            print_r($clips);
            for($i = 0;$i<count($clips);$i++)
            {
               if(($i % 2) == 0 or $i == 0)
               {
                  $clips[$i] = str_replace("("," ( ",$clips[$i]);
                  $clips[$i] = str_replace(")"," ) ",$clips[$i]);
                  $clips[$i] = str_replace(","," , ",$clips[$i]);
                  $clips[$i] = str_replace("+"," + ",$clips[$i]);
                  $clips[$i] = str_replace("-"," - ",$clips[$i]);
                  $clips[$i] = str_replace("*"," * ",$clips[$i]);
                  $clips[$i] = str_replace("/"," / ",$clips[$i]);
                  $clips[$i] = str_replace("^"," ^ ",$clips[$i]);
                  $clips[$i] = str_replace("<"," < ",$clips[$i]);
                  $clips[$i] = str_replace(">"," > ",$clips[$i]);
                  $clips[$i] = str_replace(":"," : ",$clips[$i]);
                  $clips[$i] = str_replace("="," = ",$clips[$i]);
                  $clips[$i] = str_replace("  "," ",$clips[$i]);
                  $words = explode(" ",$clips[$i]);
                  $clips[$i] = "";
                  for($i4=0;$i4<count($words);$i4++)
                  {
                     $words[$i4] = trim($words[$i4]);
                     if (is_numeric($words[$i4]) == true)
                     {
                        $words[$i4] = "<span class='number'>".$words[$i4]."</span>";
                     }
                     else
                     {
                        for($i2 = 1;$i2<count($keywords);$i2++)
                        {
                           if (strtolower($words[$i4]) == strtolower($keywords[$i2]))
                           {
                              $words[$i4] = "<span class='keyword'>".$keywords[$i2]."</span>";
                              if ($keywords[$i2] == "Then")
                              {
                                 if ($i4 + 1 < count($words))
                                 {
                                    $sisennysmuutos=0;
                                 }
                                 else
                                 {
                                    $sisennysmuutos=1;
                                 }
                              }
                              elseif ($keywords[$i2] == "Type" or $keywords[$i2] == "Repeat" or $keywords[$i2] == "While" or $keywords[$i2] == "Function" or $keywords[$i2] == "For")
                              {
                                 $sisennysmuutos=1;
                              }
                              elseif ($keywords[$i2] == "EndIf" or $keywords[$i2] == "ElseIf" or $keywords[$i2] == "EndType" or $keywords[$i2] == "EndFunction" or $keywords[$i2] == "Forever" or $keywords[$i2] == "Wend" or $keywords[$i2] == "Until" or $keywords[$i2] == "Next")
                              {
                                 $sisennys--;
                              }
                              elseif ($keywords[$i2] == "Case")
                              {
                                 $sisennys--;
                                 $sisennysmuutos=1;
                              }
                              elseif ($keywords[$i2] == "Else")
                              {
                                 $sisennys--;
                                 $sisennysmuutos=1;
                              }
                              elseif ($keywords[$i2] == "Select")
                              {
                                 $sisennysmuutos=2;
                              }
                              elseif ($keywords[$i2] == "EndSelect")
                              {
                                 $sisennys=$sisennys-2;
                              }
                              elseif ($keyword[$i3] == "End")
                              {
                                 if ($i2 + 1 < count($words))
                                 {
                                    if (strtolower($words[$i2 +1]) == "select" or strtolower($words[$i2 +1]) == "If" or strtolower($words[$i2 +1]) == "type" or strtolower($words[$i2 +1]) == "function")
                                    {
                                       $sisennys--;
                                    }
                                 }
                              }
                              break;
                           }
                        }
                     }
                     $clips[$i] = $clips[$i] . $words[$i4] . " ";
                  }
                  $clips[$i] = str_replace("  "," ",$clips[$i]);
                  $clips[$i] = str_replace("< =","<=",$clips[$i]);
                  $clips[$i] = str_replace("> =",">=",$clips[$i]);
                  $clips[$i] = str_replace("= >","=>",$clips[$i]);
                  $clips[$i] = str_replace("= <","=<",$clips[$i]);
                  $clips[$i] = str_replace("< >","<>",$clips[$i]);
                  $clips[$i] = str_replace("< /","</",$clips[$i]);
               }
            }
            $codes[$i3] = "";
            for($i = 0;$i<count($clips);$i++)
            {
               if ($i==0)
               {
                  $codes[$i3] = $codes[$i3].$clips[$i];                  
               }   
               else
               {
                  if (($i%2)==1)
                  {
                     $codes[$i3] = $codes[$i3]."<span class='string'>\"".$clips[$i];
                  }
                  else
                  {
                     $codes[$i3] = $codes[$i3]."\"</span>".$clips[$i];
                  }
               }
            }
            $mid = $mid . $codes[$i3].$after[$i3];
         }
         for($i3=0;$i3<count($codes);$i3++)
         {
            unset($codes[$i3]);   
            unset($after[$i3]);
         }
         $codes = array_values($codes);
         $after = array_values($after);
      }
      $line = str_repeat(" ",$sisennys*8 ).$front.$mid;
      $sisennys = $sisennys + $sisennysmuutos;
      $text = $text.$line."<br/>\n";
   }
   return $text;
}

Post by **temu92** » Tue Sep 07, 2010 12:09 am

Huomenna pitäis tulla postissa Starcraft 2, että pääsee vähän pelailemaan. Kuukausi tullu kerättyä rahaa siihen ja kuukausi katottu youtubesta videoita kun ei pysty itte pelaamaan. Kuitenkin tuli mieleen, että onkohan kellään täällä päin SC2:sta? Vois vaikka pelailla Battle.netin kautta sitä sitten.

Post by **Pettis** » Tue Sep 07, 2010 1:40 am

temu92 wrote:Huomenna pitäis tulla postissa Starcraft 2, että pääsee vähän pelailemaan. Kuukausi tullu kerättyä rahaa siihen ja kuukausi katottu youtubesta videoita kun ei pysty itte pelaamaan. Kuitenkin tuli mieleen, että onkohan kellään täällä päin SC2:sta? Vois vaikka pelailla Battle.netin kautta sitä sitten.

Ylläpidosta / moderaattoreista löytyy muutama kyseisen pelin omistaja, minä mukaan luettuna. Pelailimme viimeksi tänään porukalla.

Sly_Jack0 · Post by **Sly_Jack0** » Tue Sep 07, 2010 3:45 pm

Nyt on minun versioni uudesta CBKK:sta siirretty uudelle palvelimelle osoitteeseen: http://cbkk.viuhka.fi. Mitään tietoja ei ole kadonnut ja kaikki tähän mennessä ilmoitetut bugitkin on korjattu ja esimerkiksi rekisteröitymislomaketta paranneltu. Tervetuloa.

Koodiapina · Post by **Koodiapina** » Tue Sep 07, 2010 4:25 pm

Sly_Jack0 wrote:rekisteröitymislomaketta paranneltu.

Kumpikaan, rekisteröityminen taikka kirjautuminen, ei toiminut minulla. Päivitti vain sivun antamatta edes virheilmoitusta, kun painoin hyväksymisnappia.

Sly_Jack0 · Post by **Sly_Jack0** » Tue Sep 07, 2010 5:22 pm

Grandi wrote:
Sly_Jack0 wrote:rekisteröitymislomaketta paranneltu.
Kumpikaan, rekisteröityminen taikka kirjautuminen, ei toiminut minulla. Päivitti vain sivun antamatta edes virheilmoitusta, kun painoin hyväksymisnappia.

Hups. Unohtui testauskoodinpätkä mukaan. Ongelma korjattu.

legend · Post by **legend** » Tue Sep 07, 2010 9:54 pm

Jee, suomi teki maalin 1-2 häviöllä.

Viltzu · Post by **Viltzu** » Tue Sep 07, 2010 9:57 pm

legend wrote:Jee, suomi teki maalin 1-2 häviöllä.

Jääkiekko? Jalkapallo? EM? Ei sillä et kiinnostas. Jääkiekkoa kyllä joskus tulee katottua mutta eipä paljoo sitäkään

Jalkapalloa kyllä myös. Eniten urheilulajeista ehkä MotoGP:tä

Wingman · Post by **Wingman** » Wed Sep 08, 2010 8:03 am

Jooh, urheilua ei paljoa tule seurattua, snookeria ehkä eniten

Kille · Post by **Kille** » Thu Sep 09, 2010 9:33 pm

Tuleeko kellekään Tiede-lehteä? Uusimmassa numerossa oli aika mielenkiintoinen juttu kvanttifysiikasta ja suprajohteista. Muutenkin hyvä lehti.

Taatero · Post by **Taatero** » Thu Sep 09, 2010 10:03 pm

Kille wrote:Tuleeko kellekään Tiede-lehteä? Uusimmassa numerossa oli aika mielenkiintoinen juttu kvanttifysiikasta ja suprajohteista. Muutenkin hyvä lehti.

Tänne tulee! Tosin jos lehteä ei heti nappaa, se hukkuu jonnekin kaappien pohjukoille. Pitäisi etsiä vaikka iltalukemiseksi, kiitos kun muistutit!

Feuer · Post by **Feuer** » Thu Sep 09, 2010 10:04 pm

Tämän vuoksi laaduntarkkailu on keksitty!

Koodailin innoissani uuden PHP-pohjan nettisivulleni ja iskin sen nettiin. Eräät siunatut sielut koulustani ottivat sivun tarkkailun kohteeksi ja demonstroivat kevyesti millaista reikäjuustoa koko sivusto oli. Meseosoitteiden vaihtelun jälkeen sain pitkän raportin sivun aukoista, mikä aiheutti paljon "miks en mä totakaan ajatellu?

" - tunteita. Huonomminkin olisi voinut sisällön kannalta käydä.

Kiitän tästä avautumisen mahdollisuudesta

jatkakaa keskustelua.

Latexi95 · Post by **Latexi95** » Thu Sep 09, 2010 10:10 pm

Kille wrote:Tuleeko kellekään Tiede-lehteä? Uusimmassa numerossa oli aika mielenkiintoinen juttu kvanttifysiikasta ja suprajohteista. Muutenkin hyvä lehti.

Juu minäkin luin tuon jutun... Ihan mielenkiintoinen.

Taatero · Post by **Taatero** » Fri Sep 10, 2010 7:57 am

Latexi95 wrote:
Kille wrote:Tuleeko kellekään Tiede-lehteä? Uusimmassa numerossa oli aika mielenkiintoinen juttu kvanttifysiikasta ja suprajohteista. Muutenkin hyvä lehti.
Juu minäkin luin tuon jutun... Ihan mielenkiintoinen.

Samassa numerossa oli myös juttu oikeuslääketieteellisestä ruumiinavauksesta ja kuten arvata saattaa, se oli aika karseaa katsottavaa. Minkäänlaista varoitustagia ei lehdessä tai ennen tuota juttua ollut, mikä on sinäänsä outoa, koska lehteä mainostetaan hyvänä lukemisena myös vähän pienemmille. Itsekkin olisin pienempänä varmaan nähnyt painajaisia.

Post by **valscion** » Fri Sep 10, 2010 8:37 am

Taatero wrote:
Latexi95 wrote:
Kille wrote:Tuleeko kellekään Tiede-lehteä? Uusimmassa numerossa oli aika mielenkiintoinen juttu kvanttifysiikasta ja suprajohteista. Muutenkin hyvä lehti.
Juu minäkin luin tuon jutun... Ihan mielenkiintoinen.
Samassa numerossa oli myös juttu lääketieteellisestä ruumiinavauksesta ja kuten arvata saattaa, se oli aika karseaa katsottavaa. Minkäänlaista varoitustagia ei lehdessä tai ennen tuota juttua ollut, mikä in sinäänsä outoa, että lehteä mainostetaan hyvänä lukemisena myös vähän pienemmille. Itsekkin olisin pienempänä varmaan nähnyt painajaisia.

Kyllä oli hyvä lehti. Kvanttifysiikka-suprajohteet juttu oli aika mielenkiintonen juu

ja tuosta oikeuslääketieteellisestä ruumiinavauksesta sen verran, että täytyy kyllä olla aikamoiset teräshermot niillä jotka ihmisiä availee. Tai ainakin teräsvatsa, kun itselläni ois varmaan vaikeeta pitää aamupalaa sisällä jos tuollaista hommaa joutuisi tekemään työkseen.

Koodiapina · Post by **Koodiapina** » Fri Sep 10, 2010 3:19 pm

Taatero wrote:Samassa numerossa oli myös juttu oikeuslääketieteellisestä ruumiinavauksesta ja kuten arvata saattaa, se oli aika karseaa katsottavaa. Minkäänlaista varoitustagia ei lehdessä tai ennen tuota juttua ollut, mikä on sinäänsä outoa, koska lehteä mainostetaan hyvänä lukemisena myös vähän pienemmille. Itsekkin olisin pienempänä varmaan nähnyt painajaisia.

Minä taas uskon, että ruumiinavauksien näkeminen on ihan OK juttu pienille lapsille, koska se voi sivistää, karaistaa ja olla kiinnostavaa. En ole lisäksi koskaan kuullut laitettavan moiselle materiaalille ikärajaa, joten ei kai se kehityksellekään sitten haitaksi ole. Meille näytettiin 2. luokalla ala-asteella valokuvia murjotuista, verisistä kasvoista jollain väkivaltaluennolla. Kenellekään meistä lapsista ei käynyt mitään.

Painajaiset taas ovat aika lame. Itse näin pienenä niitä niin paljon, että ne kärsivät inflaation, enkä ole nähnyt niitä enää sen jälkeen.

Siinä taas olen samaa mieltä, että jokin varoitus lehden hieman härskimmästä sisällöstä voisi olla paikallaan.

CoolBasic Forums

Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)

Re: Offtopic (I/2010)