im gonna have a little look at the link.why make one? when there is a finished one?
Tc's Chat System - Wc3campaigns
That would be niiice!!
.
Init ChatBox
Events
Map initialization
Conditions
Actions
Wait 0.00 seconds
Multiboard - Create a multiboard with 2 columns and 10 rows, titled Chatbox
Set Chatbox_Multiboard = (Last created multiboard)
For each (Integer A) from 1 to 10, do (Actions)
Loops - Actions
Multiboard - Set the display style for Chatbox_Multiboard item in column 1, row (Integer A) to Show text and Hide icons
Multiboard - Set the display style for Chatbox_Multiboard item in column 2, row (Integer A) to Show text and Hide icons
Multiboard - Set the width for Chatbox_Multiboard item in column 1, row (Integer A) to 5.00% of the total screen width
Multiboard - Set the width for Chatbox_Multiboard item in column 2, row (Integer A) to 10.00% of the total screen width
Multiboard - Set the text for Chatbox_Multiboard item in column 1, row 1 to Name
Multiboard - Set the text for Chatbox_Multiboard item in column 2, row 1 to Chat
Multiboard - Show Chatbox_Multiboard
SomeOne Write
Events
Player - <Your Player or Players> types a chat message containing <Empty String> as A Part-String
Conditions
Actions
For each (Integer A) from 2 to 10, do (Actions)
Loops - Actions
Multiboard - Set the text for Chatbox_Multiboard item in column 1, row (Integer A) to <Emtpy String>
Multiboard - Set the text for Chatbox_Multiboard item in column 2, row (Integer A) to <Empty String>
Set Chatbox_TempLine = 1
Custom script: set bj_forLoopAIndex=4
Custom script: set bj_forLoopAIndexEnd = 0
Custom script: loop
Custom script: exitwhen bj_forLoopAIndex<bj_forLoopAIndexEnd
Set Chatbox_Name[(Integer A)] = Chatbox_Name[((Integer A) - 1)]
Set Chatbox_Texts[(Integer A)] = Chatbox_Texts[((Integer A) - 1)]
Custom script: set bj_forLoopAIndex = bj_forLoopAIndex - 1
Custom script: endloop
Set Chatbox_Name[1] = (Name of (Triggering player))
Set Chatbox_Texts[1] = (Entered chat string)
For each (Integer A) from 1 to 4, do (Actions)
Loops - Actions
Multiboard - Set the text for Chatbox_Multiboard item in column 1, row (Chatbox_TempLine + 1) to Chatbox_Name[(Integer A)]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
'IF'-Conditions
(Length of Chatbox_Texts[(Integer A)]) Bigger As 14
'THEN'-Actions
Set Chatbox_TempText = Chatbox_Texts[(Integer A)]
Set Chatbox_TempLine = (Chatbox_TempLine + 1)
Multiboard - Set the text for Chatbox_Multiboard item in column 2, row Chatbox_TempLine to (Substring(Chatbox_TempText, 1, 14))
For each (Integer B) from 1 to 3, do (Actions)
Loops - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
'IF'-Conditions
(Length of Chatbox_TempText) Bigger As 14
'THEN'-Actions
Set Chatbox_TempText = (Substring(Chatbox_TempText, (15 x (Integer B)), (Length of Chatbox_TempText)))
Set Chatbox_TempLine = (Chatbox_TempLine + 1)
Multiboard - Set the text for Chatbox_Multiboard item in column 2, row Chatbox_TempLine to (Substring(Chatbox_TempText, 1, 14))
'ELSE'-Actions
'ELSE'-Actions
Set Chatbox_TempLine = (Chatbox_TempLine + 1)
Multiboard - Set the text for Chatbox_Multiboard item in column 2, row Chatbox_TempLine to Chatbox_Texts[(Integer A)]
thanks
