Entrar
Últimos assuntos
» Retorno da GMBR!!!por theguitarmester Ter 19 Mar 2024, 22:38
» Procuro Programador de game maker
por Wou Sex 15 Mar 2024, 10:27
» Mod APK
por gamerainha Qua 13 Mar 2024, 06:30
» Mudar cor de apenas uma palavra
por lunalol Sex 01 Mar 2024, 13:42
» Aceito pedidos de sprites (Com exemplos meus)
por Sevilha Qua 28 Fev 2024, 12:17
» Inventário simples
por Isquilo_Roedor Qui 22 Fev 2024, 15:18
» Problemas na programaçnao de inimigo [jogo DOOM LIKE]
por Black Mirror Dom 11 Fev 2024, 13:34
» ANDROID MULTI TOUCH
por DiegoBr Dom 04 Fev 2024, 12:13
» Servidor de Discord do fórum?
por Lighter Sáb 27 Jan 2024, 17:18
» Save e Load Json
por Klinton Rodrigues Qui 25 Jan 2024, 11:12
» Colisão com mais de um objeto
por aminaro Seg 22 Jan 2024, 15:02
» Oi sou novo aqui
por Thiago Silveira Alexandre Sáb 20 Jan 2024, 20:55
» Como acessar conteudo comprado no marketplace
por macmilam Sex 19 Jan 2024, 07:42
» Devlogs em vídeos do Block Room
por Joton Seg 15 Jan 2024, 16:56
» Alguém aqui já ganha dinheiro com seus games?
por Joton Seg 15 Jan 2024, 16:49
» ACERVO GMBR MAGAZINE
por Joton Qui 11 Jan 2024, 19:21
» como aumentar o obj sem aumentar a colisão??
por GabrielXavier Qua 10 Jan 2024, 07:21
» Asteroid Core - Early Acesse Update [0.2.0.0]
por JOZ. Seg 08 Jan 2024, 14:39
» Versionamento de código com GitHub
por GabrielXavier Seg 08 Jan 2024, 07:32
» Rio Rise - novo launcher do Gta San Andreas SAMP Brasil
por kolesovsup Sex 29 Dez 2023, 07:16
» a funçao approach ainda existe?
por PEDRINDEV Ter 26 Dez 2023, 20:05
» Inimigo ataca até por trás! >:(
por saim Sex 22 Dez 2023, 08:55
» [RESOLVIDO]Spawn após morte
por Deception_1999 Dom 17 Dez 2023, 16:39
» Remunerado $$$ - Procuro programador para ajudar a "montar" um jogo
por theguitarmester Sáb 02 Dez 2023, 16:28
» Game maker nao abre
por Cerf Dom 26 Nov 2023, 12:01
Problema com Script scr_deltok [Resolvido]
Página 1 de 1
Problema com Script scr_deltok [Resolvido]
Olá amigos da GMBR
Eu estou fazendo um script para remover palavras de uma frase, eu posso dizer que eu consegui fazer 80% do trabalho, mas um problema que eu não consigo resolver apareceu aqui e o que acontece é que o script não remove a ultima palavra na frase, a não ser que a frase tenha apenas uma palavra, fora isso ela funciona da maneira que eu quero.
Abaixo segue o code do script que deve ser nomeado como: scr_deltok
Mais exemplos do script acima:
ex: script_execute(scr_deltok,"item1 item2 item3",1,1,32)
o exemplo acima ira retornar: "item2 item3"
Aqui está o problema!
ex: script_execute(scr_deltok,"item1 item2 item3",3,1,32)
o exemplo acima ira retornar: "item1 item2 item3"
mas deveria retornar: "item1 item2"
ex: script_execute(scr_deltok,"item1,item2,item3,item4",2,1,44)
o exemplo acima ira retornar: "item1,item3,item4"
ex: script_execute(scr_deltok,"item1,item2,item3,item4",2,2,44)
o exemplo acima ira retornar: "item1,item4"
Eu estou fazendo um script para remover palavras de uma frase, eu posso dizer que eu consegui fazer 80% do trabalho, mas um problema que eu não consigo resolver apareceu aqui e o que acontece é que o script não remove a ultima palavra na frase, a não ser que a frase tenha apenas uma palavra, fora isso ela funciona da maneira que eu quero.
Abaixo segue o code do script que deve ser nomeado como: scr_deltok
- Código:
//script_execute(scr_deltok,str,tok,numtok,char)
// str [string] texto
// tok [integer] posicao inicial do token
// numtok [integer] quantos tokens serao removidos
// char [integer] valor ascii do caractere
//
// ex: script_execute(scr_deltok,"item1 item2 item3",1,2,32)
// o exemplo acima ira retornar: "item3"
str=argument0
tok=argument1
ntok=argument2
char=argument3
tokens=string_count(chr(char),str)+1
if (tokens = 1) and (tok = 1) {return ""}
else {
if (string_length(str) > 0) and (tok > 0) and (tok <= tokens) and ((tok-1)+ntok <= tokens) {
str=str+chr(char)
tt=tok+ntok
if (tt > tokens) {ntok=tokens-tok}
ntok+=1
cn=1
ct=string_length(str)
current_token=1
cstart=0
cend=0
for (cn=1;cn<=ct;cn+=1) {
n=string_char_at(str,cn)
if (n = chr(char)) {current_token+=1}
if (current_token = tok) and (cstart = 0) {cstart=cn;current_token=1}
if (cstart > 0) and (current_token >= ntok) {
cend=cn-cstart
cn=ct+1
r=string_delete(str,cstart,cend)
f=string_copy(r,1,1)
if (f = chr(char)) {rr=string_replace(r,chr(char),"")}
else {rr=r}
ct=string_length(rr)
l=string_copy(rr,ct-1,1)
rr=string_copy(rr,1,ct-1)
return rr
}
}
}
else {return str}
}
Mais exemplos do script acima:
ex: script_execute(scr_deltok,"item1 item2 item3",1,1,32)
o exemplo acima ira retornar: "item2 item3"
Aqui está o problema!
ex: script_execute(scr_deltok,"item1 item2 item3",3,1,32)
o exemplo acima ira retornar: "item1 item2 item3"
mas deveria retornar: "item1 item2"
ex: script_execute(scr_deltok,"item1,item2,item3,item4",2,1,44)
o exemplo acima ira retornar: "item1,item3,item4"
ex: script_execute(scr_deltok,"item1,item2,item3,item4",2,2,44)
o exemplo acima ira retornar: "item1,item4"
Última edição por luxtrike em Ter 01 Dez 2009, 03:10, editado 1 vez(es)
luxtrike- Data de inscrição : 18/08/2009
Reputação : 0
Número de Mensagens : 32
Prêmios :
x 0 x 0 x 0
x 0 x 0 x 0
x 0 x 0 x 0
Re: Problema com Script scr_deltok [Resolvido]
Eu acredito que o problema é que o script não encontra o último delimitador (token). Se você chamar o script adicionando um char que seja token ao final da string, ele funciona.
Editado
É isso mesmo. Vá até a linha 15 e substitua por esta (logo depois de assimilar os argumentos às variáveis):
Obs: (É só uma dica [:¬)])
Você pode chamar seus scripts apenas pelo nome e os argumentos. Por exemplo:
Boa sorte.
Capitão Commando.
Editado
É isso mesmo. Vá até a linha 15 e substitua por esta (logo depois de assimilar os argumentos às variáveis):
- Código:
tokens=string_count(chr(char),str + chr(char)) +1
Obs: (É só uma dica [:¬)])
Você pode chamar seus scripts apenas pelo nome e os argumentos. Por exemplo:
- Código:
scr_deltok("item1,item2,item3,item4",2,1,44)
Boa sorte.
Capitão Commando.
Convidad- Convidado
Re: Problema com Script scr_deltok [Resolvido]
muito obrigado Capitão Commando
luxtrike- Data de inscrição : 18/08/2009
Reputação : 0
Número de Mensagens : 32
Prêmios :
x 0 x 0 x 0
x 0 x 0 x 0
x 0 x 0 x 0
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|