For some obscure reason, this segment crashes MUSHClient
Sub subShowReport (strName, strLine, strWildcards)
Dim intCounter
'World.Notecolourfore = vbGreen
World.Note "----------------------------================= EQHit Report =================----------------------------"
World.Note "| ### | Name | AC | Al | Hts | Ttl | Rpr |"
World.Note "--------------------------------------------------------------------------------------------------------"
'World.Notecolourfore = vbGray
For intCounter = 0 to UBound(strEQTable, 2)
World.Tell "| "
World.Tell fnSpacePad(intCounter, 3, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(0, intCounter), 66, False)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(1, intCounter), 2, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(2, intCounter), 2, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(3, intCounter), 3, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(4, intCounter), 3, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(5, intCounter), 3, True)
World.Note " |"
Next
World.Note "--------------------------------------------------------------------------------------------------------"
World.Note ""
End Sub
I commented the World.setforecolor out, because it crashed there as well. Please fix this, i am writing a plugin and i really need world.tell :(
Sub subShowReport (strName, strLine, strWildcards)
Dim intCounter
'World.Notecolourfore = vbGreen
World.Note "----------------------------================= EQHit Report =================----------------------------"
World.Note "| ### | Name | AC | Al | Hts | Ttl | Rpr |"
World.Note "--------------------------------------------------------------------------------------------------------"
'World.Notecolourfore = vbGray
For intCounter = 0 to UBound(strEQTable, 2)
World.Tell "| "
World.Tell fnSpacePad(intCounter, 3, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(0, intCounter), 66, False)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(1, intCounter), 2, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(2, intCounter), 2, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(3, intCounter), 3, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(4, intCounter), 3, True)
World.Tell " | "
World.Tell fnSpacePad(strEQTable(5, intCounter), 3, True)
World.Note " |"
Next
World.Note "--------------------------------------------------------------------------------------------------------"
World.Note ""
End Sub
I commented the World.setforecolor out, because it crashed there as well. Please fix this, i am writing a plugin and i really need world.tell :(