Antwort schreiben 
 
Themabewertung:
  • 0 Bewertungen - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Hilfe beim Bar-Script
13.04.2010, 13:23 Uhr
Beitrag #1
Hilfe beim Bar-Script
Hallo,

ich möchte wenn jemand zB "!cola" tippt der bot sich selbst ($nick)eine Cola spendiert, das geht einfandfrei.
Jedoch möchte ich dazu haben wenn jemand "!cola text" schreibt er der bot antwortet: (... reicht text eine Cola rüber)
so wie es jetzt ist geht das nur wenn man den korrekten Usernamen eines Users der im chat ist bei text angegeben hat.
weiß jemand wie man das im code ändern kann?
thx

anbei der code:

bind pub - !cola cola
proc cola {nick uhost hand chan arg} {
if {([achan $chan] != "no_achan")} {
if {[onchan $arg $chan]} {
putserv "PRIVMSG $chan :\001ACTION reicht $arg eine Cola rüber *proost*\001"
}
if {($arg == "") || ([llength $arg] < 0)} {
putserv "PRIVMSG $chan :\001ACTION reicht $nick eine Cola rüber *proost*\001"
}
return 0
}
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
13.04.2010, 15:08 Uhr
Beitrag #2
RE: Hilfe beim Bar-Script
was immer das ist, ein angel-script ist es nicht. aber wenn du willst kann ichs dir kurz schreiben.

Silent Scream [Demo out NOW]
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
13.04.2010, 17:44 Uhr
Beitrag #3
RE: Hilfe beim Bar-Script
gerne Smile
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
14.04.2010, 13:38 Uhr
Beitrag #4
RE: Hilfe beim Bar-Script
Code:
Const AktivChan = "#paradoxon.testing"

Const ScriptName = "Bar"
Const ScriptVersion = "v0.4"
Const ScriptAuthor = "paradoxon"

Sub Init()
    Script "1,0 «4•1» 4[ " & ScriptName & " ]1 Script 4[ " & ScriptVersion & " ]1 by 4[ " & ScriptAuthor & " ] 1«4•1» "
    SpreadFlagMessage 0, "+m", "1,0 «4•1» 4[ " & ScriptName & " ]1 Script 4[ " & ScriptVersion & " ]1 by 4[ " & ScriptAuthor & " ] 1«4•1» "
    Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
    If InStr(AktivChan,Chan) Then
            If LCase(Param(Line,1)) = CommandPrefix & "cola" Then
                If Not GetRest(Line,2) = vbNullString Then
                    SendLine "PRIVMSG " & Chan & " :ACTION " & "reicht " & GetRest(Line,2) & " eine Cola rüber *proost*", 2
                Else
                    SendLine "NOTICE " & Nick & " :usage: !cola <text>", 2
                End If
            End If
    End If
End Sub

Silent Scream [Demo out NOW]
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
Antwort schreiben 


Möglicherweise verwandte Themen...
Thema: Verfasser Antworten: Ansichten: Letzter Beitrag
  bräuchte euere hilfe!!!!!!! Steve-IRC 7 1.418 20.05.2010 12:11 Uhr
Letzter Beitrag: GalaxyFighter
  Brauche Hilfe bei Script! nem1 0 1.067 10.02.2009 16:20 Uhr
Letzter Beitrag: nem1
  Brauch mal wieder eure HIlfe KrimsKrams und Co 6 1.609 02.05.2008 18:35 Uhr
Letzter Beitrag: KrimsKrams und Co
  Befehle beim Beenden ausführen jusTmE1989 12 2.396 30.01.2008 15:22 Uhr
Letzter Beitrag: Christian
  !ssp !kampf =+geld bei !bar benötigt Pascalirc 6 953 01.10.2007 14:26 Uhr
Letzter Beitrag: Pascalirc
  Hilfe Script Pascalirc 5 1.465 25.09.2007 13:54 Uhr
Letzter Beitrag: Pascalirc
  Hilfe bei umwandlung checker 2 982 03.07.2007 19:37 Uhr
Letzter Beitrag: HAPM
  Ruhe script, bitte um hilfe ! xeon 5 1.493 12.06.2007 00:13 Uhr
Letzter Beitrag: Kaesi
  !bar-script umschreiben Gron 3 880 15.04.2007 01:40 Uhr
Letzter Beitrag: Firefox
  Script hilfe Cael 1 876 20.12.2006 17:05 Uhr
Letzter Beitrag: Muffe

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste