System Advanced Equipment System

TriggerHappy · Apr 19, 2009

Advanced Equipment System

TriggerHappy187

Documentation

JASS:

//***************************************************************************
//*
//*  Equipment System - By TriggerHappy187
//*
//***************************************************************************
//*
//*  Installation
//*     + Copy the Equipment System folder to your map
//*     + Copy all of the abilities, and items into your map
//*     + Make sure you have the bonus mod in your map (just copy the bonus folder)
//*     + If you don&#039;t want to copy the abilitys, just enable the bonus plugins trigger, though it will increase save time.
//***************************************************************************
//*
//*  Documentation
//*     This equipment system allows your unit to have regular items
//*     and items that are &quot;equipped&quot;.
//*
//***************************************************************************
//*
//*  The Functions
//*
//*     EquipmentItem registers an item for the system.
//*
//*     UnitExtendEquipment registers a unit for the system.
//*
//***************************************************************************

Requires

JNGP or JassHelper
Bonus. (included in demo)

Usage

There are only two public functions in this system, and thats all you will need.

JASS:
```
function EquipmentItem
```
This function is used to register an item for the system, it lets you specify the item type, and bonuses.
JASS:
```
function UnitExtendEquipment
```
registers a unit for the system.

Code

JASS:

//***************************************************************************
//*
//*  Equipment System - By TriggerHappy187
//*
//***************************************************************************
//*
//*  Installation
//*     + Copy the Equipment System folder to your map
//*     + Copy all of the abilities, and items into your map
//*     + Make sure you have the bonus mod in your map (just copy the bonus folder)
//*     + If you don&#039;t want to copy the abilitys, just enable the bonus plugins trigger, though it will increase save time.
//***************************************************************************
//*
//*  Documentation
//*     This equipment system allows your unit to have regular items
//*     and items that are &quot;equipped&quot;.
//*
//***************************************************************************
//*
//*  The Functions
//*
//*     EquipmentItem registers an item for the system.
//*
//*     UnitExtendEquipment registers a unit for the system.
//*
//***************************************************************************


library EQSys initializer Init requires Bonus

    globals
        private constant integer OPEN_INV    = &#039;I000&#039;
        private constant integer CLOSE_INV   = &#039;I001&#039;
        
        private constant integer WEAPON      = &#039;I002&#039;
        private constant integer ARMOR       = &#039;I006&#039;
        private constant integer ACCESSORY   = &#039;I005&#039;
        private constant integer OFFHAND     = &#039;I003&#039;
        private constant integer HELMET      = &#039;I004&#039;
    endglobals
    
    globals
        private gamecache g
        integer EQUIPMENT_WEAPON = 0
        integer EQUIPMENT_ARMOR = 1
        integer EQUIPMENT_ACCESSORY = 3
        integer EQUIPMENT_OFFHAND = 4
        integer EQUIPMENT_HELMET = 2
        private integer array gettype
        private integer array thetype
    endglobals
    
    private function U2I takes unit u returns integer
        return u
        return 0
    endfunction
    
    private function GetUnitId takes unit u returns string
        return I2S(U2I(u)-0x100000)
    endfunction
    
    private function Conditions1 takes nothing returns boolean
        return GetItemTypeId(GetManipulatedItem()) == OPEN_INV
    endfunction
    
    private function Conditions2 takes nothing returns boolean
        return GetItemTypeId(GetManipulatedItem()) == CLOSE_INV
    endfunction
    
    private struct data
        
        integer array itm[6]
        integer array inv[6]
        
        trigger open = CreateTrigger()
        trigger close = CreateTrigger()
        
        boolean inInv = false
        boolean hasRoom
        
        static method openBag takes nothing returns nothing
            local unit u = GetTriggerUnit()
            local data d = GetStoredInteger(g, &quot;struct&quot;, GetUnitId(u))
            local integer i = 0
            set d.hasRoom = false
            loop
                exitwhen i == 6
                set d.inv<i> = GetItemTypeId(UnitItemInSlot(u, i))
                if GetItemName(UnitItemInSlot(u, i)) == null then
                    set d.hasRoom = true
                endif
                call RemoveItem(UnitItemInSlot(u, i))
                call UnitDropItemSlot(u, UnitAddItemById(u, d.itm<i>), i)
                call SetItemDroppable(UnitItemInSlot(u, i), false)
                set i = i + 1
            endloop
            set d.inInv = true
            call UnitDropItemSlot(u, UnitAddItemById(u, CLOSE_INV), 5)
        endmethod
        
        static method closeBag takes nothing returns nothing
            local unit u = GetTriggerUnit()
            local data d = GetStoredInteger(g, &quot;struct&quot;, GetUnitId(u))
            local integer i = 0
            call RemoveItem(UnitItemInSlot(u, 5))
            loop
                exitwhen i == 6
                set d.itm<i> = GetItemTypeId(UnitItemInSlot(u, i))
                call RemoveItem(UnitItemInSlot(u, i))
                call UnitDropItemSlot(u, UnitAddItemById(u, d.inv<i>), i)
                call SetItemDroppable(UnitItemInSlot(u, i), false)
                set i = i + 1
            endloop
            set d.inInv = false
        endmethod
        
        static method create takes unit u returns data
            local data d = data.allocate()
            local item i
            call StoreInteger(g, &quot;struct&quot;, GetUnitId(u), d)
            
            call TriggerRegisterUnitEvent(d.open, u, EVENT_UNIT_USE_ITEM)
            call TriggerAddAction(d.open, function data.openBag)
            call TriggerAddCondition(d.open, Condition(function Conditions1))
            
            call TriggerRegisterUnitEvent(d.close, u, EVENT_UNIT_USE_ITEM)
            call TriggerAddAction(d.close, function data.closeBag)
            call TriggerAddCondition(d.close, Condition(function Conditions2))
            
            set d.itm[0] = WEAPON 
            set d.itm[1] = ARMOR 
            set d.itm[2] = HELMET 
            set d.itm[3] = ACCESSORY
            set d.itm[4] = OFFHAND

            set i = CreateItem(OPEN_INV, 0, 0)
            call UnitAddItem(u, i)
            call UnitDropItemPoint(u, UnitItemInSlot(u, 5), GetUnitX(u), GetUnitY(u))
            call UnitDropItemSlot(u, i, 5)
            
            set i = null
            return d
        endmethod
        
    endstruct
    
    private struct bonus
    
        integer str 
        integer agi 
        integer int 
        integer dmg 
        integer def
        integer hp
        integer mp
        integer spd
        integer type

    endstruct
    
    
    function UnitExtendEquipment takes unit u returns nothing
        local data d = data.create(u)
    endfunction
    
    function EquipmentItem takes integer rawID, integer s,integer str, integer agi, integer int, integer dmg, integer def, integer hp, integer mp, integer spd returns nothing
        local bonus b = bonus.create()
        set b.str = str
        set b.agi = agi
        set b.int = int
        set b.dmg = dmg
        set b.def = def
        set b.hp = hp
        set b.mp = mp
        set b.spd = spd
        set b.type = s
        call StoreInteger(g, &quot;bonus&quot;, I2S(rawID), b) 
    endfunction
    
    private function GetItemNameById takes integer id returns string
        local item i = CreateItem(id, 0, 0)
        local string s = GetItemName(i)
        set i = null
        return s
    endfunction
    
    private function GetOpenSlot takes data d returns integer
        local integer i = 0
        loop
            exitwhen i == 6
            if d.inv<i> == 0 then
                return i
            endif
            set i = i + 1
        endloop
        return -1
    endfunction
    
    private function Equip takes nothing returns nothing
        local unit u = GetTriggerUnit()
        local integer i = GetItemTypeId(GetManipulatedItem())
        local bonus b = GetStoredInteger(g, &quot;bonus&quot;, I2S(i))
        local data d = GetStoredInteger(g, &quot;struct&quot;, GetUnitId(u))
        if b == 0 or d == 0 then
            return
        endif
        if d.inInv == false then
            if d.itm[b.type] == thetype[b.type] then
                set d.itm[b.type] = i
                
                set Bonus_Armor<u> = Bonus_Armor<u> + b.def
                set Bonus_Damage<u> = Bonus_Damage<u> + (b.dmg/5)
                set Bonus_Life<u> = Bonus_Life<u> + (b.hp/100)
                set Bonus_Mana<u> = Bonus_Mana<u> + (b.mp/100)
                set Bonus_Str<u> = Bonus_Str<u> + (b.str)
                set Bonus_Agi<u> = Bonus_Agi<u> + (b.agi)
                set Bonus_Int<u> = Bonus_Int<u> + (b.int)
                set Bonus_AttackSpeed<u> = Bonus_AttackSpeed<u> + (b.spd/5)
                
                call DisplayTextToPlayer(GetOwningPlayer(u), 0, 0, &quot;|cffffcc00Equipment:|r &quot; + GetItemName(GetManipulatedItem()) + &quot; has been equipped&quot;)
                call RemoveItem(GetManipulatedItem())
            else
                call DisplayTextToPlayer(GetOwningPlayer(u), 0, 0, &quot;|cffffcc00Equipment:|r You already have &quot; + GetItemNameById(d.itm[b.type]) + &quot; equipped&quot;)
            endif
        else
            if d.hasRoom then
                set i = GetOpenSlot(d)
                if i != -1 then
                    set d.inv<i> = GetItemTypeId(GetManipulatedItem())
                else
                    call CreateItem(GetItemTypeId(GetManipulatedItem()), GetUnitX(u), GetUnitY(u))
                endif
            else
                call CreateItem(GetItemTypeId(GetManipulatedItem()), GetUnitX(u), GetUnitY(u))
            endif
            call DisplayTextToPlayer(GetOwningPlayer(u), 0, 0, &quot;|cffffcc00Equipment:|r &quot; + GetItemName(GetManipulatedItem()) + &quot; has been unequipped&quot;)
            call RemoveItem(GetManipulatedItem())
            call UnitAddItemById(u, thetype[b.type])
            set d.itm[b.type] = thetype[b.type]
            
            set Bonus_Armor<u> = Bonus_Armor<u> - b.def
            set Bonus_Damage<u> = Bonus_Damage<u> - (b.dmg/5)
            set Bonus_Life<u> = Bonus_Life<u> - (b.hp/100)
            set Bonus_Mana<u> = Bonus_Mana<u> - (b.mp/100)
            set Bonus_Str<u> = Bonus_Str<u> - (b.str)
            set Bonus_Agi<u> = Bonus_Agi<u> - (b.agi)
            set Bonus_Int<u> = Bonus_Int<u> - (b.int)
            set Bonus_AttackSpeed<u> = Bonus_AttackSpeed<u> - (b.spd/5)
            
        endif
        set u = null
    endfunction
    
    private function Init takes nothing returns nothing
        local trigger t = CreateTrigger()
        call FlushGameCache(InitGameCache(&quot;eqsys&quot;))
        set g = InitGameCache(&quot;eqsys&quot;)
        call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_USE_ITEM )
        call TriggerAddAction(t, function Equip)
        
        set thetype[0] = WEAPON
        set thetype[1] = ARMOR
        set thetype[2] = HELMET
        set thetype[3] = ACCESSORY
        set thetype[4] = OFFHAND
    endfunction
    
