Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:barscript [2007/12/15 13:36]
tuvok
nettalk:scripting:barscript [2008/02/19 12:16] (aktuell)
saaaale
Zeile 1: Zeile 1:
 ====== Bar-script ====== ====== Bar-script ======
-Ein einfaches Bar-Script, Wenn jemand z.b !cola sagt, dann sagt man selber automatisch: ​(eigener Nick) gibt (dem jenigen (Nick)) ein Glas Cola.+Ein einfaches Bar-Script, Wenn jemand z.b !cola sagt, dann sagt man selber automatisch: ​"/​me ​gibt Nick ein Glas Cola".
  
-ACHTUNG: ​Bei Größeren Channels bitte Regeln beachten.+ACHTUNG: ​Frage immer VOR dem joinen nach, ob der Bot erwünscht/​erlaubt ist.
  
-Info: Die Verbindung (Name) ist hier "bar". Dies muss dann halt auf den Namen der Verbindung geändert werden, ​wo das Script ​mit arbeiten ​soll. Wenn alle Verbindungen das Script benutzen sollen, dann löscht die Ganze Zeile +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.
- +
- +
-Hier die einfache Version+
  
 <code vb> <code vb>
  
-#​NewScriptBegin ​Bar-script+#​NewScriptBegin ​Barscript
    
 Sub Chan_Msg(Text,​ Nick, Channel, FrameID, ConnID) Sub Chan_Msg(Text,​ Nick, Channel, FrameID, ConnID)
Zeile 17: Zeile 14:
   ltext = LCase(Text)   ltext = LCase(Text)
     ​     ​
-   eigennick ​= GetVal(ConnID,​ 5) +   eigenernick ​= GetVal(ConnID,​ 5) 
-   if eigennick = "​Bar"​ then  +   ​If ​eigenernick ​= "​Bar"​ Then 
-    ​If ltext = "!bar" Then Send "/msg " + Nick + " Wilkommen in meiner ​Bar, folgende getränke sind in der Bar verfügbar: !Eistee, !ouzo, !jägermeister,​ !soja, !tequilla, !amaretto, !w-bull, !w-o, !w-lemon, !wasser-lemon,​ !wein, !bier, !feigling, !rum, !kakao, !wasser, !Fanta, !cola, !ramazotti ", FrameID +
-    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 = "​!ouzo"​ Then Send "/me gibt " + Nick + " einen Ouzo.",​ 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 = "​!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 = "​!w-bull"​ Then Send "/me gibt " + Nick + " ein Glas w-bull.",​ FrameID +
-    If ltext = "​!w-o"​ Then Send "/me gibt " + Nick + " ein Glas Wasser-Orange.",​ FrameID +
-    If ltext = "​!w-lemon"​ Then Send "/me gibt " + Nick + " ein Glas Wasser-lemon.",​ FrameID +
-    If ltext = "​!wasser-lemon"​ Then Send "/me gibt " + Nick + " ein Glas Wasser-lemon.",​ FrameID +
-    If ltext = "​!wein"​ Then Send "/me gibt " + Nick + " ein Glas Wein.",​ FrameID +
-    If ltext = "​!bier"​ Then Send "/me gibt " + Nick + " einen vollen Krug mit Bier.",​ 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 = "​!kakao"​ Then Send "/me gibt " + Nick + " eine Tasse Kakao.",​ 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 +
-    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 +
-    If ltext = "​bye"​ Then Send "/msg " + Channel + " Machs Gut " + Nick + " :-) ", FrameID +
-   End If   +
- End If       +
-End Sub+
  
- +'Die Auswahl
-</​code>​ +
- +
- +
-Hier eine verbesserte,​ und größere Version. +
-bei der Zeile   If nick = "​Admin"​ Then  Admin durch euren bzw. den Namen ersetzten, auf den der Bar-Bot hören soll.  +
- +
-Durch !offline wird die Bar nur "​unbrauchbar"​ gemacht und durch !total_offline wird die Bar ganz beendet.  +
- +
-<code vb> +
- +
- +
- +
-#​NewScriptBegin Bar-script +
-  +
-Sub Chan_Msg(Text,​ Nick, Channel, FrameID, ConnID) +
-  If ConnID = GetConnByName("​BAR"​) Then +
-  ltext = LCase(Text) +
-  If nick = "​Admin"​ Then +
- +
-    If ltext = "​!offline"​ Then Send "/nick Off_Bar",​ FrameID +
-    If ltext = "​!online"​ Then Send "/nick Bar", FrameID +
-    If ltext = "​!total_offline"​ Then CloseConn ConnID  +
-     +
-   End if      +
-            +
-   ​eigennick = GetVal(ConnID,​ 5) +
-   if eigennick = "​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    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
Zeile 157: Zeile 95:
     '​funsachen     '​funsachen
     If ltext = "​!eis"​ or ltext = "​!ice"​ Then Send "/me gibt " + Nick + " einen Eimer voll Eis.", FrameID     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     If ltext = "​bye"​ Then Send "/msg " + Channel + " Machs Gut " + Nick + " :-) ", FrameID
-  ​+                                        ​
    End If  ​    End If  ​
  End If      ​  End If      ​
 End Sub End Sub
 +
 </​code>​ </​code>​

Eigene Werkzeuge