Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added new command: @set

Browse Source 
- Extremely helpful at debugging and by manipulating npc vars with ease.
Examples:
* @set poring 1 -> poring char reg is now 1.
* @set poring$ wtf dude -> poring$ str char reg is now 'wtf dude'
* @set #CASHPOINTS 50 -> #CASHPOINTS acc reg is now 50.
* #set "Target" #CASHPOINTS 30 -> "Target"'s #CASHPOINTS acc reg is now 30.
* @set #CASHPOINTS -> outputs the current value of cashpoints.
note the last one above, if you dont provide a value it will output the current value of the variable.

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@16123 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
shennetsind 2012-05-17 10:17:56 +00:00
parent 7653a24094
commit 6126c9013e
1 changed files with 113 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
src/map/atcommand.c
View File

@ -41,6 +41,7 @@
#include "storage.h"
#include "trade.h"
#include "unit.h"
#include "mapreg.h"
#include <stdio.h>
#include <stdlib.h>
@ -8470,6 +8471,117 @@ ACMD_FUNC(accinfo) {
return 0;
}
/* [Ind] */
ACMD_FUNC(set) {
char reg[32], val[128];
struct script_data* data;
int toset = 0;
bool is_str = false;
if( !message || !*message || (toset = sscanf(message, "%32s %128[^\n]s", reg, val)) < 1 ) {
clif_displaymessage(fd, "Usage: @set <variable name> <value>");
clif_displaymessage(fd, "Usage: e.g. @set PoringCharVar 50");
clif_displaymessage(fd, "Usage: e.g. @set PoringCharVarSTR$ Super Duper String");
clif_displaymessage(fd, "Usage: e.g. \"@set PoringCharVarSTR$\" outputs it's value, Super Duper String");
return -1;
}
/* disabled variable types (they require a proper script state to function, so allowing them would crash the server) */
if( reg[0] == '.' ) {
clif_displaymessage(fd, "NPC Variables may not be used with @set");
return -1;
} else if( reg[0] == '\'' ) {
clif_displaymessage(fd, "Instance variables may not be used with @set");
return -1;
}
is_str = ( reg[strlen(reg) - 1] == '$' ) ? true : false;
if( toset >= 2 ) {/* we only set the var if there is an val, otherwise we only output the value */
if( is_str )
set_var(sd, reg, (void*) val);
else
set_var(sd, reg, (void*)__64BPRTSIZE((int)(atoi(val))));
}
CREATE(data, struct script_data,1);
if( is_str ) {// string variable
switch( reg[0] ) {
case '@':
data->u.str = pc_readregstr(sd, add_str(reg));
break;
case '$':
data->u.str = mapreg_readregstr(add_str(reg));
break;
case '#':
if( reg[1] == '#' )
data->u.str = pc_readaccountreg2str(sd, reg);// global
else
data->u.str = pc_readaccountregstr(sd, reg);// local
break;
default:
data->u.str = pc_readglobalreg_str(sd, reg);
break;
}
if( data->u.str == NULL || data->u.str[0] == '\0' ) {// empty string
data->type = C_CONSTSTR;
data->u.str = "";
} else {// duplicate string
data->type = C_STR;
data->u.str = aStrdup(data->u.str);
}
} else {// integer variable
data->type = C_INT;
switch( reg[0] ) {
case '@':
data->u.num = pc_readreg(sd, add_str(reg));
break;
case '$':
data->u.num = mapreg_readreg(add_str(reg));
break;
case '#':
if( reg[1] == '#' )
data->u.num = pc_readaccountreg2(sd, reg);// global
else
data->u.num = pc_readaccountreg(sd, reg);// local
break;
default:
data->u.num = pc_readglobalreg(sd, reg);
break;
}
}
switch( data->type ) {
case C_INT:
sprintf(atcmd_output,"%s value is now :%d",reg,data->u.num);
break;
case C_STR:
sprintf(atcmd_output,"%s value is now :%s",reg,data->u.str);
break;
case C_CONSTSTR:
sprintf(atcmd_output,"%s is empty",reg);
break;
default:
sprintf(atcmd_output,"%s data type is not supported :%u",reg,data->type);
break;
}
clif_displaymessage(fd, atcmd_output);
aFree(data);
return 0;
}
/**
* Fills the reference of available commands in atcommand DBMap
**/
@ -8714,6 +8826,7 @@ void atcommand_basecommands(void) {
ACMD_DEF(charcommands),
ACMD_DEF(font),
ACMD_DEF(accinfo),
ACMD_DEF(set),
/**
* For Testing Purposes, not going to be here after we're done.
**/