Special Apparel Shop - Original

            -- cha_timer
            if(_G['SpecialAppSummon'] ~= nil)then
                if _G['SpecialAppSummon'].monsterrole ~= nil then
                    if CheckMonsterDead(_G['SpecialAppSummon'].monsterrole) ~= 1 then
                        if _G['SpecialAppSummon'].step == 1  then
                            Say(_G['SpecialAppSummon'].monsterrole,"Hello "..GetChaDefaultName(_G['SpecialAppSummon'].summoner).." !")
                        elseif _G['SpecialAppSummon'].step == 16 then
                            Say(_G['SpecialAppSummon'].monsterrole,"This Is ".._G['SpecialAppSummon'].SetName.." !")

                        elseif _G['SpecialAppSummon'].step == 25 then
                            ChaMove(_G['SpecialAppSummon'].monsterrole,38125,58625)

                        elseif _G['SpecialAppSummon'].step == 30 then
                            ChaMove(_G['SpecialAppSummon'].monsterrole,38100,59500)

                        elseif _G['SpecialAppSummon'].step == 60 then
                            Say(_G['SpecialAppSummon'].monsterrole,"Bye!")
                            appmobsummoned = 0
                        end
                        _G['SpecialAppSummon'].step = _G['SpecialAppSummon'].step + 1

                    else
                            _G['SpecialAppSummon'] = nil
                            appmobsummoned = 0
                    end
                end
            end

appmobsummoned = 0
function SummonAppMob(role,monster,set)
    if(appmobsummoned ~= 1)then
        local MonsterRole = CreateChaX( monster , 38100 , 59500 , 0 , 1900000,role )
    SetChaLifeTime( MonsterRole, 10000 )
    appmobsummoned = 1
    _G['SpecialAppSummon'] = {summoner = role, step = 1,SetName=GetItemName(set),summoned = 1,monsterrole = MonsterRole}
    else
        SystemNotice(role,"Some Model Is Already Summoned")
    end
end

function GetApparelsList(req)
local NeededItem = 7838
    local IndexPageID = 3
    local ItemsPerPage = 0
    for i,v in pairs(SpecialApps) do
        if(v.Race == req or v.Race == 0)then
        ItemsPerPage = ItemsPerPage + 1
            if(ItemsPerPage < 8)then
                Text( 4, GetItemName(i),JumpPage,v.PageID)
            elseif(ItemsPerPage == 8)then
                Text( 4, 'Next Page ->',JumpPage,26)
                Text( 26, GetItemName(i),JumpPage,v.PageID)
            elseif(ItemsPerPage < 16)then
                Text( 26, GetItemName(i),JumpPage,v.PageID)
            elseif(ItemsPerPage == 16)then
                Text( 26, 'Next Page ->',JumpPage,3)
                Text( 26, GetItemName(i),JumpPage,v.PageID)
            else
                Text( 3, GetItemName(i),JumpPage,v.PageID)
            end
                InitTrigger()
                TriggerCondition( 1, HasItem, NeededItem, 1 )
                TriggerCondition( 1, HasLeaveBagGrid, 1 )
                TriggerCondition( 1, KitbagLock, 0 )
                TriggerAction( 1, TakeItem, NeededItem, 1 )
                TriggerAction( 1, GiveItem, i, 1 , 4)
                TriggerAction( 1, JumpPage, 3 )
                TriggerFailure( 1, JumpPage, 2 )
                Talk(v.PageID,"You Sure You Want"..GetItemName(i).." ?")
                Text( v.PageID, "Get Apparel!",MultiTrigger, GetMultiTrigger(), 1)
                InitTrigger()
                TriggerAction( 1, SummonAppMob, v.Monster,i)
                Text( v.PageID, "Try The Apparel",MultiTrigger, GetMultiTrigger(), 1)
        end
    end
end