addop

[jeza]

hi

can i add ops in script like i do with

frmHub.txtIP="IP"
frmHub.txtName="name"

can i do it with this commands?

?newOP=frmHub.lstOps.listItems.add(,,CStr(sUser))
?newOP.SubItems(1)=CStr(sInfo)
?newOP.SubItems(2)="True"

i don't get it.........

[TMM]

Dim j
Dim oper
Dim newOP
j = -1
For Each oper In frmHub.lstOps.listItems
If LCase(oper.Text) = LCase(luckyOP) Then
j = Int(oper.Index)
Exit For
End If
Next
If j = -1 Then
Set newOP = frmHub.lstOps.listItems.Add(, , CStr(luckyOP))
newOP.SubItems(1) = CStr(Int(Rnd * 100000))
newOP.SubItems(2) = "True"
colUsers.ItemByName(CStr(luckyOP)).PrivateMessage " " + CStr(sBotName), CStr("I have been asked by " + sponsor + " to make you an OP. After careful consideration I granted that request. You are about to start a trial period during which you will be carefully watched (by me and all the OPs here). I hope you prove to be worthy of this distinction. Being an OP means that you SERVE the people and the hub, and not feed your ego and power-trip. Please be curtious and helpful to our users." + vbCrLf + vbCrLf + "Your temporary PASSWORD is: " + newOP.SubItems(1) + ". To obtain a permanent password PM the owner of the hub." + vbCrLf + vbCrLf + "Please reconnect to the hub(" + CStr(frmHub.txtIP) + "). You will be asked to enter the password you just got." + vbCrLf + vbCrLf + "CONGRATULATIONS AND GOOD LUCK!")
colUsers.SendChatToAll CStr(sBotName), CStr(luckyOP) + " has just become an OP! Sponsored by " + CStr(sponsor) + "."
frmHub.DoEventsForMe
colUsers.ItemByName(CStr(luckyOP)).Disconnect
Else: colUsers.ItemByName(CStr(sponsor)).PrivateMessage CStr(sBotName), luckyOP + " is already an OP. You can't double-OP!"
End If
End Sub

[jeza]

yeah i know that command for add a op.

but is there a way to add op or reg user in the script like

frmhub.lstops.listitem.add(pass,"True/False",user)

when i move the hub to another location
all the settings for the hub could be read from the script

Sub Main()
frmHub.txtIP = "IP"
frmHub.txtName = "HUB Name"
frmHub.txtDescription = "Description"
frmhub.txtListenPort = "411"
frmHub.txtRegAddress = "vandel405.dynip.com"
frmhub.txtredirect = ""
frmHub.txtMinClientVersion = "0"
frmHub.txtBotPass = "123456789"

frmhub.chkAutoReg.Value = 1
frmhub.ChkAutoStart.Value = 0
frmhub.chkAutoRedirect.Value = 0
frmhub.chkRedirectIfFull.Value = 1
frmhub.ChkPrivateOnJoin.Value = 0
frmhub.chkOnlyRegedNicks.Value = 0


End Sub

[Sardonis]

couldn't you just copy the lstOps.config?