Jump to content
  • 0

[Solved] H> Waiting Room in Quest Shop

GM Winter

Asked by GM Winter,

 Share

Question

GM Winter Pouring

GM Winter

Posted
  • Group:  Members
  • Topic Count:  176
  • Topics Per Day:  0.14
  • Content Count:  666
  • Reputation:   9
  • Joined:  12/04/20
  • Last Seen:  
Posted (edited)

hello i would like to ask how to put waiting room here 

 

Quote 
//===== rAthena Script =======================================
//= Euphy's Quest Shop
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.6c
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= A dynamic quest shop based on Lunar's, with easier config.
//= Includes support for multiple shops & cashpoints.
//= Item Preview script by ToastOfDoom.
//===== Additional Comments: =================================
//= 1.0 Initial script.
//= 1.2 Added category support.
//= 1.3 More options and fixes.
//= 1.4 Added debug settings.
//= 1.5 Replaced categories with shop IDs.
//= 1.6 Added support for purchasing stackables.
//= 1.6a Added support for previewing costumes and robes.
//= 1.6b Added 'disable_items' command.
//= 1.6c Replaced function 'A_An' with "F_InsertArticle".
//============================================================

// Shop NPCs -- supplying no argument displays entire menu.
//    callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};
//  ADD YOUR NPC HERE
//============================================================
prontera,164,203,6    script    Quest Shop#1    998,{ callfunc "qshop"; }
// prontera,165,203,6    script    Quest Shop#2    998,{ callfunc "qshop",1,2; }    // call the shop 1 and 2 defined below
// etc.. Add your Shop NPCs 'Quest Shop#XXX' here
//============================================================


// Script Core - DO NOT DUPLICATE THIS NPC !!!!!!!!!!!!!
//============================================================
-    script    quest_shop    -1,{
function Add; function Chk; function Slot;
OnInit:
    freeloop(1);

// -----------------------------------------------------------
//  Basic shop settings.
// -----------------------------------------------------------

    set .Announce,1;    // Announce quest completion? (1: yes / 0: no)
    set .ShowSlot,1;    // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)
    set .ShowID,1;      // Show item IDs? (1: yes / 0: no)
    set .ShowZeny,0;    // Show Zeny cost, if any? (1: yes / 0: no)
    set .MaxStack,100;    // Max number of quest items purchased at one time.

// -----------------------------------------------------------
//  Points variable -- optional quest requirement.
//    setarray .Points$[0],"<variable name>","<display name>";
// -----------------------------------------------------------

    setarray .Points$[0],
        "#CASHPOINTS", "Cash Points";


//=====================================================================================
// ------------------- ADD YOUR SHOPS NAME AND ITEMS SHOPS STARTING HERE --------------
//=====================================================================================

// -----------------------------------------------------------
//  Shop IDs -- to add shops, copy dummy data at bottom of file.
//    setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};
// -----------------------------------------------------------

    setarray .Shops$[1],
        "Costume Upper",    // Shop Named 1
        "Costume Middle",    // Shop Named 2
        "Costume Lower",        // Shop Named 3
        "Costume Garment";        // Shop Named 4

// -----------------------------------------------------------
//  Quest items -- do NOT use a reward item more than once!
//    Add(<shop ID>,<reward ID>,<reward amount>,
//        <Zeny cost>,<point cost>,
//        <required item ID>,<required item amount>{,...});
// -----------------------------------------------------------

    Add(1,31290,1,0,0,40129,15,641,1,1039,250,969,1,976,1,2255,1,2227,1);
    Add(1,31291,1,0,0,40129,15,642,1,1039,250,969,1,975,1,2255,1,2227,1);
    Add(1,31090,1,0,0,40129,15,619,1,7121,250,969,1,980,1,2254,1,2221,1);
    Add(1,31098,1,0,0,40129,15,638,1,1022,250,969,1,981,1,10007,1,2274,1);
    Add(1,31140,1,0,0,40129,15,628,1,7166,250,969,1,983,1,2248,1,1030,1);
    Add(1,31187,1,0,0,40129,15,622,1,1059,250,969,1,983,1,2250,1,7510,1);
    Add(1,31190,1,0,0,40129,15,639,1,1020,250,969,1,975,1,661,1,10016,1);
    
    Add(2,20406,1,0,0,40129,15,642,1,1098,250,969,1,979,1,2626,1,7023,1);
    Add(2,20314,1,0,0,40129,15,625,1,7126,250,969,1,983,1,5007,1,5104,1);
    Add(2,31122,1,0,0,40129,15,624,1,930,250,969,1,975,1,2258,1,5096,1);
    
    Add(3,31057,1,0,0,40129,15,626,1,7216,250,969,1,983,1,2507,1,1232,1);
    Add(3,20405,1,0,0,40129,15,626,1,7216,250,969,1,975,1,2507,1,1232,1);
    Add(3,31189,1,0,0,40129,15,633,1,7216,250,969,1,975,1,10019,1,5002,1);


    Add(4,20512,1,0,0,40129,15,640,1,538,250,969,1,975,1,2327,1,5019,1);

// -----------------------------------------------------------

//=====================================================================================
// ------------------- YOUR SHOPS AND ITEMS SHOPS HAVE BEEN ADDED ---------------------
//=====================================================================================

    freeloop(0);
    set .menu$,"";
    for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
        set .menu$, .menu$+.Shops$[.@i]+":";
        npcshopdelitem "qshop"+.@i,909;
    }
    end;

