PHP-Fusion Mods - Diskusijų forumas: ?aukyklos robotukas

Peržiūrėti temą

PHP-Fusion Mods :: ARCHYVAS :: 2008 metų archyvas

Puslapis 1 iš 7: 12 3 4...7

?aukyklos robotukas

snapsas

parašyta 2008-05-26 10:27

Geradarys

Reputacija: 0

Pranešimai: 534
Įstojo: 2007-04-09

Taigi paprastas mano sukurtas robotukas, atsakynėjantis į užduotus klausimus. Klausimai ir užklausos ten kur pažymėta raudonai.
Jei neturit bent kokio supratimo apie php tai siūlyčiau net nekišt nagų.

shoutbox_panel.php

Code


/*---------------------------------------------------+

| PHP-Fusion 6 Content Management System

+----------------------------------------------------+

| Copyright � 2002 - 2006 Nick Jones

| http://www.php-fusion.co.uk/

+----------------------------------------------------+

| 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\", \"
\", $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 (

         

         \"(.{0,10}(sveik|laba|swx|svx|sveix).*[a-z,0-9]*\040(ro){0,1}bot.*|.{0,10}(ro){0,1}bot[a-z,0-9]*\040(sveik|laba|swx|svx|sveix).*)\" => \"$time, $userdata[user_name]. $timemsg\",

         \".{0,7}(norm|ger|nuosta|ideal).*[a-z,0-9]*\040(ro){0,1}bot.*\" => \"Nuostabu :D D?iaugiuosi d�l tav�s :)\",

         \"(dux|duch|lox|loch|ble|nx|nach|nah|nax|pisk|cbb|bbd|debi|peder|pydar|rupus miltai|posimts pypkiu|paci|ciulpk).*\" => \"\".$userdata['user_name'].\", Nesikeik! :|\",

         \".{0,10}(ro){0,1}bot[a-z,0-9]*\040(uzmu|nuzud|papj).*\" => \"Jau b�gu :D\",

         \"[^[a-z,0-9]]*.*bot.*\" => \"A? robotas :). Kas kviet�t?\"

         

      );

         

      

      

      $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 ('Pagalbos Robotukas', '$atsakymas', '\".(time() + 1).\"', '0.0.0.0')\");

      

      }

      fallback(FUSION_SELF.(FUSION_QUERY ? \"?\".str_replace(\"&\", \"&\", FUSION_QUERY) : \"\"));

   }

   echo \"











\n\";

   if (iGUEST) {

      echo $locale['121'].\"





\".$locale['122'].\"
\n\";

   }

   echo \"





\".$locale['124'].\"






\n\";

} else {

   echo \"\".$locale['125'].\"
\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 \" \";

      if ($data['user_name']) {

         echo \"\".$data['user_name'].\"\n\";

      } else {

         echo $data['shout_name'].\"\n\";

      }

      echo \"
\n\".showdate(\"shortdate\", $data['shout_datestamp']).\"\";

      if (iADMIN && checkrights(\"S\")) {

         echo \"\n[\".$locale['048'].\"]\";

      }

      echo \"
\n\".parsesmileys($data['shout_message']).\"
\n\";

      if ($i != $numrows) echo \"
\n\";

   }

   if ($numrows > $settings['numofshouts']) {

      echo \"\n

\".$locale['126'].\"

\n\";

   }

} else {

   echo \"\".$locale['127'].\"
\n\";

}

closeside();

?>

Redagavo snapsas 2008-05-28 10:55

I'm back.

ErvD

parašyta 2008-05-26 11:04

Pradinukas

Reputacija: 0

Pranešimai: 28
Įstojo: 2008-02-16 cia tai geras paimsiu ;) geras klausimas ar ozzwanted gejus ir geras jo atsakymas
:D

Nepster

parašyta 2008-05-26 12:01

S.Administratorius

Reputacija: 0

Pranešimai: 670
Įstojo: 2007-01-02 gera ideja, reikes idiegti siame saite. :)

RuP3r

parašyta 2008-05-26 12:09

Pradinukas

Reputacija: 0

Pranešimai: 47
Įstojo: 2007-07-24 Tai kad �ia vien� koki klausima kol para?ysi tai am?iu u?truksi nes gi tarkim yra ?odis gerai "gerai" => "Tai labai nuostabu :)", para?ai GERAI tai jau nebeatsakys? arba kaip kaikurie geraj.

snapsas

parašyta 2008-05-26 12:40

Geradarys

Reputacija: 0

Pranešimai: 534
Įstojo: 2007-04-09

Jei para?ysi GERAI - atsakys, jei para?ysi G�R�� - irgi atsakys.

prad?ioje dariau su strpos(), bet padla dirbt nenor�jo :( tai teko paprastai su if padaryt :) O ?iaip pati pirma mano versija buvo

$klausimas1
$klausimas2

$atsakymas1
$atsakymas2

ir kiekvienam klausimui po atskir� if'� :D bet ten bent su strpos() veik� :|

Redagavo snapsas 2008-05-26 16:50

I'm back.

ignas2526

parašyta 2008-05-26 17:36

Naujokas

Reputacija: 0

Pranešimai: 21
Įstojo: 2008-05-21 idomu :) o klausimai turi buti 100% tokie patis kaip parasita, ar galima suklist viena, dviem raidem?

ADXS

parašyta 2008-05-26 17:56

Naujokas

Reputacija: 0

Pranešimai: 8
Įstojo: 2007-01-05

Patiko man ?itas modas, tikrai mldc. pagyvina �at�, dabar tik gera u?duotis klausim� sugalvoti.

Adukas

parašyta 2008-05-26 19:06

Savekas

Reputacija: 0

Pranešimai: 114
Įstojo: 2007-03-27 Patiko, saunuolis net nebutu sove i galva tokia mintis :)

MySQL Robotukas

parašyta 2008-05-26 19:39

Draugas

Reputacija: 0

Pranešimai: 471
Įstojo: 2007-08-06

gera ideja, bet reikia jiam intelekto :D

# I`m a MAN !!!
# NIRVANA

SELECT user_name, GROUP_CONCAT(user_ip) as ip
FROM fusion_users
GROUP BY user_ip

Paranoja

#10

parašyta 2008-05-27 06:58

Draugas

Reputacija: 0

Pranešimai: 302
Įstojo: 2007-06-12 I? ?io robotuko galima dar ir isp�jim� automatini� ma?in� istatyt , tarkim ?mogus nusikeikia , o robotukas jam atsako => $warn $userdata[user_name] , tai jau tavo $count isp�jimas , but� galima perdaryt , bet a? laiko nelabai turiu , jei snapsas gali , dad�k ?it� malonum� prie savo Warn system v2. O ?iaip tikrai neblogas darbas . :)

MAnjack

#11

parašyta 2008-05-27 12:36

Puikusis

Reputacija: 0

Pranešimai: 1111
Įstojo: 2007-01-04

Na taip, bet su tais įspėjimais saitas gali apsikrauti, nes užklusų nemažai.

O šiaip tai šitas tavo botas nesupranta klausimo kada jį sudaro lietuviįkos raidės.

Redagavo MAnjack 2008-05-27 13:08

Sharkman

#12

parašyta 2008-05-27 12:44

Geradarys

Reputacija: 0

Pranešimai: 928
Įstojo: 2007-08-24 Hm �domus dalykas. Ne?inau reik�s pratestuoti. :)

Paranoja

#13

parašyta 2008-05-27 13:43

Draugas

Reputacija: 0

Pranešimai: 302
Įstojo: 2007-06-12

Supranta , gi snapsas id�jo kintamaj� :

$pakeisti = array("-", "?", ",", "'", "`", "!", ".", "à", "è", "�", "ë", "á", "ð", "�", "û", "þ");
$kuom = array("", "", "", "", "", "", "", "a", "c", "e", "e", "i", "s", "u", "u", "z");

Lietuvi?kas raides pakeis normaliomis.

Redagavo Paranoja 2008-05-27 13:55

Andrejus

#14

parašyta 2008-05-27 14:10

Geradarys

Reputacija: 0

Pranešimai: 701
Įstojo: 2007-05-28

Geras modas bet labiau support saitams ;)

Code

\"ar ozzwanted gejus\" => \"Taip, ozzWANTED yra gejus.\",

Luzau, ziauriai cia snapsai pavariai :D

EDIT: 500 žinutė,valio valio valio valio.

Redagavo Andrejus 2008-05-27 14:11

[url="http://andrejus.eu"]Andrejaus tinklalapis[/url] - Naujienos apie IT, grafika bei daug kit� "geek" straipsni�
D�mesio!!! Kuriu modulius php-fusion, ra?ykit � e-pa?t� arba priva�i� ?inut�.

MAnjack

#15

parašyta 2008-05-27 15:01

Puikusis

Reputacija: 0

Pranešimai: 1111
Įstojo: 2007-01-04

Paranoja para?�:
Supranta , gi snapsas id�jo kintamaj� :

Code

$pakeisti = array(\"-\", \"?\", \",\", \"'\", \"`\", \"!\", \".\", \"à\", \"è\", \"�\", \"ë\", \"á\", \"ð\", \"�\", \"û\", \"þ\");

$kuom = array(\"\", \"\", \"\", \"\", \"\", \"\", \"\", \"a\", \"c\", \"e\", \"e\", \"i\", \"s\", \"u\", \"u\", \"z\");

Lietuvi?kas raides pakeis normaliomis.

Neveikia ?itas. Pats ma�iau ?it� dal�.

snapsas

#16

parašyta 2008-05-27 15:08

Geradarys

Reputacija: 0

Pranešimai: 534
Įstojo: 2007-04-09

na man veikia :)

I'm back.

MySQL Robotukas

#17

parašyta 2008-05-27 15:14

Draugas

Reputacija: 0

Pranešimai: 471
Įstojo: 2007-08-06

bandom padidint intelekta botui:

PHP

<?php
$QA = array (
"^(sveik|laba|swx).*.+bot.*" => "Sveikas"
);
$rezas = false;
foreach ($QA as $q => $a) {
if (ereg($q, $string)) {
$rezas = true;
$atsakymas = $a;
break;
}
}
?>

sakyk

Sveikas Botas
Sveik Robotas
laba bote
labas botukas

ir t.t.

jeigu pradzioja yra swx* ar laba* ar sveik*

o paskui *bot* tai atsakys Sveikas :|

kur * - bet koks simbolius :(

P.S. galima ir ^(sveik|laba|swx).*.+bot.*$ naudoti

P.S.2. paprastai sakant jeigu sakynis prasideda nuo swx, laba ar sveik o vidyje yra bot tai jis supranta kaip passveikinimas :D :D

gali riboti ir itraukti tarpa ir padidinti dar boto intelekta :|

Redagavo MySQL Robotukas 2008-05-27 15:20

# I`m a MAN !!!
# NIRVANA

SELECT user_name, GROUP_CONCAT(user_ip) as ip
FROM fusion_users
GROUP BY user_ip

MySQL Robotukas

#18

parašyta 2008-05-27 15:17

Draugas

Reputacija: 0

Pranešimai: 471
Įstojo: 2007-08-06

MAnjack para?�:
Neveikia ?itas. Pats ma�iau ?it� dal�.

gal priklauso nuo to, kaip tuos raides issaugomos DB :) tai tesiog paziurk ;)

# I`m a MAN !!!
# NIRVANA

SELECT user_name, GROUP_CONCAT(user_ip) as ip
FROM fusion_users
GROUP BY user_ip

MAnjack

#19

parašyta 2008-05-27 15:21

Puikusis

Reputacija: 0

Pranešimai: 1111
Įstojo: 2007-01-04 bdZ, gerai papildei kod�. Dabar bus lengviau lam kalb� sukurti. Reiks man j� pas save saite daugiau � sistem� �lieti. :)

MySQL Robotukas

#20

parašyta 2008-05-27 15:53

Draugas

Reputacija: 0

Pranešimai: 471
Įstojo: 2007-08-06

seip manau reikia zinoti kokia publika renkasi ir kokius klausimus gali uzduoti.. ir atsizvelgant i tai - sukurti boto intelekta, kuris gales is sakiniu istraukti reikia informacija...

pvz: blia blia blia. Swx botas!
tai botas turetu pralisti ta blia, blia blia ir atsistuoti salia swx botas...

kitas variantas... aktivuojamas jeigu suranda botas, robotas arba ka nors panasaus :)

t.y. .*bot.*
ar \040(ro){0,1}bot.*

bet cia galima dar imesti kokius kombinacijus galima statiti po raides t...

t.y. \040(ro){0,1}bot(as|e|ui){0,1}\040

nors sitas kodas : ^(sveik|laba|swx).*[a-z,0-9]*\040(ro){0,1}bot.*$ geresnis uz virsutini :|

nes:

1. supranta tik bot* ar robot*
2. rekalaujia tarpa tarp zodziu
3. ir gal viskas

Vien zodziu... galva pradeda skaudeti :D

nieko netikrinau :D t.y. viskas is galvoj traukiau, gali buti klaidu, nes be alaus dariau :|

# I`m a MAN !!!
# NIRVANA

SELECT user_name, GROUP_CONCAT(user_ip) as ip
FROM fusion_users
GROUP BY user_ip

Puslapis 1 iš 7: 12 3 4...7

Peršokti į forumą:

tabux	1 Diena
EdvinasG1337	nepamenu
rolandas94	nepamenu
Zbigniew@	nepamenu
Edis2	nepamenu
klubogerbejas	nepamenu
Miskinis	nepamenu
mast3r	nepamenu
N1nt3nd	nepamenu
Matze1987	nepamenu
Piter_NS	nepamenu
MariukasR	nepamenu

	Neleista registracija: 28925
	Šiandien: 12