AnGelBot-Portal²

Seiten: 1 2

Also, ich habe mir mal das Advertiser v1.3b script angeguckt, hab damit aber nicht das geschafft was ich will, ich würde gerne ein script haben, womit ich die anzahl der zeilen angeben kann, welche die werbung enthalten soll und das ich dann die zeilen einzelnd editieren kann, ich weiß nicht ob das verständlich ist, aber wenn es möglich wäre würde ich mich darüber sehr freuen Smile

Hi Avery ich glaube mal das du sowas suchst oder ?

Code:

Sub Init

  Script "Werbung für Dummies ;) v1.0 by Angel-Fan"

  Hook "Chan_Msg"

  SpreadFlagMessage 0, "+m", "***Werbung für Dummies v1.0 by Angel-Fan geladen. Aufruf des Scriptes mit !liste"

End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)

  Select Case LCase(Param(Line, 1))

    Case "!liste"

      SendLine "PRIVMSG " & Chan &  " :Was darf's den sein ? :!werbung (chan)",3

Case "!werbung"

      SendLine "PRIVMSG " & chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

      SendLine "PRIVMSG " & Chan & " :",3

 End Select

End Sub

wäre es möglich, das ich die zeilen über die partyline editiere?

also bei dem Script nicht aber das geht doch auch so oder ? Wink

jo geht auch so, nun wäre es aber schön wenn ich ne zeit angeben könnte in welchen abständen er es in den channeln die ich angeben möchte posten soll, wäre das möglich? Also bsp. alle 45 min in #feds Wink

Code:

'+-------------------------------------+ 

'¦ Werbe-Script 1.0 © by sts 

'¦ 

'¦ Don`t change the author! 

'¦ 

'¦ Website : www.angel-bot.org 

'¦ Script Archive: www.angel-bot.org/system/anypage/index.php?id=2 

'¦ 

'¦-------------------------------------+ 

'¦ PartyLine Setup ------------[ ] 

'¦ Anlegung einer INI-Datei ---[ ] 

'¦ Channeleinstellungen ------ [x] 

'¦-------------------------------------+ 

'##############Einstellungen################## 

'Channel indem die Werung laufen soll. 

Const AktivChan = "#test0815"    

Const WerbeText = "Dies ist ein Beispiel für ein WerbeText"    'Werbetext 

Const Interval = 10   'Zeitangabe in s 

'##############Don't change!!!################# 

Sub Init() 

  Script "7Werbe-Script 1.0 © by sts" 

  SpreadFlagMessage 0, "+m", "3 Werbe-Script 1.0 © by sts loaded" 

  GetWerbung 

End Sub 

Sub GetWerbung() 

  SendLine "MODE " & AktivChan & " -c+m ", 1 

  Sendline "PrivMsg " & AktivChan & " : " & WerbeText,1 

  SendLine "MODE " & AktivChan & " -m+c ", 1  

  TimedCommand "GetWerbung", Interval 

End Sub

Sollte so sein, wie du es haben willst.

jo, das mit der zeit ist nun schön, nun hab ich das problem, dass ich den werbetext wieder 4zeilig haben will, das bekomme ich damit ja nicht hin. Außerdem würde ich gerne das -c +m rausnehmen, da er sonst modes changed die er nicht changen soll Smile

lösch einfach

SendLine "MODE " & AktivChan & " -c+m ", 1

SendLine "MODE " & AktivChan & " -m+c ", 1

aus dem script...aber das macht er ja nur das niemand zwischen die zeilen quatschen kann Smile

trotzdem würde ich gerne 4 zeilen machen können Smile

Code:

'+-------------------------------------+

'¦ Werbe-Script 1.0 © by sts

'¦

'¦ Don`t change the author!

'¦

'¦ Website : www.angel-bot.org

'¦ Script Archive: www.angel-bot.org/system/anypage/index.php?id=2

'¦

'¦-------------------------------------+

'¦ PartyLine Setup ------------[ ]

'¦ Anlegung einer INI-Datei ---[ ]

'¦ Channeleinstellungen ------ [x]

'¦-------------------------------------+

'##############Einstellungen##################

'Channel indem die Werung laufen soll.

Const AktivChan = "#test0815"   

Const WerbeText1 = "Dies ist ein Beispiel für ein WerbeText"  'Werbetext1

Const WerbeText2 = "Dies ist ein Beispiel für ein WerbeText"  'Werbetext2

Const WerbeText3 = "Dies ist ein Beispiel für ein WerbeText"  'Werbetext3

Const WerbeText4 = "Dies ist ein Beispiel für ein WerbeText"  'Werbetext4

Const Interval = 10   'Zeitangabe in s

'##############Don't change!!!#################

Sub Init()

  Script "7Werbe-Script 1.0 © by sts"

  SpreadFlagMessage 0, "+m", "3 Werbe-Script 1.0 © by sts loaded"

  GetWerbung

End Sub

Sub GetWerbung()

  Sendline "PrivMsg " & AktivChan & " : " & WerbeText1,1

  Sendline "PrivMsg " & AktivChan & " : " & WerbeText2,1

  Sendline "PrivMsg " & AktivChan & " : " & WerbeText3,1

  Sendline "PrivMsg " & AktivChan & " : " & WerbeText4,1

  TimedCommand "GetWerbung", Interval

End Sub

so sollte nun so sein wie du es haben wolltest. Ist zwar nicht die schönste Lösung aber es funktioniert.
Ach ja, ein bisschen Eigeninitative kann man ruhig von dir verlangen. Wink

Seiten: 1 2

Avery

Angel-fan

Avery

Angel-fan

Avery

gangasta

Avery

firstjoe

Avery

gangasta