OnMenu:
    set .@size, getarraysize(@i);
    if (!.@size) set @shop_index, select(.menu$);
    else if (.@size == 1) set @shop_index, @i[0];
    else {
        for(set .@j,0; .@j<.@size; set .@j,.@j+1)
            set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";
        set @shop_index, @i[select(.@menu$)-1];
    }
    deletearray @i[0],getarraysize(@i);
    if (.Shops$[@shop_index] == "") {
        message strcharinfo(0),"An error has occurred.";
        end;
    }
    dispbottom "Select one item at a time.";
    callshop "qshop"+@shop_index,1;
    npcshopattach "qshop"+@shop_index;
    end;

OnBuyItem:
    // .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... }
    setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]);
    copyarray .@q[3],getd(".q_"+@shop_index+"_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+@shop_index+"_"+.@q[0]));
    set .@q[2],.@q[1]*.@q[3];
    if (!.@q[2] || .@q[2] > 30000) {
        message strcharinfo(0),"You can't purchase that many "+getitemname(.@q[0])+".";
        end;
    }
    mes "[Quest Shop]";
    mes "Reward: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000";
    mes "Requirements:";
    disable_items;
    if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000";
    if (.@q[5]) mes " > "+Chk(getd(.Points$[0]),.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+(.@q[5]*.@q[1])+")^000000";
    if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
        mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1]*.@q[1])+((.ShowID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+(.@q[.@i+1]*.@q[1])+")^000000";
    next;
    setarray @qe[1], getiteminfo(.@q[0],5), getiteminfo(.@q[0],11);
    if (@qe[2] > 0 && ((@qe[1] & EQP_HEAD_LOW) || (@qe[1] & EQP_HEAD_TOP) || (@qe[1] & EQP_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_TOP) || (@qe[1] & EQP_COSTUME_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_LOW) || (@qe[1] & EQP_GARMENT) || (@qe[1] & EQP_COSTUME_GARMENT)))
        set .@preview,1;
    addtimer 1000, strnpcinfo(0)+"::OnEnd";
    while(1) {
        switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[7])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {
        case 1:
            if (@qe[0]) {
                mes "[Quest Shop]";
                mes "You're missing one or more quest requirements.";
                close;
            }
            if (!checkweight(.@q[0],.@q[2])) {
                mes "[Quest Shop]";
                mes "^FF0000You need "+(((.@q[2]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";
                close;
            }
            if (.@q[4]) set Zeny, Zeny-(.@q[4]*.@q[1]);
            if (.@q[5]) setd .Points$[0], getd(.Points$[0])-(.@q[5]*.@q[1]);
            if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
                delitem .@q[.@i],.@q[.@i+1]*.@q[1];
            getitem .@q[0],.@q[2];
            if (.Announce) announce strcharinfo(0)+" has created "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):callfunc("F_InsertArticle",getitemname(.@q[0])))+"!",0;
            specialeffect2 EF_FLOWERLEAF;
            close;
        case 2:
            setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), getlook(LOOK_ROBE), 1;
            if ((@qe[1] & 1) || (@qe[1] & 4096)) changelook LOOK_HEAD_BOTTOM, @qe[2];
            else if ((@qe[1] & 256) || (@qe[1] & 1024)) changelook LOOK_HEAD_TOP, @qe[2];
            else if ((@qe[1] & 512) || (@qe[1] & 2048)) changelook LOOK_HEAD_MID, @qe[2];
            else if ((@qe[1] & 4) || (@qe[1] & 8192)) changelook LOOK_ROBE, @qe[2];
            break;
        case 3:
            close;
        }
    }

OnEnd:
    if (@qe[7]) {
        changelook LOOK_HEAD_BOTTOM, @qe[3];
        changelook LOOK_HEAD_TOP, @qe[4];
        changelook LOOK_HEAD_MID, @qe[5];
        changelook LOOK_ROBE, @qe[6];
    }
    deletearray @qe[0],8;
    end;

function Add {
    if (getitemname(getarg(1)) == "null") {
        debugmes "Quest reward #"+getarg(1)+" invalid (skipped).";
        return;
    }
    setarray .@j[0],getarg(2),getarg(3),getarg(4);
    for(set .@i,5; .@i<getargcount(); set .@i,.@i+2) {
        if (getitemname(getarg(.@i)) == "null") {
            debugmes "Quest requirement #"+getarg(.@i)+" invalid (skipped).";
            return;
        } else
            setarray .@j[.@i-2],getarg(.@i),getarg(.@i+1);
    }
    copyarray getd(".q_"+getarg(0)+"_"+getarg(1)+"[0]"),.@j[0],getarraysize(.@j);
    npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);
    return;
}

function Chk {
    if (getarg(0) < getarg(1)) {
        set @qe[0],1;
        return "^FF0000";
    } else
        return "^00FF00";
}

function Slot {
    set .@s$,getitemname(getarg(0));
    switch(.ShowSlot) {
        case 1: if (!getitemslots(getarg(0))) return .@s$;
        case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";
        default: return .@s$;
    }
}
}

function    script    qshop    {
    deletearray @i[0],getarraysize(@i);
    for(set .@i,0; .@i<getargcount(); set .@i,.@i+1)
        set @i[.@i],getarg(.@i);
    doevent "quest_shop::OnMenu";
    end;
}


// Dummy shop data -- copy as needed.
//============================================================
-    shop    qshop1    -1,909:-1
-    shop    qshop2    -1,909:-1
-    shop    qshop3    -1,909:-1
-    shop    qshop4    -1,909:-1
-    shop    qshop5    -1,909:-1
prontera,164,203,6    script    Quest Shop#1    998,{ callfunc "qshop"; }
prontera,164,203,6    script    Quest Shop#1    998,{ 
	callfunc "qshop"; 
	end;

	OnInit:
	waitingroom "Quest Shop", 0;
	end;
	}

i try this one and its working fine but how about if it has many shop inside that npc example is:

prontera,164,203,6 script Quest Shop#1 998,{, callfunc "qshop",3,4,5; }

Edited by GM Winter
Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0
KazumaSatou Magmaring

KazumaSatou

Posted
  • Group:  Members
  • Topic Count:  9
  • Topics Per Day:  0.01
  • Content Count:  147
  • Reputation:   36
  • Joined:  05/15/20
  • Last Seen:  
Posted
45 minutes ago, GM Winter said:

hello i would like to ask how to put waiting room here 

  

prontera,164,203,6    script    Quest Shop#1    998,{ callfunc "qshop"; }
prontera,164,203,6    script    Quest Shop#1    998,{ 
	callfunc "qshop"; 
	end;

	OnInit:
	waitingroom "Quest Shop", 0;
	end;
	}

i try this one and its working fine but how about if it has many shop inside that npc example is:

prontera,164,203,6 script Quest Shop#1 998,{, callfunc "qshop",3,4,5; }

Normally, there's only 1 NPC with multiple shops inside (By Category or Menu) so it will only have 1 waiting room so the one you made is fine.

Link to comment
Share on other sites
  • 0
