AnGelBot-Portal²

Ich stelle mir das ungefähr so vor:

!decide schlafen wach_bleiben

der Bot gibt dann entweder aus: "schlafen" oder "wach_bleiben", eben jenachdem... das wird oder soll per Zufall entschieden werden. Gibt es da schon etwas, oder hat jemand Lust so ein Script zu schreiben?

Sebastian

Hier das Script:

Code:

Sub Init() : Hook "Chan_Msg" : Script "Decide_script © by GalaxyFighter" : End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line) : If LCase(Param(Line, 1)) = "!decide" Then : count = ParamCount(Line) - 1 : random = Int(Rnd * count) + 2 : random = Param(Line, random) : SendLine "PRIVMSG " & Chan & " :" & random,2 : End If : End Sub

mfg GalaxyFighter

Vielen dank! Das ist genau das, was ich gesucht habe Laughing

Code:

Option Explicit

Sub Init()

  Script "Decide_script © by GalaxyFighter"

  Hook "Chan_Msg"

  Randomize

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  Dim vCount, vRandom

  If LCase(Param(Line,1)) = CommandPrefix "decide" Then

    vCount = ParamCount(Line) - 1

    vRandom = Int(Rnd * vCount) + 2

    vRandom = Param(Line, vRandom)

      SendLine "PRIVMSG " & Chan & " :" & vRandom,2

  End If

End Sub

DerDoctor

GalaxyFighter

DerDoctor

Christian