AnGelBot-Portal²

Hi Leute,
ich bin noch ein noob was das Scripten angeht
Nun hab ich versucht mein ERSTES Script mit ein wenig abgucken zu schreiben *g*
Bin auch ziemlich weit gekommen aber jetzt funzt das Script nicht :(
Seht euch bitte mal das Script an und sagt mir was ich falsch gemacht habe (ich bin schon dran verzweifelt)
HIIIIIIIIIIIIIIIILFE!!!
Ich würde mich auch freuen, wenn ihr mir eine Seite nennen könntet wo ich eine DEUTSCHE Anleitung zum IRC Scripten finde (oder ein Toturial).
Danke schonmal im Vorraus!

Hier das Script:

Zitat:Sub Init
Script "Getränke Bar V 1.0 by Banse"
Hook "Chan_Msg"
SpreadFlagMessage 0, "+m", "***Getränke Bar V1.0 by BANSE***"
End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)
Select Case LCase(Param(Line, 1))
Case "?bar"
SendLine "PRIVMSG " & Chan & " :/me fragt, was du möchtest: !alkoholfrei oder !alkohol ?",2
'
'ALKOHOLFREI[
'
Case "!alkoholfrei"
SendLine "PRIVMSG " & Chan & " :/me fragt, ob du !erfrischungsgetränke, !warmes oder !saft möchtest?",2
Case "!erfrischungsgetränke"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind momentan folgende Erfrischungsgetränke verfügbar: !Coca-Cola, !Score-Cola (hat nur die halben Kalorien), !Pepsi, !Vita-Cola, !Club-Cola, !Fanta, !Sprite, !Bluna-Orange, !Bluna-Zitrone, !Apfelschorle, !Tafelwasser",2
Case "!warmes"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind momentan folgende warme Getränke vorhanden: !Kaffee, !Kännchen-Kaffee, !Cappuchino, !Espresso, !heiße-Schokolade, !Fencheltee, !Original-Thüringer-9-Kräuter-Tee, !Pfefferminztee, !Kamillentee, !Apfeltee, !Jagertee (Achtung: mit Rum)",2
Case "!saft"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind momentan folgende Säfte vorhanden: !Orangensaft, !Zitronensaft, !Apfelsaft, !Johannisbeersaft, !Erdbeersaft, !Birnensaft, !Kirschsaft, !Bananensaft, !Sanddornsaft, !Himbeersaft, !ACE-Saft, !Multivitaminsaft",2
'
'ALKOHOLFREI]
'
'
'ALKOHOLHALTIG[
'
Case "!alkohol"
SendLine "PRIVMSG " & Chan & " :/me fragt, ob du !Bier, !Alkopops, !Mixgetränke, !Liköre, !Cocktails, !Schluckis oder !anderes willst?",2
Case "!Bier"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind im Moment folgende Biersorten vorhanden: !Hasseröder, !Becks, !Sternburger, !Sternquell, !Bitburger, !Veltins, !Krombacher, !Köstrizer, !Löwenbräu",2
Case "!Alkopops"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind momentan folgende Alkopops vorhanden: !Rigo, !Bacardi-Breezer^Lemon, !Bacardi-Breezer^Maracuja, !Smirnofice, !Bullenpisse",2
Case "!Mixgetränke"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind im Moment folgende Mixgetränke vorhanden: !VeltinsVPlus, !Bacardicola, !Bibob, !Wodka-Cola, !Rum-Cola",2
Case "!Liköre"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind momentan folgende Liköre vorhanden: !Cherry, !Eierlikör, !Sahnelikör, !Toffee, !Dooleys, !Pfeffi, !Orangenlikör",2
Case "!Cocktails"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind im Moment folgende Cocktails vorhanden: !Pina-Colada, !Caipirinha",2
Case "!anderes"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind gerade folgende sonstige alkoholische Getränke vorhanden: !Rum, !Wodka, !Whisky, !Rotwein, !Weisswein, !Weinschorle, !Asbach, !Cognac, !Tequila",2
Case "!Schluckis"
SendLine "PRIVMSG " & Chan & " :/me: in der Bar sind momentan folgende Schluckis vorhanden: !Kümmerling, !Underberg, !Jägermeister, !Mümmelmann, !Kleiner-Feigling",2
'
'ALKOHOLHALTIG]
'
'{Erfrischungsgetränke}
'
Case "!Coca-Cola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Coca-Cola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Coca-Cola",2
End If
'
Case "!Score-Cola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Score-Cola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Score-Cola",2
End If
'
Case "!Pepsi"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Pepsi",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Pepsi",2
End If
'
Case "!Vita-Cola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Vita-Cola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Vita-Cola",2
End If
'
Case "!Club-Cola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Club-Cola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Club-Cola",2
End If
'
Case "!Fanta"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Fanta",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Fanta",2
End If
'
Case "!Sprite"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Sprite",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Sprite",2
End If
'
Case "!Bluna-Orange"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Bluna mit Orangengeschmack",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Bluna mit Orangengeschmack",2
End If
'
Case "!Bluna-Zitrone"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Bluna mit Zitronengeschmack",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Bluna mit Zitronengeschmack",2
End If
'
Case "!Apfelschorle"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühlte Apfelschorle",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühlte Apfelschorle",2
End If
'
Case "!Tafelwasser"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein großes Glas eisgekühltes Tafelwasser",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein großes Glas eisgekühltes Tafelwasser",2
End If
'
'{warme Getränke}
'
Case "!Kaffee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Kaffee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Kaffee",2
End If
'
Case "!Kännchen-Kaffee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Kännchen Kaffee und schenkt die erste Tasse schonmal ein",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Kännchen Kaffee und schenkt die erste Tasse schonmal ein",2
End If
'
Case "!Cappuchino"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Cappuchino",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Cappuchino",2
End If
'
Case "!heiße-Schokolade"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse heiße Schokolade",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse heiße Schokolade",2
End If
'
Case "!Espresso"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Tässchen Espresso",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Tässchen Espresso",2
End If
'
Case "!Fencheltee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Fencheltee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Fencheltee",2
End If
'
Case "!Original-Thüringer-9-Kräuter-Tee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Thüringer-9-Kräuter-Tee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Thüringer-9-Kräuter-Tee",2
End If
'
Case "!Pfefferminztee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Pfefferminztee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Pfefferminztee",2
End If
'
Case "!Kamillentee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Kamillentee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Kamillentee",2
End If
'
Case "!Apfeltee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Apfeltee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Apfeltee",2
End If
'
Case "!Jagertee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Tasse Jagertee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Tasse Jagertee",2
End If
'
'{Saft}
'
Case "!Orangensaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Orangensaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Orangensaft",2
End If
'
Case "!Zitronensaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Zitronensaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Zitronensaft",2
End If
'
Case "!Apfelsaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Apfelsaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Apfelsaft",2
End If
'
Case "!Johannisbeersaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Johannisbeersaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Johannisbeersaft",2
End If
'
Case "!Erdbeersaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Erdbeersaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Erdbeersaft",2
End If
'
Case "!Birnensaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Birnensaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Birnensaft",2
End If
'
Case "!Kirschsaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Kirschsaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Kirschsaft",2
End If
'
Case "!Bananensaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Bananensaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Bananensaft",2
End If
'
Case "!Sanddornsaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Sanddornsaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Sanddornsaft",2
End If
'
Case "!Himbeersaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Himbeersaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Himbeersaft",2
End If
'
Case "!ACE-Saft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas ACE-Saft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas ACE-Saft",2
End If
'
Case "!Multivitaminsaft"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Multivitaminsaft",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Multivitaminsaft",2
End If
'
'{Bier}
'
Case "!Hasseröder"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Hasseröder",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Hasseröder",2
End If
'
Case "!Becks"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Becks",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Becks",2
End If
'
Case "!Sternburger"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Sternburger",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Sternburger",2
End If
'
Case "!Sternquell"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Sternquell",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Sternquell",2
End If
'
Case "!Bitburger"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Bitburger",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Bitburger",2
End If
'
Case "!Veltins"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Veltins",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Veltins",2
End If
'
Case "!Krombacher"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Krombacher",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Krombacher",2
End If
'
Case "!Köstrizer"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Köstrizer",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Köstrizer",2
End If
'
Case "!Löwenbräu"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Löwenbräu",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Löwenbräu",2
End If
'
'{Alkopops}
'
Case "!Rigo"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Rigo",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Rigo",2
End If
'
Case "!Bacardi-Breezer^Lemon"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Bacardi Breezer Lemon",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Bacardi Breezer Lemon",2
End If
'
Case "!Bacardi-Breezer^Maracuja"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Bacardi Breezer Maracuja",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Bacardi Breezer Maracuja",2
End If
'
Case "!Smirnofice"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Smirn-of-ice",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Smirn-of-ice",2
End If
'
Case "!Bullenpisse"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Bullenpisse",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Bullenpisse",2
End If
'
'{Mixgetränke}
'
Case "!VeltinsVPlus"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Veltins V+",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Veltins V+",2
End If
'
Case "!Bacardicola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Bacardicola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Bacardicola",2
End If
'
Case "!Bibob"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " eine Flasche Bibob",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " eine Flasche Bibob",2
End If
'
Case "!Wodka-Cola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Wodka Cola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Wodka Cola",2
End If
'
Case "!Rum-Cola"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Rum Cola",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Rum Cola",2
End If
'
'{Liköre}
'
Case "!Cherry"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Cherry",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Cherry",2
End If
'
Case "!Eierlikör"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Eierlikör",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Eierlikör",2
End If
'
Case "!Sahnelikör"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Sahnelikör",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Sahnelikör",2
End If
'
Case "!Toffee"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Toffee",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Toffee",2
End If
'
Case "!Dooleys"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Dooleys",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Dooleys",2
End If
'
Case "!Pfeffi"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Pfeffi",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Pfeffi",2
End If
'
Case "!Orangenlikör"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Orangenlikör",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Orangenlikör",2
End If
'
'{Cocktails}
'
Case "!Pina-Colada"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Pina-Colada",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Pina Colada",2
End If
'
Case "!Caipirinha"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Caipirinha",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Caipirinha",2
End If
'
'{anderes}
'
Case "!Rum"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Rum",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Rum",2
End If
'
Case "!Wodka"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Wodka",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Wodka",2
End If
'
Case "!Whisky"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Whisky",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Whisky",2
End If
'
Case "!Rotwein"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Rotwein",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Rotwein",2
End If
'
Case "!Weisswein"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Weisswein",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Weisswein",2
End If
'
Case "!Weinschorle"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Weinschorle",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Weinschorle",2
End If
'
Case "!Asbach"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Asbach Uralt",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Asbach Uralt",2
End If
'
Case "!Cognac"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Gläschen Cognac",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Gläschen Cognac",2
End If
'
Case "!Tequila"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Glas Tequila",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Glas Tequila",2
End If
'
'{Schluckis}
'
Case "!Kümmerling"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Fläschchen Kümmerling",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Fläschchen Kümmerling",2
End If
'
Case "!Underberg"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Fläschchen Underberg",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Fläschchen Underberg",2
End If
'
Case "!Jägermeister"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Fläschchen Jägermeister",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Fläschchen Jägermeister",2
End If
'
Case "!Kleiner-Feigling"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt " & nick & " ein Fläschchen Kleiner Feigling",2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt " & Param(Line, 2) & " ein Fläschchen Kleiner Feigling",2
End If
'
'{Zusatzbefehle}
'
Case "!ausgiessen"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me giesst neuen Kaffe aus der Kanne in die Tasse von " & nick,2
Else
SendLine "PRIVMSG " & Chan & " :/me giesst neuen Kaffe aus der Kanne in die Tasse von " & Param(Line, 2),2
End If
'
Case "!Eiswürfel"
If Param(Line, 2) = "" Then
SendLine "PRIVMSG " & Chan & " :/me gibt einen Eiswürfel in das Getränk von" & nick,2
Else
SendLine "PRIVMSG " & Chan & " :/me gibt einen Eiswürfel in das Getränk von " & Param(Line, 2),2
End If
End Select
End Sub

