AnGelBot-Portal²

Hallo,

kann mir jemand bitte bei einem script helfen Smile

....das script soll auf das wort "bot" reagieren und dann einen satz aus einer datei auslesen...
so weit bin ich jetzt schon
aber ich möchte gerne dass, wenn ein op etwas sagt, der text aus einer anderen txt ausgelesen wird

Code:

Const QuoteFile = "bot-bot.txt"

Dim LastLine

Sub Init()

  Script "Bot Script"

  Hook "Chan_Msg"

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  Dim CalcLine, CurrentLine, vLines, Dummy, FNum

  If LCase(Param(Line, 1)) = "bot" or LCase(Param(Line, 1)) = "*[bot]*" Then

    If Param(Line, 2) = "" Then

      Randomize

      vLines = Lines(QuoteFile) + 1

      Do While CalcLine = 0 Or CalcLine = LastLine

        CalcLine = Int(Rnd * vLines)

      Loop

      LastLine = CalcLine

      FNum = FileOpen(QuoteFile, FA_Read)

      If FNum <> 0 And vLines > 0 Then

        Do While CurrentLine < CalcLine And Not FileEoF(FNum)

          Dummy = FileReadLn(FNum)

          CurrentLine = CurrentLine + 1

        Loop

        SendLine "PRIVMSG " & Chan & " :" & Dummy, 3

      End If

      FileClose FNum

    End If

  End If

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

würde mich sehr freuen wenn mir jemand dabei helfen könnte

Dies kannst du ganz einfach mit

Code:

If IsOP(Nick, Chan)

abfragen.

Also

Code:

If IsOP(Nick, Chan) Then

  'Auslesen und wiedergeben der "op"-Datei

Else

  'Auslesen und wiedergeben der "normalo"-Datei

End If

MfG sts

njaa aber wo soll ich das dort eintragen, sorry bin noch noob und das da ist nur etwas umgeschrieben

Kingpin450

sts

Kingpin450