Jump to content

agentbogz

Members
  • Posts

    96
  • Joined

  • Last visited

Everything posted by agentbogz

  1. Eto yung Script ng Vote script hindi pa ito ang NPC - <tab> script <tab> VotePointConvert <tab> -1,{ OnPCLoginEvent: query_sql("SELECT `points` FROM `cp_v4p_voters` WHERE account_id="+getcharid(3)+" LIMIT 1",.@points); if (!.@points) end; query_sql("UPDATE `cp_v4p_voters` SET points=(points-"+.@points+") WHERE account_id='"+getcharid(3)+"'"); set #VOTEPOINTS, #VOTEPOINTS+.@points; dispbottom "Vote Points updated! Total: "+#VOTEPOINTS; end; } Then eto naman yung Script ni Euphy na Quest NPC //===== rAthena Script ======================================= //= Euphy's Quest Shop //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.6 //===== 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. //============================================================ // Shop NPCs -- supplying no argument displays entire menu. // callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}}; //============================================================ prontera,164,203,6 script Quest Shop#1 998,{ callfunc "qshop"; } // 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],"#VOTEPOINTS","Vote Points"; // ----------------------------------------------------------- // Shop IDs -- to add shops, copy dummy data at bottom of file. // setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...}; // ----------------------------------------------------------- setarray .Shops$[1],"Headgears","Weapons","Other"; // ----------------------------------------------------------- // 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,5022,1,0,0,7086,1,969,10,999,40,1003,50,984,2); Add(1,5032,1,0,0,1059,250,2221,1,2227,1,7063,600); Add(1,5027,1,0,0,2252,1,1036,400,7001,50,4052,1); Add(1,5045,1,0,0,2252,1,1054,450,943,1200); Add(2,1224,1,0,0,7297,30,969,10,999,50,714,10); Add(2,1225,1,0,0,7292,30,969,10,999,50,714,10); Add(3,531,1,3,0,512,1,713,1); Add(3,532,1,3,0,513,1,713,1); Add(3,533,1,3,0,514,1,713,1); Add(3,534,1,3,0,515,1,713,1); // ----------------------------------------------------------- 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:"; 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[1] & 1) || (@qe[1] & 256) || (@qe[1] & 512)) && @qe[2] > 0) set .@preview,1; addtimer 1000, strnpcinfo(0)+"::OnEnd"; while(1) { switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[6])?" ~ 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 699; close; case 2: setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), 1; if (@qe[1] & 1) changelook LOOK_HEAD_BOTTOM, @qe[2]; if (@qe[1] & 256) changelook LOOK_HEAD_TOP, @qe[2]; if (@qe[1] & 512) changelook LOOK_HEAD_MID, @qe[2]; break; case 3: close; } } OnEnd: if (@qe[6]) { changelook LOOK_HEAD_BOTTOM, @qe[3]; changelook LOOK_HEAD_TOP, @qe[4]; changelook LOOK_HEAD_MID, @qe[5]; } deletearray @qe[0],7; 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 Yan po sir, Tell nyo nalang po sir kung may Prob pa..
  2. Follow nyo lang po itong Guide ni Euphy. http://rathena.org/board/topic/66934-requesting-for-v4points-dynamic-npc-shop/
  3. http://rathena.org/board/topic/66962-basic-complete-renewal-data-english-folder/
  4. Try nyo po to sir sa config folder nyo po then error.php look for this line $showExceptions = true; // Whether or not to show exceptions (only applies to error.php)
  5. check your conf files char_athena.conf and inter_athena.conf
  6. Add this to your packet_db.txt //2012-04-10aRagexeRE 0x01FD,15,repairitem,2 0x089C,26,friendslistadd,2 0x0885,5,hommenu,2:4 0x0961,36,storagepassword,0 0x0288,-1,cashshopbuy,4:8 0x091C,26,partyinvite2,2 0x094B,19,wanttoconnection,2:6:10:14:18 0x0369,7,actionrequest,2:6 0x083C,10,useskilltoid,2:4:6 0x0439,8,useitem,2:4 0x0945,-1,itemlistwindowselected,2:4:8 0x0815,-1,reqopenbuyingstore,2:4:8:9:89 0x0817,2,reqclosebuyingstore,0 0x0360,6,reqclickbuyingstore,2 0x0811,-1,reqtradebuyingstore,2:4:8:12 0x0819,-1,searchstoreinfo,2:4:5:9:13:14:15 0x0835,2,searchstoreinfonextpage,0 0x0838,12,searchstoreinfolistitemclick,2:6:10 0x0437,5,walktoxy,2 0x0886,6,ticksend,2 0x0871,5,changedir,2:4 0x0938,6,takeitem,2 0x0891,6,dropitem,2:4 0x086C,8,movetokafra,2:4 0x08A6,8,movefromkafra,2:4 0x0438,10,useskilltopos,2:4:6:8 0x0366,90,useskilltoposinfo,2:4:6:8:10 0x0889,6,getcharnamerequest,2 0x0884,6,solvecharname,2 0x08E5,41,bookingregreq,2:4 //Added to prevent disconnections 0x08E6,4 0x08E7,10,bookingsearchreq,2 0x08E8,-1 0x08E9,2,bookingdelreq,2 0x08EA,4 0x08EB,39,bookingupdatereq,2 0x08EC,73 0x08ED,43 0x08EE,6 0x08EF,6,bookingignorereq,2 0x08F0,6 0x08F1,6,bookingjoinpartyreq,2 0x08F2,36 0x08F3,-1 0x08F4,6 0x08F5,-1,bookingsummonmember,2:4 0x08F6,22 0x08F7,3 0x08F8,7 0x08F9,6 0x08FA,6 0x08FB,6,bookingcanceljoinparty,2 0x0907,5,moveitem,2:4 0x0908,5 0x08D7,28,battlegroundreg,2:4 //Added to prevent disconnections
  7. Disconnecting session #7 with unknown packet version (p:0x08a7,l:19). //2011-12-28aRagexeRE 0x01FD,15,repairitem,2 0x0369,26,friendslistadd,2 0x0437,5,hommenu,2:4 0x02C4,36,storagepassword,0 0x0288,-1,cashshopbuy,4:8 0x0802,26,partyinvite2,2 0x08A7,19,wanttoconnection,2:6:10:14:18 0x08AD,7,actionrequest,2:6 0x0436,10,useskilltoid,2:4:6 0x0439,8,useitem,2:4 0x0892,-1,itemlistwindowselected,2:4:8 0x0889,18,bookingregreq,2:4:6 0x0803,4 0x0804,14,bookingsearchreq,2:4:6:8:12 0x0805,-1 0x0806,2,bookingdelreq,0 0x0807,4 0x0808,14,bookingupdatereq,2 0x0809,50 0x080A,18 0x080B,6 0x035F,-1,reqopenbuyingstore,2:4:8:9:89 0x023B,2,reqclosebuyingstore,0 0x0811,6,reqclickbuyingstore,2 0x0365,-1,reqtradebuyingstore,2:4:8:12 0x08AC,-1,searchstoreinfo,2:4:5:9:13:14:15 0x0281,2,searchstoreinfonextpage,0 0x088B,12,searchstoreinfolistitemclick,2:6:10 0x08A6,5,walktoxy,2 0x0838,6,ticksend,2 0x0362,5,changedir,2:4 0x08A2,6,takeitem,2 0x0888,6,dropitem,2:4 0x089C,8,movetokafra,2:4 0x0885,8,movefromkafra,2:4 0x0364,10,useskilltopos,2:4:6:8 0x07EC,90,useskilltoposinfo,2:4:6:8:10 0x0886,6,getcharnamerequest,2 0x089B,6,solvecharname,2 0x0907,5,moveitem,2:4 0x0908,5 0x08D7,28,battlegroundreg,2:4 //Added to prevent disconnections //Add new packets here //packet_ver: 29 mmo.h #ifndef PACKETVER #define PACKETVER 20111228 #endif i'd already enable Skip Packet Obfuscation.
  8. You can diff it to ignore some errors.
  9. Your under Ddos Attack..
  10. Try my AI,, http://www.mediafire.com/?fucxf776pacgd4a
  11. yes it is working before.. then i saw that.. i tried to install fresh fluxcp Is this about the permission?? when i installed it?? i used the permission chmod 0777.
  12. Hi Guys, i have a problem i tried to moved the folder of my Control panel to my main domain.. last time my control panel was located at www.domain.com/cp now i've moved it to main location of my domain which is domain.com.. the problem is.. even i have a fresh installed Fluxcp this error appears when i tried to use the Reset Position, Reset Looks, Change Slot and etc.
  13. How to change base max level to 255 here in rathena? it stocks in 150.. i've download the latest svn. -Thank you
  14. Okay sir, no prob i wish there's a good heart that will share this one
  15. Thanks for this sir, but i have that one, and i'm looking for this styles.
  16. [ Requesting for Added Custom Hairstyles ] I Would like kind of this NPC that Needs Coupons for Added Custom Hairstyles And Here is the Male Custom Hairstyles And Here is the Female Custom Hairstyles
  17. Sir i try this but when i load it, it's looking for x,y coordinates.. Maybe you can use this... He posted it lol...^^^^^^^^^ Just put it one by one in the item_db.txt and just use the OnKick: for the npc script... btw, I just knew about this way.. so I haven't tried... Just share what I've just learned.. Maybe you can use this... He posted it lol...^^^^^^^^^ Just put it one by one in the item_db.txt and just use the OnKick: for the npc script... btw, I just knew about this way.. so I haven't tried... Just share what I've just learned.. Hi sir.. do you have other one? item equipped or unequipped are restricted.. because here u need to equip it..
  18. Hello Guys do you have a script that restrict items in a certain map, even the equip cards? For example: ALL MVP Cards and All Donation Items are Restricted in a certain map. even it is Equip or Unequip it is restricted. and if the player have this items, they're automatically warp back home. i Hope you understand what i'm trying to say here Thanks you very much!
  19. Hello Guys i would like to Request for Global Random Announcement Script where i can add and remove a random and daily announcement. if you have a script like this, can you share it guys? Thank you guys..
  20. where should i put the zeny required here? about 50m every single item for disguise.
  21. Hello guys i would like to request a script of Disguise Item NPC and Aura changer NPC *Disguise Item NPC - It will Disguise the item you are wearing. Example: I'm wearing Valkyrie Helm and i want to hide it or disguise it as a POO POO HAT. i'll take the NPC to disguise my item for 1B Zeny, and when the user's died. my disguised item will back to normal. *Aura Changer NPC - this npc change the style of your aura. Example: I have a normal aura the blueish white one. and i want to change it to bubble Aura i need to pay that aura in that NPC for 1B Zeny. If you have this kind of script guys, can you share it? Big thanks to all of you. LOVE YOU ALL! =)
×
×
  • Create New...