Help - Search - Members - Calendar
Full Version: BCP how to add colors to profile?
StealthBot.net > StealthBot > Scripting and Plugins > Plugin Projects > Baal Channel Project (BCP)
z4rkenny
i need a script line that will give a color to each Runner

this is my current setting

x = bcp_Get("Main", "ProfileUpdate")
If x > 1 Then
If Abs(DateDiff("s", bcpLastProfileUpdate, Now())) > (x * 60) Then
bcpLastProfileUpdate = Now()
bodyOf = MyChannel & " c8Top Sex: " & vbCrLf
bubble = bcp_RankBubble()
If UBound(bubble) < 5 Then
t = UBound(bubble)
Else
t = 5
End If
For i = 1 to t
bodyOf = bodyOf & bubble(i) & " (" & bcpUsers.Item(bubble(i)).Runs & ")" & vbCrLf
Next

SetBotProfile "", "[BCP " & psVersions.Item("bcp") & "] c1op score [" & bcpVID & "]", bodyOf
End If
End If
PhiX
*Moved to BCP forum.*
IAreConnection
QUOTE(z4rkenny @ Mar 23 2009, 11:41 AM) *

i need a script line that will give a color to each Runner

this is my current setting
CODE

    x = bcp_Get("Main", "ProfileUpdate")
    If x > 1 Then
        If Abs(DateDiff("s", bcpLastProfileUpdate, Now())) > (x * 60) Then
            bcpLastProfileUpdate = Now()
            bodyOf = MyChannel & " c8Top Sex: " & vbCrLf
            bubble = bcp_RankBubble()
            If UBound(bubble) < 5 Then
                t = UBound(bubble)
            Else
                t = 5
            End If
            For i = 1 to t
                bodyOf = bodyOf & bubble(i) & " (" & bcpUsers.Item(bubble(i)).Runs & ")" & vbCrLf
            Next
            
            SetBotProfile "", "[BCP " & psVersions.Item("bcp") & "] c1op score [" & bcpVID & "]", bodyOf
        End If
    End If



Profile updating doesn't work at the moment, it will be added in the next version as soon as I collect enough information to keep it working properly.
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Invision Power Board © 2001-2019 Invision Power Services, Inc.