Metin2 - Мини-система костюмов

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » Metin2 » Руководства для серверов » Руководства (старые) » Мини-система костюмов (*icon-0*)

Мини-система костюмов

RevisE

Дата: Суббота, 18.05.2013, 21:33 | Сообщение # 1

Сообщений: 440

[62]

Статус: Не на сайте

Взято с элите

Вот квесты , проверить не удосужился, нету того, на чем можно проверить ^^
За провалы в сервере не отвечаю - винить автора ! Срать в теме что то типо "У меня сервер перестал запускаться" или "Квест не компилирует" и etc. не надо !

--[[ScriptedbyNexT³ without MySQL]]--
--[[Version=1.0.0]]--
--[[CopyrightbyNexT³]]--
--[[ modified byTheMarv:<]]--

Цитата

Code:
quest costume_rofl begin state start beginfunction get_real_hair_id(id)return({[45003]=5002,[45004]=5002,[45005]=5003,[45006]=5003,[45007]=5004,[45008]=5004,[45009]=5005,[45010]=5005};)[id]endwhen login beginif pc.getqf("hair_use_vnum")==1then cmdchat("costume_hair "..pc.getqf("hair_use_vnum"))endif pc.getqf("use_costume")==1then cmdchat("costume_icon "..pc.getqf("costume_body"))end
loop_timer("check_costume",0.40)endwhen check_costume.timer beginif pc.getqf("use_costume")==1thenlocal a = pc.getqf("costume_body") pc.set_part(PART_MAIN, a)endendwhen41003.useor41004.useor41005.useor41006.useor41007.useor41008.useor41009.useor41010.useor41011.useor41012.useor41013.useor41014.u seor41015.useor41016.useor41017.useor41018.useor41019.useor41020.useor41021.useor41022.useor41023.useor41024.useor41025.useor41026.useor4102 7.useor41028.useor45003.useor45004.useor45005.useor45006.useor45007.useor45008.useor45009.useor45010.usebeginlocal vnum = item.get_vnum()if vnum >41002and vnum <41029thenif pc.getqf("use_costume")==1thenif vnum == pc.getqf("costume_body")then pc.setqf("use_costume",0) pc.setqf("costume_body",0)local old = pc.getqf("costume_part_old") pc.set_part(PART_MAIN, old) cmdchat("costume_icon "..vnum)else pc.setqf("costume_body", vnum) pc.set_part(PART_MAIN, vnum) cmdchat("costume_icon "..vnum)end
elseif pc.getqf("use_costume")==0then pc.setqf("use_costume",1)local old = pc.get_part(PART_MAIN) pc.setqf("costume_part_old", old) pc.set_part(PART_MAIN, vnum) pc.setqf("costume_body", vnum) cmdchat("costume_icon "..vnum) pc.setqf("costume_vnum", vnum) pc.removeitem(vnum)end
elseif vnum >45002and vnum <45011thenlocal vnum = item.get_vnum()local hair_vnum = costume_rofl.get_real_hair_id(vnum)if pc.getqf("use_costume_hair")==0then pc.setqf("old_hair_costume", pc.get_part(PART_HAIR)) pc.setqf("use_costume_hair",1) pc.setqf("hair_use_vnum", vnum) pc.set_part(PART_HAIR, hair_vnum) cmdchat("costume_hair "..vnum) pc.setqf("costume_vnum", vnum) pc.removeitem(vnum)
elseif pc.getqf("use_costume_hair")==1thenif vnum == pc.getqf("hair_use_vnum")then pc.setqf("use_costume_hair",0) pc.setqf("hair_use_vnum",0) pc.set_part(PART_HAIR, pc.getqf("old_hair_costume")) pc.setqf("old_hair_costume",0) cmdchat("costume_hair "..vnum)else pc.setqf("hair_use_vnum", vnum) pc.set_part(PART_HAIR, hair_vnum) cmdchat("costume_hair "..vnum)endendendendendend

Добавлено (18.05.2013, 20:33)
---------------------------------------------
Ну, как ? Никто не проверял ?)