WilkyMave Posted June 21, 2012 Group: Members Topic Count: 11 Topics Per Day: 0.00 Content Count: 27 Reputation: 1 Joined: 06/09/12 Last Seen: January 24, 2018 Share Posted June 21, 2012 Hi guys can you help me to duplicate this Dynamic Script! ) questshop.txt Quote Link to comment Share on other sites More sharing options...
Oxxy Posted June 21, 2012 Group: Members Topic Count: 13 Topics Per Day: 0.00 Content Count: 106 Reputation: 3 Joined: 01/01/12 Last Seen: March 29, 2023 Share Posted June 21, 2012 (edited) Find: prontera,144,169,5 script Quest 953,{ change to: prontera,144,169,5 script Quest#1-1 953,{ Find: Last } in the script add after: prontera,145,169,5<TAB>duplicate(Quest#1-1)<TAB>Quest#1-2<TAB>953 Try this one! Edit: Had a mistake, it should work now. Don't forget to change the coordinats. Edited June 21, 2012 by Oxxy Quote Link to comment Share on other sites More sharing options...
WilkyMave Posted June 22, 2012 Group: Members Topic Count: 11 Topics Per Day: 0.00 Content Count: 27 Reputation: 1 Joined: 06/09/12 Last Seen: January 24, 2018 Author Share Posted June 22, 2012 thanks Oxxy I will Test it Now ) i got this ERROR [Error]: npc_parsesrcfile: Unknown syntax in file 'npc/custom/questshop.txt', li ne '107'. Stopping... * w1=set @i,0; * w2= * w3= * w4= Quote Link to comment Share on other sites More sharing options...
Oxxy Posted June 22, 2012 Group: Members Topic Count: 13 Topics Per Day: 0.00 Content Count: 106 Reputation: 3 Joined: 01/01/12 Last Seen: March 29, 2023 Share Posted June 22, 2012 (edited) Try this one...: - shop TCG_shop -1,501:50 prontera,144,169,5 script Quest#1-1 953,{ set @i,0; mes "[ TCG Shop ]"; mes "Which item do you wish to obtain?"; mes "Select only one."; callshop "TCG_shop",1; npcshopattach "TCG_shop"; end; OnBuyItem: if(.BuildQuest) { for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {} npcshopadditem "TCG_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 "[ TCG Shop ]"; 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: npcshopitem "TCG_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,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20000,1,"announce"; case 2: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20001,1,"announce"; case 3: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20002,1,"announce"; case 4: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20004,1,"announce"; case 5: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20005,1,"announce"; case 6: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20006,1,"announce"; case 7: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20007,1,"announce"; case 8: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20008,1,"announce"; case 9: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20009,1,"announce"; case 10: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20010,1,"announce"; case 11: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20012,1,"announce"; case 12: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20013,1,"announce"; case 13: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20014,1,"announce"; case 14: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20015,1,"announce"; case 15: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20016,1,"announce"; case 16: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20017,1,"announce"; case 17: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20018,1,"announce"; case 18: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20019,1,"announce"; case 19: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20020,1,"announce"; case 20: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20021,1,"announce"; case 21: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20022,1,"announce"; case 22: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20023,1,"announce"; case 23: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20024,1,"announce"; case 24: callsub OnBuyItem,7227,100,7037,100,602,500,7168,150,675,10,10000000,"SZeny",20026,1,"announce"; } } prontera,145,169,5<TAB>duplicate(Quest#1-1)<TAB>Quest#1-2<TAB>953 Edited June 22, 2012 by Oxxy Quote Link to comment Share on other sites More sharing options...
Question
WilkyMave
Hi guys can you help me to duplicate this Dynamic Script! )
questshop.txt
Link to comment
Share on other sites
3 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.