Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,953
Naujausias narys: Quwqkibor

Naujausi straipsniai

Paskutiniai nariai

Quwqkibor 5 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
Majakas24 savaitės

Informacija:


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

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