Baumstrukturmodus | Linearer Modus

Attain · 18.02.2005, 14:11 Uhr

Hi,

ich möchte ein "Barscript" erstellen das per Zufall Texte aus einer Textdatei ausliest und diese ausgibt . Grundsätzlich habe ich das schon gelöst . Nur leider kann ich in diese Zeilen nicht den Nick des "anfragenden" einfügen. Bsp.

Code:

holt die Flasche Jägermeister und schenkt " & nick & " einen ein.

holt 2 Gläser Jägermeister und schenkt " & nick & " und sich selber einen ein.

.

.

.

Ich bekomme dies zurück:

[14:09] * Angelbot holt die Flasche Jägermeister und schenkt " & nick & " einen ein.

Wie kann ich es lösen das er " & nick & " durch den tatsächlichen Nick ersetzt?

**HAPM** · 18.02.2005, 16:34 Uhr

Also, das was du versuchst geht nicht, daa alles was aus einer Datei gelesen wird, auch so bleibt. Du kannst dort keinen VB-Code oder VB-Variablen wie Nick verwenden. Statdessen musst du für den Nick einen Platzhalter wie ##NICK## vestlegen.

In der Datei steht dann:

Code:

holt die Flasche Jägermeister und schenkt ##NICK## einen ein.

Im Script musst du dann folgendes machen:

Code:

Gelesen = Replace(Gelesen, "##NICK##", Nick)

Dabei ist Gelesen die Variable in der der Ausgelesene Text steht.

Attain · 18.02.2005, 17:16 Uhr

Das war genau die Lösung die ich gesucht habe. Klappt wunderbar. Danke

Attain

dings · 18.02.2005, 18:03 Uhr

wenns script fertig ist kannst es ruhig mal hier reinstellen Smile

Attain · 18.02.2005, 21:01 Uhr

ok, hier mal das script mit dem !bier als triggerwort. Weitere Getränke sind einfach hinzuzufügen.

Ich habe eine Include Funktion erstellt um nicht immer die gleichen Befehle in das Script schreiben zu müssen.

Code:

!include "CWa"!

Dim a

Sub Init

  Script "Getränke Bar by Attain"

  Hook "Chan_Msg"

  SpreadFlagMessage 0, "+m", "***Getränke Bar by Attain geladen."

End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)

  Select Case LCase(Param(Line, 1))

    Case "!bier"

      If Param(Line, 2) = "" Then

        CWa Chan , "/bier.txt" , nick  ' Aufruf der Include Funktion . Übergabe von: Wohin soll dir Rückgabe erfolgen , Pfad und Dateiname der auszulesenden Datei , Nick der angesprochen werden soll

      Else

        CWa Chan , "/bier.txt" , (Param(Line, 2))

      End If

  End Select

End Sub

So und hier die Include Funktion die unter dem Namen "CWa.inc" im Scriptverzeichnis liegen muß.

Code:

Sub Init()

  Script "Dateiabfrage_inc by Attain auf Grundlage des LoL Script 0.9 by c00l4ZiD"

  Hook "Chan_Msg"

End Sub

Dim LastLine

Sub CWa(Ziel, Datei , Nick)  

  Dim CalcLine, CurrentLine, vLines, Dummy, FNum

      Randomize

      vLines = Lines(Datei) + 1

      Do While CalcLine = 0 Or CalcLine = LastLine

        CalcLine = Int(Rnd * vLines)

      Loop

      LastLine = CalcLine

      FNum = FileOpen(Datei, FA_Read)

      If FNum <> 0 And vLines > 0 Then

        Do While CurrentLine < CalcLine And Not FileEoF(FNum)

          Dummy = FileReadLn(FNum)

          CurrentLine = CurrentLine + 1

        Loop

'      End If

        Dummy = Replace(Dummy , "##NICK##" , Nick)

        SendLine "PRIVMSG " & Ziel & " :" & Chr(1) & "ACTION " & Dummy & Chr(1), 2

      End If

      FileClose FNum

End Sub

Function Lines(vFile)

  Dim Dummy

  vFileNumber = FileOpen(vFile, FA_Binary)

  If vFileNumber Then

    FileGet vFileNumber, FileLoF(vFileNumber), Dummy

  End If

  FileClose vFileNumber

  Dummy = Split(Dummy, vbCrLf)

  Lines = UBound(Dummy)

End Function

so nun muß nur noch eine "bier.txt" Datei erstellt werden, die im Angelbotverzeichnis stehen muß. Hier mal eine kleine Auswahl. Die Datei kann beliebig erweitert werden.

Code:

fragt ##NICK##: Du willst nen Bier? Hier bitte schön , eiskalt , nur für dich ;)

reicht ##NICK## ne Flasche Diebels."Hier hast du deine Plörre." 

meint ##NICK## hatte heut schon genug. Klaustaler Alkoholfrei hab ich für Dich ##NICK#myb

meint, sauf nicht so viel ##NICK#myb

sagt: "Für ##NICK## geh ich gerne zum Kühlschrank. Sonst noch irgendwelche Wünsche?"

holt die Flasche Becks und schenkt ##NICK## einen ein.

geht in die Küche und holt nen Bier für ##NICK##.

Um weitere Getränke hinzuzufügen muß das Script nur durch ein neues Triggerwort erweitert werden (Copy&Paste) und eine neue Textdatei erstellt werden

laex · 19.02.2005, 16:38 Uhr

hmm also ichmuss erstmal klarstellen: ich hab 0 Ahnung von scripten!=)

ich hab dein script einfach im Flash eingefügt und gespeichert! dasselbe mit den andern beiden!

wenn ich nun das script mit meinem angel hochladen will kommt das:

Code:

Error: 1032 (ungültiges Zeichen)

Position: Line 1, Colum 0

Context: "ï»¿"

kann mir jemand helfen?

Attain · 19.02.2005, 19:58 Uhr

Kann es sein das Dir beim Kopieren ein Fehler reingekommen ist? Kontrolliere mal die 1. Zeile des Scriptes und der .inc Datei.

Attain

laex · 20.02.2005, 10:42 Uhr

ich hab es kontrolliert, da sollte kein fehler sein!

das script beginnt doch gleich am anfang und man muss nicht nocherst ne Zeile freilassen oder?

Attain · 20.02.2005, 16:37 Uhr

Hmm,

ich hab Dir mal das Script ins Netz gestellt. die Dateien bar.asc und cwa.inc ins Scriptverzeichnis kopieren und die bier.txt ins Angelbot Hauptverzeichnis. Dann auf der Partyline .+script bar eingeben.

Gruß
Attain

laex · 20.02.2005, 17:58 Uhr

wow

Vielen Dank! Echt nett von dir!

Es klappt! Wink

Möglicherweise verwandte Themen...
Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	[FAQ] Internetseiten per Script auslesen	Sp33d	1	1.690	18.03.2007 18:18 Uhr Letzter Beitrag: Frank_Grimm
	Datei von einer Homepage auslesen	captaintitan	2	698	22.10.2005 23:01 Uhr Letzter Beitrag: captaintitan
	Nachricht von Datei senden	eXoR	8	766	31.08.2005 15:25 Uhr Letzter Beitrag: HAPM
	Antiad geht nich kann mir bitte einer helfen	MA	3	477	13.12.2004 15:13 Uhr Letzter Beitrag: HAPM
	.bottree sieht komisch aus ;)	cyberclaw	2	431	26.08.2004 07:39 Uhr Letzter Beitrag: Sp33d