Перейти к содержанию

Visual

Очередь
  • Постов

    37
  • Зарегистрирован

  • Посещение

  • Победитель дней

    2

Сообщения, опубликованные Visual


  1. - shop quest_shop -1,7227:25
    prontera,151,182,5 script Shop 752,{
    set @i,0;
    mes "[^2400FFRed Baron^000000]";
    mes "^C600FFПредставляю Вам мои вещи, которые я хочу полменять на....^000000.";
    mes "^C600FFНу например, я бы поменялся на^000000:";
    mes "^FF7E00TCG Cards^000000.";
    mes "";
    mes "^C600FFИ пока не забыл сказать^000000:";
    mes "^FF0000Я продаю ТОЛЬКО по 1 вещи за раз^000000.";
    callshop "quest_shop",1;
    npcshopattach "quest_shop";
    end;
    OnBuyItem:
    if(.BuildQuest) {
    for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {}
    npcshopadditem "quest_shop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
    setarray .Shop[.i],getarg(.e+2);
    set .i,.i+1;
    goto Quest_Setup;
    }
    if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
    for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
    mes "[^2400FFShop NPC^000000]";
    mes "Мне необходимы:";
    for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^C600FF":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
    if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^C600FF":"") + "" + getarg(@i) + " Zeny";
    mes "^000000А взамен я дам:^0000FF";
    for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
    switch(select("Поменяться:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Примерить вещь":"") + ":Нет, спасибо")) {
    case 1:
    for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
    next;
    mes "У Вас всего: " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", хотя я желаю: " + getarg(@i+1) + ".";
    mes "Вам не хватает ещё: ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + "," + getitemname(getarg(@i)) + "^000000.";
    close;
    }
    if(Zeny < getarg(@i)) {
    next;
    mes "У Вас не хватает денег.";
    mes "Пожалуйста принесите ещё ^FF0000" + (getarg(@i)-Zeny) + " zeny^000000.";
    close;
    }
    for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
    set Zeny,Zeny-getarg(@i);
    for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
    if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " Вы приобрели: " + getitemname(@bought_nameid) + "!",bc_blue|bc_self;
    close;
    case 2:
    set @bottomview, getlook(3);
    set @topview, getlook(4);
    set @midview, getlook(5);
    addtimer 1000, strnpcinfo(3)+"::On_Leave";
    set @equip,getiteminfo(@bought_nameid, 5);
    set @view, getiteminfo(@bought_nameid, 11);
    if(@equip != -1 && @view > 0) {
    if(@equip & 1) atcommand "@changelook 3 " + @view;
    if(@equip & 256) atcommand "@changelook 1 " + @view;
    if(@equip & 512) atcommand "@changelook 2 " + @view;
    }
    next;
    goto OnBuyItem;
    case 3:
    close;
    }
    On_Leave:
    atcommand "@changelook 1 " + @topview;
    atcommand "@changelook 2 " + @midview;
    atcommand "@changelook 3 " + @bottomview;
    set @equip,0;
    set @view,0;
    set @topview,0;
    set @midview,0;
    set @bottomview,0;
    end;
    OnInit:
    waitingroom "[ TCG Shop ]",0;
    npcshopitem "quest_shop",0,0;
    set .BuildQuest,1;
    set .i,1;
    Quest_Setup:
    switch(.i) {
    default: set .BuildQuest,0; set .e,0; set .i,0; end;
    case 1: callsub OnBuyItem,7227,15,15,"SZeny",23000,1; //BERET
    case 2: callsub OnBuyItem,7227,15,15,"SZeny",23001,1;
    case 3: callsub OnBuyItem,7227,15,15,"SZeny",23002,1;
    case 4: callsub OnBuyItem,7227,15,15,"SZeny",23003,1;
    case 5: callsub OnBuyItem,7227,15,15,"SZeny",23004,1;
    case 6: callsub OnBuyItem,7227,15,15,"SZeny",23005,1;
    case 7: callsub OnBuyItem,7227,15,15,"SZeny",23006,1;
    case 8: callsub OnBuyItem,7227,25,25,"SZeny",23010,1; //Feather Beret
    case 9: callsub OnBuyItem,7227,25,25,"SZeny",23011,1;
    case 10: callsub OnBuyItem,7227,25,25,"SZeny",23012,1;
    case 11: callsub OnBuyItem,7227,25,25,"SZeny",23013,1;
    case 12: callsub OnBuyItem,7227,25,25,"SZeny",23014,1;
    case 13: callsub OnBuyItem,7227,25,25,"SZeny",23015,1;
    case 14: callsub OnBuyItem,7227,25,25,"SZeny",23016,1;
    case 15: callsub OnBuyItem,7227,15,15,"SZeny",30041,1; //Love Cap
    case 16: callsub OnBuyItem,7227,15,15,"SZeny",30042,1;
    case 17: callsub OnBuyItem,7227,15,15,"SZeny",30043,1;
    case 18: callsub OnBuyItem,7227,15,15,"SZeny",30044,1;
    case 19: callsub OnBuyItem,7227,15,15,"SZeny",30045,1;
    case 20: callsub OnBuyItem,7227,15,15,"SZeny",30046,1;
    case 21: callsub OnBuyItem,7227,15,15,"SZeny",30047,1;
    case 22: callsub OnBuyItem,7227,15,15,"SZeny",30048,1;
    case 23: callsub OnBuyItem,7227,15,15,"SZeny",30049,1;
    case 24: callsub OnBuyItem,7227,25,25,"SZeny",25041,1; //Lovely_Bunny
    case 25: callsub OnBuyItem,7227,25,25,"SZeny",25042,1;
    case 26: callsub OnBuyItem,7227,25,25,"SZeny",25043,1;
    case 27: callsub OnBuyItem,7227,25,25,"SZeny",25044,1;
    case 28: callsub OnBuyItem,7227,25,25,"SZeny",25045,1;
    case 29: callsub OnBuyItem,7227,25,25,"SZeny",25046,1;
    case 30: callsub OnBuyItem,7227,25,25,"SZeny",25047,1;
    case 31: callsub OnBuyItem,7227,25,25,"SZeny",25048,1;
    case 32: callsub OnBuyItem,7227,25,25,"SZeny",25049,1;
    case 33: callsub OnBuyItem,7227,15,15,"SZeny",30001,1; //Astronaut_Helmet
    case 34: callsub OnBuyItem,7227,15,15,"SZeny",30002,1;
    case 35: callsub OnBuyItem,7227,15,15,"SZeny",30003,1;
    case 36: callsub OnBuyItem,7227,15,15,"SZeny",30004,1;
    case 37: callsub OnBuyItem,7227,15,15,"SZeny",30005,1;
    case 38: callsub OnBuyItem,7227,15,15,"SZeny",30006,1;
    case 39: callsub OnBuyItem,7227,15,15,"SZeny",30007,1;
    case 40: callsub OnBuyItem,7227,15,15,"SZeny",30008,1;
    case 41: callsub OnBuyItem,7227,25,25,"SZeny",5013,1; //LKH
    case 42: callsub OnBuyItem,7227,25,25,"SZeny",23020,1;
    case 43: callsub OnBuyItem,7227,25,25,"SZeny",23021,1;
    case 44: callsub OnBuyItem,7227,25,25,"SZeny",23022,1;
    case 45: callsub OnBuyItem,7227,25,25,"SZeny",23023,1;
    case 46: callsub OnBuyItem,7227,25,25,"SZeny",23024,1;
    case 47: callsub OnBuyItem,7227,25,25,"SZeny",23060,1;
    case 48: callsub OnBuyItem,7227,25,25,"SZeny",23061,1;
    case 49: callsub OnBuyItem,7227,25,25,"SZeny",23062,1;
    case 50: callsub OnBuyItem,7227,25,25,"SZeny",23063,1;
    case 51: callsub OnBuyItem,7227,25,25,"SZeny",23064,1;
    case 52: callsub OnBuyItem,7227,25,25,"SZeny",23065,1;
    case 53: callsub OnBuyItem,7227,25,25,"SZeny",23070,1;
    case 54: callsub OnBuyItem,7227,25,25,"SZeny",23071,1;
    case 55: callsub OnBuyItem,7227,25,25,"SZeny",23072,1;
    case 56: callsub OnBuyItem,7227,25,25,"SZeny",23073,1;
    case 57: callsub OnBuyItem,7227,25,25,"SZeny",23074,1;
    case 58: callsub OnBuyItem,7227,25,25,"SZeny",23075,1;
    case 59: callsub OnBuyItem,7227,25,25,"SZeny",23076,1;
    case 60: callsub OnBuyItem,7227,25,25,"SZeny",23077,1;
    case 61: callsub OnBuyItem,7227,25,25,"SZeny",23078,1;
    case 62: callsub OnBuyItem,7227,25,25,"SZeny",23079,1;
    case 63: callsub OnBuyItem,7227,25,25,"SZeny",23080,1;
    case 64: callsub OnBuyItem,7227,25,25,"SZeny",23081,1;
    case 65: callsub OnBuyItem,7227,25,25,"SZeny",23082,1;
    case 66: callsub OnBuyItem,7227,25,25,"SZeny",26040,1; //Valk Helms
    case 67: callsub OnBuyItem,7227,25,25,"SZeny",26041,1;
    case 68: callsub OnBuyItem,7227,25,25,"SZeny",26042,1;
    case 69: callsub OnBuyItem,7227,25,25,"SZeny",26043,1;
    case 70: callsub OnBuyItem,7227,25,25,"SZeny",26044,1;
    case 71: callsub OnBuyItem,7227,25,25,"SZeny",26045,1;
    case 72: callsub OnBuyItem,7227,25,25,"SZeny",26046,1;
    case 73: callsub OnBuyItem,7227,25,25,"SZeny",30530,1;
    case 74: callsub OnBuyItem,7227,25,25,"SZeny",30531,1;
    case 75: callsub OnBuyItem,7227,25,25,"SZeny",30532,1;
    case 76: callsub OnBuyItem,7227,25,25,"SZeny",30533,1;
    case 77: callsub OnBuyItem,7227,25,25,"SZeny",30534,1;
    case 78: callsub OnBuyItem,7227,25,25,"SZeny",30535,1;
    case 79: callsub OnBuyItem,7227,25,25,"SZeny",30536,1;
    case 80: callsub OnBuyItem,7227,25,25,"SZeny",30537,1;
    case 81: callsub OnBuyItem,7227,25,25,"SZeny",30538,1;
    case 82: callsub OnBuyItem,7227,25,25,"SZeny",30539,1;
    case 83: callsub OnBuyItem,7227,25,25,"SZeny",30540,1;
    case 84: callsub OnBuyItem,7227,25,25,"SZeny",30541,1;
    case 85: callsub OnBuyItem,7227,25,25,"SZeny",30542,1;
    case 86: callsub OnBuyItem,7227,25,25,"SZeny",30543,1;
    case 87: callsub OnBuyItem,7227,25,25,"SZeny",30544,1;
    case 88: callsub OnBuyItem,7227,25,25,"SZeny",30545,1;
    case 89: callsub OnBuyItem,7227,25,25,"SZeny",30546,1;
    case 90: callsub OnBuyItem,7227,25,25,"SZeny",30547,1;
    case 91: callsub OnBuyItem,7227,25,25,"SZeny",30548,1;
    case 92: callsub OnBuyItem,7227,25,25,"SZeny",30549,1;
    case 93: callsub OnBuyItem,7227,25,25,"SZeny",30550,1;
    case 94: callsub OnBuyItem,7227,25,25,"SZeny",30551,1;
    case 95: callsub OnBuyItem,7227,25,25,"SZeny",30552,1;
    case 96: callsub OnBuyItem,7227,25,25,"SZeny",30553,1;
    case 97: callsub OnBuyItem,7227,25,25,"SZeny",30554,1;
    case 98: callsub OnBuyItem,7227,25,25,"SZeny",30555,1;
    case 99: callsub OnBuyItem,7227,25,25,"SZeny",30556,1;
    case 100: callsub OnBuyItem,7227,25,25,"SZeny",30557,1;
    case 101: callsub OnBuyItem,7227,25,25,"SZeny",30558,1;
    case 102: callsub OnBuyItem,7227,25,25,"SZeny",30559,1;
    }
    }

    Завалялось такое, попробуй.

    • Upvote 1
  2. http://shro.ru/arch/...te123123123123/

    Все в ошибках, кодировка говно выставляйте cp1251 принудительно

    А Этот откуда? я его помоему в паблик не выкладывал :) , Серега скинул?

    Мне казалось это таилс делал, у меня даже 2 версии такого лежит. Откуда не знаю

    Не, эт мой :), ну скорей всего Сергей и скинул, ладно по*уй

    На продажу хотел поставить?) Кстати, не плохой, молодец!

  3. Там где они не используются можно убрать, но это не обязательно.

    Лучше тогда не трогать, вроде работает нормально. Правда проверить с онлайном надо, я пока не хочу в сеть выходить. Дорабатывать еще многое и заказывать тоже) Подскажи, кто пишет нормально src.

  4. В новых ревизиях видимо код немного изменился.

    Надо заменить

    clif_updatestatus(sd, SP_ZENY);

    На

    pc_onstatuschanged(sd, SP_ZENY);

    Спасибо. Я как понимаю, что вот эти ошибки, тоже из-за новой ревизии еа.


    5>..\src\map\script.c(15426): warning C4101: type: неиспользованная локальная переменная
    5>..\src\map\script.c(15425): warning C4101: bl: неиспользованная локальная переменная
    5>..\src\map\script.c(15448): warning C4101: type: неиспользованная локальная переменная
    5>..\src\map\script.c(15463): warning C4101: bl: неиспользованная локальная переменная
    5>..\src\map\script.c(15495): warning C4101: bl: неиспользованная локальная переменная

  5. С pc.h вопрос решился, но с остальным нет. Раньше я вроде как-то исправлял эту ошибку, но спустя 2 года забитого на рагнарок, не помню уже.


    5>..\src\map\script.c(15438): warning C4013: clif_updatestatus: нет определения; предполагается "extern" с возвратом типа "int"
    5>..\src\map\script.c(15426): warning C4101: type: неиспользованная локальная переменная
    5>..\src\map\script.c(15425): warning C4101: bl: неиспользованная локальная переменная
    5>..\src\map\script.c(15448): warning C4101: type: неиспользованная локальная переменная
    5>..\src\map\script.c(15463): warning C4101: bl: неиспользованная локальная переменная
    5>..\src\map\script.c(15495): warning C4101: bl: неиспользованная локальная переменная
    5> skill.c
    5> status.c
    5> storage.c
    5> trade.c
    5> unit.c
    5>..\src\map\unit.c(1403): warning C4013: clif_updatestatus: нет определения; предполагается "extern" с возвратом типа "int"
    5> vending.c
    5>script.obj : error LNK2001: неразрешенный внешний символ "_clif_updatestatus"
    5>..\map-server_sql.exe : fatal error LNK1120: 1 неразрешенных внешних элементов
    ========== Перестроение всех: успешно: 4, с ошибками: 1, пропущено: 0 ==========

    Добавил после clif_updatestatus ":", ошибка с определением пропала, но еще осталось что-то)


    5>..\src\map\script.c(15438): warning C4102: clif_updatestatus: неиспользованная метка
    5>..\src\map\script.c(15426): warning C4101: type: неиспользованная локальная переменная
    5>..\src\map\script.c(15425): warning C4101: bl: неиспользованная локальная переменная
    5>..\src\map\script.c(15448): warning C4101: type: неиспользованная локальная переменная
    5>..\src\map\script.c(15463): warning C4101: bl: неиспользованная локальная переменная
    5>..\src\map\script.c(15495): warning C4101: bl: неиспользованная локальная переменная
    5> storage.c
    5> trade.c
    5> unit.c
    5>..\src\map\unit.c(1403): warning C4102: clif_updatestatus: неиспользованная метка
    5> vending.c
    5> Создание кода
    5> Создание кода завершено
    5> map-server_sql.vcxproj -> C:\Users\Кот\Desktop\ragnarok\vcproj-10\..\map-server_sql.exe
    ========== Перестроение всех: успешно: 5, с ошибками: 0, пропущено: 0 ==========

  6. Вообще по сути мне так то все равно уже.

    Так что ошибка при компиляции связана с тем, что переменная zombie не обьявлена в pc.h

    После строк


    //NOTE: When deciding to add a flag to state or special_state, take into consideration that state is preserved in
    //status_calc_pc, while special_state is recalculated in each call. [Skotlex]
    struct {

    Добавить

    unsigned zombie : 1; //Zombie mod 0 - normal 1 - zombi

    А что тут не из паблика? 1 команда зомбионмап?

    Остальное еще со времен иванзомби или кого-то другого на ea.ws лежало

    http://www.eathena.w...hp/t230785.html

    Спасибо большое. Зря я вырезал его =))

  7. Смотрю мод по рукам пошел, не удивительно :)

    Он уже как год в паблике. Если я не ошибаюсь) Просто 2 года как не брался за ро.

    Не все скриптовые команды есть в паблике как бы.

    Тогда объясняет все вопросы. Можно смело удалять, либо заказывать)

  8. Всем привет, ищу помощи с решением данной ошибки:


    1>------ Построение начато: проект: map-server_sql, Конфигурация: Release Win32 ------
    1> battle.c
    1> script.c
    1>..\src\map\battle.c(3403): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    1>..\src\map\battle.c(3464): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    1> unit.c
    1>..\src\map\unit.c(1398): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    1>..\src\map\unit.c(1403): warning C4013: clif_updatestatus: нет определения; предполагается "extern" с возвратом типа "int"
    1>..\src\map\script.c(15432): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    1>..\src\map\script.c(15438): warning C4013: clif_updatestatus: нет определения; предполагается "extern" с возвратом типа "int"
    1>..\src\map\script.c(15455): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    1>..\src\map\script.c(15470): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    1>..\src\map\script.c(15470): warning C4047: функция: "int" отличается по уровням косвенного обращения от "void *"
    1>..\src\map\script.c(15470): warning C4024: push_val2: различные типы для формального и фактического параметров 3
    1>..\src\map\script.c(15470): error C2198: push_val2: слишком мало аргументов для вызова
    1>..\src\map\script.c(15510): error C2039: zombie: не является членом "<unnamed-tag>"
    1> c:\users\кот\desktop\ragnarok\src\map\pc.h(97): см. объявление "<unnamed-tag>"
    ========== Построение: успешно: 0, с ошибками: 1, без изменений: 4, пропущено: 0 ==========

×
×
  • Создать...
Яндекс.Метрика