Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Paskutiniai nariai

saulyzas 6 dienos
MaFetas 1 savaitė
TOMIJUS 2 savaitės
ozzWANTED 2 savaitės
Reikalas11 savaitės
Jaunelis17 savaitės
lanis17 savaitės
And2s18 savaitės
Memento Mori23 savaitės
Quwqkibor25 savaitės
asirija29 savaitės
tomeem31 savaitės
weberiz34 savaitės
mRokass37 savaitės
kartoonas38 savaitės
grunskiz41 savaitės
Bruksnys41 savaitės
illusion41 savaitės
ordo42 savaitės
Jurgaila43 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.138.124.28
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.

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

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

Š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
Botas
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | Kiti PHP, HTML, MySQL klausimai

Autorius: JaWa Peržiūrų: 2276      Spausdinti temą
2008 Gru. 17 12:12:29          1 žinutė iš 8
Spausdinti pranešimą
Sveiki, turiu klausima , o galima sita Tinklapio robotuka kaip nors prie komentaru prijungti , ash bandziau, su tuo paciu kodu kaip ir shaukykloje , taciau neishejo ... Stai cia komentaro skriptas. paryskinau ten kur keiciau kad veiktu komentaruose ... Gal kas galit padet ?

<?php
/*---------------------------------------------------+
| PHP-Fusion 6 Content Management System
+----------------------------------------------------+
| Copyright ? 2002 - 2006 Nick Jones
| http://www.php-fusion.co.uk/
+----------------------------------------------------+
| Released under the terms & conditions of v2 of the
| GNU General Public License. For details refer to
| the included gpl.txt file or visit http://gnu.org
+----------------------------------------------------+
| Comments system developed by CrappoMan
| email: simonpatterson@dsl.pipex.com
+----------------------------------------------------*/
if (!defined("IN_FUSION")) { header("Location:../index.php"); exit; }

include LOCALE.LOCALESET."comments.php";
require_once INCLUDES."button.php";

