Baumstrukturmodus | Linearer Modus

kimmy · 13.04.2010, 13:23 Uhr

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
}

eXploder · 13.04.2010, 15:08 Uhr

was immer das ist, ein angel-script ist es nicht. aber wenn du willst kann ichs dir kurz schreiben.

kimmy · 13.04.2010, 17:44 Uhr

gerne

eXploder · 14.04.2010, 13:38 Uhr

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

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