TeaM KingS
[center]Ola Convidado, seja bem vindo ao TeaM KingS !

Nós temos tutoriais sobre o WarCraft World Editor: se você tiver alguma duvida pode perguntar que os moderadores ou membros experientes vão lhe ajudar.

Para melhor utilizar nossos recursos é extremamente recomendado que esteja logado em nosso fórum e que leia o nosso regulamento oficial.

Também temos fóruns sobre DotA AllstarS, com guias, estratégias, e muito mais!



[System] Item Stack Sys

Ir em baixo

[System] Item Stack Sys

Mensagem por Gilgamesh em 2013-05-11, 12:38

Introdução:
Sistema comum de carregamento de itens que soma a quantidade de cargas de todos os itens do mesmo tipo em um slot do inventário. Permite facilmente alterar a quantidade máxima de itens em um mesmo slot do inventário.

Instalação: Wink
Apenas copie o script no spoiler abaixo e cole em uma trigger custom text.

Spoiler:

//*************************************
//*
//* Created by Pedro Fernandes
//* www.JassCraft.blogspot.com
//*
//*************************************

scope ItemStack initializer init

globals
private trigger t = CreateTrigger()
private integer id = 0
private constant integer max = 15 // Quantidade Máxima de Cargas
endglobals

private function stackItem takes nothing returns nothing
local unit u = GetTriggerUnit()
local item it = GetManipulatedItem()
local integer i = GetItemCharges(GetManipulatedItem())
local integer i2 = 0
local integer i3 = 0
local integer i4 = 0

loop
if GetItemTypeId(it) == GetItemTypeId(UnitItemInSlot(u,i4)) and GetItemCharges(UnitItemInSlot(u,i4)) + GetItemCharges(it) <= max then
if UnitItemInSlot(u,i4) != it then
set i2 = GetItemCharges(UnitItemInSlot(u,i4)) + GetItemCharges(it)
call SetItemCharges(UnitItemInSlot(u,i4),i2)
call RemoveItem(it)
set i4 = 7
endif
elseif i4 < 7 then
set i4 = i4 + 1
exitwhen i4 >=6
endif
endloop

set i2 = 0
set i = 0
set it = null
set u = null
endfunction

private function checkSlots takes nothing returns boolean
return GetItemCharges(GetManipulatedItem())>0
endfunction

private function init takes nothing returns nothing
loop
call TriggerRegisterPlayerUnitEvent(t,Player(id),ConvertPlayerUnitEvent(49),null)
set id = id + 1
exitwhen id == 12
endloop
call TriggerAddCondition(t,Condition(function checkSlots))
call TriggerAddAction(t,function stackItem)
endfunction

endscope

avatar
Gilgamesh

Número de Posts : 313
Data de inscrição : 11/05/2013
Reputação : 69 Pontos : 13564

Warning Necropost
0 / 1000 / 100


http://www.DotCastleBR.forumeiros.com

Voltar ao Topo Ir em baixo

Re: [System] Item Stack Sys

Mensagem por Devinganca em 2014-02-23, 16:45

ow mano o programa parece que tem virus ou to errado ??? uso o Avg 2014
avatar
Devinganca

Número de Posts : 37
Data de inscrição : 14/11/2011
Reputação : 9 Pontos : 13328

Warning Necropost
0 / 1000 / 100


Voltar ao Topo Ir em baixo

Re: [System] Item Stack Sys

Mensagem por Gilgamesh em 2014-02-23, 18:07

Devinganca escreveu:ow mano o programa parece que tem virus ou to errado ??? uso o Avg 2014

Tem não, é só alarme falso. Quando baixar ele tem que seguir os passos mostrados no vídeo e adicionar o programa à lista de permissões do firewall e de todos os anti-vírus que tiver instalado no PC.

Esse programa é como um World Editor melhorado, ele oferece uma série de recursos a mais.



Ei Convidado, você já conhece meu fórum?
Oferecemos todo suporte necessário para a criação de seus mapas!

- Parceiro Oficial TeamKings™ -

.: Menu de Navegação :.
Página Principal
Regras
Ferramentas
Tutoriais
Spells
Systems
Cheated Maps
avatar
Gilgamesh

Número de Posts : 313
Data de inscrição : 11/05/2013
Reputação : 69 Pontos : 13564

Warning Necropost
0 / 1000 / 100


http://www.DotCastleBR.forumeiros.com

Voltar ao Topo Ir em baixo

Re: [System] Item Stack Sys

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum