Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 769
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

MaFetas 1 savaitė
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Reikalas15 savaitės
Jaunelis21 savaitės
lanis21 savaitės
And2s22 savaitės
Memento Mori27 savaitės
Quwqkibor29 savaitės
asirija33 savaitės
tomeem35 savaitės
weberiz39 savaitės
mRokass41 savaitės
kartoonas42 savaitės
grunskiz45 savaitės
Bruksnys45 savaitės
illusion45 savaitės
ordo46 savaitės
Jurgaila47 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.145.168.68
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,537
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up šypsosi

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. šypsosi

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
sioks toks robotukas, ne pagalbos...
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | Bendri PHP-F klausimai
Autorius: cipis Peržiūrų: 3495      Spausdinti temą
2008 Spa. 1 21:10:23          1 žinutė iš 23
Spausdinti pranešimą
Tai va Perdareu robotuka , galima rasyti pvz labas atsako labas vakaras, cipis, kaip sekas? Nereike i ji kreiptis niekaip, bote , robote ir pn....


<?php
/*---------------------------------------------------+
| PHP-Fusion 6 Content Management System
+----------------------------------------------------+
| Copyright © 2002 - 2006 Nick Jones
| http://www.php-fu...
+----------------------------------------------------+
| Pradine Saukyklos robotuko versija sukurta: snapsas
| Prie robotuko kurimo daug prisidejo: bdZ
+----------------------------------------------------*/
if (!defined("IN_FUSION")) { header("Location: ../../index.php"); exit; }


openside($locale['120']);
if (iMEMBER || $settings['guestposts'] == "1") {
   if (isset($_POST['post_shout'])) {
      $flood = false;
      if (iMEMBER) {
         $shout_name = $userdata['user_id'];
      } elseif ($settings['guestposts'] == "1") {
         $shout_name = trim(stripinput($_POST['shout_name']));
         $shout_name = preg_replace("(^[0-9]*)", "", $shout_name);
         if (isNum($shout_name)) $shout_name="";
      }
     
      $shout_message = str_replace("\n", " ", $_POST['shout_message']);
      $shout_message = preg_replace("/^(.{255}).*$/", "$1", $shout_message);
      $shout_message = preg_replace("/([^\s]{25})/", "$1\n", $shout_message);
      $shout_message = trim(stripinput(censorwords($shout_message)));
      $shout_message = str_replace("\n", "<br>", $shout_message);
      if ($shout_name != "" && $shout_message != "") {
   
   

      //pradedam boto koda
     
      $h = date("H", time());
     
      if ($h > 00 && $h <= 05) {
      $time = "Laba naktis";
      $timemsg = "Ne laikas miegoti dar?";
      } elseif ($h > 05 && $h <= 10) {
      $time = "Labas rytas";
      $timemsg = "Kaip miegojai?";
      } elseif ($h > 10 && $h <= 18) {
      $time = "Laba diena";
      $timemsg = "Kaip einasi?";
      } elseif ($h > 18 && $h <= 21) {
      $time = "Labas vakaras";
      $timemsg = "Kaip sekasi?";
      } elseif ($h > 21 && $h <= 23) {
      $time = "Laba naktis";
      $timemsg = "Ne laikas miegoti dar?";
      }
     
   $msg = strtolower($_POST['shout_message']);
   $msg = str_replace(array(":","<",">","@","#","$","%","^","&","*","(",")","_","=","+","/","-", "?", ",", "'", "`", "!", "."), "", $msg);
   $msg = str_replace(array("ą", "č", "ę", "ė", "į", "š", "ų", "ū", "ž"), array("a", "c", "e", "e", "i", "s", "u", "u", "z"), $msg);
   
   // klausimus rasom be zenklu, kurie yra $pakeisti array'uje
      $QA = array (

         
         "(labas|sveiki|Kas geresnio?|kaip sekas?|svx|swx|labux).*" => "$time,<font style=\"color:red;\">".$userdata['user_name']."</font>,$timemsg",
         "(gerai|nor|normalei|nuosta|ideal).*" => "Nuostabu! <font style=\"color:red;\">".$userdata['user_name']."</font>",
         "(blogai|suknistai).*" => "Kodel? <font style=\"color:red;\">".$userdata['user_name']."</font>",
         "(sergu|seip).*" => "Blogai :(<font style=\"color:red;\">".$userdata['user_name']."</font>",
         "(Duok Skype|koks Tavo skype?|Koks skype?).*" => "Netiriu :( <font style=\"color:red;\">".$userdata['user_name']."</font>",
         "(kaip tau?|gerai, kaip Tau?|gerai kaip tau?).*" => "Nuostabu, ir man gerai :D <font style=\"color:red;\">".$userdata['user_name']."</font>",
         "(ka darai?|ka veiki?).*" => "nieko", "nesakysiu", "verdu samagona", "Rukau", "geriu", "netrugdyk dabar su merga", "einu", "begu", "skrenu", "zaidziu cs", "losiu cs",
         "(eik).*" => "jau senai ta darau :)",
         "(bek).*" => "dabar einu :)",
         "(skrisk).*" => "dabar begu :)",
         "(sok).*" => "dabar skrendu :)",
         "(gerka).*" => "dabar myzu :)",
         "(mysk).*" => "dabar geriu :)",
         ".{0,10}(ro){0,1}bot[a-z,0-9]*\040(gau|musi|be).*" => "Jau bėgu :D",
         ".{0,10}(ro){0,1}bot[a-z,0-9]*\040(ei).*" => "Kur? :D",
         ".{0,10}(ro){0,1}bot[a-z,0-9]*\040(kodel?).*" => "Tingiu :D",
         "[^[a-z,0-9]]*.*bot.*" => "Nesakysiu :)"

      );
         
     
     
      $rezas = false;
      foreach ($QA as $q => $a) {
      if (ereg($q, $msg)) {
      $rezas = true;
      $atsakymas = $a;
      break;
      }
      }
     
      //botas baigesi
     
         $result = dbquery("SELECT MAX(shout_datestamp) AS last_shout FROM ".$db_prefix."shoutbox WHERE shout_ip='".USER_IP."'");
         if (!iSUPERADMIN || dbrows($result) > 0) {
            $data = dbarray($result);
            if ((time() - $data['last_shout']) < $settings['flood_interval']) {
           
            //panaikinam siuksles
            if ($rezas) $flood = false; else $flood = true;
           
               
               $result = dbquery("INSERT INTO ".$db_prefix."flood_control (flood_ip, flood_timestamp) VALUES ('".USER_IP."', '".time()."')");
               if (dbcount("(flood_ip)", "flood_control", "flood_ip='".USER_IP."'") > 4) {
                  if (iMEMBER) $result = dbquery("UPDATE ".$db_prefix."users SET user_status='1' WHERE user_id='".$userdata['user_id']."'");
               }
            }
         }
         if (!$flood) $result = dbquery("INSERT INTO ".$db_prefix."shoutbox (shout_name, shout_message, shout_datestamp, shout_ip) VALUES ('$shout_name', '$shout_message', '".time()."', '".USER_IP."')");
     
      //boto uzklausa
      if ($rezas) $result = dbquery("INSERT INTO ".$db_prefix."shoutbox (shout_name, shout_message, shout_datestamp, shout_ip) VALUES ('Robotukas', '$atsakymas', '".(time() + 1)."', '0.0.0.0')");
     
      }
      fallback(FUSION_SELF.(FUSION_QUERY ? "?".str_replace("&", "&", FUSION_QUERY) : ""));
   }
   echo "<form name='chatform' method='post' action='".FUSION_SELF.(FUSION_QUERY ? "?".FUSION_QUERY : "")."'>
<table align='center' cellpadding='0' cellspacing='0'>
<tr>
<td colspan='2'>\n";
   if (iGUEST) {
      echo $locale['121']."<br>
<input type='text' name='shout_name' value='' class='textbox' maxlength='30' style='width:140px;'><br>
".$locale['122']."<br>\n";
   }
   echo "<textarea name='shout_message' rows='4' cols='20' class='textbox'></textarea>
</td>
</tr>
<tr>
<td><input type='submit' name='post_shout' value='".$locale['123']."' class='button'></td>
<td align='right' class='small'><a href='".INFUSIONS."shoutbox_panel/shoutboxhelp.php' class='side'>".$locale['124']."</a></td>
</tr>
</table>
</form>
<br>\n";
} else {
   echo "<center>".$locale['125']."</center><br>\n";
}
$result = dbquery("SELECT count(shout_id) FROM ".$db_prefix."shoutbox");
$numrows = dbresult($result, 0);
$result = dbquery(
   "SELECT * FROM ".$db_prefix."shoutbox LEFT JOIN ".$db_prefix."users
   ON ".$db_prefix."shoutbox.shout_name=".$db_prefix."users.user_id
   ORDER BY shout_datestamp DESC LIMIT 0,".$settings['numofshouts']
);
if (dbrows($result) != 0) {
   $i = 0;
   while ($data = dbarray($result)) {
      echo "<span class='shoutboxname'><img src='".THEME."images/bullet.gif' alt=''> ";
      if ($data['user_name']) {
         echo "<a href='".BASEDIR."profile.php?lookup=".$data['shout_name']."' class='side'>".$data['user_name']."</a>\n";
      } else {
         echo $data['shout_name']."\n";
      }
      echo "</span><br>\n<span class='shoutboxdate'>".showdate("shortdate", $data['shout_datestamp'])."</span>";
      if (iADMIN && checkrights("S")) {
         echo "\n[<a href='".ADMIN."shoutbox.php".$aidlink."&action=edit&shout_id=".$data['shout_id']."' class='side'>".$locale['048']."</a>]";
      }
      echo "<br>\n<span class='shoutbox'>".parsesmileys($data['shout_message'])."</span><br>\n";
      if ($i != $numrows) echo "<br>\n";
   }
   if ($numrows > $settings['numofshouts']) {
      echo "<center>\n<img src='".THEME."images/bullet.gif' alt=''>
<a href='".INFUSIONS."shoutbox_panel/shoutbox_archive.php' class='side'>".$locale['126']."</a>
<img src='".THEME."images/bulletb.gif' alt=''></center>\n";
   }
} else {
   echo "<div align='left'>".$locale['127']."</div>\n";
}
closeside();
?>




Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
Redagavo cipis 2008 Spa. 2 11:10:38
2008 Spa. 1 21:10:51          2 žinutė iš 23
Spausdinti pranešimą
nu ir ka kad padarei?
2008 Spa. 1 21:10:29          3 žinutė iš 23
Spausdinti pranešimą
nukopinai is phpfusion.lt blogai
2008 Spa. 1 21:10:12          4 žinutė iš 23
Spausdinti pranešimą
Perdareu.......... drovus
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 1 21:10:41          5 žinutė iš 23
Spausdinti pranešimą
NU juokiasi tipo pats sugebetum padaryt akinanti šypsen
2008 Spa. 1 21:10:29          6 žinutė iš 23
Spausdinti pranešimą
Padaryti ne pet perdaryti jo....
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 1 21:10:16          7 žinutė iš 23
Spausdinti pranešimą
idomumerkia akį malacius.

