'Params: Server, Channel, Sender, Msg
dim Name
dim Number
dim Holder
Dim List

if StrUtils.Contains(Msg, "plus initiative roll:") = True Then
	rem parse the name and number from Msg
	'Name
	Name = StrUtils.NParam(2,Msg)
	Name = StrUtils.DeleteRight(Name, StrUtils.ParamCount(Name), 2)

	'Number
	Number = StrUtils.NParam(StrUtils.ParamCount(Msg),Msg)
    if number = "0" or number = "1" or  number = "2" or  number = "3" or  number = "4" or  number = "5" or  number = "6" or  number = "7" or  number = "8" or  number = "9" then number = "0" & number

	'Format the info
	Holder =  Number & Name

	'Arrange the order
    Dim Max
	Max = 0

	Dim Current
	Current = 1

	Do
    Max = strutils.ParamCount(variables.GetVariant(List))
	if strUtils.leftStr(Holder,2) > strutils.LeftStr(strutils.NParam(Current,Variables.GetVariant(List)), 2) Then
    	Variables.SetVariant List, strutils.Insert(Variables.GetVariant(List),Holder & " ",Current)
	end if
    Current = Current + 1
	Loop until Current > Max

    if strUtils.Contains(Variables.GetVariant(List), Holder) = False then
    	Variables.SetVariant List, Variables.GetVariant(List) & " " & Holder
	end if

 	'Display the info
    Variables.SetVariant initorder, Variables.GetVariant(List)
	Channel.Command "say 4[5The Initiative order is:7 (" & Variables.GetVariant(InitOrder) & " )4]"

end if