Jump to content

nuna

Members
  • Content Count

    136
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by nuna

  1. Must be programs that are not allowing the server to make connection
  2. You can download latest Kro files. As long as you config the server in pre-renewal. You can do it by opening the renewal.h in the src folder of config. because its all set as renewal you can just add // on every line of renewal configuration. On the Client to use. You can use 2012 + client and config it to your mmo.h under src folder. Clientinfo.xml is the one you need inside your data folder to connect with your server. You can message me so that i can help you with your problem.
  3. thank you everyone for responding but suddenly no error appeared in the console. Only "An error occured" when clicking the qshop5 that the character in game can see.
  4. So heres the code. //===== rAthena Script =======================================//= Euphy's Quest Shop//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.6b//===== Compatible With: =====================================//= rAthena SVN r16862+//===== 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.//============================================================// Shop NPCs -- supplying no argument displays entire menu.// callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};//============================================================darkmall,106,105,4 script QUEST WINGS 999,{ callfunc "qshop",1; OnInit: waitingroom "WINGS Quest!",0; end; }darkmall,110,96,4 script QUEST WEAPONS 998,{ callfunc "qshop",3; OnInit: waitingroom "WEAPON Quest!",0; end; } darkmall,100,91,4 script Arcana Set Quest 997,{ callfunc "qshop",4; OnInit: waitingroom "Arcana Set Quest!",0; end; } darkmall,104,93,4 script Beast Set Quest 997,{ callfunc "qshop",2; OnInit: waitingroom "Beast Set Quest!",0; end; } darkmall,99,99,4 script Red Set Quest 997,{ callfunc "qshop",5; OnInit: waitingroom "Red Set Quest!",0; end; } // Script Core//============================================================- script quest_shop -1,{ function Add; function Chk; function Slot; function A_An;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,0; // 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";// -----------------------------------------------------------// Shop IDs -- to add shops, copy dummy data at bottom of file.// setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};// ----------------------------------------------------------- setarray .Shops$[1],"Wing Quest!","Headgear Quest!","Weapon Quest!","Dragon Set Quest";// -----------------------------------------------------------// 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,20000,1,0,0,7101,140,7063,150,969,50); Add(1,20001,1,0,0,1038,140,1039,150,969,50); Add(1,20002,1,0,0,995,150,749,150,7066,180); Add(1,20007,1,0,0,983,10,1038,180,1039,180,969,100); Add(1,20015,1,0,0,982,10,7063,180,7054,180,969,100); Add(1,20004,1,0,0,982,10,7101,120,7053,150,20115,1); Add(1,20013,1,0,0,978,10,1030,20,7443,50,969,100); // Add(1,20011,1,0,0,980,30,20000,1,20001,1,969,150); // Add(1,20116,1,0,0,980,10,994,180,954,180,969,100,7006,150); Add(1,20012,1,0,0,983,10,7214,200,7063,150,969,100,7067,50); Add(1,20115,1,0,0,982,5,7101,150,7053,100,969,100); Add(2,20434,1,0,0,30200,7); Add(2,20435,1,0,0,30200,10); Add(2,20436,1,0,0,30200,5); Add(2,20437,1,0,0,30200,5); Add(3,30004,1,0,0,30205,3,7043,150,1023,100); Add(3,30008,1,0,0,30205,3,923,250,934,150); Add(3,30006,1,0,0,30205,3,994,250,727,150); Add(3,30012,1,0,0,30205,3,950,150,1063,150); Add(3,30007,1,0,0,30205,3,1043,250,928,150); Add(3,30016,1,0,0,30205,3,7200,100,997,150); Add(3,30011,1,0,0,30205,3,7172,150,7030,150); Add(4,20110,1,0,0,30201,7);// Add(4,20112,1,0,0,30201,10);// Add(4,20114,1,0,0,30201,5);// Add(4,20111,1,0,0,30201,5);// Add(5,20106,1,0,0,30204,7);// Add(5,20108,1,0,0,30204,10);// Add(5,20109,1,0,0,30204,5);// Add(5,20107,1,0,0,30204,5);// // ----------------------------------------------------------- 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 .@i, select(.menu$); else if (.@size == 1) set .@i, @i[0]; else { for(set .@j,0; .@j<.@size; set .@j,.@j+1) set .@menu$, .@menu$+.Shops$[@i[.@j]]+":"; set .@i, @i[select(.@menu$)-1]; } deletearray @i[0],getarraysize(@i); if (.Shops$[.@i] == "") { message strcharinfo(0),"An error has occurred."; end; } dispbottom "Select one item at a time."; callshop "qshop"+.@i,1; npcshopattach "qshop"+.@i; 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_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+.@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] & 1) || (@qe[1] & 256) || (@qe[1] & 512) || (@qe[1] & 1024) || (@qe[1] & 2048) || (@qe[1] & 4096) || (@qe[1] & 4) || (@qe[1] & 8192))) 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]):A_An(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(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 A_An { setarray .@A$[0],"a","e","i","o","u"; set .@B$, "_"+getarg(0); for(set .@i,0; .@i<5; set .@i,.@i+1) if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0); return "a "+getarg(0);}}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 The darkmall,99,99,4 script Red Set Quest 997,{ callfunc "qshop",5; OnInit: waitingroom "Red Set Quest!",0; end; } is not working. i dont know why as i see the qshop5 is supported. but it only support 4 shops. please help me to fix it
  5. as i said please message me so that i can help you.
  6. please message me ill try to help you.
  7. also dont use sclientinfo. use clientinfo.xml
  8. [Data]2=data.grf3=data this is wrong. if its diffed without read data folder first. it should be [Data] 1=Yourgrf.grf 2=data.grf
  9. Mind breaker is not working on the latest revision Please help me to fix it thank you
  10. How to fix this untranslated Skill timer I already tried converting skill efect lub to lua and lua to lub.
  11. example i have this monster sprite but i want to use it and make monster, how?
  12. can i host using cloud vps? whats the difference between openvz and cloud??
  13. I just need the client that i posted to be diffed again and added the 3 packet encryption and uncheck the disable packet encryption. is it possible?
  14. i would like to request an npc summoner that it will summon specific monster on specific map but that monster will attack any other player except the guild master and the members of that guild: Example : Like the Castle Guardian on any agit map. If the guild master talk to the npc it will summon example bow guardian on prontera 200 200 and the bow guardian will attack all player that he will see except the Members of the guild and the guild master. Thank you in advance!
  15. Hello hercules community. I would like to request a diffed client because im always came up with some errors when i tried to diffed it. so i want some professionals with a big heart to help me out. thank you. Client version- 20120509 with 30,000 Increase of headgear Enable packet encryption. ( For WPE HERCULES PROTECTION) I really cant do it. please... Thank you very much for reading my request
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.