<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/">
	<channel>
		<title><![CDATA[AnGelBot-Portal² - Alle Foren]]></title>
		<link>http://www.angelbot-portal.de/</link>
		<description><![CDATA[AnGelBot-Portal² - http://www.angelbot-portal.de]]></description>
		<pubDate>Tue, 07 Feb 2012 11:27:32 +0000</pubDate>
		<generator>MyBB</generator>
		<item>
			<title><![CDATA[ein game]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3378</link>
			<pubDate>Sat, 24 Dec 2011 23:28:54 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3378</guid>
			<description><![CDATA[<a href="http://www.ghettobase.net" target="_blank">http://www.ghettobase.net</a><br />
<br />
eifnach mal rein schaun und zocken]]></description>
			<content:encoded><![CDATA[<a href="http://www.ghettobase.net" target="_blank">http://www.ghettobase.net</a><br />
<br />
eifnach mal rein schaun und zocken]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[casino script]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3376</link>
			<pubDate>Mon, 21 Nov 2011 22:05:54 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3376</guid>
			<description><![CDATA[hallo zusammen habe da mal eine frage. ich suche die scripte für das casino&amp;bar script ...<br />
Slot-Script <br />
Mondgesicht-Script <br />
Pferderennen-Script<br />
Fight-Script<br />
Blackjack-Script<br />
<br />
für das casino script ?? <br />
<br />
würde mich über eine antwort freune danke im vorraus <br />
<br />
lg <br />
strooker]]></description>
			<content:encoded><![CDATA[hallo zusammen habe da mal eine frage. ich suche die scripte für das casino&amp;bar script ...<br />
Slot-Script <br />
Mondgesicht-Script <br />
Pferderennen-Script<br />
Fight-Script<br />
Blackjack-Script<br />
<br />
für das casino script ?? <br />
<br />
würde mich über eine antwort freune danke im vorraus <br />
<br />
lg <br />
strooker]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Probleme mit dem Download-Bereich und der Forensuche]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3373</link>
			<pubDate>Fri, 18 Nov 2011 13:11:38 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3373</guid>
			<description><![CDATA[Aufgrund von Zeitmangel auf Seiten der Foren-Moderatoren stehen diverse Funktionen der Seite aktuell leider nicht zur Verfügung. Dies betrifft unter anderem den Download-Bereich und die Suchfunktion des Forums. Wir versuchen uns schnellst möglich um die Probleme zu kümmern sobald uns hierfür wieder Zeit zur Verfügung steht. Entschuldigt die lange Ausfallzeit.<br />
<br />
Danke]]></description>
			<content:encoded><![CDATA[Aufgrund von Zeitmangel auf Seiten der Foren-Moderatoren stehen diverse Funktionen der Seite aktuell leider nicht zur Verfügung. Dies betrifft unter anderem den Download-Bereich und die Suchfunktion des Forums. Wir versuchen uns schnellst möglich um die Probleme zu kümmern sobald uns hierfür wieder Zeit zur Verfügung steht. Entschuldigt die lange Ausfallzeit.<br />
<br />
Danke]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[laber.asc]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3354</link>
			<pubDate>Sun, 11 Sep 2011 02:12:04 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3354</guid>
			<description><![CDATA[da die download area grad down ist, hat vll jmd das laberscript rumfliegen?<br />
<br />
MfG]]></description>
			<content:encoded><![CDATA[da die download area grad down ist, hat vll jmd das laberscript rumfliegen?<br />
<br />
MfG]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Brauche scripts Für ein browsergame]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3353</link>
			<pubDate>Thu, 08 Sep 2011 23:28:18 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3353</guid>
			<description><![CDATA[Ich braucxhe bots oda script für das game ghettogame reloaded<br />
<br />
damit ich z.b.<br />
Mit allen gangster die attacke gangster übernehemen ausführen kann ohne das die gangster die skills dafür haben.<br />
wie kann ich so einen script erstellen oda koennte mir einer son script erstellen wäre sehr nett]]></description>
			<content:encoded><![CDATA[Ich braucxhe bots oda script für das game ghettogame reloaded<br />
<br />
damit ich z.b.<br />
Mit allen gangster die attacke gangster übernehemen ausführen kann ohne das die gangster die skills dafür haben.<br />
wie kann ich so einen script erstellen oda koennte mir einer son script erstellen wäre sehr nett]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Bots für Ghettogame Reloaded]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3352</link>
			<pubDate>Thu, 08 Sep 2011 22:50:58 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3352</guid>
			<description><![CDATA[Ich habe ne frage ICh möchte gern ein Bot für ghettogame reloaded<br />
Das ich mit allen Gangster -- Gangster übernehmen kann egal wie die geuppt sind wie mache ich das.<br />
Würde mich freuen wenn ihr mir helfen koennten.<br />
<br />
MFG <br />
Blackdiamant]]></description>
			<content:encoded><![CDATA[Ich habe ne frage ICh möchte gern ein Bot für ghettogame reloaded<br />
Das ich mit allen Gangster -- Gangster übernehmen kann egal wie die geuppt sind wie mache ich das.<br />
Würde mich freuen wenn ihr mir helfen koennten.<br />
<br />
MFG <br />
Blackdiamant]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[downloads]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3348</link>
			<pubDate>Wed, 18 May 2011 19:00:10 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3348</guid>
			<description><![CDATA[Hi,<br />
ich bin nach Jahren mal wieder auf den bot gestoßen und hab ihn bei mir wieder erweckt.<br />
gibt es noch irgendwo die alten downloads ( die ganzen Scripte, etc)<br />
<br />
würde mich freuen, wenn jemand mal ein großes zipfile packen würde und die nochmal irgendwo hochläd]]></description>
			<content:encoded><![CDATA[Hi,<br />
ich bin nach Jahren mal wieder auf den bot gestoßen und hab ihn bei mir wieder erweckt.<br />
gibt es noch irgendwo die alten downloads ( die ganzen Scripte, etc)<br />
<br />
würde mich freuen, wenn jemand mal ein großes zipfile packen würde und die nochmal irgendwo hochläd]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Script für Justin.tv]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3338</link>
			<pubDate>Fri, 29 Apr 2011 15:47:06 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3338</guid>
			<description><![CDATA[Hallo zusammen ...<br />
<br />
Ich such für meine IRC Channel bei der Video Plattform "www.justin.tv" ein script für den angelbot damit ich die Topic Ändern kann .. bei JTV wird der befehl "/topic &lt;TOPIC&gt;" dazu benutzt im chat eine Willkommens Nachricht zu setzten.. <br />
<br />
Ich hätte gern was wo ich per "!TOPIC &lt;TOPIC&gt;" die topic setzen kann ... oder viel mehr das die Topic automatisch mit der Überschrift von dem Channel "www.justin.tv/prosiebenhq" geschrieben wird ...<br />
<br />
Ich suche schon Ewig und drei tage hier im forum nach so einen, bzw Justin.tv script für den angel bot und hab bisher nur einmal was unbrauchbares gefunden ...<br />
<br />
Wäre absolut klasse wenn sich jemand dazu meldet und eine quelle oder idee hat... <br />
<br />
MFG]]></description>
			<content:encoded><![CDATA[Hallo zusammen ...<br />
<br />
Ich such für meine IRC Channel bei der Video Plattform "www.justin.tv" ein script für den angelbot damit ich die Topic Ändern kann .. bei JTV wird der befehl "/topic &lt;TOPIC&gt;" dazu benutzt im chat eine Willkommens Nachricht zu setzten.. <br />
<br />
Ich hätte gern was wo ich per "!TOPIC &lt;TOPIC&gt;" die topic setzen kann ... oder viel mehr das die Topic automatisch mit der Überschrift von dem Channel "www.justin.tv/prosiebenhq" geschrieben wird ...<br />
<br />
Ich suche schon Ewig und drei tage hier im forum nach so einen, bzw Justin.tv script für den angel bot und hab bisher nur einmal was unbrauchbares gefunden ...<br />
<br />
Wäre absolut klasse wenn sich jemand dazu meldet und eine quelle oder idee hat... <br />
<br />
MFG]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[whois und Reaktion auf Reply auf whois]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3261</link>
			<pubDate>Tue, 29 Mar 2011 19:53:50 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3261</guid>
			<description><![CDATA[Grüße!<br />
<br />
Ich hätte eine Frage, und zwar bzgl. folgendem: Ich würde meinen AnGeL gerne prüfen lassen, ob ein User beim Join in einen Channel SSL Verschlüsselung verwendet (Server ist Undernet mit AES256). Diese Information ließe sich aus einem whois Reply auf den User gewinnen, hierbei kommt unter anderem der String "&lt;nickname&gt; is using a Secure Connection" zurück.<br />
<br />
Nun meine Frage: Es gibt ja den Hook Join(), auf den hin man ggf. ein whois an den joinenden User absetzen könnte. Aber wie frage ich dann die Antwort darauf ab? Muß ich hier den Code auf mehrere Hooks aufteilen (Einer für den Join und einer für das whois reply)? <br />
<br />
Möglicherweise bräuchte ich davon auch die Raw() Versionen, da ich es bisher am SSL Server nur per Raw() geschafft habe, irgendwas zu parsen (ich wickle mittels WinSSLWrap das SSL um den AnGeL herum), warum das so ist weiß ich noch ned.<br />
<br />
Wäre toll, wenn mir dabei jemand helfen könnte. Also es geht wie gesagt darum:<ul>
<li>Whois bei Join eines Users in einen Channel absetzen</li>
<li>Reply auf Whois auf bestimmten String prüfen, und ggf. reagieren</li>
<li>Das ganze nach Möglichkeit auch in Raw</li></ul>
Vielen Dank!]]></description>
			<content:encoded><![CDATA[Grüße!<br />
<br />
Ich hätte eine Frage, und zwar bzgl. folgendem: Ich würde meinen AnGeL gerne prüfen lassen, ob ein User beim Join in einen Channel SSL Verschlüsselung verwendet (Server ist Undernet mit AES256). Diese Information ließe sich aus einem whois Reply auf den User gewinnen, hierbei kommt unter anderem der String "&lt;nickname&gt; is using a Secure Connection" zurück.<br />
<br />
Nun meine Frage: Es gibt ja den Hook Join(), auf den hin man ggf. ein whois an den joinenden User absetzen könnte. Aber wie frage ich dann die Antwort darauf ab? Muß ich hier den Code auf mehrere Hooks aufteilen (Einer für den Join und einer für das whois reply)? <br />
<br />
Möglicherweise bräuchte ich davon auch die Raw() Versionen, da ich es bisher am SSL Server nur per Raw() geschafft habe, irgendwas zu parsen (ich wickle mittels WinSSLWrap das SSL um den AnGeL herum), warum das so ist weiß ich noch ned.<br />
<br />
Wäre toll, wenn mir dabei jemand helfen könnte. Also es geht wie gesagt darum:<ul>
<li>Whois bei Join eines Users in einen Channel absetzen</li>
<li>Reply auf Whois auf bestimmten String prüfen, und ggf. reagieren</li>
<li>Das ganze nach Möglichkeit auch in Raw</li></ul>
Vielen Dank!]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Antwort mit Verzögerung]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3260</link>
			<pubDate>Fri, 18 Mar 2011 18:32:49 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3260</guid>
			<description><![CDATA[Hallo ich versuche verzweifelt, ein Script hinzubekommen, dass jedem User der eine PM an den Bot schreibt, eine zufällige Antwort gibt. Funktioniert auch... aber ich möchte, dass die Antwort mit einer Verzögerung von 2 Sekunden gepostet wird.<br />
<br />
Bisher habe ich:<br />
<div class="codeblock">
<div class="title">Code:<br />
</div><div class="body" dir="ltr"><code>Dim LastRequest<br />
Sub init()<br />
&nbsp;&nbsp;Script "Antwortscript von Chris"<br />
&nbsp;&nbsp;Hook "Priv_Msg"<br />
End Sub<br />
<br />
Const Verzoegerung = 2<br />
<br />
Sub Priv_Msg(Nick, RegUser, Line)<br />
 If LastRequest = Nick Then Exit Sub<br />
&nbsp;&nbsp;LastRequest = Nick<br />
 zahl = Int(RND * 3) + 1<br />
 If zahl = 1 then<br />
 &nbsp;&nbsp;&nbsp;&nbsp;TimedCommand&nbsp;&nbsp;"SendLine ""PRIVMSG&nbsp;&nbsp;" &amp; Nick &amp; " : Hi " &amp; Nick &amp; " die Antwortet lautet blabla1 ;-)"", 3", Verzoegerung<br />
&nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", " 2*** 1. geantwortet!"<br />
 end if<br />
 If zahl = 2 then <br />
 &nbsp;&nbsp;&nbsp;&nbsp;TimedCommand&nbsp;&nbsp;"SendLine ""PRIVMSG&nbsp;&nbsp;" &amp; Nick &amp; " : Huhu " &amp; Nick &amp; " Antwort B blabla *g*"", 3", Verzoegerung<br />
 &nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", " 2*** 2. geantwortet!"<br />
 end if <br />
 If zahl = 3 then <br />
 &nbsp;&nbsp;&nbsp;&nbsp;TimedCommand&nbsp;&nbsp;"SendLine ""PRIVMSG&nbsp;&nbsp;" &amp; Nick &amp; " : Hey " &amp; Nick &amp; ", Antwort C gibts auch noch! :-)"", 3", Verzoegerung<br />
 &nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "2*** 3. geantwortet!"<br />
 end if<br />
End Sub</code></div></div>
So gibt er dem User der ihn Anschreibt aber gar keine Antwort und gibt auch keinen Fehler im Telnet aus!?<br />
<br />
Wäre dankbar über jede Hilfe.]]></description>
			<content:encoded><![CDATA[Hallo ich versuche verzweifelt, ein Script hinzubekommen, dass jedem User der eine PM an den Bot schreibt, eine zufällige Antwort gibt. Funktioniert auch... aber ich möchte, dass die Antwort mit einer Verzögerung von 2 Sekunden gepostet wird.<br />
<br />
Bisher habe ich:<br />
<div class="codeblock">
<div class="title">Code:<br />
</div><div class="body" dir="ltr"><code>Dim LastRequest<br />
Sub init()<br />
&nbsp;&nbsp;Script "Antwortscript von Chris"<br />
&nbsp;&nbsp;Hook "Priv_Msg"<br />
End Sub<br />
<br />
Const Verzoegerung = 2<br />
<br />
Sub Priv_Msg(Nick, RegUser, Line)<br />
 If LastRequest = Nick Then Exit Sub<br />
&nbsp;&nbsp;LastRequest = Nick<br />
 zahl = Int(RND * 3) + 1<br />
 If zahl = 1 then<br />
 &nbsp;&nbsp;&nbsp;&nbsp;TimedCommand&nbsp;&nbsp;"SendLine ""PRIVMSG&nbsp;&nbsp;" &amp; Nick &amp; " : Hi " &amp; Nick &amp; " die Antwortet lautet blabla1 ;-)"", 3", Verzoegerung<br />
&nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", " 2*** 1. geantwortet!"<br />
 end if<br />
 If zahl = 2 then <br />
 &nbsp;&nbsp;&nbsp;&nbsp;TimedCommand&nbsp;&nbsp;"SendLine ""PRIVMSG&nbsp;&nbsp;" &amp; Nick &amp; " : Huhu " &amp; Nick &amp; " Antwort B blabla *g*"", 3", Verzoegerung<br />
 &nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", " 2*** 2. geantwortet!"<br />
 end if <br />
 If zahl = 3 then <br />
 &nbsp;&nbsp;&nbsp;&nbsp;TimedCommand&nbsp;&nbsp;"SendLine ""PRIVMSG&nbsp;&nbsp;" &amp; Nick &amp; " : Hey " &amp; Nick &amp; ", Antwort C gibts auch noch! :-)"", 3", Verzoegerung<br />
 &nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "2*** 3. geantwortet!"<br />
 end if<br />
End Sub</code></div></div>
So gibt er dem User der ihn Anschreibt aber gar keine Antwort und gibt auch keinen Fehler im Telnet aus!?<br />
<br />
Wäre dankbar über jede Hilfe.]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[http_post  / http_get methoden]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3257</link>
			<pubDate>Sat, 06 Nov 2010 23:18:19 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3257</guid>
			<description><![CDATA[Hi. Ich bin leider sehr unerfahren auch wenn ich vor Jahren schon einmal mich an Scripts für den Angelbot gewagt habe. Jetzt steh ich aber auf dem Schlauch.<br />
Ich will eigentlich nur mit Post oder Get Werte an eine Seite schicken und als Antwort den Inhalt der Seite zurück bekommen.<br />
Ich habe das HowTo zum Thema Webseite auslesen gelesen und mir auch verschiedene Scripte angesehen die Seiten auslesen aber ich bekomme einfach keine Antwort. Die Verbindung wird soweit hergestellt und steht. <br />
Kann mir eventuell jemand nur kurz Stichpunktartig erklären wie man Daten mit HTTP_POST versendet und die Seite als Antwort zurück erhält. <br />
Die Deklaration aus dem Scriptingbereich hilft mir leider nicht weiter - wie gesagt, hab da zu wenig Ahnung aber wenn mir einer grob den Anfang sagt, bekomm ich das alleine hin.<br />
<br />
Function HTTP_POST(URL As String, ByRef StatusCode As Long, ByRef StatusText As String, ParamArray Parameters() As Variant) As String<br />
<br />
Vielen Dank!<br />
<br />
Edit: Was ich bräuchte wäre das Grundgerüst, nicht die weiterverarbeitung vom Text etc. - das kann ich. Aber der Aufbau - Daten senden - Daten empfangen.]]></description>
			<content:encoded><![CDATA[Hi. Ich bin leider sehr unerfahren auch wenn ich vor Jahren schon einmal mich an Scripts für den Angelbot gewagt habe. Jetzt steh ich aber auf dem Schlauch.<br />
Ich will eigentlich nur mit Post oder Get Werte an eine Seite schicken und als Antwort den Inhalt der Seite zurück bekommen.<br />
Ich habe das HowTo zum Thema Webseite auslesen gelesen und mir auch verschiedene Scripte angesehen die Seiten auslesen aber ich bekomme einfach keine Antwort. Die Verbindung wird soweit hergestellt und steht. <br />
Kann mir eventuell jemand nur kurz Stichpunktartig erklären wie man Daten mit HTTP_POST versendet und die Seite als Antwort zurück erhält. <br />
Die Deklaration aus dem Scriptingbereich hilft mir leider nicht weiter - wie gesagt, hab da zu wenig Ahnung aber wenn mir einer grob den Anfang sagt, bekomm ich das alleine hin.<br />
<br />
Function HTTP_POST(URL As String, ByRef StatusCode As Long, ByRef StatusText As String, ParamArray Parameters() As Variant) As String<br />
<br />
Vielen Dank!<br />
<br />
Edit: Was ich bräuchte wäre das Grundgerüst, nicht die weiterverarbeitung vom Text etc. - das kann ich. Aber der Aufbau - Daten senden - Daten empfangen.]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[game hostscript/ anwendung starten]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3256</link>
			<pubDate>Thu, 04 Nov 2010 15:29:04 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3256</guid>
			<description><![CDATA[Hallo, ich bin noch nicht so vertraut mit allen Funktionen aber ich hoffe ihr könnt mir helfen. Ich brauche ein script, welches nach einem bestimmten schema ein programm startet:<br />
<br />
*EDIT*<br />
alles geschafft. kann gelöscht werden habs mit hilfe eine dll und windows batch geschafft<br />
<br />
allerdings: gibt es eine möglichkeit ähnliche wörter in einer txt zu finden und somit tippfehler zu korrigieren?<br />
<br />
ich habe eine textdatei mit 710 wörtern die beim hosten falsch geschrieben werden können.<br />
<br />
nach dem prinzip wenn einer schreibt !host funparty 2 oder funnparty2, dass das script vorschlägt<br />
es gibt: funparty2, Funparty]]></description>
			<content:encoded><![CDATA[Hallo, ich bin noch nicht so vertraut mit allen Funktionen aber ich hoffe ihr könnt mir helfen. Ich brauche ein script, welches nach einem bestimmten schema ein programm startet:<br />
<br />
*EDIT*<br />
alles geschafft. kann gelöscht werden habs mit hilfe eine dll und windows batch geschafft<br />
<br />
allerdings: gibt es eine möglichkeit ähnliche wörter in einer txt zu finden und somit tippfehler zu korrigieren?<br />
<br />
ich habe eine textdatei mit 710 wörtern die beim hosten falsch geschrieben werden können.<br />
<br />
nach dem prinzip wenn einer schreibt !host funparty 2 oder funnparty2, dass das script vorschlägt<br />
es gibt: funparty2, Funparty]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Neues Shortnews Script "gesucht"]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3254</link>
			<pubDate>Mon, 04 Oct 2010 13:26:16 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3254</guid>
			<description><![CDATA[<span style="color: #0000CD;">Sorry ich glaub das ist das Falsche Forum......</span><br />
<br />
Hallo, als erstes mal einen herzlichen Dank an euch alle die ihr Hier immer wieder wunderbaren Support gebt und Natürlich die vielen schönen Scripte nicht zu vergessen.<img src="images/smilies/smile.gif" style="vertical-align: middle;" border="0" alt="Smile" title="Smile" /><br />
<br />
Meine Frage bezieht sich auf das Shortnews Script, da die Seite ja nun Mittlerweile nichts mehr mit Stern.de zu tun hat, wollte ich mal Höflich anfragen ob sich nochmal jemand Bereiterklären würde das neu zu Scripten?<br />
<br />
Ich geb mal direkt den Link zu den RSS Feeds mit:<br />
<a href="http://www.shortnews.de/start.cfm?special=rss" target="_blank">http://www.shortnews.de/start.cfm?special=rss</a><br />
<br />
Wenn mehrere Feeds möglich währen, die man vielleicht selbst einstellen könnte währe es nice, aber da ich mir das Script so Oft angesehen habe weiss ich sehr wohl das das umscripten oder neuscripten schon eine S......Arbeit macht(Ich selbst habe natürlich gar nichts hinbekommen <img src="images/smilies/icon_wink.gif" style="vertical-align: middle;" border="0" alt="Wink" title="Wink" /> ).<br />
<br />
Ich warte einfach mal ab, vielleicht habe ich ja Glück und es ergibt sich etwas.<br />
MfG<br />
xandros<br />
<br />
<div class="codeblock">
<div class="title">Code:<br />
</div><div class="body" dir="ltr"><code>'###########################################<br />
'SternShort NewsTicker © by sts<br />
'ChannelSetup © Sp33d<br />
<br />
'Don`t change the author!<br />
'Homepage: www.angelbot.org<br />
'###########################################<br />
<br />
'Einstellungsmöglichkeiten<br />
<br />
Const Host = "shortnews.stern.de"<br />
Const INIFile = "ini_stern.ini"<br />
Const ScriptVersion = "SternShort NewsTicker 1.0 by sts"<br />
Const ScriptName = "SternShort NewsTicker"<br />
Const DebugIt = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Erweiterte Meldungen<br />
Const Trigger = "stern"<br />
<br />
<br />
'Ändere nichts, solange du nicht weißt was du tust!<br />
<br />
'###########################################<br />
<br />
<br />
Dim Channels, LastNews, Recieved<br />
<br />
Sub Init()<br />
&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "3 " &amp; ScriptVersion<br />
&nbsp;&nbsp;Hook "Commands"<br />
&nbsp;&nbsp;AddCommand Trigger, Cl_Mas, "+m", "2*** ." &amp; Trigger &amp; "##14Zeigt das " &amp; ScriptName &amp; " Setup in dem die Channel,##14in denen der Ticker angezeigt werden soll verändert##14werden können."<br />
&nbsp;&nbsp;ReloadChannels<br />
&nbsp;&nbsp;GetNews<br />
&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." &amp; Trigger &amp; " ein."<br />
End Sub<br />
<br />
<br />
Sub ReloadChannels()<br />
&nbsp;&nbsp;Channels = ReadINIString("Settings", "Channels", "", INIFile)<br />
End Sub<br />
<br />
Sub Commands(vSock, RegUser, Flags, Line)<br />
&nbsp;&nbsp;If LCase(Param(Line, 1)) = "." &amp; Trigger Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;GrabUser vSock, "" &amp; ScriptName &amp; " Setup", "ChannelSetup"<br />
&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;ChannelSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;End If<br />
End Sub<br />
<br />
Sub ChannelSetup(vSock, RegUser, Flags, Line)<br />
<br />
&nbsp;&nbsp;If Param(Line, 1) = "0" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;TU vsock, "10*** Saving settings..."<br />
&nbsp;&nbsp;&nbsp;&nbsp;ReleaseUser vSock<br />
&nbsp;&nbsp;&nbsp;&nbsp;Exit Sub<br />
&nbsp;&nbsp;End If<br />
<br />
&nbsp;&nbsp;Select Case LCase(Param(GetSockTag(vSock), 1))<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case "mainmenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1____________________&#8203; ​___2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_0,1 " &amp; ScriptName &amp; " Setup 1,1_2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1____________________&#8203; ​___2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "Willkommen im Setup vom " &amp; Version &amp; "!"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "Du befindest dich im Hauptmenü."<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "0,1Ticker Channels:"<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = Split(Channels, " ")<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For i = LBound(Dummy) To UBound(Dummy)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "14 - " &amp; Dummy(i)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "0,1Farben: 14 " &amp; ReadINIString("Settings", "Farben", "Off", INIFile)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - color on um Farben zu aktivieren"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - color off um Farben zu deaktiveren"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - 0 um zurück auf die Partyline zu kommen."<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenuOption"<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case "mainmenuoption"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case LCase(Param(Line, 1))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case "chan"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If LCase(Param(Line, 2)) = "add" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Mid(Param(Line,3), 1, 1) = "#" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Not InStr(1, Channels, Param(Line,3)) &gt; 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Channels = Trim3(Channels &amp; " " &amp; Param(Line, 3))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Channels", Channels, INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " wurde hinzugefügt"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChannelSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " bereits enthalten"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Syntax: chan &lt;add | del&gt; &lt;#channel&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf LCase(Param(Line, 2)) = "del" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Mid(Param(Line,3), 1, 1) = "#" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(1, Channels, Param(Line,3)) &gt; 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), ""))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Channels", Channels, INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " wurde entfernt"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChannelSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " nicht vorhanden"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Eingabe Ungülig: " &amp; LCase(Param(Line, 3)) &amp; " enthält kein #-Zeichen"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Syntax: chan &lt;add | del&gt; &lt;#channel&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case "color"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If LCase(Param(Line, 2)) = "on" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Farben", "on", INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Farben wurden aktiviert"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StatusSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf LCase(Param(Line, 2)) = "off" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Farben", "off", INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Farben wurden deaktiviert"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StatusSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Syntax: color &lt;on | off&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Ungültiger Befehl"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select<br />
&nbsp;&nbsp;End Select<br />
End Sub<br />
<br />
Sub GetNews()<br />
&nbsp;&nbsp;vSock = SockConnect(Host, 80, "SockEvent")<br />
&nbsp;&nbsp;If vSock = 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " &amp; Host &amp; ": Couldn't create socket"<br />
&nbsp;&nbsp;&nbsp;&nbsp;TimedCommand "GetNews", 120<br />
&nbsp;&nbsp;End If<br />
End Sub<br />
<br />
Sub SockEvent(vSock, SEvent, SData)<br />
&nbsp;&nbsp;Dim Header2<br />
<br />
&nbsp;&nbsp;Select Case SEvent<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_ConnectFailed<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " &amp; ScriptName &amp; ": Connection to " &amp; Host &amp; " failed"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TimedCommand "GetNews", 120<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_Connected<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Proxy = vbNullString Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Header = "GET /start.cfm?rubrik1=Alles&amp;rubrik2=Alles&amp;rubrik3=Alles&amp;sort=3&amp;sparte=9&amp;zeitraum=1"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Header = "GET http://" &amp; Host &amp; "/start.cfm?rubrik1=Alles&amp;rubrik2=Alles&amp;rubrik3=Alles&amp;sort=3&amp;sparte=9&amp;zeitraum=1"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SockWrite vSock, Header &amp; " HTTP/1.0" &amp; vbCrLf &amp; Header2 &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Accept: text/html"&nbsp;&nbsp;&amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"User-Agent: AnGeL-Bot " &amp; LongBotVersion &amp; " (www.Saug-Hilfe-Fuer-Alle.com)" &amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Host: " &amp; Host &amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Pragma: no-cache" &amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Connection: close" &amp; vbCrLf &amp; vbCrLf<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_Read<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Recieved &amp; SData<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_Closed<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If InStr(1, Recieved, "&lt;div id=""channelback"" class=""innercontentbox""&gt;") &gt; 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Replace(Recieved, vbCrLf, vbNullString)<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;h3&gt;:: RUBRIKEN HIGHLIGHTS&lt;/h3&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;div class=""cbar""&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;div id=""channelback"" class=""innercontentbox""&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;b&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp_Cat = Left(Recieved, InStr(1, Recieved, "&lt;/b&gt;") - 1 )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m",&nbsp;&nbsp;tmp_Cat<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;a class=""whitelink"" href="""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp_Url = "/" &amp; Left(Recieved, InStr(1, Recieved, """") - 1 )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "" &amp; tmp_Url<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp_Titel = Left(Recieved, InStr(1, Recieved, "&lt;") - 1 )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "" &amp; tmp_Titel<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "2,15» New SternShort News -  »» Kategorie: 1 " &amp; tmp_Cat &amp; " 2»» Titel: 1" &amp; tmp_Titel &amp; "2 «« »» Url: 1http://" &amp; Host &amp; "" &amp; tmp_Url &amp; "2 ««"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Dummy &lt;&gt; LastNews Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "New news!"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LastNews = Dummy<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = Split(Channels, " ")<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For i = LBound(Dummy) To UBound(Dummy)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "Sending to " &amp; Dummy(i) &amp; " :" &amp; "PRIVMSG " &amp; Dummy(i) &amp; " :" &amp; LastNews<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;color = ReadINIString("Settings", "Farben", "off", INIFile)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If color = "on" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SendLine "PRIVMSG " &amp; Dummy(i) &amp; " : " &amp; LastNews, 2<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf color = "off" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SendLine "PRIVMSG " &amp; Dummy(i) &amp; " : " &amp; Strip(LastNews), 2<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "5*** " &amp; ScriptName &amp; ": Couldn't recieve HTML page..."<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = vbNullString<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TimedCommand "GetNews", 120<br />
&nbsp;&nbsp;End Select<br />
End Sub<br />
<br />
Function Trim3(Text)<br />
&nbsp;&nbsp;Trim3 = Replace(Replace(Trim(Text), "&nbsp;&nbsp; ", " "), "&nbsp;&nbsp;", " ")<br />
End Function</code></div></div>
]]></description>
			<content:encoded><![CDATA[<span style="color: #0000CD;">Sorry ich glaub das ist das Falsche Forum......</span><br />
<br />
Hallo, als erstes mal einen herzlichen Dank an euch alle die ihr Hier immer wieder wunderbaren Support gebt und Natürlich die vielen schönen Scripte nicht zu vergessen.<img src="images/smilies/smile.gif" style="vertical-align: middle;" border="0" alt="Smile" title="Smile" /><br />
<br />
Meine Frage bezieht sich auf das Shortnews Script, da die Seite ja nun Mittlerweile nichts mehr mit Stern.de zu tun hat, wollte ich mal Höflich anfragen ob sich nochmal jemand Bereiterklären würde das neu zu Scripten?<br />
<br />
Ich geb mal direkt den Link zu den RSS Feeds mit:<br />
<a href="http://www.shortnews.de/start.cfm?special=rss" target="_blank">http://www.shortnews.de/start.cfm?special=rss</a><br />
<br />
Wenn mehrere Feeds möglich währen, die man vielleicht selbst einstellen könnte währe es nice, aber da ich mir das Script so Oft angesehen habe weiss ich sehr wohl das das umscripten oder neuscripten schon eine S......Arbeit macht(Ich selbst habe natürlich gar nichts hinbekommen <img src="images/smilies/icon_wink.gif" style="vertical-align: middle;" border="0" alt="Wink" title="Wink" /> ).<br />
<br />
Ich warte einfach mal ab, vielleicht habe ich ja Glück und es ergibt sich etwas.<br />
MfG<br />
xandros<br />
<br />
<div class="codeblock">
<div class="title">Code:<br />
</div><div class="body" dir="ltr"><code>'###########################################<br />
'SternShort NewsTicker © by sts<br />
'ChannelSetup © Sp33d<br />
<br />
'Don`t change the author!<br />
'Homepage: www.angelbot.org<br />
'###########################################<br />
<br />
'Einstellungsmöglichkeiten<br />
<br />
Const Host = "shortnews.stern.de"<br />
Const INIFile = "ini_stern.ini"<br />
Const ScriptVersion = "SternShort NewsTicker 1.0 by sts"<br />
Const ScriptName = "SternShort NewsTicker"<br />
Const DebugIt = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Erweiterte Meldungen<br />
Const Trigger = "stern"<br />
<br />
<br />
'Ändere nichts, solange du nicht weißt was du tust!<br />
<br />
'###########################################<br />
<br />
<br />
Dim Channels, LastNews, Recieved<br />
<br />
Sub Init()<br />
&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "3 " &amp; ScriptVersion<br />
&nbsp;&nbsp;Hook "Commands"<br />
&nbsp;&nbsp;AddCommand Trigger, Cl_Mas, "+m", "2*** ." &amp; Trigger &amp; "##14Zeigt das " &amp; ScriptName &amp; " Setup in dem die Channel,##14in denen der Ticker angezeigt werden soll verändert##14werden können."<br />
&nbsp;&nbsp;ReloadChannels<br />
&nbsp;&nbsp;GetNews<br />
&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." &amp; Trigger &amp; " ein."<br />
End Sub<br />
<br />
<br />
Sub ReloadChannels()<br />
&nbsp;&nbsp;Channels = ReadINIString("Settings", "Channels", "", INIFile)<br />
End Sub<br />
<br />
Sub Commands(vSock, RegUser, Flags, Line)<br />
&nbsp;&nbsp;If LCase(Param(Line, 1)) = "." &amp; Trigger Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;GrabUser vSock, "" &amp; ScriptName &amp; " Setup", "ChannelSetup"<br />
&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;ChannelSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;End If<br />
End Sub<br />
<br />
Sub ChannelSetup(vSock, RegUser, Flags, Line)<br />
<br />
&nbsp;&nbsp;If Param(Line, 1) = "0" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;TU vsock, "10*** Saving settings..."<br />
&nbsp;&nbsp;&nbsp;&nbsp;ReleaseUser vSock<br />
&nbsp;&nbsp;&nbsp;&nbsp;Exit Sub<br />
&nbsp;&nbsp;End If<br />
<br />
&nbsp;&nbsp;Select Case LCase(Param(GetSockTag(vSock), 1))<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case "mainmenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1____________________&#8203; ​___2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_0,1 " &amp; ScriptName &amp; " Setup 1,1_2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1____________________&#8203; ​___2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "Willkommen im Setup vom " &amp; Version &amp; "!"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "Du befindest dich im Hauptmenü."<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "0,1Ticker Channels:"<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = Split(Channels, " ")<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For i = LBound(Dummy) To UBound(Dummy)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "14 - " &amp; Dummy(i)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "0,1Farben: 14 " &amp; ReadINIString("Settings", "Farben", "Off", INIFile)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " "<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - color on um Farben zu aktivieren"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - color off um Farben zu deaktiveren"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, " - 0 um zurück auf die Partyline zu kommen."<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenuOption"<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case "mainmenuoption"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case LCase(Param(Line, 1))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case "chan"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If LCase(Param(Line, 2)) = "add" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Mid(Param(Line,3), 1, 1) = "#" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Not InStr(1, Channels, Param(Line,3)) &gt; 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Channels = Trim3(Channels &amp; " " &amp; Param(Line, 3))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Channels", Channels, INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " wurde hinzugefügt"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChannelSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " bereits enthalten"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Syntax: chan &lt;add | del&gt; &lt;#channel&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf LCase(Param(Line, 2)) = "del" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Mid(Param(Line,3), 1, 1) = "#" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(1, Channels, Param(Line,3)) &gt; 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), ""))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Channels", Channels, INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " wurde entfernt"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChannelSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Channel " &amp; LCase(Param(Line, 3)) &amp; " nicht vorhanden"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Eingabe Ungülig: " &amp; LCase(Param(Line, 3)) &amp; " enthält kein #-Zeichen"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Syntax: chan &lt;add | del&gt; &lt;#channel&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case "color"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If LCase(Param(Line, 2)) = "on" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Farben", "on", INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Farben wurden aktiviert"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StatusSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf LCase(Param(Line, 2)) = "off" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WriteINIString "Settings", "Farben", "off", INIFile<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "3*** Farben wurden deaktiviert"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetSockTag vSock, "MainMenu"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;StatusSetup vSock, RegUser, Flags, ""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Syntax: color &lt;on | off&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TU vSock, "5*** Ungültiger Befehl"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select<br />
&nbsp;&nbsp;End Select<br />
End Sub<br />
<br />
Sub GetNews()<br />
&nbsp;&nbsp;vSock = SockConnect(Host, 80, "SockEvent")<br />
&nbsp;&nbsp;If vSock = 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " &amp; Host &amp; ": Couldn't create socket"<br />
&nbsp;&nbsp;&nbsp;&nbsp;TimedCommand "GetNews", 120<br />
&nbsp;&nbsp;End If<br />
End Sub<br />
<br />
Sub SockEvent(vSock, SEvent, SData)<br />
&nbsp;&nbsp;Dim Header2<br />
<br />
&nbsp;&nbsp;Select Case SEvent<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_ConnectFailed<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " &amp; ScriptName &amp; ": Connection to " &amp; Host &amp; " failed"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TimedCommand "GetNews", 120<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_Connected<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Proxy = vbNullString Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Header = "GET /start.cfm?rubrik1=Alles&amp;rubrik2=Alles&amp;rubrik3=Alles&amp;sort=3&amp;sparte=9&amp;zeitraum=1"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Header = "GET http://" &amp; Host &amp; "/start.cfm?rubrik1=Alles&amp;rubrik2=Alles&amp;rubrik3=Alles&amp;sort=3&amp;sparte=9&amp;zeitraum=1"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SockWrite vSock, Header &amp; " HTTP/1.0" &amp; vbCrLf &amp; Header2 &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Accept: text/html"&nbsp;&nbsp;&amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"User-Agent: AnGeL-Bot " &amp; LongBotVersion &amp; " (www.Saug-Hilfe-Fuer-Alle.com)" &amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Host: " &amp; Host &amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Pragma: no-cache" &amp; vbCrLf &amp; _<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"Connection: close" &amp; vbCrLf &amp; vbCrLf<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_Read<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Recieved &amp; SData<br />
&nbsp;&nbsp;&nbsp;&nbsp;Case SE_Closed<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If InStr(1, Recieved, "&lt;div id=""channelback"" class=""innercontentbox""&gt;") &gt; 0 Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Replace(Recieved, vbCrLf, vbNullString)<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;h3&gt;:: RUBRIKEN HIGHLIGHTS&lt;/h3&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;div class=""cbar""&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;div id=""channelback"" class=""innercontentbox""&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;b&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp_Cat = Left(Recieved, InStr(1, Recieved, "&lt;/b&gt;") - 1 )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m",&nbsp;&nbsp;tmp_Cat<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&lt;a class=""whitelink"" href="""<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp_Url = "/" &amp; Left(Recieved, InStr(1, Recieved, """") - 1 )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "" &amp; tmp_Url<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "&gt;"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmp_Titel = Left(Recieved, InStr(1, Recieved, "&lt;") - 1 )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "" &amp; tmp_Titel<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = "2,15» New SternShort News -  »» Kategorie: 1 " &amp; tmp_Cat &amp; " 2»» Titel: 1" &amp; tmp_Titel &amp; "2 «« »» Url: 1http://" &amp; Host &amp; "" &amp; tmp_Url &amp; "2 ««"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Dummy &lt;&gt; LastNews Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "New news!"<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LastNews = Dummy<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dummy = Split(Channels, " ")<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For i = LBound(Dummy) To UBound(Dummy)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If DebugIt Then SpreadFlagMessage 0, "+m", "Sending to " &amp; Dummy(i) &amp; " :" &amp; "PRIVMSG " &amp; Dummy(i) &amp; " :" &amp; LastNews<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;color = ReadINIString("Settings", "Farben", "off", INIFile)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If color = "on" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SendLine "PRIVMSG " &amp; Dummy(i) &amp; " : " &amp; LastNews, 2<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf color = "off" Then<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SendLine "PRIVMSG " &amp; Dummy(i) &amp; " : " &amp; Strip(LastNews), 2<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SpreadFlagMessage 0, "+m", "5*** " &amp; ScriptName &amp; ": Couldn't recieve HTML page..."<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Recieved = vbNullString<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TimedCommand "GetNews", 120<br />
&nbsp;&nbsp;End Select<br />
End Sub<br />
<br />
Function Trim3(Text)<br />
&nbsp;&nbsp;Trim3 = Replace(Replace(Trim(Text), "&nbsp;&nbsp; ", " "), "&nbsp;&nbsp;", " ")<br />
End Function</code></div></div>
]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Scriptausführung abhängig von Userlevel]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3253</link>
			<pubDate>Mon, 26 Jul 2010 15:59:15 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3253</guid>
			<description><![CDATA[Servus,<br />
<br />
ganz kurze Frage: Kann ich irgendwo im Bot einstellen, welches Userlevel benötigt wird, um bestimmte Scripte auszuführen, so dass manche Scripte für alle User im Channel ausführbar sind, andere aber z.B. nur für User mit Voice?<br />
<br />
Liebe Grüße und Danke im Voraus,<br />
<br />
MrMister]]></description>
			<content:encoded><![CDATA[Servus,<br />
<br />
ganz kurze Frage: Kann ich irgendwo im Bot einstellen, welches Userlevel benötigt wird, um bestimmte Scripte auszuführen, so dass manche Scripte für alle User im Channel ausführbar sind, andere aber z.B. nur für User mit Voice?<br />
<br />
Liebe Grüße und Danke im Voraus,<br />
<br />
MrMister]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Traumessen Script v. 1.1]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3252</link>
			<pubDate>Thu, 15 Jul 2010 12:56:34 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3252</guid>
			<description><![CDATA[Dies ist mein erstes Script es sagt einem sein Traumessen. Es ist mein erstes Script und ich habe deswegen bei "Traumfrau/mann" geguckt. Der Befehl ist bei Standart Prefix "!traumessen". Wenn geändert das Ausrufezeichen einfach durch euer Zeichen ersetzen.<br />
<br />
PS: Es ist noch nicht fertig. Ich werde noch Sachen ändern/hinzufügen.<br />
<br />
<br />
Wenn Spiky etwas dagegen hat das ich "seinen Script" hier zur verfügung stelle soll er es sagen dann lösche ich es wieder.<br />
<br />
<span style="text-decoration: underline;"><span style="font-weight: bold;">Updates</span></span><br />
<br />
<span style="font-weight: bold;">1.1</span><br />
Getränke hinzugefügt<br /><!-- start: postbit_attachments_attachment -->
<br /><img src="images/attachtypes/asc.png" border="0" alt=".asc" />&nbsp;&nbsp;<a href="attachment.php?aid=69" target="_blank">Traumessen.asc</a> (Größe: 3,36 KB / Downloads: 9)
<!-- end: postbit_attachments_attachment -->]]></description>
			<content:encoded><![CDATA[Dies ist mein erstes Script es sagt einem sein Traumessen. Es ist mein erstes Script und ich habe deswegen bei "Traumfrau/mann" geguckt. Der Befehl ist bei Standart Prefix "!traumessen". Wenn geändert das Ausrufezeichen einfach durch euer Zeichen ersetzen.<br />
<br />
PS: Es ist noch nicht fertig. Ich werde noch Sachen ändern/hinzufügen.<br />
<br />
<br />
Wenn Spiky etwas dagegen hat das ich "seinen Script" hier zur verfügung stelle soll er es sagen dann lösche ich es wieder.<br />
<br />
<span style="text-decoration: underline;"><span style="font-weight: bold;">Updates</span></span><br />
<br />
<span style="font-weight: bold;">1.1</span><br />
Getränke hinzugefügt<br /><!-- start: postbit_attachments_attachment -->
<br /><img src="images/attachtypes/asc.png" border="0" alt=".asc" />&nbsp;&nbsp;<a href="attachment.php?aid=69" target="_blank">Traumessen.asc</a> (Größe: 3,36 KB / Downloads: 9)
<!-- end: postbit_attachments_attachment -->]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Kinocharts]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3251</link>
			<pubDate>Tue, 01 Jun 2010 09:12:50 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3251</guid>
			<description><![CDATA[Hey Forenleser und scripter.<br />
<br />
und zwar hat "kinonews.de" sein layout geändert. Und da ich nicht weiss wie ich es selbst ändern soll bei mir, wolte ich fragen ob sich jemand mal die Mühe macht und das Kinochart script anpasst.<br />
<br />
Das wäre prima von euch.<br />
Gruss Daimian<br />
<br />
*Ahha sry falscher Thread. Wenn ihr verschieben könnt, dann bitte ich darum. Muss ja ins scriptrealeses*]]></description>
			<content:encoded><![CDATA[Hey Forenleser und scripter.<br />
<br />
und zwar hat "kinonews.de" sein layout geändert. Und da ich nicht weiss wie ich es selbst ändern soll bei mir, wolte ich fragen ob sich jemand mal die Mühe macht und das Kinochart script anpasst.<br />
<br />
Das wäre prima von euch.<br />
Gruss Daimian<br />
<br />
*Ahha sry falscher Thread. Wenn ihr verschieben könnt, dann bitte ich darum. Muss ja ins scriptrealeses*]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[.+script (datei) wird nicht gefunden.]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3250</link>
			<pubDate>Fri, 28 May 2010 10:26:59 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3250</guid>
			<description><![CDATA[Hallo.<br />
<br />
Und zwar habe ich mir heute den Angelbot zugelegt und bis jetzt scheint alles wunderbar zu klappen. Bis auf.<br />
<br />
Ich habe mir den Bundesliga ticker und wetter ticker script kopiert und unter wordpad abgespeichert und ihn unter "scripts" im filearea des Angelbots angelegt die 2 Datein heissen bundesliga.asc und wetter. asc<br />
<br />
Wenn ich nun die scripts per partyline adden will steht da nur:<br />
<br />
(12:14:51)  .+script wetter.asc<br />
(12:14:51) *** LoadScript failed (file not found: wetter.asc)<br />
(12:14:51) *** Sorry, the script couldn't be added.<br />
(12:15:43)  .+script bundesliga.asc<br />
(12:15:43) *** LoadScript failed (file not found: bundesliga.asc)<br />
(12:15:43) *** Sorry, the script couldn't be added.<br />
<br />
könnt ihr mir helfen, wo ich den fehler gemacht habe? Muss ich angelbot vorher Auth. Oder liegt der Fehler in der art wie ich das script kopiert und abgespeichert habe.<br />
Gruss. daimian]]></description>
			<content:encoded><![CDATA[Hallo.<br />
<br />
Und zwar habe ich mir heute den Angelbot zugelegt und bis jetzt scheint alles wunderbar zu klappen. Bis auf.<br />
<br />
Ich habe mir den Bundesliga ticker und wetter ticker script kopiert und unter wordpad abgespeichert und ihn unter "scripts" im filearea des Angelbots angelegt die 2 Datein heissen bundesliga.asc und wetter. asc<br />
<br />
Wenn ich nun die scripts per partyline adden will steht da nur:<br />
<br />
(12:14:51)  .+script wetter.asc<br />
(12:14:51) *** LoadScript failed (file not found: wetter.asc)<br />
(12:14:51) *** Sorry, the script couldn't be added.<br />
(12:15:43)  .+script bundesliga.asc<br />
(12:15:43) *** LoadScript failed (file not found: bundesliga.asc)<br />
(12:15:43) *** Sorry, the script couldn't be added.<br />
<br />
könnt ihr mir helfen, wo ich den fehler gemacht habe? Muss ich angelbot vorher Auth. Oder liegt der Fehler in der art wie ich das script kopiert und abgespeichert habe.<br />
Gruss. daimian]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Zufallszahl]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3249</link>
			<pubDate>Wed, 19 May 2010 08:59:32 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3249</guid>
			<description><![CDATA[Hi,<br />
<br />
ich suche ein Script, welches auf den Befehl !Lotterie reagiert und dann eine Zufallszahl zwischen 1 und 100 auswirft.<br />
<br />
Habe den Bot in einer Community eines Browsergames und wir veranstallten in regelmässigen Abständen eine Lotterie, dabei soll eben eine Zahl im genannten Bereich erraten werden.<br />
<br />
Wäre schön, wenn man dann auch die letzte gezogene Zahl sich anzeigen lassen kann. So ala !Last und den letzten Gewinner (den man manuell via !addlastwinner &lt;nick&gt; eintragen kann)<br />
<br />
Die Zufallszahl soll nur im query angezeigt werden.<br />
Habe schon hier gesucht, aber leider nichts passendes gefunden. Vielleicht mag einer da was schreiben?? Bin leider nur Anwender und kein Scripter, sonst hätte ich selbst mal geschaut.<br />
<br />
Danke schon mal im Voraus.]]></description>
			<content:encoded><![CDATA[Hi,<br />
<br />
ich suche ein Script, welches auf den Befehl !Lotterie reagiert und dann eine Zufallszahl zwischen 1 und 100 auswirft.<br />
<br />
Habe den Bot in einer Community eines Browsergames und wir veranstallten in regelmässigen Abständen eine Lotterie, dabei soll eben eine Zahl im genannten Bereich erraten werden.<br />
<br />
Wäre schön, wenn man dann auch die letzte gezogene Zahl sich anzeigen lassen kann. So ala !Last und den letzten Gewinner (den man manuell via !addlastwinner &lt;nick&gt; eintragen kann)<br />
<br />
Die Zufallszahl soll nur im query angezeigt werden.<br />
Habe schon hier gesucht, aber leider nichts passendes gefunden. Vielleicht mag einer da was schreiben?? Bin leider nur Anwender und kein Scripter, sonst hätte ich selbst mal geschaut.<br />
<br />
Danke schon mal im Voraus.]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Hilfe beim Bar-Script]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3248</link>
			<pubDate>Tue, 13 Apr 2010 12:23:02 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3248</guid>
			<description><![CDATA[Hallo,<br />
<br />
ich möchte wenn jemand zB "!cola" tippt der bot sich selbst (&#36;nick)eine Cola spendiert, das geht einfandfrei.<br />
Jedoch möchte ich dazu haben wenn jemand "!cola text" schreibt er der bot antwortet: (... reicht text eine Cola rüber)<br />
so wie es jetzt ist geht das nur wenn man den korrekten Usernamen eines Users der im chat ist bei text angegeben hat. <br />
weiß jemand wie man das im code ändern kann?<br />
thx<br />
<br />
anbei der code:<br />
<br />
bind pub - !cola cola<br />
proc cola {nick uhost hand chan arg} {<br />
   if {([achan &#36;chan] != "no_achan")} {<br />
    if {[onchan &#36;arg &#36;chan]} {<br />
    putserv "PRIVMSG &#36;chan :\001ACTION reicht &#36;arg eine Cola rüber *proost*\001"<br />
   }<br />
   if {(&#36;arg == "") || ([llength &#36;arg] &lt; 0)} {<br />
    putserv "PRIVMSG &#36;chan :\001ACTION reicht &#36;nick eine Cola rüber *proost*\001"<br />
   }<br />
 return 0<br />
 }]]></description>
			<content:encoded><![CDATA[Hallo,<br />
<br />
ich möchte wenn jemand zB "!cola" tippt der bot sich selbst (&#36;nick)eine Cola spendiert, das geht einfandfrei.<br />
Jedoch möchte ich dazu haben wenn jemand "!cola text" schreibt er der bot antwortet: (... reicht text eine Cola rüber)<br />
so wie es jetzt ist geht das nur wenn man den korrekten Usernamen eines Users der im chat ist bei text angegeben hat. <br />
weiß jemand wie man das im code ändern kann?<br />
thx<br />
<br />
anbei der code:<br />
<br />
bind pub - !cola cola<br />
proc cola {nick uhost hand chan arg} {<br />
   if {([achan &#36;chan] != "no_achan")} {<br />
    if {[onchan &#36;arg &#36;chan]} {<br />
    putserv "PRIVMSG &#36;chan :\001ACTION reicht &#36;arg eine Cola rüber *proost*\001"<br />
   }<br />
   if {(&#36;arg == "") || ([llength &#36;arg] &lt; 0)} {<br />
    putserv "PRIVMSG &#36;chan :\001ACTION reicht &#36;nick eine Cola rüber *proost*\001"<br />
   }<br />
 return 0<br />
 }]]></content:encoded>
		</item>
		<item>
			<title><![CDATA[Datenbank script]]></title>
			<link>http://www.angelbot-portal.de/showthread.php?tid=3247</link>
			<pubDate>Sat, 10 Apr 2010 17:32:20 +0000</pubDate>
			<guid isPermaLink="false">http://www.angelbot-portal.de/showthread.php?tid=3247</guid>
			<description><![CDATA[Hallo,<br />
<br />
ich suche seit geraumerzeit ein Datenbank script zum auslesen von einträgen aus einer txt / ini datei. Das script soll mittels befehlstrigger folgt gede ausgabe dann geben:<br />
<br />
befehl: !sgo [name]<br />
ausgabe: [name]; datensatz 1; Datensatz 2;<br />
ausgabe: Datensatz 3; datensatz 4<br />
<br />
bsp.:<br />
<br />
&lt;--19:12:24--&gt; &lt;Sutton&gt; !mcreary<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; Connecting SGO-Personal Database<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; --------------------------------<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; McReary, Patrick; Rang 2nd Lieutenant;<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; Teammitglied SGO1; Soldat]]></description>
			<content:encoded><![CDATA[Hallo,<br />
<br />
ich suche seit geraumerzeit ein Datenbank script zum auslesen von einträgen aus einer txt / ini datei. Das script soll mittels befehlstrigger folgt gede ausgabe dann geben:<br />
<br />
befehl: !sgo [name]<br />
ausgabe: [name]; datensatz 1; Datensatz 2;<br />
ausgabe: Datensatz 3; datensatz 4<br />
<br />
bsp.:<br />
<br />
&lt;--19:12:24--&gt; &lt;Sutton&gt; !mcreary<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; Connecting SGO-Personal Database<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; --------------------------------<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; McReary, Patrick; Rang 2nd Lieutenant;<br />
&lt;--19:12:28--&gt; &lt;SGO-Base&gt; Teammitglied SGO1; Soldat]]></content:encoded>
		</item>
	</channel>
</rss>