GM Winter Pouring

GM Winter

Posted
  • Group:  Members
  • Topic Count:  176
  • Topics Per Day:  0.14
  • Content Count:  666
  • Reputation:   9
  • Joined:  12/04/20
  • Last Seen:  
  • Author
Posted
3 minutes ago, KazumaSatou said:

Normally, there's only 1 NPC with multiple shops inside (By Category or Menu) so it will only have 1 waiting room so the one you made is fine.

i try to convert it to this script 

 

Quote 
prontera,164,203,6 script    Juice Maker NPC    548,{ callfunc "qshop",1; }

     

prontera,164,203,6  script    Juice Maker NPC#1    548,{ 
    callfunc "qshop1"; 
    end;
    
OnTimer0050:
        showscript "Juice Maker NPC", getnpcid(0);
        initnpctimer;
        end;
OnInit:
        initnpctimer;
        end;
}

its no error but i in one shop npc with other category or selection

 

prontera,164,203,6    script    Hourly Shop    758,{ callfunc "qshop",3,4,5; }

prontera,164,203,6    script    Hourly Shop#1    758,{ 
    callfunc "qshop3,4,5"; 
    end;
    
OnTimer0050:
        showscript "Hourly Shop NPC", getnpcid(0);
        initnpctimer;
        end;
OnInit:
        initnpctimer;
        end;
}

this error shows "[Error]: buildin_callfunc: Function not found! [qshop3,4,5]"

Link to comment
Share on other sites
  • 0
KazumaSatou Magmaring

KazumaSatou

Posted
  • Group:  Members
  • Topic Count:  9
  • Topics Per Day:  0.01
  • Content Count:  147
  • Reputation:   36
  • Joined:  05/15/20
  • Last Seen:  
Posted

Try this : 

prontera,164,203,6	script	Hourly Shop#1	758,{ 
    callfunc "qshop",3,4,5; 
    end;

OnInit:
	while(1){
		showscript "Hourly Shop NPC";
		sleep 3000;
	}
}

 

  • Upvote 1
Link to comment
Share on other sites
  • 0
GM Winter Pouring

GM Winter

Posted
  • Group:  Members
  • Topic Count:  176
  • Topics Per Day:  0.14
  • Content Count:  666
  • Reputation:   9
  • Joined:  12/04/20
  • Last Seen:  
  • Author
Posted
4 minutes ago, KazumaSatou said:

Try this : 

prontera,164,203,6	script	Hourly Shop#1	758,{ 
    callfunc "qshop",3,4,5; 
    end;

OnInit:
	while(1){
		showscript "Hourly Shop NPC";
		sleep 3000;
	}
}

 

hello ive already try it and i also edit the script in shop 1 & 2 and as of now i dont have experience any error i just want to ask regarding the sleep 3000; can we remove it so the waiting room will not disappear because each time im going to the npc it takes 3 secs to appear the waiting room

Link to comment
Share on other sites
  • 0
KazumaSatou Magmaring

KazumaSatou

Posted
  • Group:  Members
  • Topic Count:  9
  • Topics Per Day:  0.01
  • Content Count:  147
  • Reputation:   36
  • Joined:  05/15/20
  • Last Seen:  
Posted
Just now, GM Winter said:

hello ive already try it and i also edit the script in shop 1 & 2 and as of now i dont have experience any error i just want to ask regarding the sleep 3000; can we remove it so the waiting room will not disappear because each time im going to the npc it takes 3 secs to appear the waiting room

You can adjust it, because if you don't have sleep, there's no thing to loop for the while. You can set it to 100ms or lower or 1 second. Just to keep the while looping.

Link to comment
Share on other sites
  • 0
GM Winter Pouring

GM Winter

Posted
  • Group:  Members
  • Topic Count:  176
  • Topics Per Day:  0.14
  • Content Count:  666
  • Reputation:   9
  • Joined:  12/04/20
  • Last Seen:  
  • Author
Posted
Just now, KazumaSatou said:

You can adjust it, because if you don't have sleep, there's no thing to loop for the while. You can set it to 100ms or lower or 1 second. Just to keep the while looping.

ow i see thank you very much sir i changed it to 100 thank you 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...