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ų: 44
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,953
Naujausias narys: Quwqkibor

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Quwqkibor 6 dienos
asirija 4 savaitės
tomeem 6 savaitės
Reikalas 7 savaitės
weberiz10 savaitės
mRokass12 savaitės
kartoonas13 savaitės
iaescortsmap13 savaitės
ozzWANTED14 savaitės
grunskiz16 savaitės
Bruksnys16 savaitės
illusion16 savaitės
ordo17 savaitės
Jurgaila18 savaitės
originalcs1618 savaitės
Rytis19 savaitės
halis20 savaitės
junkus23 savaitės
morlis23 savaitės
Majakas25 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 18.222.225.231
Naujienų: 529
Straipsnių: 235
Temų: 52,585
Postų: 522,523
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 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

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m akinanti šypsen

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Apocal
2023 Rugs. 2 18:09:23
Nu davai nuveikiam kažką akinanti šypsen. Prisijungti kada visi čia akinanti šypsen.

Apocal
2023 Rugs. 2 00:09:18
Šiaip atėjau pažiūrėti ar dar lopas nesby yra ar koks ten buvo.

Š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ų: 3167      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ą: