Jump to content

Onitsuka

Members
  • Posts

    33
  • Joined

  • Last visited

Posts posted by Onitsuka

  1. [Warning]: Unexpected type for argument 1. Expected string.

    [Debug]: Data: number value=100

    [Debug]: Function: compare

    [Debug]: Source (NPC): Custom Hat Quest at morocc (122,63)

    [Warning]: Unexpected type for argument 1. Expected string.

    [Debug]: Data: number value=20

    [Debug]: Function: compare

    [Warning]: Unexpected type for argument 1. Expected string.

    [Debug]: Data: number value=50

    [Debug]: Function: compare

    [Debug]: Source (NPC): Custom Hat Quest at morocc (122,63)

    //Made by Lunar
    //Version 1.6
    //6.1.09

    - shop quest_shop -1,501:50
    morocc,122,63,5, script Custom Hat Quest 899,{
    set @i,0;
    mes "[shop Quest NPC]";
    mes "Which item do you wish to obtain?";
    mes "Select only one.";
    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 "[shop Quest NPC]";
    mes "I require the following:";
    for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
    if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
    mes "^000000In exchange, I will give you:^0000FF";
    for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
    switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
    case 1:
    for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
    next;
    mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
    mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
    close;
    }
    if(Zeny < getarg(@i)) {
    next;
    mes "You do not have enough Zeny.";
    mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more 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) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
    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 "Custom Quest",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,7445,100,968,20,7030,100,7107,100,7123,100,7161,100,7155,100,20000000,"SZeny",5515,1,0;
    case 2: callsub OnBuyItem,7446,100,968,20,7030,100,7107,100,7123,100,7161,100,7155,100,20000000,"SZeny",5374,1,0;
    case 3: callsub OnBuyItem,7447,100,968,20,7030,100,7107,100,7123,100,7161,100,7155,100,20000000,"SZeny",5013,1,0;
    case 4: callsub OnBuyItem,7448,100,968,20,7263,100,7107,100,7123,100,7161,100,7155,100,20000000,"SZeny",5465,1,0;
    case 5: callsub OnBuyItem,7171,100,7205,50,7003,100,7222,50,4198,1,10000000,"SZeny",5361,1,0;
    case 6: callsub OnBuyItem,7267,100,7205,50,7003,100,7222,50,4198,1,10000000,"SZeny",5051,1,0,"announce";
    }
    }[/codeBOX]

×
×
  • Create New...