//===== eAthena Script =======================================
//= Rift System
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.1
//===== Description: =========================================
//= "Rifts" in major towns provide warps, save, storage, and healing/buffs.
//= Warps are locked until activating the respective rift.
//= "Shards" are required for features, and are dropped by mobs.
//============================================================
 
/*
> item_db2.txt:
    3500,Shard,Shard,3,0,,0,,,,,,,,,,,,,{},{},{}
> idnum2itemdisplaynametable.txt:
    3500#Shard#
> idnum2itemresnametable.txt:
    3500#øµ»•¿«¡∂∞¢#
> idnum2itemdesctable.txt:
    3500#
    A shard from times of old that still gives off a faint, yet powerful light.
    ^ffffff_^000000
    Weight :^777777 0^000000
    #
*/
 
-   script  Rifts   -1,{
OnInit:
    setarray $@maps$[0],"alberta","aldebaran","amatsu","ayothaya","comodo","einbech","einbroch","geffen","gonryun","hugel","izlude","jawaii","lighthalzen","louyang","morocc","moscovia","niflheim","payon","prontera","rachel","umbala","veins","xmas","yuno";
    setarray $@mapxy[0],28,234,140,131,198,84,150,113,198,146,70,95,64,200,119,59,159,115,96,145,128,111,249,127,158,92,217,94,159,90,223,187,194,186,178,99,155,179,130,110,95,154,216,128,148,129,157,51;
    setarray $@maploc[0],2,3,2,1,1,4,4,3,2,3,2,2,4,1,1,1,1,2,2,5,1,5,3,4;
    end;
OnNPCKillEvent:
    if(rand(20)==10) getitem 3500,1;
    end;
}
 
-   script  Rift#0::rift    723,{
    if (RiftVar & atoi(strnpcinfo(2))) {
        switch(select(" ^777777~^000000  Warp:^777777[1]^000000 Save:^777777[1]^000000 Storage:^777777[3]^000000 Heal & Buff")) {
            case 1:
                set .@i,0;
                while (.@i < getarraysize($@maps$)) {
                    if (RiftVar & pow(2,.@i)) {
                        setarray .@menu1$[getarraysize(.@menu1$)], $@maps$[.@i];
                        setarray .@menu2[getarraysize(.@menu2)], $@mapxy[.@i*2], $@mapxy[.@i*2+1];
                        setarray .@menu3[getarraysize(.@menu3)], $@maploc[.@i]; }
                    if (strcharinfo(3) == $@maps$[.@i]) set .@j, $@maploc[.@i];
                    set .@i, .@i+1; }
                set .@menu$, "^777777[" + sqrt(pow(.@j-.@menu3[0],2)) + "]^000000 " + .@menu1$[0];
                set .@i,1;
                while (.@i < getarraysize(.@menu1$)) {
                    set .@menu$, .@menu$ + ":^777777[" + sqrt(pow(.@j-.@menu3[.@i],2)) + "]^000000 " + .@menu1$[.@i];
                    set .@i, .@i+1; }
                set .@i, select(.@menu$) - 1;
                if (countitem(3500) < sqrt(pow(.@j-.@menu3[.@i],2))) dispbottom "You do not have enough Shards to warp there.";
                else {
                    warp .@menu1$[.@i], .@menu2[.@i*2], .@menu2[.@i*2+1];
                    delitem 3500, sqrt(pow(.@j-.@menu3[.@i],2)); }
                close;
            case 2:
                if (countitem(3500)) {
                    getmapxy(.@map$,.@x,.@y,0);
                    savepoint .@map$,.@x,.@y;
                    dispbottom "Your save point has been changed.";
                    delitem 3500,1; }
                else dispbottom "You do not have enough Shards to save here.";
                close;
            case 3:
                if (countitem(3500)) {
                    openstorage;
                    delitem 3500,1; }
                else dispbottom "You do not have enough Shards to access storage.";
                close;
            case 4:
                if (countitem(3500) > 2) {
                    skilleffect 28,readparam(6)-readparam(5); percentheal 100,100;
                    sc_start SC_INCREASEAGI,600000,10; skilleffect 34,0;
                    sc_start SC_BLESSING,600000,10; skilleffect 29,0;
                    delitem 3500,3; }
                else dispbottom "You do not have enough Shards for buffs.";
                close;
        }
    } else {
        set RiftVar, RiftVar | atoi(strnpcinfo(2));
        specialeffect2 348;
        getitem 3500,5;
        dispbottom "The rift has been activated.";
        close;
    }
}
 
alberta,27,238,0    duplicate(rift) Rift#1  723
aldebaran,145,118,0 duplicate(rift) Rift#2  723
amatsu,201,88,0 duplicate(rift) Rift#4  723
ayothaya,144,117,0  duplicate(rift) Rift#8  723
comodo,194,158,0    duplicate(rift) Rift#16 723
einbech,81,101,0    duplicate(rift) Rift#32 723
einbroch,55,201,0   duplicate(rift) Rift#64 723
geffen,112,66,0 duplicate(rift) Rift#128    723
gonryun,155,122,0   duplicate(rift) Rift#256    723
hugel,88,149,0  duplicate(rift) Rift#512    723
izlude,132,120,0    duplicate(rift) Rift#1024   723
jawaii,253,130,0    duplicate(rift) Rift#2048   723
lighthalzen,151,100,0   duplicate(rift) Rift#4096   723
louyang,207,104,0   duplicate(rift) Rift#8192   723
morocc,161,97,0 duplicate(rift) Rift#16384  723
moscovia,229,198,0  duplicate(rift) Rift#32768  723
niflheim,206,176,0  duplicate(rift) Rift#65536  723
payon,182,107,0 duplicate(rift) Rift#131072 723
prontera,155,184,0  duplicate(rift) Rift#262144 723
rachel,124,105,0    duplicate(rift) Rift#524288 723
umbala,106,159,0    duplicate(rift) Rift#1048576    723
veins,213,124,0 duplicate(rift) Rift#2097152    723
xmas,150,136,0  duplicate(rift) Rift#4194304    723
yuno,162,47,0   duplicate(rift) Rift#8388608    723