Ich weiß, das Script ist nicht gerade kurz, würde mich aber trotzdem über Hilfe freuen, da es ja eigentlich von Zeile zu Zeile eh das selbe ist.
Axo und das mit dem "/me" weiß ich das das nicht klappt aber daran liegt es Definitiv nicht.

Wieso möchtest du eine Anleitung über IRC-Scripting???? Das was du da geschrieben hast ist VBS = Visual Basic Scripting

Es wäre hilfreich, wenn du uns sagen würdest, was an deinem script nicht geht. Dann findet man den Fehler leichter.

Jo hast recht :D
Also ab Beginn der Else-Bedingungen funzt garnix mehr, also ab hier:


Ich glaube das ich hier einen generellen Fehler in diesen Bedingungen habe.
Ich habe den Verdacht das ich bei "& nick &" etwas verkehrt gemacht habe. Der verdacht entsteht daraus, da ich, aus den Script wo ich etwas angeschazt habe, das "nick" am ende stand.

@ Gangsta: Thx für die Aufklärung das es VB Script ist und nicht IRC Script

Case "!coca-cola " das case was sich auf die getränke bezieht kleinschreiben dann geht es.


grüßle

Jo, vielen Dank hansmansch jetzt geht es :D
Ich hätt da nur noch eine Frage, wie mach ich das, das der Bot aus der /me Perspektive spricht?
Also nicht:

<bot>: in der Bar sind folgende Getränke:...

sondern:

bot sagt dir das in der Bar folgende Getränke sind:...

Also, das is die Schrift in Pink
Schonmal Danke im vorraus.

Das ist nicht die schrift in Pink weils bei jedem clienten anedsr is naja wies genau war weiß ich nich

Aber ne normale Sendline mit Aktion drinne oder sowas

Naja, es wäre schon hilfreich, wenn mir jemand den genauen Befehl sagen könnte
Ich würde es auch schön finden, wenn mir jemand mal ein Toturial für das VB Script geben könnte.
Kann man den Bot auch mit Basic Scripten füttern ?

ja ka hab jetzt grad auch net zeit dazu aber such mal nach

Action oder Aktion im Forum villeicht findest du ja dann was

probiers mal mit


Also einfach die Variable " & MyNick & " verwenden ! (Statt MyNick sagt der bot dann seinen Nick !)