PHP-Fusion Mods
Navigacija
Apsauga
Apsauga Neleista registracija: 15944
Šiandien: 24
Prisijungę nariai
» Svečių: 2
» Narių: 0

» Viso narių: 10,225
» Naujausias: Piter_NS

Prisijungimų istorija:
tabuxsenokai
Piter_NSnepamenu
MariukasRnepamenu
CepelinasXnepamenu
demeexnepamenu
sanpernepamenu
DvBnepamenu
Rasmitasnepamenu
mindagasssnepamenu
kajanasnepamenu
wertynasnepamenu
welniukaaznepamenu
Pask. modai
Prisijungti
Vardas

Slaptažodis



Dar ne narys?
Registruotis.

Pamiršai slaptažodį?
Prašyk naujo!.

Naujausi prašymai
[L] testas
Narių apklausa
Ar dar kuriate tinklalapius?

Ne
Ne
0% [0 Balsai]

Taip
Taip
100% [4 Balsai]

Naudojuosi socialiniais tinklais
Naudojuosi socialiniais tinklais
0% [0 Balsai]

Balsai: 4
Kad galėtum balsuoti, turi prisijungti.
Pradėta: 2022-05-29 19:54
Shoutbox
You must login to post a message.

2024-03-07 22:13
Oj Tabux… apkabinčiau už tą moderatorių 😁

2024-02-22 17:40
Šypsosi2 jo buvo laikai.. Senukai jau mes. Bega laikas greiciau nei noretusi. Smagu matyti kad uzsuka seni nariai, ne as vienas Šypsosi

2024-02-20 22:18
Zodziu.. Nostalgija. Sorry Tabux uz spam’a, netelpa viskas i viena shout’a. 😁

2024-02-20 22:14
Aisku dabar tokie laikai, kai turinio valdymo sistemas valdome one-click principu. Ne kaip seniau kode ieskodavom klaidu, norint moda pasileist.. :D paciam reikdavo susidiegt viska i ftp..

2024-02-20 22:03
Sveiki kolegos 👌 kazkada rasiau greit 11 metu bet ziuriu greit 14 metu. 😄 baisuu, reik ta proga kazka sugalvot su php-f kaip jaunima itraukt.

Shoutbox Archive
Peržiūrėti temą
 Spausdinti temą
?aukyklos robotukas
snapsas
#1 Spausdinti pranešimą
parašyta 2008-05-26 10:27
Vartotojo avataras

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
Download source  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 dl tavs :)\",
         \"(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 bgu :D\",
         \"[^[a-z,0-9]]*.*bot.*\" => \"A? robotas :). Kas kviett?\"
         
      );
         
      
      
      $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.
 
PM
ErvD
#2 Spausdinti pranešimą
parašyta 2008-05-26 11:04
Vartotojo avataras

Pradinukas



Reputacija: 0

Pranešimai: 28
Įstojo: 2008-02-16

cia tai geras paimsiu ;) geras klausimas ar ozzwanted gejus ir geras jo atsakymas
:D
 
PM
Nepster
#3 Spausdinti pranešimą
parašyta 2008-05-26 12:01
Vartotojo avataras

S.Administratorius



Reputacija: 0

Pranešimai: 670
Įstojo: 2007-01-02

gera ideja, reikes idiegti siame saite. :)
 
PM
RuP3r
#4 Spausdinti pranešimą
parašyta 2008-05-26 12:09
Vartotojo avataras

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.
 
PM
snapsas
#5 Spausdinti pranešimą
parašyta 2008-05-26 12:40
Vartotojo avataras

Geradarys



Reputacija: 0

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

Jei para?ysi GERAI - atsakys, jei para?ysi GR - irgi atsakys.

prad?ioje dariau su strpos(), bet padla dirbt nenorjo :( 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.
 
PM
ignas2526
#6 Spausdinti pranešimą
parašyta 2008-05-26 17:36
Vartotojo avataras

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?
 
PM
ADXS
#7 Spausdinti pranešimą
parašyta 2008-05-26 17:56
Vartotojo avataras

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.
| MERGINOS | PRIKOLAI | MUZIKA | SKAITALAI |
 
PM
Adukas
#8 Spausdinti pranešimą
parašyta 2008-05-26 19:06
Vartotojo avataras

Savekas



Reputacija: 0

Pranešimai: 114
Įstojo: 2007-03-27

Patiko, saunuolis net nebutu sove i galva tokia mintis :)
 
PM
MySQL Robotukas
#9 Spausdinti pranešimą
parašyta 2008-05-26 19:39
Vartotojo avataras

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
 
PM
Paranoja
#10 Spausdinti pranešimą
parašyta 2008-05-27 06:58
Vartotojo avataras

Draugas



Reputacija: 0

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

I? ?io robotuko galima dar ir ispjim automatini ma?in istatyt , tarkim ?mogus nusikeikia , o robotukas jam atsako => $warn $userdata[user_name] , tai jau tavo $count ispjimas , but galima perdaryt , bet a? laiko nelabai turiu , jei snapsas gali , dadk ?it malonum prie savo Warn system v2. O ?iaip tikrai neblogas darbas . :)
 
PM
MAnjack
#11 Spausdinti pranešimą
parašyta 2008-05-27 12:36
Vartotojo avataras

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
 
PM
Sharkman
#12 Spausdinti pranešimą
parašyta 2008-05-27 12:44
Vartotojo avataras

Geradarys



Reputacija: 0

Pranešimai: 928
Įstojo: 2007-08-24

Hm domus dalykas. Ne?inau reiks pratestuoti. :)
 
PM
Paranoja
#13 Spausdinti pranešimą
parašyta 2008-05-27 13:43
Vartotojo avataras

Draugas



Reputacija: 0

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

Supranta , gi snapsas idjo 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
 
PM
Andrejus
#14 Spausdinti pranešimą
parašyta 2008-05-27 14:10
Vartotojo avataras

Geradarys



Reputacija: 0

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

Geras modas bet labiau support saitams ;)
Download source  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
Dmesio!!! Kuriu modulius php-fusion, ra?ykit e-pa?t arba privai ?inut.
 
PM
MAnjack
#15 Spausdinti pranešimą
parašyta 2008-05-27 15:01
Vartotojo avataras

Puikusis



Reputacija: 0

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

Paranoja para?:
Supranta , gi snapsas idjo kintamaj :
Download source  Code
$pakeisti = array(\"-\", \"?\", \",\", \"'\", \"`\", \"!\", \".\", \"à\", \"è\", \"\", \"ë\", \"á\", \"ð\", \"\", \"û\", \"þ\");
$kuom = array(\"\", \"\", \"\", \"\", \"\", \"\", \"\", \"a\", \"c\", \"e\", \"e\", \"i\", \"s\", \"u\", \"u\", \"z\");



Lietuvi?kas raides pakeis normaliomis.


Neveikia ?itas. Pats maiau ?it dal.
 
PM
snapsas
#16 Spausdinti pranešimą
parašyta 2008-05-27 15:08
Vartotojo avataras

Geradarys



Reputacija: 0

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

na man veikia :)
I'm back.
 
PM
MySQL Robotukas
#17 Spausdinti pranešimą
parašyta 2008-05-27 15:14
Vartotojo avataras

Draugas



Reputacija: 0

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

bandom padidint intelekta botui:

Download source  PHP
  1. <?php
  2. $QA = array (
  3.  
  4. "^(sveik|laba|swx).*.+bot.*" => "Sveikas"
  5.  
  6. );
  7.  
  8. $rezas = false;
  9. foreach ($QA as $q => $a) {
  10.     if (ereg($q, $string)) {
  11.         $rezas = true;
  12.         $atsakymas = $a;
  13.         break;
  14.         }
  15. }
  16. ?>


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
 
PM
MySQL Robotukas
#18 Spausdinti pranešimą
parašyta 2008-05-27 15:17
Vartotojo avataras

Draugas



Reputacija: 0

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

MAnjack para?:
Neveikia ?itas. Pats maiau ?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
 
PM
MAnjack
#19 Spausdinti pranešimą
parašyta 2008-05-27 15:21
Vartotojo avataras

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. :)
 
PM
MySQL Robotukas
#20 Spausdinti pranešimą
parašyta 2008-05-27 15:53
Vartotojo avataras

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
 
PM
Peršokti į forumą: