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

unknown

Проверенные
  • Постов

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

  • Посещение

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

    8

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

  1. Поставил все на хост и теперь другая беда:

    При выборе фракции просто пишет в чат которую выбрал, но не обновляет сам статус (не дает ауру но дает бонус расы). В додачу может просто ехе закрыть или зависнуть.

    А когда пишешь сет фракция 0, то сервер вообще падает

  2. http://rathena.org/board/topic/64816-faction-system/page-8#entry239689


    1>------ Построение начато: проект: map-server_sql, Конфигурация: Release Win32 ------
    2>------ Построение начато: проект: login-server_sql, Конфигурация: Release Win32 ------
    2> login-server_sql.vcxproj -> C:\rathena\vcproj-10\..\login-server_sql.exe
    1> faction.c
    1> script.c
    3>------ Построение начато: проект: char-server_sql, Конфигурация: Release Win32 ------
    1>..\src\map\faction.c(444): error C2039: msd: не является членом "pet_data"
    1> c:\rathena\src\map\pet.h(75): см. объявление "pet_data"
    1>..\src\map\faction.c(445): error C2039: msd: не является членом "pet_data"
    1> c:\rathena\src\map\pet.h(75): см. объявление "pet_data"
    1>..\src\map\faction.c(445): warning C4033: "faction_get_id" должен возвращать значение
    3> char-server_sql.vcxproj -> C:\rathena\vcproj-10\..\char-server_sql.exe
    1>..\src\map\script.c(10925): error C2065: val2: необъявленный идентификатор
    4>------ Построение начато: проект: mapcache, Конфигурация: Release Win32 ------
    4> mapcache.vcxproj -> C:\rathena\vcproj-10\..\mapcache.exe
    ========== Построение: успешно: 3, с ошибками: 1, без изменений: 0, пропущено: 0 ==========

    if( ((TBL_PET*)bl)->msd )
    return ((TBL_PET*)bl)->msd->status.faction_id;



    val2=script_getnum(st,5);

  3. Какая ревизия rAthena?

    После чего перестали устанавливаться эмблемы?

    Что пишет в консоли map сервер при установке эмблемы?

    При установке эмблемы данные заносятся в БД (`guild`.`emblem_data`)?

    ревизия rAthena 17352

    С емблемами все впорядке ( в самой игре они видны).

    В базе заносятся в виде "ВОВ" , вроде норм но на сайте не видно. Наверно косяк где-то в панели.

  4. Вот проблема возникла.

    Упал мап сервер.

    Глянул что показывает мап сервер, а там только кто логинится и больше ничего.

    А вот в логах это

    map-server_sql.leaks

    116

    CREATE(cache, ers_cache_t, 1);

    185

    RECREATE(instance->Cache->Blocks, unsigned char *, instance->Cache->Max);

    257

    CREATE(instance, ers_instance_t, 1);

    2412

    CREATE(db, struct DBMap_impl, 1);

    43

    CREATE( channel, struct Channel, 1 ); //will exit on fail allocation

    188

    CREATE(instance->Cache->Blocks[instance->Cache->Used], unsigned char, instance->Cache->ObjectSize * ERS_BLOCK_ENTRIES);

    Memory manager: Memory leaks found at 2014/01/07 17h32m26s (Revision Unknown).

    0001 : ers.c line 116 size 56 address 0x0x7f27c9980734

    0002 : ers.c line 185 size 120 address 0x0x7f27bf9a6ed4

    0003 : ers.c line 257 size 64 address 0x0x7f27b746548c

    0004 : ers.c line 257 size 64 address 0x0x7f27b74654ec

    0005 : db.c line 2412 size 2504 address 0x0x7f27b6b2b614

    0006 : db.c line 2412 size 2504 address 0x0x7f27b6b2c034

    0007 : channel.c line 43 size 88 address 0x0x7f27b6cbbf54

    0008 : ers.c line 188 size 262144 address 0x0x823af40

    0009 : ers.c line 188 size 262144 address 0x0x83cbd80

    0010 : ers.c line 188 size 262144 address 0x0x82d5f80

    0011 : ers.c line 188 size 262144 address 0x0x814be40

    0012 : ers.c line 188 size 262144 address 0x0x819ae80

    0013 : ers.c line 188 size 262144 address 0x0x810be00

    0014 : ers.c line 188 size 262144 address 0x0x802a2f0

    0015 : ers.c line 188 size 262144 address 0x0x8083d80

    0016 : ers.c line 188 size 262144 address 0x0x7e892b0

    0017 : ers.c line 188 size 262144 address 0x0x7fea2b0

    0018 : ers.c line 188 size 262144 address 0x0x7faa270

    0019 : ers.c line 188 size 262144 address 0x0x7f6a230

    0020 : ers.c line 188 size 262144 address 0x0x7ee0b30

    0021 : ers.c line 188 size 262144 address 0x0x7e20cf0

    0022 : ers.c line 188 size 262144 address 0x0x7f27c8961040

    char-server_sql.leaks

    807 линия

    [b] [/b]RECREATE(self->columns, MYSQL_BIND, cols);

    618 линия

    CREATE(self, SqlStmt, 1);

    1054 линия

    self->ptr_ = self->buf_ = (char*)aMalloc(self->max_ + 1);

    808 линия

    RECREATE(self->column_lengths, s_column_length, cols);

    Memory manager: Memory leaks found at 2014/01/08 04h06m27s (Revision Unknown).

    0001 : sql.c line 807 size 1456 address 0x0x7f7c54237d1c

    0002 : sql.c line 807 size 1456 address 0x0x7f7c542382ec

    0003 : sql.c line 807 size 1456 address 0x0x7f7c542388bc

    0004 : sql.c line 807 size 1456 address 0x0x7f7c54238e8c

    0005 : sql.c line 618 size 80 address 0x0x7f7c54241d44

    0006 : sql.c line 618 size 80 address 0x0x7f7c54241db4

    0007 : sql.c line 618 size 80 address 0x0x7f7c54241e24

    0008 : sql.c line 618 size 80 address 0x0x7f7c54241e94

    0009 : strlib.c line 1054 size 1025 address 0x0x7f7c5425fdbc

    0010 : strlib.c line 1054 size 1025 address 0x0x7f7c542601ec

    0011 : strlib.c line 1054 size 1025 address 0x0x7f7c5426061c

    0012 : strlib.c line 1054 size 1025 address 0x0x7f7c54260a4c

    0013 : strlib.c line 1054 size 1025 address 0x0x7f7c54260e7c

    0014 : strlib.c line 1054 size 1025 address 0x0x7f7c542612ac

    0015 : strlib.c line 1054 size 1025 address 0x0x7f7c542616dc

    0016 : strlib.c line 1054 size 1025 address 0x0x7f7c54261b0c

    0017 : sql.c line 808 size 208 address 0x0x7f7c5429beac

    0018 : sql.c line 808 size 208 address 0x0x7f7c5429bf9c

    0019 : sql.c line 808 size 208 address 0x0x7f7c5429c08c

    0020 : sql.c line 808 size 208 address 0x0x7f7c5429c17c

    Честно..даже наименьшего представления что это и что с этим делать не имею....

    Как решить трабл?

  5. Ребят возникла проблема!

    после старта гв гильда сносит имперум после чегодругая ги не может убивать империум.

    Как решить проблему?


    //===== rAthena Script =======================================
    //= Euphy's WOE Controller
    //===== By: ==================================================
    //= Euphy
    //===== Current Version: =====================================
    //= 1.5
    //===== Compatible With: =====================================
    //= rAthena SVN r16958+
    //===== Description: =========================================
    //= A controller for War of Emperium designed for
    //= simplicity and ease of use.
    //= Many concepts taken from ToastOfDoom's script,
    //= and "rewards" function originally by Goddameit.
    //===== Additional Comments: =================================
    //= Be sure to disable the default agit controllers!
    //== npc\guild\agit_controller.txt
    //== npc\guild2\agit_start_se.txt
    //============================================================
    // Information NPC
    //============================================================
    prontera,134,171,4 script WOE Information 835,{
    doevent "WOE_CONTROL::OnMenu";
    end;
    OnAgitStart:
    while(agitcheck()) {
    misceffect EF_BEGINSPELL6;
    sleep 425;
    }
    end;
    }
    // Script Core
    //============================================================
    - script WOE_CONTROL -1,{
    function Disp_Owner; function Add_Zero;
    OnInit:
    // -----------------------------------------------------------
    // Configuration settings.
    // -----------------------------------------------------------
    set .CastleWarp,0; // 1: Always enable all castle warps. | 0: Warp only to active castles.
    set .AutoKick,1; // Automatically kick players from inactive castles during WOE? (1:yes / 0:no)
    set .NoOwner,0; // Automatically kick players from unconquered castles outside of WOE? (1:yes / 0:no)
    set .ExitWarp,0; // Warp all players from castles when WOE ends? (1:yes / 0:no)
    set .GMAccess,99; // GM level required to access Session Manager.
    // -----------------------------------------------------------
    // Reward options.
    // -----------------------------------------------------------
    // [1] Enable rewards.
    // [2] Mail all rewards.
    // - If not set, players receive items in their inventory.
    // - Only ONE item can be sent via mail, plus Zeny.
    // - Note that offline players do NOT receive rewards.
    // [4] Only reward Guild Masters.
    // - If not set, all guild members are rewarded.
    // - If mailing is enabled (option 2), offline Guild Masters WILL receive rewards.
    // [8] Duplicate IP check.
    // - Members in a guild with the same IP address are not rewarded.
    // - If Guild Masters is enabled (option 4), this feature is not used.
    // -----------------------------------------------------------
    // Combine values as needed (e.g. 1|8 = 1+8 = 9).
    set .Options, 1|8;
    // Rewards per castle.
    // -- when given directly: <itemID>,<amount>{,<itemID>,<amount>,...}
    // -- via mail (option 2): <itemID>,<amount>,<Zeny>
    setarray .Reward[0],14001,1;
    // -----------------------------------------------------------
    // Constants (leave this section alone).
    // -----------------------------------------------------------
    setarray .Castles$[0],
    "prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05",
    "payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05",
    "gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05",
    "aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05",
    "arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05",
    "schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05";
    setarray .EndLabel$[0],"ar01","ar02","ar03","ar04","ar05","sc01","sc02","sc03","sc04","sc05";
    setarray .Days$[0],"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday";
    setarray .Regions$[0],"Prontera","Payon","Geffen","Aldebaran","Arunafeltz","Schwaltzvalt";
    setarray .Map$[0],"prt_gld","pay_gld","gef_fild13","alde_gld","aru_gld","sch_gld";
    setarray .MapX[0],134,240,153,111,208,121,295,317,140,204,214,308,143,193,305,48, 95,142,239,264,158,83, 68,299,292,293,288, 97,137, 71;
    setarray .MapY[0], 65,128,137,240,240,233,116,293,160,266, 75,240,240,278, 87,83,249, 85,242, 90,272,47,155,345,107,100,252,196, 90,315;
    // -----------------------------------------------------------
    set .Size, getarraysize($WOE_CONTROL);
    if (.AutoKick || .NoOwner)
    for(set .@i,0; .@i<30; set .@i,.@i+1) {
    setmapflag .Castles$[.@i], mf_loadevent;
    setd "."+.Castles$[.@i], .@i;
    }
    if (!agitcheck() && !agitcheck2()) sleep 4000;
    set .Init,1;
    OnMinute00:
    freeloop(1);
    if (agitcheck() || agitcheck2()) {
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) == $WOE_CONTROL[.@i+2]) {
    OnWOEEnd:
    announce "The War Of Emperium is over!",bc_all|bc_woe;
    AgitEnd; AgitEnd2;
    sleep 1000;
    for(set .@j,0; .@j<30; set .@j,.@j+1) {
    if (.Active[0]&(1<<.@j)) Disp_Owner(.Castles$[.@j],1);
    if (.ExitWarp) maprespawnguildid .Castles$[.@j],0,3;
    }
    if (.Options&1 && .Active[0] && .ForceEnd != 2) callsub OnReward, .Active[0];
    deletearray .Active[0],2;
    if (.ForceEnd) { set .ForceEnd,0; end; }
    break;
    }
    }
    if ((!agitcheck() && !agitcheck2()) || .Init) {
    if (!agitcheck() && !agitcheck2()) set .Init,0;
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) >= $WOE_CONTROL[.@i+1] && gettime(3) < $WOE_CONTROL[.@i+2]) {
    deletearray .Active[0],2;
    set .Active[0], $WOE_CONTROL[.@i+3];
    if (.Init) { AgitEnd; AgitEnd2; }
    else announce "The War Of Emperium has begun!",bc_all|bc_woe;
    sleep 1000;
    AgitStart; AgitStart2;
    for(set .@j,0; .@j<30; set .@j,.@j+1) {
    if (.Active[0]&(1<<.@j)) {
    if (!.Init) Disp_Owner(.Castles$[.@j],0);
    set .Active[1], .Active[1] | (1<<((.@j/5)+1));
    } else {
    if (.@j<20) {
    donpcevent "Agit#"+.Castles$[.@j]+"::OnAgitEnd";
    killmonster .Castles$[.@j], "Agit#"+.Castles$[.@j]+"::OnAgitBreak";
    } else {
    donpcevent "Manager#"+.Castles$[.@j]+"::OnAgitEnd2";
    killmonster .Castles$[.@j], "Steward#"+.EndLabel$[.@j-20]+"::onstartArena";
    }
    }
    }
    break;
    }
    }
    set .Init,0;
    end;
    function Disp_Owner {
    set .@o, getcastledata(getarg(0),1);
    if (.@o) announce "The ["+getcastlename(getarg(0))+"] castle "+((getarg(1))?"has been conquered":"is currently held")+" by the ["+getguildname(.@o)+"] guild.",bc_all|bc_woe;
    else announce "The ["+getcastlename(getarg(0))+"] castle is currently unoccupied.",bc_all|bc_woe;
    return;
    }
    function Add_Zero {
    return ((getarg(0)<10)?"0":"")+getarg(0)+(getarg(1,0)?".":":")+"00";
    }
    OnReward:
    set .@sql$, ((.Options&4)?"position = 0":"online = 1");
    if (.Options&2) set .@str$,gettimestr("%B %d, %Y",21);
    freeloop(1);
    for(set .@i,0; .@i<30; set .@i,.@i+1)
    if (getarg(0)&(1<<.@i)) {
    set .@gid, getcastledata(.Castles$[.@i],1);
    if (!.@gid) continue;
    set .@size, query_sql("SELECT account_id,char_id FROM `guild_member` WHERE guild_id = '"+.@gid+"' AND "+.@sql$,.@aid,.@cid);
    for(set .@j,0; .@j<.@size; set .@j,.@j+1) {
    if (.Options&8 && !(.Options&4)) {
    set .@ip$, replacestr(getcharip(.@aid[.@j]),".","a");
    if (getd(".@ip_"+.@i+"_"+.@ip$)) continue;
    setd ".@ip_"+.@i+"_"+.@ip$,1;
    }
    if (.Options&2) {
    query_sql("INSERT INTO `mail` (send_name,dest_id,title,message,nameid,amount,identify,zeny,time) VALUES ("+
    "'no-reply',"+.@cid[.@j]+",'** Siege Reward: "+getcastlename(.Castles$[.@i])+" **',"+
    "'Brave one,% % Congratulations!% Your guild has successfully occupied% territory in the War of Emperium on% "+.@str$+".% % % % % [ Your reward is attached. ]',"+
    .Reward[0]+","+.Reward[1]+",0,"+.Reward[2]+",UNIX_TIMESTAMP(NOW()))");
    if (!getd(".@str_"+.@cid[.@j]) && isloggedin(.@aid[.@j],.@cid[.@j])) {
    setd ".@str_"+.@cid[.@j],1;
    message rid2name(.@aid[.@j]),"You've got mail! Please re-login to update your mailing list.";
    }
    } else if (isloggedin(.@aid[.@j])) {
    for(set .@k,0; .@k<getarraysize(.Reward); set .@k,.@k+2)
    getitem .Reward[.@k], .Reward[.@k+1], .@aid[.@j];
    message rid2name(.@aid[.@j]),"You have been rewarded for conquering "+getcastlename(.Castles$[.@i])+".";
    }
    }
    }
    if (.Options&2) query_sql("UPDATE `mail` SET message = REPLACE(message,'%',CHAR(13)) WHERE send_name = 'no-reply'");
    return;
    OnPCLoadMapEvent:
    if (!compare(strcharinfo(3),"g_cas")) end;
    if (((.AutoKick && .Active[0]) || (.NoOwner && !getcastledata(strcharinfo(3),1))) && !(.Active[0]&(1<<getd("."+strcharinfo(3))))) {
    if (getcharid(2) && getcastledata(strcharinfo(3),1) == getcharid(2)) end;
    sleep2 1000;
    message strcharinfo(0), getcastlename(strcharinfo(3))+" в настоящее время неактивно.";
    sleep2 5000;
    if (compare(strcharinfo(3),"g_cas")) warp "SavePoint",0,0;
    }
    end;
    OnMenu:
    while(1) {
    mes "[WOE Information]";
    if (agitcheck() || agitcheck2()) {
    if (.Active[0]) {
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    if (gettime(4) == $WOE_CONTROL[.@i] && gettime(3) >= $WOE_CONTROL[.@i+1] && gettime(3) < $WOE_CONTROL[.@i+2]) {
    set .@i, $WOE_CONTROL[.@i+2];
    break;
    }
    mes "The War of Emperium is ^0055FFactive^000000 until ^FF0000"+Add_Zero(.@i)+"^000000 in the following regions:";
    mes " ";
    for(set .@i,0; .@i<6; set .@i,.@i+1)
    if (.Active[1]&(1<<(.@i+1))) mes " > ^777777"+.Regions$[.@i]+"^000000";
    } else
    mes "The War of Emperium is ^0055FFactive^000000.";
    } else {
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    if ((gettime(4) == $WOE_CONTROL[.@i] && gettime(3) <= $WOE_CONTROL[.@i+1]) || gettime(4) < $WOE_CONTROL[.@i]) {
    setarray .@time[0],$WOE_CONTROL[.@i],$WOE_CONTROL[.@i+1];
    break;
    }
    if (!getarraysize(.@time))
    setarray .@time[0],$WOE_CONTROL[0],$WOE_CONTROL[1];
    mes "The War of Emperium is ^777777inactive^000000.";
    if (.Size) {
    mes " ";
    mes "The next session will begin";
    mes "on ^0055FF"+.Days$[.@time[0]]+"^000000 at "+Add_Zero(.@time[1])+"^000000.";
    }
    }
    next;
    switch(select(""+((.CastleWarp || .Active[1])?" ~ Warp to castles...":"")+": ~ Check schedule...: ~ View castle owners...:"+((getgmlevel()<.GMAccess || !getgmlevel())?"":" ~ Manage sessions...")+": ~ ^777777Cancel^000000")) {
    case 1:
    if (.CastleWarp) set .@clr$,"^0055FF";
    set .@menu$,"";
    for(set .@i,0; .@i<6; set .@i,.@i+1) {
    if (.CastleWarp || .Active[1]&(1<<(.@i+1)))
    set .@menu$, .@menu$+" ~ "+((.Active[1]&(1<<(.@i+1)))?.@clr$:"^777777")+.Regions$[.@i]+" Castles^000000";
    set .@menu$, .@menu$+":";
    }
    set .@i, select(.@menu$)-1;
    set .@menu$,"";
    for(set .@j,.@i*5; .@j<(.@i*5)+5; set .@j,.@j+1) {
    if (.CastleWarp || .Active[0]&(1<<.@j))
    set .@menu$, .@menu$+" ~ "+((.Active[0]&(1<<.@j))?.@clr$:"^777777")+getcastlename(.Castles$[.@j])+"^000000";
    set .@menu$, .@menu$+":";
    }
    set .@j, select(.@menu$)-1;
    warp .Map$[.@i],.MapX[(.@i*5)+.@j],.MapY[(.@i*5)+.@j];
    close;
    case 2:
    mes "[Schedule]";
    if (.Size) {
    freeloop(1);
    for(set .@i,0; .@i<.Size; set .@i,.@i+4) {
    mes "> ^FF0000"+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1])+"-"+Add_Zero($WOE_CONTROL[.@i+2])+")^000000";
    for(set .@j,0; .@j<30; set .@j,.@j+1)
    if ($WOE_CONTROL[.@i+3]&(1<<.@j)) mes " ~ "+getcastlename(.Castles$[.@j])+" ^777777("+.Castles$[.@j]+")^000000";
    if (.@i+4 < .Size) mes " ";
    }
    freeloop(0);
    } else
    mes "No times are configured.";
    next;
    break;
    case 3:
    mes "[Castle Ownership]";
    for(set .@i,0; .@i<6; set .@i,.@i+1) {
    set .@k, .@i*5;
    mes "> ^FF0000"+.Regions$[.@i]+"^000000";
    for(set .@j,.@k; .@j<(.@k+5); set .@j,.@j+1) {
    set .@t, getcastledata(.Castles$[.@j],1);
    mes " ~ "+getcastlename(.Castles$[.@j])+": "+((.@t)?"^0055FF"+getguildname(.@t):"^777777unoccupied")+"^000000";
    }
    if (.@i < 5) mes " ";
    }
    next;
    break;
    case 4:
    while(1) {
    mes "[Session Manager]";
    mes "There are ^0055FF"+(.Size/4)+" session(s)^000000 configured.";
    mes "What would you like to do?";
    next;
    switch(select(" ~ Add a session...: ~ Delete a session...: ~ Reload settings...:"+((agitcheck() || agitcheck2())?" ~ End WOE session...":"")+": ~ ^777777Go back^000000")) {
    case 1:
    mes "[New Session]";
    if (.Size > 127) {
    mes "You have already reached the maximum of 32 sessions.";
    next;
    break;
    }
    mes "Select a day.";
    next;
    set .@Day, select(" ~ "+implode(.Days$,": ~ "))-1;
    mes "[New Session]";
    mes "Select a start time for ^0055FF"+.Days$[.@Day]+"^000000.";
    next;
    set .@menu$,"";
    for(set .@i,0; .@i<23; set .@i,.@i+1)
    set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":";
    set .@Start, select(.@menu$)-1;
    mes "[New Session]";
    mes "Select an end time for ^0055FF"+.Days$[.@Day]+"^000000.";
    next;
    set .@menu$,"";
    for(set .@i,.@Start+1; .@i<24; set.@i,.@i+1)
    set .@menu$, .@menu$+" ~ "+Add_Zero(.@i,1)+":";
    set .@End, select(.@menu$)+.@Start;
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    if (.@Day == $WOE_CONTROL[.@i] &&
    ((.@Start >= $WOE_CONTROL[.@i+1] && .@Start < $WOE_CONTROL[.@i+2]) ||
    (.@End > $WOE_CONTROL[.@i+1] && .@End <= $WOE_CONTROL[.@i+2]) ||
    (.@Start <= $WOE_CONTROL[.@i+1] && .@End >= $WOE_CONTROL[.@i+2]))) {
    mes "[New Session]";
    mes "The chosen times overlap with an existing session.";
    next;
    set .@d,1;
    break;
    }
    if (.@d) { set .@d,0; break; }
    set .@Castle,0;
    while(1) {
    mes "[New Session]";
    mes "^0055FF"+.Days$[.@Day]+" ("+Add_Zero(.@Start)+"-"+Add_Zero(.@End)+")^000000";
    mes " > Castles:";
    if (!.@Castle)
    mes " ~ ^777777(none selected)^000000";
    else for(set .@i,0; .@i<30; set .@i,.@i+1)
    if (.@Castle&(1<<.@i)) mes " ~ "+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")";
    next;
    set .@menu$,((.@Castle)?" ~ ^FF0000Finished...^000000":"")+":";
    for(set .@i,0; .@i<30; set .@i,.@i+1)
    set .@menu$, .@menu$+" ~ "+((.@Castle&(1<<.@i))?"^0055FF":"")+getcastlename(.Castles$[.@i])+" ("+.Castles$[.@i]+")^000000:";
    set .@i, select(.@menu$)-1;
    if (.@i)
    set .@Castle, .@Castle^(1<<(.@i-1));
    else {
    mes "[New Session]";
    mes "Are you sure?";
    next;
    switch(select(" ~ ^0055FFAdd session...^000000: ~ Continue selecting castles...: ~ ^777777Cancel^000000")) {
    case 1:
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    if ((.@Day == $WOE_CONTROL[.@i] && .@End <= $WOE_CONTROL[.@i+1]) || .@Day < $WOE_CONTROL[.@i]) {
    set .@d,1;
    break;
    }
    if (!.@d) { set .@d,1; set .@i,.Size; }
    copyarray $WOE_CONTROL[.@i+4], $WOE_CONTROL[.@i], .Size-.@i;
    setarray $WOE_CONTROL[.@i], .@Day, .@Start, .@End, .@Castle;
    set .Size, getarraysize($WOE_CONTROL);
    case 3:
    mes "[New Session]";
    mes ((.@d)?"Session added.":"Cancelled.");
    next;
    set .@d,1;
    case 2:
    break;
    }
    if (.@d) { set .@d,0; break; }
    }
    }
    break;
    case 2:
    mes "[Remove Session]";
    if (!.Size) {
    mes "There are no sessions configured.";
    next;
    break;
    }
    mes "Select a session to remove.";
    next;
    set .@menu$,"";
    for(set .@i,0; .@i<.Size; set .@i,.@i+4)
    set .@menu$, .@menu$+" ~ "+.Days$[$WOE_CONTROL[.@i]]+" ("+Add_Zero($WOE_CONTROL[.@i+1],1)+"-"+Add_Zero($WOE_CONTROL[.@i+2],1)+"):";
    set .@menu$, .@menu$+" ~ ^777777Cancel^000000";
    set .@i, select(.@menu$)-1;
    if (.@i == (.Size/4)) break;
    mes "[Remove Session]";
    mes "Delete ^0055FF"+.Days$[$WOE_CONTROL[.@i*4]]+"'s^000000 session?";
    mes "This action cannot be undone.";
    next;
    set .@j, select(" ~ ^FF0000Delete session...^000000: ~ ^777777Cancel^000000");
    mes "[Remove Session]";
    if (.@j == 2)
    mes "Cancelled.";
    else {
    deletearray $WOE_CONTROL[.@i*4],4;
    set .Size, getarraysize($WOE_CONTROL);
    mes "Session deleted.";
    }
    next;
    break;
    case 3:
    mes "[Reload Settings]";
    mes "This will trigger all events related to new session configurations, if any.";
    if (agitcheck() || agitcheck2()) {
    mes " ";
    mes "Be aware that this will disrupt the current WOE session.";
    }
    next;
    set .@i, select(" ~ ^0055FFReload settings...^000000: ~ ^777777Cancel^000000");
    mes "[Reload Settings]";
    if (.@i == 2) mes "Cancelled.";
    else {
    set .Init,1;
    donpcevent "WOE_CONTROL::OnMinute00";
    mes "Variables have been re-initialized.";
    }
    next;
    break;
    case 4:
    mes "[Force Agit End]";
    if (!agitcheck() && !agitcheck2()) {
    mes "WOE has already ended.";
    next;
    break;
    }
    mes "This command will safely execute all AgitEnd events.";
    mes " ";
    mes "Kill the current WOE session?";
    next;
    set .@i, select(" ~ ^FF0000End session...^000000:"+((.Options&1)?" ~ ^FF0000End session without rewards...^000000":"")+": ~ ^777777Cancel^000000");
    mes "[Force Agit End]";
    if (.@i == 3)
    mes "Cancelled.";
    else {
    set .ForceEnd, .@i;
    donpcevent "WOE_CONTROL::OnWOEEnd";
    mes "WOE session terminated.";
    }
    next;
    break;
    case 5:
    set .@d,1; break;
    }
    if (.@d) { set .@d,0; break; }
    } break;
    case 5:
    close;
    } }
    }

  6. Ребята, раньше помню можно было крутить голоса в топах с помощью тор браузера. Сечас что-то пробую нифига не получается. А вы как крутить?

    Была инфа что кто-то из форума за 2к продает автонакрутку в топах, правда ли?

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