endlibrary
</u></u></u></u></u></u></u></u></u></u></u></u></u></u></u></u></i></u></u></u></u></u></u></u></u></u></u></u></u></u></u></u></u></i></i></i></i></i>

D.V.D · Apr 19, 2009

Nice system. You can use HideItem function to make things easier.

TriggerHappy · Apr 19, 2009

D.V.D said:
Nice system. You can use HideItem function to make things easier.

Storing the item's id's is easier, imo.

Angel_Island · Apr 19, 2009

Nice :thup:, but the only thing bad is that it takes place in your real inventory. You can also make it a spell instead.

D.V.D · Apr 19, 2009

Its easier for people to do it in the inventory so they don't need to move the mouse back and forth.

TriggerHappy · Apr 20, 2009

Bump

Nexor · Apr 21, 2009

I've found a bug: if you have an item in the inventory, pick up another and want to equip the not equipped item, there will be an extra item will be created in the center of map

TriggerHappy · Apr 21, 2009

Nexor said:
I've found a bug: if you have an item in the inventory, pick up another and want to equip the not equipped item, there will be an extra item will be created in the center of map

I'm not sure what you mean.

The only item that will be created is if you don't have enough room

in your inventory, and you unequip an item, then it is created at your heroes position.

Flare · Apr 22, 2009

