Bar-script
Ein einfaches Bar-Script, Wenn jemand z.b !cola sagt, dann sagt man selber automatisch: “/me gibt Nick ein Glas Cola“.
ACHTUNG: Frage immer VOR dem joinen nach, ob der Bot erwünscht/erlaubt ist.
Info: Die Verbindung (Name) ist hier „BAR“. Dies muss auf den Namen der Verbindung geändert werden, bei der das Script laufen soll. Wenn alle Verbindungen das Script benutzen sollen, dann löscht die ganze Zeile.
#NewScriptBegin Barscript Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID) If ConnID = GetConnByName("BAR") Then ltext = LCase(Text) eigenernick = GetVal(ConnID, 5) If eigenernick = "Bar" Then 'Die Auswahl If ltext = "!bar" Then Send "/msg " + Nick + " Wilkommen in meiner Bar, folgende Getränke sind in der Bar verfügbar: !estee, !ouzo, !jägermeister, !soja, !tequilla, !amaretto, !w-bull, !w-o, !w-lemon, !wasser-lemon, !wein, !bier, !feigling, !rum, !kakao, !wasser, !fanta, !cola, !ramazotti ", FrameID 'Allgeimeine Getränke If ltext = "!milch" Then Send "/me gibt " + Nick + " ein Glas Milch.", FrameID If ltext = "!fruchtsaft" Then Send "/me gibt " + Nick + " einen Fruchtsaft.", FrameID If ltext = "!gemüsesaft" Then Send "/me gibt " + Nick + " einen Gemüsesaft.", FrameID If ltext = "!kaffee" Then Send "/me gibt " + Nick + " eine Tasse heißen Kaffe.", FrameID If ltext = "!kakao" Then Send "/me gibt " + Nick + " eine Tasse heißen Kakao.", FrameID If ltext = "!buttermilch" Then Send "/me gibt " + Nick + " ein Glas Buttermilch.", FrameID If ltext = "!gemüsesaft" Then Send "/me gibt " + Nick + " einen Gemüsesaft.", FrameID If ltext = "!tee" Then Send "/me gibt " + Nick + " eine Tasse Tee.", FrameID If ltext = "!eistee" Then Send "/me gibt " + Nick + " eine Glas Eistee.", FrameID If ltext = "!o-saft" or ltext = "!os" Then Send "/me gibt " + Nick + " ein Glas O-Saft.", FrameID If ltext = "!w-o" Then Send "/me gibt " + Nick + " ein Glas Wasser-Orange.", FrameID If ltext = "!wasser-lemon" or ltext = "!w-lemon" Then Send "/me gibt " + Nick + " ein Glas Wasser-lemon.", FrameID If ltext = "!wasser" Then Send "/me gibt " + Nick + " ein Glas Wasser.", FrameID If ltext = "!fanta" Then Send "/me gibt " + Nick + " ein Glas Fanta.", FrameID If ltext = "!cola" Then Send "/me gibt " + Nick + " ein Glas Cola.", FrameID 'Biersorten If ltext = "!bier" Then Send "/me hat folgene Sorten an Bier auf lager: Altbier, Kölsch, Weißbier, Bockbier, Export, Pils, Schwarzbier, Radler, Alsterwasser, Altbierbowle und Krefelder ", FrameID If ltext = "!altbier" Then Send "/me gibt " + Nick + " ein Altbier.", FrameID If ltext = "!kölsch" Then Send "/me gibt " + Nick + " ein Kölsch.", FrameID If ltext = "!weißbier" Then Send "/me gibt " + Nick + " ein Weißbier.", FrameID If ltext = "!bockbier" Then Send "/me gibt " + Nick + " ein Bockbier.", FrameID If ltext = "!export" Then Send "/me gibt " + Nick + " ein Export.", FrameID If ltext = "!pils" Then Send "/me gibt " + Nick + " ein Pils.", FrameID If ltext = "!schwarzbier" Then Send "/me gibt " + Nick + " ein Schwarzbier.", FrameID If ltext = "!radler" Then Send "/me gibt " + Nick + " ein Radler.", FrameID If ltext = "!alsterwasser" Then Send "/me gibt " + Nick + " ein Alsterwasser.", FrameID If ltext = "!altbierbowle" Then Send "/me gibt " + Nick + " eine Altbierbowle.", FrameID If ltext = "!krefelder" Then Send "/me gibt " + Nick + " ein Krefelder.", FrameID 'Weinsorten If ltext = "!wein" Then Send "/me hat folgene Weine auf Lager: Apfelwein, Cidre, Perlwein, Roséwein, Rotwein, Champagner, Sekt, Cava, Spumante. Hier einige Weinmischgetränke: Bowle, Calimocho, Laternmaß, Punsch, Schorle", FrameID If ltext = "!apfelwein" Then Send "/me gibt " + Nick + " einen Apfelwein.", FrameID If ltext = "!cidre" Then Send "/me gibt " + Nick + " einen Cidre.", FrameID If ltext = "!roséwein" Then Send "/me gibt " + Nick + " einen Roséwein.", FrameID If ltext = "!rotwein" Then Send "/me gibt " + Nick + " einen Rotwein.", FrameID If ltext = "!champagner" Then Send "/me gibt " + Nick + " einen Champagner.", FrameID If ltext = "!sekt" Then Send "/me gibt " + Nick + " einen Sekt.", FrameID If ltext = "!cava" Then Send "/me gibt " + Nick + " einen Cava.", FrameID If ltext = "!spumante" Then Send "/me gibt " + Nick + " einen Spumante.", FrameID If ltext = "!bowle" Then Send "/me gibt " + Nick + " einen Bowle.", FrameID If ltext = "!calimocho" Then Send "/me gibt " + Nick + " einen Calimocho.", FrameID If ltext = "!laternmaß" Then Send "/me gibt " + Nick + " einen Laternmaß.", FrameID If ltext = "!punsch" Then Send "/me gibt " + Nick + " einen Punsch.", FrameID If ltext = "!schorle" Then Send "/me gibt " + Nick + " einen Schorle.", FrameID 'Sonstige Getränke If ltext = "!ouzo" Then Send "/me gibt " + Nick + " einen Ouzo.", FrameID If ltext = "!jägermeister" Then Send "/me gibt " + Nick + " einen Jägermeister.", FrameID If ltext = "!soja" Then Send "/me gibt " + Nick + " ein Glas Soja.", FrameID If ltext = "!tequilla" Then Send "/me gibt " + Nick + " ein Glas Tequilla.", FrameID If ltext = "!amaretto" Then Send "/me gibt " + Nick + " ein Glas Amaretto.", FrameID If ltext = "!feigling" Then Send "/me gibt " + Nick + " einen kleinen Feigling.", FrameID If ltext = "!rum" Then Send "/me gibt " + Nick + " ein Glas Rum .", FrameID If ltext = "!malibu" Then Send "/me gibt " + Nick + " ein Glas Malibu.", FrameID If ltext = "!ramazotti" Then Send "/me gibt " + Nick + " einen Glas Ramazotti.", FrameID If ltext = "!whiskey" Then Send "/me gibt " + Nick + " einen Whisky.", FrameID If ltext = "!met" Then Send "/me gibt " + Nick + " einen Glas Met.", FrameID 'Getränke Runden If ltext = "!eistee alle" Then Send "/me gibt auf Wunsch von " + Nick + " allen ein Eistee.", FrameID If ltext = "!whiskey alle" Then Send "/me gibt auf Wunsch von " + Nick + " allen ein Whiskey.", FrameID If ltext = "!bier alle" Then Send "/me gibt auf Wunsch von " + Nick + " allen ein Bier.", FrameID If ltext = "!wodka alle" Then Send "/me gibt auf Wunsch von " + Nick + " allen ein Wodka.", FrameID If ltext = "!wodka red bull alle" or ltext = "!wrb alle" Then Send "/me gibt auf Wunsch von " + Nick + " allen ein Glas Wodka Red Bull.", FrameID If ltext = "!eis alle" or ltext = "!ice alle" Then Send "/me nimmt auf Wunsch von " + Nick + " einen Eimer voll Eis und stellt in den Raum und sagt: Bedient euch :-) .", FrameID If ltext = "!o-saft alle" or ltext = "!os alle" Then Send "/me gibt auf Wunsch von " + Nick + " allen ein Glas O-Saft.", FrameID 'funsachen If ltext = "!eis" or ltext = "!ice" Then Send "/me gibt " + Nick + " einen Eimer voll Eis.", FrameID If ltext = "!gk" Then Send "/me wünscht <$1,3>Gut<$1,8> Ki<$1,4>ff!", FrameID If ltext = "!joint" Then Send "/me gibt " + Nick + " einen fetten <$1,0>() ¯¯¯ ) ¯¯¯¯¯¯¯¯¯¯¯<$4> ) ) <$14> ~~~", FrameID If ltext = "bye" Then Send "/msg " + Channel + " Machs Gut " + Nick + " :-) ", FrameID End If End If End Sub
