[ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

por hardsfree Ter 08 Mar 2011, 12:41

comando de add força, defesa, agilidade e inteligencia.

ABRA SEU principal.txt E PROCURE POR:

Código:: Sub Commands(index) On Error Resume Next Dim Portal Dim mapnum Dim x Dim y Dim i Dim TextSay Dim n Dim m Dim C m = GetVar("Dados.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

DE UM ENTER E ADICIONE:

Código:: 'ADD PONTOS DEPOIS DE FULL! 'COMANDO DE ADICIONAR EM FORÇA! If LCase(Trim(TextSay)) = "/addfor 1" Then 'coloque o comando q vc quer... If GetPlayerstr(index) < 1000000 Then 'aqui coloque o maximo de Força do seu jogo... Call BattleMsg(index, "Você Precisa Ser Full em Força para usar Esse comando!", 12, 0) 'mensagen q fala se ele n ter os pontos full... Else If GetPlayerPOINTS(index) > 50 Then 'pontos q vai usar ... Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 50) 'pega os 50 e taka em força = 1... Call SetPlayerstr(index, GetPlayerstr(index) + 1) Call SendStats(Index) Call MsgBox(index, "Você adicionou 1 ponto em Força!", 15, 0) 'mensagen de quando add... Exit Sub End If End If End if 'COMANDO DE ADICIONAR EM DEFESA! If LCase(Trim(TextSay)) = "/adddef 1" Then 'coloque o comando q vc quer... If GetPlayerdef(index) < 1000000 Then 'aqui coloque o maximo de força do seu jogo... Call BattleMsg(index, "Você Precisa Ser Full em Defesa para usar Esse comando!", 12, 0) 'mensagen q fala se ele n ter os pontos full... Else If GetPlayerPOINTS(index) > 50 Then 'pontos q vai usar ... Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 50) 'pega os 50 e taka em Defesa = 1... Call SetPlayerdef(index, GetPlayerdef(index) + 1) Call SendStats(Index) Call MsgBox(index, "Você adicionou 1 ponto em Defesa!", 15, 0) 'mensagen de quando add... Exit Sub End If End If End if 'COMANDO DE ADICIONAR EM AGILIDADE! If LCase(Trim(TextSay)) = "/addagi 1" Then 'coloque o comando q vc quer... If GetPlayerspeed(index) < 1000000 Then 'aqui coloque o maximo de Agilidade do seu jogo... Call BattleMsg(index, "Você Precisa Ser Full em Agilidade para usar Esse comando!", 12, 0) 'mensagen q fala se ele n ter os pontos full... Else If GetPlayerPOINTS(index) > 50 Then 'pontos q vai usar ... Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 50) 'pega os 50 e taka em Agilidade = 1... Call SetPlayerspeed(index, GetPlayerspeed(index) + 1) Call SendStats(Index) Call MsgBox(index, "Você adicionou 1 ponto em Agilidade!", 15, 0) 'mensagen de quando add... Exit Sub End If End If End if 'COMANDO DE ADICIONAR EM INTELIGENCIA! If LCase(Trim(TextSay)) = "/addint 1" Then 'coloque o comando q vc quer... If GetPlayermagi(index) < 1000000 Then 'aqui coloque o maximo de Inteligencia do seu jogo... Call BattleMsg(index, "Você Precisa Ser Full em Inteligencia para usar Esse comando!", 12, 0) 'mensagen q fala se ele n ter os pontos full... Else If GetPlayerPOINTS(index) > 50 Then 'pontos q vai usar ... Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 50) 'pega os 50 e taka em Inteligencia = 1... Call SetPlayermagi(index, GetPlayermagi(index) + 1) Call SendStats(Index) Call MsgBox(index, "Você adicionou 1 ponto em Inteligencia!", 15, 0) 'mensagen de quando add... Exit Sub End If End If End if

PRONTO! Creditos ao Meu Amigo Lucas Roberto por fazer o sistema!

nao se esqueça pra add força é /addfor 1 adiciona 1 em força e usa 50 pontos

nao se esqueça pra add força é /adddef 1 adiciona 1 em defesa e usa 50 pontos

nao se esqueça pra add força é /addagi 1 adiciona 1 em agilidade e usa 50 pontos

nao se esqueça pra add força é /addint 1 adiciona 1 em inteligencia e usa 50 pontos

só dps que tiver full pode usar esses comandos !

por Blade Qui 10 Mar 2011, 16:44

Cara me ajudou muito + 1 de cred Laughing

por Ricardo Qui 10 Mar 2011, 16:48

Ja existe esse topico e não vejo o que vc modificou

por hardsfree Qui 10 Mar 2011, 18:03

EU SÓ TO POSTANDO O RESTO O Gu1lh3rm3 COMEÇO E EU TO TERMINANDO [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO] 329928

O Gu1lh3rm3 POSTOU O COMANDO DE ADD FORÇA SÓ E EU O RESTO

por Lucas Roberto Qui 10 Mar 2011, 18:20

Guilherme Oo

essa e a mais nova sistema foi feito por mim --'
tem ate no parte do Elysium Diamond

mais ta bls...

por hardsfree Qui 10 Mar 2011, 18:22

a foi mal eu n sabia eu vi o do Gu1lh3rm3 e fui tenta faze pra defesa ,agilidade, inteligencia n sabia msm que era seu malz [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO] 899313

[ALL]ADD PONTOS DPS DE FULL! [MODIFICADO] 899313

por Lucas Roberto Qui 10 Mar 2011, 18:24

de boa...
so coloque os creditos devido

por hardsfree Qui 10 Mar 2011, 18:27

pronto!

por Conteúdo patrocinado

[ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

[ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]

Re: [ALL]ADD PONTOS DPS DE FULL! [MODIFICADO]