// TMW2 script
// Author: Jesusalva <admin@tmw2.org>
//
// Magic Script: TMW2_TRAPS
//
// Deploy a trap behind you.

function	script	SK_Traps	{
    .@lv = getskilllv(TMW2_TRAPS);
    .@ab = abizit() * 2;
    // TODO: Determine duration, power, stun time; use abizit too
    // More abizit: Longer duration and stun time
    // Higher level: Longer duration and power
    .@length=40 + (.@lv+.@ab)*4; // Max duration: 120 seconds
    .@power =.@lv * 100;
    .@stun  =.@ab * 6 / 5; // Up to 12s of stun time (2,4,7,9,12 seconds)
    .@n$ = sprintf("sk#_%06d_%06d_%01d_%05d", getcharid(0), .@power, .@stun, htsize($@_DUPES));
    getmapxy(.@m$, .@x, .@y, 0);

    npc_duplicate("sk#trap", .@n$, .@m$, .@x, .@y);
    htput($@_DUPES, .@n$, gettimetick(2) + .@length);

    // Get a few mana experience points (this is NOT used by Mana Stone)
    GetManaExp(TMW2_TRAPS, rand2(1,.@lv));
    return;
}

// Copy from 026-7/config, and htput($@_DUPES, "new_npc_name", expiration_tick)
// Syntax: sk#_CharID_dmg_stun_{uuid}
//         3 + 6 + (up to 6) + 1 = 15 out of 22 chars (5 for UUID)
//         So UUID 
// We'll also need another trap function
boss,0,0,0	script	sk#trap	NPC_TRAP,0,0,{
    end;

OnTouch:
    .@id=getcharid(0);
    // FALLTHROUGH
OnTouchNPC:
    explode(.@parts$, strnpcinfo(0), "_");
    .@gid=atoi(.@parts$[1]);
    .@dmg=atoi(.@parts$[2]);
    .@stn=atoi(.@parts$[3]);
    // Do not harm the trap setter/caster
    if (.@id == .@gid)
        end;
    // Actual trap function
    SkillTrap(.@dmg, .@stn);
    end;

OnInit:
    // A small animation of the trap arming itself...
    sleep(500);
    setnpcdisplay strnpcinfo(0), NPC_TRAP_ONLINE;
    end;
}