function showcomments($ctype,$cdb,$ccol,$cid,$clink) {

   global $settings,$locale,$userdata,$aidlink,$status;

   if ((iMEMBER || $settings['guestposts'] == "1") && isset($_POST['post_comment'])) {
      $flood = false;
      if (dbrows(dbquery("SELECT $ccol FROM ".DB_PREFIX."$cdb WHERE $ccol='$cid'"))==0) {
         fallback(BASEDIR."index.php");
      }
      if (iMEMBER) {
         $comment_name = $userdata['user_id'];
      } elseif ($settings['guestposts'] == "1") {
         $comment_name = trim(stripinput($_POST['comment_name']));
         $comment_name = preg_replace("(^[0-9]*)", "", $comment_name);
         if (isNum($comment_name)) $comment_name="";
      }
      $comment_message = trim(stripinput(censorwords($_POST['comment_message'])));
      $comment_smileys = isset($_POST['disable_smileys']) ? "0" : "1";
      if ($comment_name != "" && $comment_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['$comment_message']);
   $msg = str_replace(array(":","<",">","@","#","$","%","^","&","*","(",")","_","=","+","/","-", "?", ",", "'", "`", "!", "."), "", $msg);
   $msg = str_replace(array("ą", "č", "ę", "ė", "į", "š", "ų", "ū", "ž"), array("a", "c", "e", "e", "i", "s", "u", "u", "z"), $msg);

  // atsakymai


  // atsakymu pabaiga
   
   // klausimus rasom be zenklu, kurie yra $pakeisti array'uje
      $QA = array (
         
         "(.{0,10}(sveik|laba|swx|svx|labas|sv|hello|helo).*[^[a-z,0-9]]*.*bot.*|.*[^[a-z,0-9]]*.*bot.*\040(sveik|laba|swx|svx|sveix).*)" => "<b>$time, $userdata[user_name]. $timemsg</b>",

   "(sveik|laba|swx|hi|svx|labas|sv|hello|helo).* (vis|all|ever|;)|:)|:D).*" => "<b>".$atsakymas4[array_rand($atsakymas4)]."</b>",

   "(bot|botas).*" => "<b>kas kviete ?</b>",


         "(dux|duch|lox|loch|ass|bitch|dick|ble|nx|nach|nah|debilas|mulkis
|vepla|smikis|pislius|subin|pider|snarglius|pirdzius|ozys|makstilaizis|Uostyk Vincą|sik|fuck|fak|jobanas|xui|xuj|suka|kekse|kekshe|pider|gaid|lope|aš|aš|bibi|pidar|nax|lopas|liurbis|sliura|sliuxa|kvailis|kvail|bibis|aš|ašs|aš|daunas|asilas|sluxa|gaidys|gaidis|aš|nax|pisk|cbb|bbd|debi|peder|pydar|rupus miltai|posimts pypkiu|paci|aš).*|bl" => "<b><font style=\"color:red;\">".$userdata['user_name']."</font> ".$atsakymas5[array_rand($atsakymas5)]." </b>",


         
      );
         
     
     
      $rezas = false;
      foreach ($QA as $q => $a) {
      if (ereg($q, $msg)) {
      $rezas = true;
      $atsakymas = $a;
      break;
      }
      }
     
      //botas baigesi


         $result = dbquery("SELECT MAX(comment_datestamp) AS last_comment FROM ".DB_PREFIX."comments WHERE comment_ip='".USER_IP."'");
         if (!iSUPERADMIN && dbrows($result) > 0) {
            $data = dbarray($result);
            if ((time() - $data['last_comment']) < $settings['flood_interval']) {
               $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) {
            if (iADMIN or $settings[comment_accept] == 0 or $settings['guestposts'] == "1" and iGUEST and $settings[comment_accept] == 0) {
               $result = dbquery("INSERT INTO ".DB_PREFIX."comments (comment_item_id, comment_type, comment_name, comment_message, comment_smileys, comment_datestamp, comment_ip) VALUES ('$cid', '$ctype', '$comment_name', '$comment_message', '$comment_smileys', '".time()."', '".USER_IP."')");

//boto uzklausa
      if ($rezas) $result = dbquery("INSERT INTO ".DB_PREFIX."comments (comment_item_id, comment_type, comment_name, comment_message, comment_smileys, comment_datestamp, comment_ip) VALUES ('$cid', '$ctype', '8', '$atsakymas', '$comment_smileys', '".time()."', '".USER_IP."')");

//Start usergold addon
paygold($userdata['user_name'],$userdata['user_id'],$user_gold_comment);
//end usergold addon

                  redirect("$clink");
            } else if (iMEMBER && !iADMIN or $settings['guestposts'] == "1" and iGUEST) {
               $submit_comment['comment_item_id'] = stripinput("$cid");
               $submit_comment['comment_type'] = stripinput("$ctype");
               $submit_comment['comment_name'] = stripinput("$comment_name");
               $submit_comment['comment_message'] = stripinput("$comment_message");
               $submit_comment['comment_smileys'] = stripinput("$comment_smileys");
               $timmee = time();
               $submit_comment['comment_datestamp'] = stripinput("$timmee");
               $ipp = "".USER_IP."";
               $submit_comment['comment_ip'] = stripinput("$ipp");
                  $result = dbquery("INSERT INTO ".DB_PREFIX."submissions (submit_type, submit_user, submit_datestamp, submit_criteria) VALUES ('c', '".$userdata['user_id']."', '".time()."', '".serialize($submit_comment)."')");

                  if ($rezas) $result = dbquery("INSERT INTO ".DB_PREFIX."submissions (submit_type, submit_user, submit_datestamp, submit_criteria) VALUES ('c', '8', '".time()."', '".serialize($submit_comment)."')");
                     redirect("$clink&status=dodano");
            }
         }
      }
   }

tablebreak();

   if (isset($status)) {
      if ($status == "dodano") {
         $title = $locale['0000'];
         $message = $locale['0001'];
      }
opentable($title);
   echo "<div align='center'>".$message."</div>\n";
closetable();
tablebreak();
}
   opentable($locale['c100']);
   $result = dbquery(
      "SELECT tcm.*,user_name FROM ".DB_PREFIX."comments tcm
      LEFT JOIN ".DB_PREFIX."users tcu ON tcm.comment_name=tcu.user_id
      WHERE comment_item_id='$cid' AND comment_type='$ctype'
      ORDER BY comment_datestamp ASC"
   );
   if (dbrows($result) != 0) {
      $i = 0;
      echo "<table cellpadding='0' cellspacing='1' width='100%' class='tbl-border'>\n";
      while ($data = dbarray($result)) {
         echo "<tr>\n<td class='".($i% 2==0?"tbl1":"tbl2")."'><span class='comment-name'>\n";
         if ($data['user_name']) {
            echo "<a href='".BASEDIR."profile.php?lookup=".$data['comment_name']."'>".$data['user_name']."</a>";
         } else {
            echo $data['comment_name'];
         }
         if ($data['comment_smileys'] == "1") {
            $comment_message = parsesmileys($data['comment_message']);
         } else {
            $comment_message = $data['comment_message'];
         }
         $comment_message = nl2br(parseubb($comment_message));
         echo "</span>\n<span class='small'>".$locale['041'].showdate("longdate", $data['comment_datestamp'])."</span><br>\n";
         echo $comment_message."</td>\n</tr>\n";
         $i++;
      }
      if (checkrights("C")) echo "<tr>\n<td align='right' class='".($i% 2==0?"tbl1":"tbl2")."'><a href='".ADMIN."comments.php".$aidlink."&amp;ctype=$ctype&amp;cid=$cid'>".$locale['c106']."</a></td>\n</tr>\n";
      echo "</table>\n";
   } else {
      echo $locale['c101']."\n";
   }
   closetable();
   tablebreak();
   opentable($locale['c102']);
   if (iMEMBER || $settings['guestposts'] == "1") {
      echo "<form name='inputform' method='post' action='$clink'>
<table align='center' cellspacing='0' cellpadding='0' class='tbl'>\n";
      if (iGUEST) {
         echo "<tr>
<td>".$locale['c103']."</td>
</tr>
<tr>
<td><input type='text' name='comment_name' maxlength='30' class='textbox' style='width:100%;'></td>
</tr>\n";
      }
      echo "<tr>
<td align='center'><textarea name='comment_message' rows='6' class='textbox' style='width:400px'></textarea><br>
".show_buttons(1,"comment_message")."
<br><br>
".displaysmileys("comment_message")."
</tr>
<tr>
<td align='center'><input type='checkbox' name='disable_smileys' value='1'>".$locale['c107']."<br><br>
<input type='submit' name='post_comment' value='".$locale['c102']."' class='button'></td>
</tr>
</table>
</form>\n";
   } else {
      echo $locale['c105']."\n";
   }
   closetable();
}
?>




