Vote for points npc

[xxx69 0]

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

Edited February 15, 2014 by AnnieRuru
use [code] if the script > 10 lines

[AnnieRuru 957]

i was a rathena user before but i switched to hercules ...

....problem is vote points does'nt show in game...

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

Edited February 7, 2014 by AnnieRuru

[pan 87]

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?

[xxx69 0]

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?

Sorry, update my post. please check my script. thank you.

[pan 87]

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

// Custom points, if needed: "<variable>","<name to display>"	setarray .Points$[0],"#CASHPOINTS","Cash Points";

[xxx69 0]

 

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?

Sorry, update my post. please check my script. thank you.

what should i do?

[xxx69 0]

That solved the problem. Thank you Anniruru. I've been trying to solve it for couple of days. 

[xxx69 0]

 

i was a rathena user before but i switched to hercules ...

....problem is vote points does'nt show in game...

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

@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

[AnnieRuru 957]

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

then show the script that has *query_sql on this table

[xxx69 0]

 

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

then show the script that has *query_sql on this table

like this?

query_sql(SELECT SUM(credits) from `cp_votes` where `account_id`=getcharid(3))

 

don't know how to deal with SQL please help me with the script.

[AnnieRuru 957]

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

[安赫尔 9]

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

 

 

 

Can you share V4P php code?