Vote for points npc

X

xxx69

New member
Messages
15
Points
0
Age
35
Location
Pampanga
Hi! i was a rathena user before but i switched to hercules. after the switching my Vote for points npc is still working problem is vote points does'nt show in game. i was hosted in pony-vps before. that vote for points npc was one of their freebies. 

Table name is cp_votes, vote points are being saved in `credits` column.

it creates one colum per vote, just like in the SS.

Here's my script:

//===== rAthena Script =======================================//= Euphy's Quest Shop//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.4a//===== Compatible With: =====================================//= rAthena SVN r15340+//===== Description: =========================================//= A dynamic quest shop based on Lunar's, with easier config.//= Includes support for multiple shops & cashpoints.//= Item Preview script by ToastOfDoom.//============================================================ turbo_room,105,122,4 script Vote Shop 501,{function Add; function Chk; function Slot; function A_An;  if(.Shops$ != "") set .@i,1; else { set .@menu$,""; for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) set .@menu$, .@menu$+.Shops$[.@i]+":"; set .@i, select(.@menu$); } dispbottom "Select one item at a time."; callshop "qshop2"+.@i,1; npcshopattach "qshop2"+.@i; end; function Add { if (getitemname(getarg(1))=="null") { debugmes "Quest reward #"+getarg(1)+" invalid (skipped)."; return; } for(set .@n,5; .@n<127; set .@n,.@n+2) { if (!getarg(.@n,0)) break; if (getitemname(getarg(.@n))=="null") { debugmes "Quest requirement #"+getarg(.@n)+" invalid (skipped)."; return; } } for(set .@i,2; .@i<.@n; set .@i,.@i+1) set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i); npcshopadditem "qshop2"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0); return; }function Chk { if (getarg(0)<getarg(1)) { set @qe0,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),11)>0) 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); } OnBuyItem: set .@q[0],@bought_nameid; copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]")); if (!.@q[1]) { message strcharinfo(0),"An error has occurred."; end; } mes "[Quest Shop]"; mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000"; mes "Requirements:"; if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000"; if (.@q[3]) mes " > "+Chk(getd(.Points$[0]),.@q[3])+.@q[3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+.@q[3]+")^000000"; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1])+((.DisplayID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+.@q[.@i+1]+")^000000"; next; set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11); addtimer 1000, strnpcinfo(1)+"::OnEnd"; while(1){ switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && !@qe6)?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) { case 1: if (@qe0) {  mes "[Quest Shop]"; mes "You're missing one or more quest requirements."; close; } if (!checkweight(.@q[0],.@q[1])) { mes "[Quest Shop]"; mes "^FF0000You need "+(((.@q[1]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000"; close; } if (.@q[2]) set Zeny, Zeny-.@q[2]; if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3]; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) delitem .@q[.@i],.@q[.@i+1]; getitem .@q[0],.@q[1]; if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[0]))+"!",0; specialeffect2 699; close; case 2: set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5); if (@qe1&1) atcommand "@changelook 3 "+@qe2; if (@qe1&256) atcommand "@changelook 1 "+@qe2; if (@qe1&512) atcommand "@changelook 2 "+@qe2; set @qe6,1; break; case 3: close; } }OnEnd: if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; } for(set .@i,0; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,0; end;OnInit: freeloop(1);// --------------------- Config ---------------------// Custom points, if needed: "<variable>","<name to display>" setarray .Points$[0],"#CASHPOINTS","Cash Points";  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 .DisplayID,0; // Show item IDs? (1: yes / 0: no) set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no) // Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};// Duplicate dummy data for any additional shops (bottom of script).// If no categories, use the second line instead (remove //). // setarray .Shops$[1],"Vote4Points Items","Vote4Points Items 2"; setarray .Shops$[1],"Vote4Points Items"; // set .Shops$,"n/a"; // Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,//     <required item ID>,<required item amount>{,...});// Shop number corresponds with order above (default is 1).// Note: Do NOT use a reward item more than once! Add(1,5013,1,0,50,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5171,1,0,25,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5231,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5232,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5233,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5230,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5234,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5336,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5337,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5338,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5339,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5346,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,1228,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,13412,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,13413,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2554,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2357,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2524,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2421,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2115,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2375,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2433,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2537,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2374,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2729,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0);  // -------------------------------------------------- freeloop(0); for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) npcshopdelitem "qshop2"+.@i,909; end;} // -------- Dummy data (duplicate as needed) --------- shop qshop21 -1,909:-1- shop qshop22 -1,909:-1- shop qshop23 -1,909:-1
3.bmp

2.bmp

 

Attachments

Last edited by a moderator:
You should post your script, without it it's very difficult to know for sure what's the problem. Also, are there any errors/warnings popping up in your console?

 
pan said:
You should post your script, without it it's very difficult to know for sure what's the problem. Also, are there any errors/warnings popping up in your console?
Click to expand...
Sorry, update my post. please check my script. thank you.

 
This script doesn't use any query, so it won't update any of your tables... It uses this variable to store points:

Code: 
// Custom points, if needed: "<variable>","<name to display>"	setarray .Points$[0],"#CASHPOINTS","Cash Points";
 
Last edited by a moderator:
That solved the problem. Thank you Anniruru. I've been trying to solve it for couple of days. 

 
AnnieRuru said:
xxx69 said:
i was a rathena user before but i switched to hercules ...

....problem is vote points does'nt show in game...
Click to expand...
a quick guess is that you didn't update your so call "points" from `global_reg_value` into `char_reg_num_db`
run this file should work ?

https://github.com/HerculesWS/Hercules/blob/master/sql-files/upgrades/2014-01-04--16-47.sql
Click to expand...
@annieruru I have another problem about it. it seems vote points doesn't update. the vote points that has been made after i fix vote points does'nt add in game

 
no, actually if I'm remember right

fluxcp come together with a npc script that can give player to convert points from SQL table into in-game variable

http://rathena.org/board/topic/91524-vote-for-points-help/?p=240266

in that topic, he needs to use 2 scripts,

1 from SQL into script varaible (from fluxcp), 1 from script variable into player's desire item( from euphy's)

your table name is different, so I guess the script should be different too

if you don't have that kind of script, you have to make one manually to get points from SQL table into an item

 
xxx69 said:
Hi! i was a rathena user before but i switched to hercules. after the switching my Vote for points npc is still working problem is vote points does'nt show in game. i was hosted in pony-vps before. that vote for points npc was one of their freebies. 

Table name is cp_votes, vote points are being saved in `credits` column.

it creates one colum per vote, just like in the SS.

Here's my script:

//===== rAthena Script =======================================//= Euphy's Quest Shop//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.4a//===== Compatible With: =====================================//= rAthena SVN r15340+//===== Description: =========================================//= A dynamic quest shop based on Lunar's, with easier config.//= Includes support for multiple shops & cashpoints.//= Item Preview script by ToastOfDoom.//============================================================ turbo_room,105,122,4 script Vote Shop 501,{function Add; function Chk; function Slot; function A_An;  if(.Shops$ != "") set .@i,1; else { set .@menu$,""; for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) set .@menu$, .@menu$+.Shops$[.@i]+":"; set .@i, select(.@menu$); } dispbottom "Select one item at a time."; callshop "qshop2"+.@i,1; npcshopattach "qshop2"+.@i; end; function Add { if (getitemname(getarg(1))=="null") { debugmes "Quest reward #"+getarg(1)+" invalid (skipped)."; return; } for(set .@n,5; .@n<127; set .@n,.@n+2) { if (!getarg(.@n,0)) break; if (getitemname(getarg(.@n))=="null") { debugmes "Quest requirement #"+getarg(.@n)+" invalid (skipped)."; return; } } for(set .@i,2; .@i<.@n; set .@i,.@i+1) set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i); npcshopadditem "qshop2"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0); return; }function Chk { if (getarg(0)<getarg(1)) { set @qe0,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),11)>0) 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); } OnBuyItem: set .@q[0],@bought_nameid; copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]")); if (!.@q[1]) { message strcharinfo(0),"An error has occurred."; end; } mes "[Quest Shop]"; mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000"; mes "Requirements:"; if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000"; if (.@q[3]) mes " > "+Chk(getd(.Points$[0]),.@q[3])+.@q[3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+.@q[3]+")^000000"; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1])+((.DisplayID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+.@q[.@i+1]+")^000000"; next; set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11); addtimer 1000, strnpcinfo(1)+"::OnEnd"; while(1){ switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && !@qe6)?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) { case 1: if (@qe0) {  mes "[Quest Shop]"; mes "You're missing one or more quest requirements."; close; } if (!checkweight(.@q[0],.@q[1])) { mes "[Quest Shop]"; mes "^FF0000You need "+(((.@q[1]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000"; close; } if (.@q[2]) set Zeny, Zeny-.@q[2]; if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3]; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) delitem .@q[.@i],.@q[.@i+1]; getitem .@q[0],.@q[1]; if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[0]))+"!",0; specialeffect2 699; close; case 2: set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5); if (@qe1&1) atcommand "@changelook 3 "+@qe2; if (@qe1&256) atcommand "@changelook 1 "+@qe2; if (@qe1&512) atcommand "@changelook 2 "+@qe2; set @qe6,1; break; case 3: close; } }OnEnd: if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; } for(set .@i,0; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,0; end;OnInit: freeloop(1);// --------------------- Config ---------------------// Custom points, if needed: "<variable>","<name to display>" setarray .Points$[0],"#CASHPOINTS","Cash Points";  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 .DisplayID,0; // Show item IDs? (1: yes / 0: no) set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no) // Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};// Duplicate dummy data for any additional shops (bottom of script).// If no categories, use the second line instead (remove //). // setarray .Shops$[1],"Vote4Points Items","Vote4Points Items 2"; setarray .Shops$[1],"Vote4Points Items"; // set .Shops$,"n/a"; // Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,//     <required item ID>,<required item amount>{,...});// Shop number corresponds with order above (default is 1).// Note: Do NOT use a reward item more than once! Add(1,5013,1,0,50,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5171,1,0,25,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5231,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5232,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5233,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5230,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5234,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5336,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5337,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5338,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5339,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,5346,1,0,20,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,1228,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,13412,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,13413,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2554,1,0,40,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2357,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2524,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2421,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2115,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2375,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2433,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2537,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2374,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0); Add(1,2729,1,0,8,0,0,0,0,0,0,0,0,0,0,0,0);  // -------------------------------------------------- freeloop(0); for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) npcshopdelitem "qshop2"+.@i,909; end;} // -------- Dummy data (duplicate as needed) --------- shop qshop21 -1,909:-1- shop qshop22 -1,909:-1- shop qshop23 -1,909:-1
Click to expand...
 Can you share V4P php code?

 
Last edited by a moderator:
You must log in or register to reply here.
Back
Top