Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Paskutiniai nariai

MaFetas 2 savaitės
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Reikalas15 savaitės
Jaunelis21 savaitės
lanis22 savaitės
And2s23 savaitės
Memento Mori27 savaitės
Quwqkibor30 savaitės
asirija34 savaitės
tomeem36 savaitės
weberiz39 savaitės
mRokass41 savaitės
kartoonas43 savaitės
grunskiz45 savaitės
Bruksnys46 savaitės
illusion46 savaitės
ordo47 savaitės
Jurgaila48 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 18.118.10.75
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
Botas
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | Kiti PHP, HTML, MySQL klausimai

Autorius: JaWa Peržiūrų: 2304      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ą: