GMBR
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Entrar

Esqueci-me da senha

Ú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]

Ir para baixo

Problema com Script scr_deltok [Resolvido] Empty Problema com Script scr_deltok [Resolvido]

Mensagem por luxtrike Qui 26 Nov 2009, 21:09

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

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
luxtrike

Data de inscrição : 18/08/2009
Reputação : 0
Número de Mensagens : 32
Prêmios : Problema com Script scr_deltok [Resolvido] Empty

Medalhas x 0 Tutoriais x 0 Moedas x 0

Ouro x 0 Prata x 0 Bronze x 0

Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0

Ir para o topo Ir para baixo

Problema com Script scr_deltok [Resolvido] Empty Re: Problema com Script scr_deltok [Resolvido]

Mensagem por Convidad Sáb 28 Nov 2009, 02:45

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):

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.
avatar
Convidad
Convidado


Ir para o topo Ir para baixo

Problema com Script scr_deltok [Resolvido] Empty Re: Problema com Script scr_deltok [Resolvido]

Mensagem por luxtrike Ter 01 Dez 2009, 03:09

muito obrigado Capitão Commando Surprised
luxtrike
luxtrike

Data de inscrição : 18/08/2009
Reputação : 0
Número de Mensagens : 32
Prêmios : Problema com Script scr_deltok [Resolvido] Empty

Medalhas x 0 Tutoriais x 0 Moedas x 0

Ouro x 0 Prata x 0 Bronze x 0

Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0

Ir para o topo Ir para baixo

Problema com Script scr_deltok [Resolvido] Empty Re: Problema com Script scr_deltok [Resolvido]

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos