Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)
Moderator: Moderators
-
Paul_Don
- Posts: 146
- Joined: 2003-01-29 06:41
- Location: uk
-
Contact:
Post
by Paul_Don » 2003-05-19 12:04
ok this was psoted b4 but for sum reason it never worked i want the message to come up in a new window on connect for everyone
heres the code
Code: Select all
Dim sBotName
Sub Main()
sBotName="[uF]"
frmHub.RegisterBotName(CStr(sBotName))
End Sub
Sub NewUserConnected(curUser)
curUser.PrivateMessage CStr(sBotName), " message goes here "
End Sub
it displays in dc++ as private message recieved from uF but new window would be nice
also i dont believe when u send form the newuserconnected registered users and ops would not get the message
would i have to do
Code: Select all
Sub OpConnected(curUser)
curUser.PrivateMessage CStr(sBotName), " message goes here "
End Sub
to show for reg users and ops??
-
DamionNH
- Posts: 25
- Joined: 2003-01-07 11:05
Post
by DamionNH » 2003-05-19 12:40
or quicker if message is the same.
Code: Select all
Sub OpConnected(curUser)
Call NewUserConnected(curUser)
End Sub
Owner of Lurkers Lair a Phoenix Rising Hub
-
Marvin
- Posts: 147
- Joined: 2003-03-06 06:56
- Location: France
-
Contact:
Post
by Marvin » 2003-05-21 06:48
The code is right, but DC++ doesn't pop-up private messages from bots by default. You should check the Popup messages from users that are not online box to achieve this.
-
Paul_Don
- Posts: 146
- Joined: 2003-01-29 06:41
- Location: uk
-
Contact:
Post
by Paul_Don » 2003-05-21 17:10
yes it does work for registered users and ops but new users dont get it i think it might be because the reg script interferes but everyhting is fine
thanks for your help
-
smitty
- Posts: 53
- Joined: 2003-03-01 14:45
Post
by smitty » 2003-05-21 21:18
Code: Select all
Sub DataArival(curUser, sCurData)
If instr(1, lcase(sCurData), lcase("$GetINFO "+curUser.sName+" "+curUser.sName))>0 then
curUser.PrivateMessage Cstr("Hub-Security"), "This Message sent in a PM."
End If
End Sub
that code will trigger for all new connections reguardless of registered or not.
Knowledge is Earned BUT Wisdom is Free