IPB

Welcome Guest ( Log In | Register )

1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

 
Reply to this topicStart new topic
> can some1 convert somthen
xxmagacexx
post Mar 29 2006, 09:44 PM
Post #1


Full Member
***

Group: Members
Posts: 256
Joined: 19-February 06
From: east realm Clan DII
Member No.: 262



i was woundering if some1 could convert the mass mail to a plugin it didnt have a plugin dl also in script collection like some do?
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Swent
post Mar 29 2006, 09:46 PM
Post #2


Ultimate spammer.
********

Group: Sr. Members
Posts: 3,494
Joined: 6-February 06
From: Minneapolis, MN
Member No.: 51



Script Add & Plugin Converter
Application to Convert Scripts to Plugin

This post has been edited by Swent: Mar 29 2006, 09:48 PM


--------------------
IPB Image~Unreleased scripts
I can't answer every PM that I receive. For scripting help, use the forum.

IPB Image
My favorite songs
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
xxmagacexx
post Mar 29 2006, 09:47 PM
Post #3


Full Member
***

Group: Members
Posts: 256
Joined: 19-February 06
From: east realm Clan DII
Member No.: 262



grrr i hate that thing smile.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
xxmagacexx
post Mar 29 2006, 09:57 PM
Post #4


Full Member
***

Group: Members
Posts: 256
Joined: 19-February 06
From: east realm Clan DII
Member No.: 262



im so confused cuz for the mass mail u have2 make new files and stuff and i really have no where 2 put em in the converter or what it would be great if some1 that knows how could do it smile.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
ReSouRceS
post Mar 29 2006, 10:20 PM
Post #5


Full Member
***

Group: Members
Posts: 178
Joined: 21-February 06
From: Canada
Member No.: 376



There already mass mailing system in sb. (.mmail Flag <Messages>)


--------------------
user posted image
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
xxmagacexx
post Mar 30 2006, 06:25 AM
Post #6


Full Member
***

Group: Members
Posts: 256
Joined: 19-February 06
From: east realm Clan DII
Member No.: 262



ya smile.gif didnt want to give every1 on my userlist a flag i got a TON..........of people thats why i wanted to mass mail with the script smile.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
J3m
post Mar 30 2006, 07:18 AM
Post #7


Full Member
***

Group: Sr. Members
Posts: 594
Joined: 22-February 06
Member No.: 480



stay tuned...


Edit: There you go. I basically had to rewrite the entire thing (how old was that anyway?).

CODE

'massmail
'1.0

Sub massmail_Event_Load()
    massmail_LoadSettings
End Sub

Sub massmail_Event_UserTalk(Username, Flags, Message, Ping)
    massmail_CommandInput Username, Flags, Message, 1
End Sub

Sub Event_WhisperFromUser(Username, Flags, Message)
    massmail_CommandInput Username, Flags, Message, 3
End Sub

Sub massmail_Event_UserEmote(Username, Flags, message)
   massmail_CommandInput Username, Flags, Message, 2
End Sub

Sub massmail_Event_PressedEnter(Text)
   massmail_CommandInput myUsername, 0, Text, 4
End Sub

& #39;********************************************************
***

Private massmail_access, massmail_flag

Private Sub massmail_LoadSettings()

    SetSetting "massmail", "access", "90", _
 "Access-Level required to use massmail", False
    SetSetting "massmail", "flag", "M", _
 "Access-Flag required to use massmail (if level " & _
 "isn't high enough", False
 
    massmail_access = CLng(GetSetting("massmail", "access"))
    massmail_flag = CStr(GetSetting("massmail", "flag"))

End Sub

& #39;********************************************************
***

Sub massmail_CommandInput(Username, Flags, Message, Origin)

    Dim msg, fso, f, Line, a, i, al, af
    If UCase(Left(Message,9)) = BotVars.Trigger & _
 "MASSMAIL" Then
 GetDBEntry Username, al, af
 If (af < massmail_access) And Not _
     ((massmail_flag <> "") And _
     (InStr(af, massmail_flag) > 0)) Then
     Dsp Origin, "Access denied", Username, vbRed
     Exit Sub
 End If
 msg = Trim(Mid(Message, 10))
 If Len(msg) = 0 Then
     Exit Sub
 End If
 Set fso = CreateObject( _
     "Scripting.FileSystemObject")
 If Not fso.FileExists(BotPath() & "users.txt") Then
     Dsp Origin, "users.txt not found", Username, _
   vbRed
     Exit Sub
 End If
 Set f = fso.OpenTextFile(BotPath() & "users.txt", 1)
 i = 0
 Do While Not f.AtEndOfStream
 Line = Trim(f.ReadLine)
     If Len(Line) > 0 Then
   a = Split(Line, Space(1))
   Command Username, "/bmail " & a(0) & " " & _
       msg, True
   i = i + 1
     End If
 Loop
 f.Close
 Dsp Origin, "MassMail completed (" & i & _
     " recipients)", Username, vbCyan
    End If
    
End Sub



This post has been edited by J3m: Mar 30 2006, 07:56 AM


--------------------
Bye, trash my pinned topics more.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

Reply to this topicStart new topic
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

 



- Lo-Fi Version Time is now: 31st October 2014 - 11:55 PM
Skin by Andrea
Website Legal Information | Hosted by LunarPages