Ajuda Seleçao do Chat [PE]

por Ryo Sáb 13 Out 2012, 19:52

Bom Galera Preciso de ajuda para tirar a caixa de seleçao do perfect engine Map Private Global...
Se alguem poder ajudar agradeço
Att: Lim Master

por Pablo Sáb 13 Out 2012, 19:56

clica na caixa, exclui e procura por:

Código:: ' Broadcast message

até

Código:: ' Player message

e mude para

Código:: ' Broadcast message If Mid(MyText, 1, 1) = "," Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Emote message If Mid(MyText, 1, 1) = "-" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call EmoteMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Party message If Mid(MyText, 1, 1) = "+" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call PartyMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Guild message If Mid(MyText, 1, 1) = "=" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) If Len(Trim(ChatText)) > 0 Then Call GuildMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Commands If Mid(MyText, 1, 9) = "/comandos" Then Call AddText(":::::::: Comandos ::::::::", White) Call AddText(", (broadcast), - (emote), + (party), = (guild), ! (private)", White) Call AddText("/info, /quem, /fps, /inv, /stats, /negociar, /grupo, /sair, /matar, /atualizar, /ajuda", White) Exit Sub End If ' Admin Commands If Mid(MyText, 1, 14) = "/admincmd" Then Call AddText(":::::::: Comandos de Admin ::::::::", White) Call AddText("/daynight, /weather, /kick", White) Call AddText("/loc, /warp, /warptome, /mapeditor, /mapreport, /setsprite, /setplayersprite, /respawn, /motd, /banlist, /ban", White) Call AddText("/edititem, /editarrow, /editemoticon, /editnpc, /editshop, /editspell, /editspeech", White) Call AddText("/setaccess, /nullbanlist, /debug, /editmain, /mainbackup, /admin", White) Exit Sub End If ' Player message If Mid(MyText, 1, 1) = "!" Then ChatText = Mid(MyText, 2, Len(MyText) - 1) Name = vbNullString ' Get the desired player from the user text For I = 1 To Len(ChatText) If Mid(ChatText, I, 1) <> " " Then Name = Name & Mid(ChatText, I, 1) Else Exit For End If Next I ' Make sure they are actually sending something If Len(ChatText) - I > 0 Then ChatText = Mid(ChatText, I + 1, Len(ChatText) - I) ' Send the message to the player Call PlayerMsg(ChatText, Name) Else Call AddText("Use: !<nome> <mensagem>", AlertColor) End If MyText = vbNullString Exit Sub End If

Bom acho que deve funcionar..

Atenciosamente,
Pablo

por Ryo Sáb 13 Out 2012, 20:14

Resolvido aki. Up pablo valeu mano

por Pablo Sáb 13 Out 2012, 20:25

Tranquilo, sempre que der e não for coisa dificil eu ajudo já que estou me destanciando mais de fóruns.
Renan Ou Pierre podem fechar aqui o tópico foi dado como resolvido.

Atenciosamente,
Pablo