If LCase(Mid(TextSay, 1, 4)) = "/red" Then If Len(TextSay) > 4 Then TextSay = Mid(TextSay, 5, Len(TextSay) - 4) Call TextBubble(index, 1, Trim(TextSay), GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 12) Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & Trim(TextSay), 12) End If Exit SubEnd IfIf LCase(Mid(TextSay, 1, 7)) = "/yellow" Then If Len(TextSay) > 7 Then TextSay = Mid(TextSay, 8, Len(TextSay) - 7) Call TextBubble(index, 1, Trim(TextSay), GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 14) Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & Trim(TextSay), 14) End If Exit SubEnd IfIf LCase(Mid(TextSay, 1, 5)) = "/cyan" Then If Len(TextSay) > 5 Then TextSay = Mid(TextSay, 6, Len(TextSay) - 5) Call TextBubble(index, 1, Trim(TextSay), GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 11) Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & Trim(TextSay), 11) End If Exit SubEnd IfIf LCase(Mid(TextSay, 1, 5)) = "/lime" Then If Len(TextSay) > 5 Then TextSay = Mid(TextSay, 6, Len(TextSay) - 5) Call TextBubble(index, 1, Trim(TextSay), GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 10) Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & Trim(TextSay), 10) End If Exit SubEnd If
I recon u hav a nack for gfx. :D
"Humans are beautiful, but humanity is not."
Remember that marshmallow from Ghost Busters? marsh is a Canadian version of that.
Hello! I am French and I have found my happiness on your software.
There re no necros in Script database.@Kim:Use the second. But this script will no longer work with EE 2.7 because it uses a different method for commands.
Dim TextBubbleSay
Case "/Red" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 12) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 12) Exit Sub Case "/Yellow" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 14) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 14) Exit Sub Case "/Cyan" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 11) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 11) Exit Sub Case "/Lime" Dim TextBubbleSay For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 10) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 10) Exit Sub
Here's a version of this script for EE 2.7/8.AddCode: [Select]Dim TextBubbleSay to the "dim" area of your commands subCode: [Select] Case "/Red" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 12) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 12) Exit Sub Case "/Yellow" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 14) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 14) Exit Sub Case "/Cyan" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 11) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 11) Exit Sub Case "/Lime" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 10) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 10) Exit SubThis might cause a RTE 9.. Not sure.. xD
Case "/Red" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 12) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 12) Exit Sub Case "/Yellow" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 14) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 14) Exit Sub Case "/Cyan" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 11) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 11) Exit Sub Case "/Lime" For x = 1 To UBound(TextSay) TextBubbleSay = TextBubbleSay + " " + TextSay(x) Next Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " : " & TextBubbleSay, 10) Call TextBubble(index, 1, TextBubbleSay, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), 10) Exit Sub