각인시스템 (자체개발)

script    각인장인    {
    set @sd, mysd();
    set @id, myid();
    callfunc "소지품공간", 2;
    set @rand, rand(1,100);

    set @pv, list2(@m,1,0,"<b> * 어서오세요. 각인장인입니다. \n 다른 각인을 하게 되면 기존 각인은 사라집니다. \n<b> 최고치의 각인만 적용됩니다.","방어도무시각인","치명타확률각인");
    if(@pv == 0) {end;} if(@pv == -1) {end;}
    switch(@m){
    case 1:
        set @pv, list2(@1,1,1,"<b> 다시 새로 각인을 하게되면 기존 각인이 사라집니다. \n 어떤부적을들고오셧나요?","[1]경인방어도무시","[5]경인방어도무시","[33]경인방어도무시","[99]경인방어도무시");
        if(@pv == 0) {end;} if(@pv == -1) {end;}
        switch(@1)
        {
        case 1:
            set @a, 2;//확률
            set @b$, "[1]경인방어도무시";//아이템넘버
            set @c, 20;//성공시
            set @d, 7;//실패시
            set @e, 25016;
            set @s, 25003;//성공시아이템
            set @f, 25001;//실패시아이템
            break;
        case 2:
            set @a, 6;//확률
            set @b$, "[5]경인방어도무시";//아이템넘버
            set @c, 15;//성공시
            set @d, 3;//실패시
            set @e, 25013;
            set @s, 25002;//성공시아이템
            set @f, 25000;//실패시아이템
            break;
        case 3:
            set @a, 34;//확률
            set @b$, "[33]경인방어도무시";//아이템넘버
            set @c, 7;//성공시
            set @d, 3;//실패시
            set @e, 25014;
            set @s, 25001;//성공시아이템
            set @f, 25000;//실패시아이템
            break;
        case 4:
            set @a, 101;//확률
            set @b$, "[99]경인방어도무시";//아이템넘버
            set @c, 3;//성공시
            set @d, 0;//실패시
            set @e, 25015;
            set @s, 25000;//성공시아이템
            set @f, 25015;//실패시아이템
            break;
        default:
            end;
        }
        set @rkrdls$, "방어도무시";
        setarray @array[1],25000,25000,25001,25002,25003;
        break;    
    case 2:
        set @pv, list2(@2,1,1,"<b> 다시 새로 각인을 하게되면 기존 각인이 사라집니다. \n 어떤부적을들고오셧나요?","[1]경인치명타확률","[5]경인치명타확률","[33]경인치명타확률","[99]경인치명타확률");
        if(@pv == 0) {end;} if(@pv == -1) {end;}
        switch(@2)
        {
        case 1:
            set @a, 2;//확률
            set @b$, "[1]경인치명타확률";//아이템넘버
            set @c, 50;//성공시
            set @d, 20;//실패시
            set @e, 25009;
            set @s, 25008;//성공시아이템
            set @f, 25006;//실패시아이템
            break;
        case 2:
            set @a, 6;//확률
            set @b$, "[5]경인치명타확률";//아이템넘버
            set @c, 35;//성공시
            set @d, 10;//실패시
            set @e, 25010;
            set @s, 25007;//성공시아이템
            set @f, 25005;//실패시아이템
            break;
        case 3:
            set @a, 34;//확률
            set @b$, "[33]경인치명타확률";//아이템넘버
            set @c, 20;//성공시
            set @d, 5;//실패시
            set @e, 25011;
            set @s, 25006;//성공시아이템
            set @f, 25004;//실패시아이템
            break;
        case 4:
            set @a, 101;//확률
            set @b$, "[99]경인치명타확률";//아이템넘버
            set @c, 10;//성공시
            set @d, 0;//실패시
            set @e, 25012;
            set @s, 25005;//성공시아이템
            set @f, 25012;//실패시아이템
            break;
        default:
            end;
        }
        set @rkrdls$, "치명타확률";
        setarray @array[1],25004,25005,25006,25007,25008;
        break;
    default:
        end;
    }
kakin:
    set @pv, list2(@kakin,1,1,"<b> * 선택한 비서: "+@b$+"\n<b> * 선택한 비서확률: "+(@a-1)+" \n 성공 시 "+@c+" 각인 실패 시 "+@d+"각인 \n\n<b> 기존 각인은 사라집니다. 각인하시겠습니까?","네 각인합니다.","아니요. 좀 더 생각해보겠습니다.");
    if(@pv == 0) {end;} if(@pv == -1) {end;}
    if(pc_amountitem(@sd,@e)<1) {message @sd, 0, "@ 각인을 실패 하였습니다.( 사유: "+@b$+" 각인부적이 없습니다. )"; end;}
    if(@kakin == 1)
    {
    delitem @sd, @e, 1;
    if(@rand<@a)
    { message @sd, 0, "@ 각인 성공하셨습니다.( "+@rkrdls$+" "+@c+" 각인되었습니다. )";
      for(set @i, 1; @i < 6; set @i, @i+1) {
      delitem @sd, @array[@i], 1;
      }
      additem @sd, @s, 1;
      broadcast 0,5,"["+get_name(@sd)+"] "+@b$+" 비서 각인에 성공하였습니다. "+@rkrdls$+" "+@c+" 각인되었습니다. 축하드립니다!.",0;
    }
    else { 
    message @sd, 0, "@ 각인에 실패하셨습니다.( "+@rkrdls$+" "+@d+" 각인되었습니다. )";
          for(set @i, 1; @i < 6; set @i, @i+1) {
          delitem @sd, @array[@i], 1;
          }
          additem @sd, @f, 1;}
    end;
    }
    else if(@kakin == 2)
    {end;}
}
script    각인장인말하기    {
    set @id, objid();
    set @r, rand(1,60);
    if(@r == 20) { say @id, 0, "각인장인: 강력해지고싶나? 그럼 어서 각인을 해보게!!"; }
    else if(@r == 40) { say @id, 0, "각인장인: 각인에는 방어도무시 각인과 치명타확률 각인이 있다네"; }
}