AnGelBot-Portal²

AnGelBot-Portal² > Scripting > FAQ > 2 Fragen !
Normale Version: 2 Fragen !
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

SonicX

26.03.2003, 12:52 Uhr
Hoi !!

Hab da mal 2 Fragen....
1) Wenn ich jetzt folgenden Zeilen habe (aus dem Bar-Script):
Zitat:Case "!lucky"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " : " & MyNick & " holt eine Lucky Strike 1,8()¯¯¯))1,0¯¯¯¯¯¯¯¯¯¯¯¯4}}}14ø¤°`°¤ø  aus der Schachtel und gibt sie " & nick,2
Else
SendLine "PRIVMSG " & Chan & " : " & MyNick & " holt eine Lucky Strike 1,8()¯¯¯))1,0¯¯¯¯¯¯¯¯¯¯¯¯4}}}14ø¤°`°¤ø  aus der Schachtel und gibt sie " & Param(Line, 2), 2
End If

Bekomm ich die Ausgabe nicht so wie ich sie genr hätte...
Würde das gerne in der form /me holt... haben.
Was muß ich da dann für Befehle einsetzen bzw. was muss ich ändrn ?

2) Ich habe in nem PHP Script folgende funktion:
!gib Nick das und das und jenes
dann kommt als ausgabe:
Botname (wie mit /me auch) gibt Nick das und das und jenes
Wie kann ich das programmieren ?

Würde mich über Hilfe freuen, danke schonmal

MfG

Sonic

Sp33d

26.03.2003, 15:11 Uhr
Hier ist die Version vom Getränkebar von c00l4zid mit Aktionen:

Code:
'================================================
'Erstellt mit [ABP]AVS 1.0.8
'AnGelBot Visual Scripting

'Visit us online @ http://www.AnGelBot-Portal.de/
'================================================
'Programmiert von Sp33d
'================================================

Sub Init
  Script "Getränke Bar v1.0c by c00l4ZiD (edit by Sp33d)"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "3*** Getränke Bar v1.0c by c00l4ZiD (edit by Sp33d) geladen. Aufruf des Scriptes mit !bar"
End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)
  Select Case LCase(Param(Line, 1))
    Case "!bar"
      SendLine "PRIVMSG " & Chan & " :Ich habe zur Auswahl : !alkoholisch und !alkoholfrei",2
    Case "!alkoholisch"
      SendLine "PRIVMSG " & Chan & " :Ich habe : !tequila, !wodka, !sekt, !wein, !bier, !schnaps, !asbach, !rum, !cognac und !eierlikör",2
    Case "!alkoholfrei"
      SendLine "PRIVMSG " & Chan & " :Ich habe : !cola, !sprite, !fanta, !tee, !mineralwasser, !apfelsaft und !orangensaft",2
    Case "!asbach"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Asbach für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Asbach für " & Param(Line, 2)
      End If
    Case "!tequila"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ne Flasche Tequila für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ne Flasche Tequila für " & Param(Line, 2)
      End If
    Case "!wodka"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Wodka für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Wodka für " & Param(Line, 2)
      End If
    Case "!wein"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Wein für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Wein für " & Param(Line, 2)
      End If
    Case "!sekt"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Sekt für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Sekt für " & Param(Line, 2)
      End If
    Case "!bier"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Bier für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Bier für " & Param(Line, 2)
      End If
    Case "!schnaps"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Schnaps für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Schnaps für " & Param(Line, 2)
      End If
    Case "!rum"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Rum für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Rum für " & Param(Line, 2)
      End If
    Case "!cognac"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Cognac für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Cognac für " & Param(Line, 2)
      End If
    Case "!eierlikör"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Eierlikör für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Eierlikör für " & Param(Line, 2)
      End If
    Case "!cola"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Cola für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Cola für " & Param(Line, 2)
      End If
    Case "!sprite"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Sprite für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Sprite für " & Param(Line, 2)
      End If
    Case "!fanta"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Fanta für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Fanta für " & Param(Line, 2)
      End If
    Case "!tee"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt eine Tasse Tee für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt eine Tasse Tee für " & Param(Line, 2)
      End If
    Case "!mineralwasser"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Mineralwasser für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Mineralwasser für " & Param(Line, 2)
      End If
    Case "!apfelsaft"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Apfelsaft für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Apfelsaft für " & Param(Line, 2)
      End If
    Case "!orangensaft"
      If Param(Line, 2) = "" Then
        DoAction Chan, "geht in die Küche und holt ein Glas Orangensaft für " & Nick
      Else
        DoAction Chan, "geht in die Küche und holt ein Glas Orangensaft für " & Param(Line, 2)
      End If
  End Select
End Sub

Sub DoAction(Chan, Line)
  SendLine "PRIVMSG " & Chan & " :" & Chr(1) & "ACTION " & Line & Chr(1), 2
End Sub

Wenn du selber Aktionen senden willst nimmst du am besten die Sub DoAction aus dem obrigen Script und kopierst sie in dein Script. Dann rufst du sie einfach per DoAction <Chan/Nick>, "<Aktion>" auf und der Bot sendet die Aktion in den Channel bzw. an den User.

SonicX

26.03.2003, 16:45 Uhr
danke das hat soweit schonmal geklappt mit dem bar script... Smile
könntest du vielleicht nochmal kurz nen beispiel posten zum dem was ich mit dem !gib befehl vor hab ? wäre nett !

Sonic

cronic

26.05.2003, 19:20 Uhr
Wozu ein neues Topic aufmachen wenn meine frage das Topic hier betrifft Smile

Also ich hab mir das Bar-script genommen aber ich will das nicht mit bar sondern mit was anderem machen z.B. Zeitungsladen, Waffen oder so.
aber sobald ich Alkoholisch oder Alkoholfrei ändern geht ab da garnichts mehr.

Kann mir einer helfen????
AnGelBot-Portal² > Scripting > FAQ > 2 Fragen !
Referenz-URLs