Gammon Forum

Option Explicit

Sub colorize (sName, sLine, aryWild)
  dim size
  dim Colored
  dim codes
'DEBUG TRIGGER
'  for i = LBound(aryWild) to UBound(aryWild)
'    note i & ": " & aryWild(i)
'  next
  
  codes = Array("^o","^W","^^") 'color codes
  size = UBound(aryWild) '1+3X+1?
  'except its length-1, so we dont need to 
  'subtract the 1 for the say/ic/yell
  Colored = aryWild(1)
  dim i
  For i = 2 to size Step 3
    'aryWild(i) whole thing
    'aryWild(i+1) whitespace
    'aryWild(i+2) word
    Colored = Colored & aryWild(i+1)
    Colored = Colored & codes(((i-1) mod 9)/(UBound(codes)+1))
    'append the color code (i-1) mod 9 is 0,3,6
    'divided by codes length (Ubound + 1) gives a corresponding
    'array element (0,1,2), this way you can simply change the
    'codes aray and not have to change anything else
    Colored = Colored & aryWild(i+2) 'append word
  Next
  Colored = Colored & aryWild(size) 'last bit
  
  Send Colored 'can't forget this
End Sub

sub OnAutoCombo (TriggerName, TriggerLine, arrWildCards)
dim AutoCombo
AutoCombo = split (arrWildCards (1))
Dim i, attack
     for i=lbound (AutoCombo ) to ubound (AutoCombo )
      Select Case AutoCombo (i)
       case "rp" attack = "punch right"
       case "lp" attack = "punch left"
       case "s" attack = "sweep"
       case "r" attack = "roundhouse"
       case else attack = "" ' unknown attack type
      End Select
  if i = ubound (AutoCombo ) then
  world.send "throw " + world.getvariable ("attacker") + " down"
else
world.send attack + " " + world.GetVariable ("attacker")
end if
next
end sub

Sub colorize (sName, sLine, aryWild)
dim string, i
string = split (aryWild(1))
  for i = LBound(string) to UBound(string)
    note i & ": " & string(i)
  next

End Sub

Sub colorize3 (sName, sLine, aryWild)
  dim size
  dim Colored
  dim codes
  dim string
string = split(aryWild(2))
  for i = LBound(string) to UBound(string)
  next
  
  codes = Array("^o","^W","^^")
  size = UBound(string) '1+3X+1?
  Colored = aryWild(1)
  dim i
  For i = 2 to size Step 3
    Colored = Colored & aryWild(i+1)
    Colored = Colored & codes(((i-1) mod 9)/(UBound(codes)+1))
    Colored = Colored & aryWild(i+2) 'append word
next
  Colored = Colored & arywild(2) 'last bit
  
  Note Colored 
End Sub

Sub colorize3 (sName, sLine, aryWild)
dim size, Colored, codes, string
string = split(aryWild(2))
  for i = LBound(string) to UBound(string)
  next  
  codes = Array("^o","^W","^^") 'color codes
for i = LBound(codes) to UBound(codes)
next
  size = UBound(string) '1+3X+1?
  'except its length-1, so we dont need to 
  'subtract the 1 for the say/ic/yell
  Colored = aryWild(1)

  dim i
  For i = 1 to size Step 1
    Colored = Colored & " " & codes(((i-2) mod 7)/(UBound(codes)+1)) & string(i)
  Next
 Send Colored
  
End Sub

Sub colorize3 (sName, sLine, aryWild)
dim size, Colored, codes, String, i, x
Colored = aryWild(1)
string = split(aryWild(2))
  for x = LBound(string) to UBound(string)
  	next  
Size = UBound(string)
codes = Array("^W","^^","^o")
		for i = LBound(codes) to UBound(codes)
			Next
  For i = 1 to size Step 1
    Colored = Colored & " " & codes((i-1) mod (UBound(codes)+1)) & string(i)
  Next
	Colored = Colored & "^^"
send Colored 
End Sub