2008 Gru. 17 12:12:11          2 žinutė iš 8
Spausdinti pranešimą
$msg = strtolower($_POST['$comment_message']);




MM... kam to antro $ bereikia nežino nežino

2008 Gru. 17 12:12:56          3 žinutė iš 8
Spausdinti pranešimą
ooo , labai tau aciu !!! akinanti šypsen tikrai pagelbejai !!! bliamba zioplas , nepastebejau žliumbia ...

Zmones , tai gal cia ir pradesim rasit apie ta boto , apie visokiausias naujoves ? kas ka isrado ... manau visiems pravers galvoja
Ai vat turiu klausima, kaip sujungti sita ...

"(duok golda).*" => "<b>###</b>",




vietoj ### kaip ideti teisingai

paygold($userdata['user_name'],$userdata['user_id'],5);






2008 Gru. 17 13:12:25          4 žinutė iš 8
Spausdinti pranešimą
evaldasz parašė:
ooo , labai tau aciu !!! akinanti šypsen tikrai pagelbejai !!! bliamba zioplas , nepastebejau žliumbia ...

Zmones , tai gal cia ir pradesim rasit apie ta boto , apie visokiausias naujoves ? kas ka isrado ... manau visiems pravers galvoja
Ai vat turiu klausima, kaip sujungti sita ...

"(duok golda).*" => "<b>###</b>",




vietoj ### kaip ideti teisingai

paygold($userdata['user_name'],$userdata['user_id'],5);






"(duok golda).*" => "<b>".paygold($userdata['user_name'],$userdata['user_id'],5)."</b>",




Bandyk turėtu veikt..

Na o gerausiai jeigu nemoki daryk taip:

1.Po includų kurnors viršūje įkišk toki kodą:

$goldas = paygold($userdata['user_name'],$userdata['user_id'],5);




2.Tada visas kodas atrodys taip:

"(duok golda).*" => "<b>$goldas</b>",




Iš atiminties rašiau taip, kad.. :}

2008 Gru. 17 13:12:17          5 žinutė iš 8
Spausdinti pranešimą
zinai ka , db uz kiekviena zinute duoda golda ... :/ o man reikia kad butent duotu golda tada kai parasai duok golda....
2008 Gru. 17 13:12:29          6 žinutė iš 8
Spausdinti pranešimą
Tai tada reikia keist kodą kuri daviai.. Tingiu gilintis ir dar kažkoks user gold'as šūdinas. nežino

2008 Gru. 17 13:12:18          7 žinutė iš 8
Spausdinti pranešimą
ta prasme sudinas? na pagelbek ...
2008 Gru. 17 18:12:14          8 žinutė iš 8
Spausdinti pranešimą
Kodel kai ash uzduodu botui klausima jis neatsako virsh mano klausimu ? o atsakyma paraso apacioje ?

{Autorius}JaWa 18/12/2008 13:41
miego nenorit?

[B]Botas 18/12/2008 13:41
as tai jau miegu ....

-----------------------------------------------

{Autorius}JaWa 18/12/2008 13:33
bote uzmushiu !

[B]Botas 18/12/2008 13:33
Gal nereikia , prasau žliumbia

------------------------------------------------

{Autorius}JaWa 18/12/2008 13:29
bote nebegerk daugiau akinanti šypsen

[B]Botas 18/12/2008 13:29
Negeriu.

Peršokti į forumą: