Werbung

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

PREBOT IRC SCRIPT mit BUG - Hilfe

Dieses Thema im Forum "Eggdrop Scripting" wurde erstellt von cookie00, 9. Mai 2014.

  1. cookie00

    cookie00 New Member

    Code (TCL):
    Quelltext kopieren
    1. # Displys Scene Releases that have been Pred on the website [URL='http://www.orlydb.com']www.orlydb.com[/URL] ##
    2.  
    3. namespace eval pre {
    4.   variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
    5.   #"APPS 0DAY MOBILE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP3 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXX XXX-IMGSET"
    6.   variable types "APPS 0DAY MOBILE MP3 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXX XXX-IMGSET"
    7.   #Set to channel to show Pre information
    8.   variable chan "#Chan"
    9.   #Change preNum to how many Search Results you want shown
    10.   variable Num 5
    11. }
    12. set PreNew ""
    13.  
    14. #Change to (on/off) to turn on pre bot
    15. set status "on"
    16.  
    17. bind pub - !pre presearch
    18. bind dcc - pre pre:change
    19.  
    20. proc pre {} {
    21.   global PreNew status
    22.   if {$status == "on"} {
    23.     set PreOld $PreNew
    24.     set url "[URL]http://www.orlydb.com[/URL]"
    25.     set page [web2data $url]
    26.     if {$page!=0} {
    27.       regexp {"timestamp">(.*?)<\/span>} $page a stamp
    28.       regexp {"section"><a.*?>(.*?)<\/a>} $page a section
    29.       regexp {"release">(.*?)<\/span>} $page a release
    30.       if {[info exists release]} { set PreNew "$stamp $section $release"
    31.           if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00308(\00315PRE\00308)\00315 $stamp \00308(\00315$section\00308)\00315 $release" }
    32.       }
    33.     }
    34.   }
    35.   utimer 2 pre
    36. }
    37.  
    38. proc pre:change {hand idx arg} {
    39.   global status
    40.   if {$status == "on"} { set status "off"
    41.   } else { set status "on" }
    42.   putdcc $idx "Pre status changed to: $status"
    43. }
    44. proc presearch { nick host hand chan arg } {
    45.   set arg [string map { " " "+" } $arg]
    46.   set url "[URL]http://www.orlydb.com/?q=$arg[/URL]"
    47.   set page [web2data $url]
    48.   set temp 1
    49.   while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    50.     if {[info exists result]} {
    51.       regexp {"timestamp">(.*?)<\/span>} $result a stamp
    52.       regexp {"section"><a.*?>(.*?)<\/a>} $result a section
    53.       regexp {"release">(.*?)<\/span>} $result a release
    54.       regsub {<div>(.*?)<\/div>} $page "" page
    55.       if {![regexp -nocase $pre::language $release]} {
    56.         if {[info exists release]} { incr temp
    57.           putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 $stamp \00304(\00315$section\00304)\00315 $release"
    58.           unset stamp section release
    59.         }
    60.       }
    61.     }
    62.   }
    63.   if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
    64. }
    65. proc web2data { website } {
    66.     package require http
    67.     if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
    68.      } elseif { [http::ncode $token] == "404" } { return 0
    69.      } elseif { [http::status $token] == "ok" } { set data [http::data $token]
    70.      } elseif { [http::status $token] == "timeout" } {  return 0
    71.      } elseif { [http::status $token] == "error" } {  return 0 }
    72.     http::cleanup $token
    73.     if { [info exists data] } { return $data
    74.     } else { return 0 }
    75. }
    76.  
    77. utimer 2 pre
    78.  
    79. putlog "\00308(\00315PRE\00308)"
    80.  
    An einer Stelle im Script sollte er wenn man !pre rlsname hinschreibt ein output geben - tut er aber nicht!!!
    das einzige was er macht is !pre eminem

    dann zeigt er rlsnamen mit eminem drin an...

    kann da einer mal drüber schauen?
    Zuletzt von einem Moderator bearbeitet: 9. Mai 2014
  2. coding-board

    coding-board Member

    Werbung
  3. Toushirou

    Toushirou New Member

    vielleicht mal das "\[url\]" und "\[/url\]" rausnehmen? x.x zumindest ist laut google im original das so nicht drin und der sollte auch eminem nicht finden könnnen eigtl.
  4. cookie00

    cookie00 New Member

    Kann evtl. jemand sagen, ob er eine Lösung hat?

    Die Klammern [URL][/URL] sind von allein erstellt worden hier, im Script sind die nicht drin, alles funktioniert nur die presearch Ausgabe leider nicht... :(

    Moderator Notiz: Hab das mal angepasst. URL-Tags versteht unser Forum nämlich auch ;)
    Zuletzt von einem Moderator bearbeitet: 10. Dezember 2015
  5. Fabolous

    Fabolous Active Member

    Noch illegaler geht's wohl nicht, oder? Ich kann nur hoffen dass dich hier niemand unterstützt die contents dieser Webseite zu 'verfolgen'.
  6. cookie00

    cookie00 New Member

    Hä? Was ist daran illegal? Das ist ein scene rls Datenbank mit nfo's mehr nicht... Und ich hab das Problem eben schon selber gelöst :)))))
  7. DJFelipe

    DJFelipe Active Member c-b Experte

    Wie hast du das Problem denn gelöst, wenn die Webseite schon lang keine Suchergebnisse mehr liefert?o_O
    Und illegal ist es nicht, da muss ich zustimmen...


    Tante Edith:
    Übrigens ist das kein 'Prebot' sondern nur eine Webseitenabfrage... Außerdem hängt OrlyDB extrem nach und führt leider nicht alles auf, was wirklich gepre't worden ist..
  8. cookie00

    cookie00 New Member

    Ja, das war das lösen meines Problems.. Hab gesehen, dass es nicht mehr geht. Kennst du etwas anderes, besseres??

    Danke im Voraus
  9. DJFelipe

    DJFelipe Active Member c-b Experte

    Nicht wirklich... Kenne keine 'Vollständige' Seite... Alternativen wären z.B. PreDB, NFO, ...
Die Seite wird geladen...
Ähnliche Themen - PREBOT IRC SCRIPT Forum Datum
circumscribed circle - Berechnung eines Dreieck umschliessenden Kreises aus den Seitenlängen Ressourcen Diskussionen 17. Oktober 2017
Phoebe iRC Bot - Channel Relay PHP - Hypertext Preprocessor 28. Mai 2017
Forumbot - MIrc mIRC Scripting 21. November 2015
Text von einem IRC Channel in den anderen kopieren mIRC Scripting 8. Mai 2014
Anfänger benötigt Hilfe bei IRC Bot C/C++ 19. Juni 2012