Your documentation of the usable functions need some work

Current documentation:

Code:
Code:

function EquipmentItem

This function is used to register an item for the system, it lets you specify the item type, and bonuses.

What you forgot to mention

Code:

function EquipmentItem takes [COLOR="Red"]integer rawID, integer s,integer str, integer agi, integer int, integer dmg, integer def, integer hp, integer mp, integer spd[/COLOR] returns nothing

You should list the arguments of the function in order, and what each argument corresponds to - without looking at the code, first question that comes to mind is what is s? What would be a good value to use for it?
'specify item type, and bonuses' isn't good enough, since you don't even explain what bonuses are available...

Might take a look at code later, if/when I get a chance

wraithseeker · Apr 22, 2009

Actually this looks good but it seems like something to replace Blade.dk 's AAA inventory which is more efficient and work well more.

TriggerHappy · Apr 22, 2009

wraithseeker said:
Actually this looks good but it seems like something to replace Blade.dk 's AAA inventory which is more efficient and work well more.

I'm pretty sure AAA inventory isn't as efficient as this.

wraithseeker · Apr 23, 2009

Sorry about that, I meant your's was more efficient

Immolation · Apr 25, 2009

When I try to equip an item when I already have equipped something in that slot, another item of the same type is created in the middle of the map.

Fix this, please

Asdfblah1 · May 19, 2009

He's talking about how, when you equip an item, and then equip an item of the same type, a duplicate is spawned in the center of the map. Try it for yourself--pick up two accessories. Equip one and click the latter.

Azlier · May 19, 2009

You could really use Table instead of your own game cache.

And:

JASS:

private function GetUnitId takes unit u returns string
    return I2S(U2I(u)-0x100000)
endfunction

With using the string for game cache, the subtraction is totally useless.

JASS:

call TriggerAddAction(t, function Equip)

Conditions, please.

JASS:

call TriggerAddAction(d.open, function data.openBag)
call TriggerRegisterUnitEvent(d.close, u, EVENT_UNIT_USE_ITEM)
call TriggerAddCondition(d.close, Condition(function Conditions1)
call TriggerAddAction(d.close, function data.closeBag)
call TriggerAddCondition(d.close, Condition(function Conditions2))

Again, conditions exclusively please.

System Advanced Equipment System

TriggerHappy

...

Attachments

D.V.D

Make a wish

TriggerHappy

...

Angel_Island

Much long, many time, wow

D.V.D

Make a wish

TriggerHappy

...

Nexor

...

TriggerHappy

...

Flare

Stops copies me!

wraithseeker

Tired.

TriggerHappy

...

wraithseeker

Tired.

Immolation

Member

Asdfblah1

New Member

Azlier

Old World Ghost

Settings Notifications

Options

The Helper Discord

Members online

Share this page

Affiliates

Network Sponsors

System Advanced Equipment System

...

Attachments

Make a wish

...

Much long, many time, wow

Make a wish

...

...

...

Stops copies me!

Tired.

...

Tired.

Member

New Member

Old World Ghost

Log in

The Helper Discord

Share this page

Affiliates

Network Sponsors