AnGelBot-Portal²

moin!
also ich fänds cool, wenn der bot, sobald bestimmte user in den channel kommen, einen speziellen satz nur über den einen user ausgibt, den jeder im channel lesen kann.
danke schonmal!

mfg derwiwie

mhh solch ein script habe ich schon mal für jemanden gemacht

aber ich glaube ich hab es danach auch gelöscht ... muss ich mal gucken ^^

1 mom ...

... *wart* ...

.... *zzzZZZzzz* ...

... 30 min später ...

so habs gefindet ^^

Zitat:Const ini_sayhi = "ini_sayhi.ini"
Dim ChanFrom, NickFrom, Recieved
Sub Init()
Script "SayHi Script v1.0 by c00l4ZiD"
Hook "Chan_Msg"
Hook "Join"
End Sub

Sub Join(Chan, Nick, RegUser, Flags)
If ReadINIString( Nick, "Status", "0", ini_sayhi) = "1" Then
Sendline "PRIVMSG " & Chan & " : " & ReadINIString( Nick, "SayHi", "0", ini_sayhi), 3
Else
WriteINIString Param(Line, 2), "Status", "0", ini_sayhi
End if
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!sayhi" and IsOp(Nick, Chan) Then
If Param(Line, 2) = "" or Param(Line, 2) = "help" Then
Sendline "NOTICE " & Nick & " : Eingabe !sayhi <UserNick> <WelcomeMessage>", 3
Else
WriteINIString Param(Line, 2), "Status", "1", ini_sayhi
WriteINIString Param(Line, 2), "SayHi", GetRest(Line, 3), ini_sayhi
Sendline "Notice " & Nick & " : Willkommenstext gespeichert !", 3
End if
End If
End Sub

wenn ein user eine besondere Nachricht bekommen soll musst du im chan folgendes machen ...

!sayhi <UserNick> <WelcomeMessage>

bedenke ... der user bekommt nur die message wenn er auch mit dem nick den channel joint den du bei <UserNick> eingibst !

Hoffe ich habe dir geholfen !

CU c00l4ZiD

ich hab das mal geändert weil das bei mir nicht so funktioniert hat
und und ausserdem finde ich es besser wenn nur einer mit s-flag den text einschreiben kann
hoffe trete niemanden auf die füsse
:D
If LCase(Param(Line, 1)) = "!sayhi" and IsOp(Nick, Chan) Then
das mit IsOp ... versteht er nicht
deshalb
If LCase(Param(Line, 1)) = "!sayhi" and MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then

einfach aus tauschen
oder auch flag auf +m dann dürfen Master

mfg
moppi

also bei mir versteht er isop ganz gut ^^

hi! danke für das perfekte script!
nur eine frage:
@Moppi du hast es ja schon angesprochen!
wie sähe jetzt das gesamte script aus, wenn das ganze nur für einen bestimmten user bzw. den channelowner einstellbar sein soll? in meinem fall GodFather. wäre gut wenn das dann mit der hostmark arbeiten würde. danke schonmal :D

mfg dErWiWiE

Code:

Const ini_sayhi = "ini_sayhi.ini"

Dim ChanFrom, NickFrom, Recieved

Sub Init()

  Script "SayHi Script v1.0 by c00l4ZiD"

  Hook "Chan_Msg"

  Hook "Join"

End Sub

Sub Join(Chan, Nick, RegUser, Flags)

  If ReadINIString( Nick, "Status", "0", ini_sayhi) = "1" Then

    Sendline "PRIVMSG " & Chan & " : " & ReadINIString( Nick, "SayHi", "0", ini_sayhi), 3

  Else

    WriteINIString Param(Line, 2), "Status", "0", ini_sayhi

  End If

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Param(Line, 1)) = "!sayhi" And MatchFlags(GetUserFlags(RegUser), "+s") Then

    If Param(Line, 2) = "" Or Param(Line, 2) = "help" Then

      Sendline "NOTICE " & Nick & " : Eingabe !sayhi <UserNick> <WelcomeMessage>", 3

    Else

      WriteINIString Param(Line, 2), "Status", "1", ini_sayhi

      WriteINIString Param(Line, 2), "SayHi", GetRest(Line, 3), ini_sayhi

      Sendline "Notice " & Nick & " : Willkommenstext gespeichert !", 3

    End If

  End If

End Sub

^^ dann darf man "!sayhi" nur ausführen wenn man global +s hat.

dErWiWiE

LOSer09

Moppi

LOSer09

dErWiWiE

Sp33d