cipis parašė:
Padaryti ne pet perdaryti jo....

o ant v7 perdarytum galvoja
Mu online http://www.mu-zona.visiems.lt
2008 Spa. 1 21:10:55          8 žinutė iš 23
Spausdinti pranešimą
gal nezinau kas ten per s nes nesinaudiju v7 reikes pameginti , gera minti daveikietas
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 1 21:10:23          9 žinutė iš 23
Spausdinti pranešimą
O dieve... stfu... o bože moj.. php dievas... jis moka pakeist kelis zodzius be žado
MMOG.lt - atrask naują pasaulį
Redagavo Gugiss 2008 Spa. 1 21:10:54
2008 Spa. 1 21:10:39          10 žinutė iš 23
Spausdinti pranešimą
as esu niekas. Tu manes nematai negirdi neuzuodi drovus drovus drovus
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 1 21:10:50          11 žinutė iš 23
Spausdinti pranešimą
| Copyright © 2002 - 2006 Nick Jones
| http://www.php-fu oj zwngiau akinanti šypsen
2008 Spa. 1 21:10:41          12 žinutė iš 23
Spausdinti pranešimą
Tai saku kad as i ji idejau tik kelis zodzius, perdareu ir pn...................... drovus
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 1 21:10:51          13 žinutė iš 23
Spausdinti pranešimą
Kaip vaikas... Pakeite kelius zodzius ir deda. Cai net zalias zmogus susiprotetu... blogai blogai blogai LOL.
www.Skanumas.lt - Receptai, Kulinarija, konditerija
www.syntax.lt
2008 Spa. 1 21:10:27          14 žinutė iš 23
Spausdinti pranešimą
Apocal parašė:
Kaip vaikas... Pakeite kelius zodzius ir deda. Cai net zalias zmogus susiprotetu... blogai blogai blogai LOL.


O kaip tu buvai vaikas ka keisdavai? zmogus nors rodo pastangas (stengiasi)...
s.k.y.p.e - pavojuz
2008 Spa. 1 21:10:54          15 žinutė iš 23
Spausdinti pranešimą
beto nevisi ir moka pakeisti ;(
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 1 21:10:56          16 žinutė iš 23
Spausdinti pranešimą
Kokais jis pastangas rodo? Kas pakeite teksta? Tas pats, kad as pakeisciau "labas i sveikas" papa

P.S.

Tai gal visi pradekim deti, modus pakete pvz: pavadinima, arba koky nors zodi.
www.Skanumas.lt - Receptai, Kulinarija, konditerija
www.syntax.lt
Redagavo Apocal 2008 Spa. 1 21:10:48
2008 Spa. 1 21:10:18          17 žinutė iš 23
Spausdinti pranešimą
cipis parašė:
beto nevisi ir moka pakeisti ;(
akinanti šypsen nemates dar tokio kuris nemoketu pakeist kai wiskas pries aki akinanti šypsen
2008 Spa. 1 21:10:08          18 žinutė iš 23
Spausdinti pranešimą
žliumbia blogai as zales ne prinoke..............
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 2 09:10:21          19 žinutė iš 23
Spausdinti pranešimą
Debilas kažkoks kitaip nepavadinsi. Snapso darbus dalina tipo pats kūrė asilas.
2008 Spa. 2 11:10:33          20 žinutė iš 23
Spausdinti pranešimą
ar as akeu kad kureu? as sakeu kad perdareu....
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 2 11:10:12          21 žinutė iš 23
Spausdinti pranešimą
Tai va Padareu sioki toki robotuka , galima rasyti pvz labas atsako labas vakaras, cipis, kaip sekas? Nereike i ji kreiptis niekaip, bote , robote ir pn


Viskas aiškiai parašyta šypsosi
Wg.xz.lt - World Gaming Kuriama :D
Įsidėjau avatarą.! :D
2008 Spa. 2 11:10:37          22 žinutė iš 23
Spausdinti pranešimą
Reike siokios tokios pagalbos šypsosi noriu kad robotukas atsakytu skirtingus zodzius kiekviena karta šypsosi koki koda iterpti? jau isbandzeu kokius 3 metodus 1 metodas neisejo neatkartoja zodziu šypsosi antras metodas vietoi zodziu skicei keices akinanti šypsen tai va padekit žliumbia
Counter-Strike 1.6 - NAUJOKAI-LT
WWW.NAUJOKAI.NET
2008 Spa. 2 13:10:45          23 žinutė iš 23
Spausdinti pranešimą
Sakei jog kūriai tik pakeitei tą postą.
Peršokti į forumą: