Author Topic: Permanent Font Color  (Read 7029 times)

Maverick1030

  • Newbie
  • *
  • Posts: 11
Permanent Font Color
« on: May 18, 2008, 06:47:44 PM »
I have tried to outtext script listed in another forum to make my output text a permanent color instead of black.  the script didnt work.  can someone help me

version 7.63

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Permanent Font Color
« Reply #1 on: May 18, 2008, 09:39:03 PM »
Which script?

I have tried a script and it works perfectly.
The IceChat God

Maverick1030

  • Newbie
  • *
  • Posts: 11
Re: Permanent Font Color
« Reply #2 on: May 19, 2008, 05:25:05 AM »
could u copy the script in here?

i used the following from another thread.  is there something i should change?

Code: [Select]
Function OUTTEXT(OutgoingText)

Dim OutColor
OutColor =

"07" 'change this number to the color number you want

'bypasses here if not a specified network
if

GetIdentifier("$network") <> "UKChatrooms" then
   OutText = OutGoingText
   exit

function
end if

if left(OutGoingText,1) <> "/" and left(outGoingText,1) <>

"." then
'this is not a command or using a "." to not use colors
if left(OutGoingText,1)

<> chr(3) then
'check if a color was already used, if not add one
OutGoingText = chr(2) &

OutColor & OutGoingText
end if
end if
OutText = OutGoingText
End

Function

Morio

  • Global Moderator
  • Sr. Member
  • *****
  • Posts: 256
Re: Permanent Font Color
« Reply #3 on: May 19, 2008, 05:56:23 AM »
way too many enters

Code: [Select]
Function OUTTEXT(OutGoingText)

Dim OutColor
OutColor = "07" 'change this number to the color number you want

'bypasses here if not a specified network
if GetIdentifier("$network") <> "UKChatrooms" then
   OutText = OutGoingText
   exit function
end if

if left(OutGoingText,1) <> "/" and left(outGoingText,1) <> "." then 'this is not a command or using a "." to not use colors
  if left(OutGoingText,1) <> chr(3) then 'check if a color was already used, if not add one
  OutGoingText = chr(3) & OutColor & OutGoingText
  end if
end if
OutText = OutGoingText
End Function
« Last Edit: May 19, 2008, 05:58:06 AM by Morio »
"I don't know what World War 3 will be fought with, but I know World War 4 with be fought with sticks and stones." - Albert Einstein

Maverick1030

  • Newbie
  • *
  • Posts: 11
Re: Permanent Font Color
« Reply #4 on: May 19, 2008, 09:22:40 AM »
i tried this and even tried it without the network bypass and it still doesn't work.....

Code: [Select]
Function OUTTEXT(OutGoingText)

Dim OutColor
OutColor = "07" 'change this number to the color number you want

'bypasses here if not a specified network
if GetIdentifier("$network") <> "ScanGeorgia" then
   OutText = OutGoingText
   exit function
end if

if left(OutGoingText,1) <> "/" and left(outGoingText,1) <> "." then 'this is not a command or using a "." to not use colors
  if left(OutGoingText,1) <> chr(3) then 'check if a color was already used, if not add one
  OutGoingText = chr(3) & OutColor & OutGoingText
  end if
end if
OutText = OutGoingText
End Function

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Permanent Font Color
« Reply #5 on: May 19, 2008, 11:33:11 AM »
Are you sure the name of the network is exactly "ScanGeorgia" ?

If it is Scangeorgia or something else, the match will not occur.
The IceChat God

Maverick1030

  • Newbie
  • *
  • Posts: 11
Re: Permanent Font Color
« Reply #6 on: May 19, 2008, 11:41:43 AM »
is there a simpler script that will work no matter what network im on?

and this is from the console log
NETWORK=ScanGeorgia

i even took out the whole network if/then stmt
« Last Edit: May 19, 2008, 11:43:27 AM by Maverick1030 »

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Permanent Font Color
« Reply #7 on: May 19, 2008, 11:43:15 AM »
Sure, take this out of the script.

Code: [Select]
'bypasses here if not a specified network
if GetIdentifier("$network") <> "ScanGeorgia" then
   OutText = OutGoingText
   exit function
end if
The IceChat God

Maverick1030

  • Newbie
  • *
  • Posts: 11
Re: Permanent Font Color
« Reply #8 on: May 19, 2008, 11:46:58 AM »
the following still does not work:

Code: [Select]
Function OUTTEXT(OutGoingText)

Dim OutColor
OutColor = "07" 'change this number to the color number you want

if left(OutGoingText,1) <> "/" and left(outGoingText,1) <> "." then 'this is not a command or using a "." to not use colors
  if left(OutGoingText,1) <> chr(3) then 'check if a color was already used, if not add one
  OutGoingText = chr(3) & OutColor & OutGoingText
  end if
end if
OutText = OutGoingText
End Function

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Permanent Font Color
« Reply #9 on: May 19, 2008, 12:00:58 PM »
Did you even save the file properly?

It needs to be saved as an ICE file, not an ICS file.
When you do Save As, choose IceChat 5 Script style.
The standard style is IceChat 7 script (ICS).
The IceChat God

Maverick1030

  • Newbie
  • *
  • Posts: 11
Re: Permanent Font Color
« Reply #10 on: May 19, 2008, 12:05:11 PM »
oh that was it.  thanks

sorry, im new to icechat

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Permanent Font Color
« Reply #11 on: May 19, 2008, 12:11:14 PM »
Well, it had to be something, because the code is fine.

The next version of IceChat will have some better detection built in to automatically detect this, to save this grief.
The IceChat God

Maverick1030

  • Newbie
  • *
  • Posts: 11
Re: Permanent Font Color
« Reply #12 on: May 19, 2008, 01:00:16 PM »
sorry for all the trouble