Op enter script

[JackDanuls]

Hi, Every one here has been so helpful to me in the past. Thanks.

I am at this time looking for a script that anounces the entry of an OP. I have one that says the same thing for each OP, but it's not what I am looking for. I want one that displays an indivdual specifiac message.

Any help on this will greatly be appreciated.

Come by and vist my hub. you all can finid it at:

share2mb.myftp.org

Thanks again

[Manic_Depresiv_Santa]

off the fly here goes hehe,

Code: Select all

Dim sOp(2,2)

Sub Main ()

      sOp(0,0) = "Manic_Depresiv_Santa"                        'Op Name
      sOp(0,1) = ""God created Santa to bring pain to all little bad boys and girls!""                                     'Op message
      sOp(1,1) = "JackDanuls"
      sOp(1,2) = "How do you like your " & curUser.sName & "? With or Without Ice?"

'just keep goin down till youve done all ops, make sure to fix the amount in the global dim if you add more than 3 users hehe.
End Sub

Sub OpConnected(CurUser)
If curUser.bOperator Then

        For x = 0 to Ubound(sOp)
                     If lcase(curUser.sName) = lcase(sOp(x,0)) Then Print sOp(x,1)
                     Next
End IF
End Sub

Function Print(sText)                        
colUsers.SendChatToAll CStr(sBotName), CStr(sText)
End Function

This Should work I think hehe

[Manic_Depresiv_Santa]

forgot to add sbotname

Code: Select all

Dim sOp(2,2)
Dim sBotName

Sub Main () 
sBotName = "Bouncer"
   sOp(0,0) = "Manic_Depresiv_Santa"
   sOp(0,1) = ""God created Santa to bring pain to all little bad boys and girls!""
   sOp(1,1) = "JackDanuls" 
   sOp(1,2) = "How do you like your " & curUser.sName & "? With or Without Ice?" 
End Sub 

Sub OpConnected(CurUser) 
If curUser.bOperator Then 
        For x = 0 to Ubound(sOp) 
               If lcase(curUser.sName) = lcase(sOp(x,0)) Then Print sOp(x,1) 
                     Next 
End IF 
End Sub 

Function Print(sText)                        
colUsers.SendChatToAll CStr(sBotName), CStr(sText) 
End Function