// Copyright (c) Athena Dev Teams - Licensed under GNU GPL // For more information, see LICENCE in the main folder //#define DEBUG_FUNCIN //#define DEBUG_DISP //#define DEBUG_DISASM //#define DEBUG_RUN #include "../common/cbasetypes.h" #include "../common/socket.h" #include "../common/timer.h" #include "../common/malloc.h" #include "../common/lock.h" #include "../common/nullpo.h" #include "../common/showmsg.h" #include "../common/strlib.h" #include "../common/utils.h" #include "map.h" #include "clif.h" #include "chrif.h" #include "itemdb.h" #include "pc.h" #include "status.h" #include "script.h" #include "storage.h" #include "mob.h" #include "npc.h" #include "pet.h" #include "mercenary.h" //[orn] #include "intif.h" #include "skill.h" #include "chat.h" #include "battle.h" #include "party.h" #include "guild.h" #include "atcommand.h" #include "charcommand.h" #include "log.h" #include "unit.h" #include "irc.h" #include "pet.h" #include <stdio.h> #include <stdlib.h> #include <string.h> #include <ctype.h> #include <math.h> #ifndef WIN32 #include <sys/time.h> #endif #include <time.h> #include <setjmp.h> /////////////////////////////////////////////////////////////////////////////// /// Returns the stack_data at the target index #define script_getdata(st,i) &((st)->stack->stack_data[(st)->start+(i)]) /// Returns if the stack contains data at the target index #define script_hasdata(st,i) ( (st)->end > (st)->start + (i) ) /// Returns the index of the last data in the stack #define script_lastdata(st) ( (st)->end - (st)->start - 1 ) #define script_pushint(st,val) push_val((st)->stack, C_INT, (val)) #define script_isstring(data) ( (data)->type == C_STR || (data)->type == C_CONSTSTR ) #define script_isint(data) ( (data)->type == C_INT ) #define FETCH(n, t) \ if( script_hasdata(st,n) ) \ (t)=conv_num(st,script_getdata(st,n)); #define SCRIPT_BLOCK_SIZE 512 enum { LABEL_NEXTLINE=1,LABEL_START }; static unsigned char * script_buf = NULL; static int script_pos,script_size; #define GETVALUE(buf,i) ((int)MakeDWord(MakeWord((buf)[i],(buf)[i+1]),MakeWord((buf)[i+2],0))) #define SETVALUE(buf,i,n) ((buf)[i]=GetByte(n,0),(buf)[i+1]=GetByte(n,1),(buf)[i+2]=GetByte(n,2)) #define GETSTRING(off) (str_buf+(off)) static char *str_buf; static int str_pos,str_size; static struct str_data_struct { int type; int str; int backpatch; int label; int (*func)(struct script_state *st); int val; int next; } *str_data = NULL; int str_num=LABEL_START,str_data_size; // Using a prime number for SCRIPT_HASH_SIZE should give better distributions #define SCRIPT_HASH_SIZE 1021 int str_hash[SCRIPT_HASH_SIZE]; //#define SCRIPT_HASH_DJB2 //#define SCRIPT_HASH_SDBM //#define SCRIPT_HASH_ELF //#define SCRIPT_HASH_PJW static struct dbt *mapreg_db=NULL; static struct dbt *mapregstr_db=NULL; static int mapreg_dirty=-1; char mapreg_txt[256]="save/mapreg.txt"; #define MAPREG_AUTOSAVE_INTERVAL (300*1000) static struct dbt *scriptlabel_db=NULL; static struct dbt *userfunc_db=NULL; static int parse_options=0; struct dbt* script_get_label_db(){ return scriptlabel_db; } struct dbt* script_get_userfunc_db(){ return userfunc_db; } static char pos[11][100] = {"Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3","Not Equipped"}; struct Script_Config script_config; static jmp_buf error_jump; static char* error_msg; static const char* error_pos; static int error_report; // if the error should produce output // for advanced scripting support ( nested if, switch, while, for, do-while, function, etc ) // [Eoe / jA 1080, 1081, 1094, 1164] enum curly_type { TYPE_NULL = 0, TYPE_IF, TYPE_SWITCH, TYPE_WHILE, TYPE_FOR, TYPE_DO, TYPE_USERFUNC, TYPE_ARGLIST // function argument list }; #define ARGLIST_UNDEFINED 0 #define ARGLIST_NO_PAREN 1 #define ARGLIST_PAREN 2 static struct { struct { int type; int index; int count; int flag; } curly[256]; // �E�J�b�R�̏�� int curly_count; // �E�J�b�R�̐� int index; // �X�N���v�g���Ŏg�p�����\���̐� } syntax; const char* parse_curly_close(const char* p); const char* parse_syntax_close(const char* p); const char* parse_syntax_close_sub(const char* p,int* flag); const char* parse_syntax(const char* p); static int parse_syntax_for_flag = 0; extern int current_equip_item_index; //for New CARS Scripts. It contains Inventory Index of the EQUIP_SCRIPT caller item. [Lupus] int potion_flag=0; //For use on Alchemist improved potions/Potion Pitcher. [Skotlex] int potion_hp=0, potion_per_hp=0, potion_sp=0, potion_per_sp=0; int potion_target=0; #if !defined(TXT_ONLY) && defined(MAPREGSQL) // [zBuffer] SQL Mapreg Saving/Loading Database Declaration char mapregsql_db[32] = "mapreg"; char mapregsql_db_varname[32] = "varname"; char mapregsql_db_index[32] = "index"; char mapregsql_db_value[32] = "value"; char tmp_sql[65535]; // -------------------------------------------------------- #endif int get_com(unsigned char *script,int *pos); int get_num(unsigned char *script,int *pos); extern struct script_function { int (*func)(struct script_state *st); const char *name; const char *arg; } buildin_func[]; static struct linkdb_node *sleep_db; #define not_server_variable(prefix) (prefix != '$' && prefix != '.') /*========================================== * ���[�J���v���g�^�C�v�錾 (�K�v�ȕ��̂�) *------------------------------------------ */ const char* parse_subexpr(const char* p,int limit); void push_val(struct script_stack *stack,int type,int val); int run_func(struct script_state *st); int mapreg_setreg(int num,int val); int mapreg_setregstr(int num,const char *str); enum c_op { C_NOP,C_POS,C_INT,C_PARAM,C_FUNC,C_STR,C_CONSTSTR,C_ARG, C_NAME,C_EOL, C_RETINFO, C_USERFUNC, C_USERFUNC_POS, // user defined functions C_OP3,C_LOR,C_LAND,C_LE,C_LT,C_GE,C_GT,C_EQ,C_NE, //operator C_XOR,C_OR,C_AND,C_ADD,C_SUB,C_MUL,C_DIV,C_MOD,C_NEG,C_LNOT,C_NOT,C_R_SHIFT,C_L_SHIFT }; enum { MF_NOMEMO, //0 MF_NOTELEPORT, MF_NOSAVE, MF_NOBRANCH, MF_NOPENALTY, MF_NOZENYPENALTY, MF_PVP, MF_PVP_NOPARTY, MF_PVP_NOGUILD, MF_GVG, MF_GVG_NOPARTY, //10 MF_NOTRADE, MF_NOSKILL, MF_NOWARP, MF_PARTYLOCK, MF_NOICEWALL, MF_SNOW, MF_FOG, MF_SAKURA, MF_LEAVES, MF_RAIN, //20 MF_INDOORS, MF_NOGO, MF_CLOUDS, MF_CLOUDS2, MF_FIREWORKS, MF_GVG_CASTLE, MF_GVG_DUNGEON, MF_NIGHTENABLED, MF_NOBASEEXP, MF_NOJOBEXP, //30 MF_NOMOBLOOT, MF_NOMVPLOOT, MF_NORETURN, MF_NOWARPTO, MF_NIGHTMAREDROP, MF_RESTRICTED, MF_NOCOMMAND, MF_NODROP, MF_JEXP, MF_BEXP, //40 MF_NOVENDING, MF_LOADEVENT, MF_NOCHAT, MF_NOEXPPENALTY, MF_GUILDLOCK }; //Reports on the console the src of an script error. static void report_src(struct script_state *st) { struct block_list *bl; if (!st->oid) return; //Can't report source. bl = map_id2bl(st->oid); if (!bl) return; switch (bl->type) { case BL_NPC: if (bl->m >=0) ShowDebug("Source (NPC): %s at %s (%d,%d)\n", ((struct npc_data *)bl)->name, map[bl->m].name, bl->x, bl->y); else ShowDebug("Source (NPC): %s (invisible/not on a map)\n", ((struct npc_data *)bl)->name); break; default: if (bl->m >=0) ShowDebug("Source (Non-NPC type %d): name %s at %s (%d,%d)\n", bl->type, status_get_name(bl), map[bl->m].name, bl->x, bl->y); else ShowDebug("Source (Non-NPC type %d): name %s (invisible/not on a map)\n", bl->type, status_get_name(bl)); break; } } /*========================================== * �G���[���b�Z�[�W�o�� *------------------------------------------ */ static void disp_error_message2(const char *mes,const char *pos,int report) { error_msg = aStrdup(mes); error_pos = pos; error_report = report; longjmp( error_jump, 1 ); } #define disp_error_message(mes,pos) disp_error_message2(mes,pos,1) /// Checks event parameter validity static void check_event(struct script_state *st, const char *evt) { if( evt != NULL && *evt != '\0' && !stristr(evt,"::On") ){ ShowError("NPC event parameter deprecated! Please use 'NPCNAME::OnEVENT' instead of '%s'.\n",evt); report_src(st); } } /*========================================== * ������̃n�b�V�����v�Z *------------------------------------------ */ #define calc_hash(x) calc_hash2(x)%SCRIPT_HASH_SIZE static unsigned int calc_hash2(const unsigned char *p) { #if defined(SCRIPT_HASH_DJB2) unsigned int h = 5381; while( *p ) // hash*33 + c h = ( h << 5 ) + h + ((unsigned char)tolower(*p++)); return h; #elif defined(SCRIPT_HASH_SDBM) unsigned int h = 0; while( *p ) h = ( h << 6 ) + ( h << 16 ) - h + ((unsigned char)tolower(*p++)); return h; #elif defined(SCRIPT_HASH_ELF) unsigned int h = 0; unsigned int g; while( *p ){ // UNIX ELF hash h = ( h << 4 ) + ((unsigned char)tolower(*p++)); if ( g = h & 0xF0000000 ) h ^= g >> 24; h &= ~g; } return h; #elif defined(SCRIPT_HASH_PJW) unsigned int h = 0; unsigned int g; while( *p ){ h = ( h << 4 ) + ((unsigned char)tolower(*p++)); if ( (g=h&0xF0000000) ) { h ^= g>>24; h ^= g; } } return h; #else unsigned int h = 0; while( *p ){ h = ( h << 1 ) + ( h >> 3 ) + ( h >> 5 ) + ( h >> 8 ); h+=(unsigned char)tolower(*p++); } return h; #endif } /*========================================== * str_data�̒��ɖ��O�����邩�������� *------------------------------------------ */ // �����̂ł���Δԍ��A�������-1 static int search_str(const char *p) { int i; i=str_hash[calc_hash(p)]; while(i){ if(strcasecmp(str_buf+str_data[i].str,p)==0){ return i; } i=str_data[i].next; } return -1; } /*========================================== * str_data�ɖ��O��o�^ *------------------------------------------ */ // �����̂ł���Δԍ��A������Γo�^���ĐV�K�ԍ� int add_str(const char* p) { int i; int len; i=calc_hash(p); if(str_hash[i]==0){ str_hash[i]=str_num; } else { i=str_hash[i]; for(;;){ if(strcasecmp(str_buf+str_data[i].str,p)==0){ return i; } if(str_data[i].next==0) break; i=str_data[i].next; } str_data[i].next=str_num; } if(str_num>=str_data_size){ str_data_size+=128; RECREATE(str_data,struct str_data_struct,str_data_size); memset(str_data + (str_data_size - 128), '\0', 128); } len=(int)strlen(p); while(str_pos+len+1>=str_size){ str_size+=256; RECREATE(str_buf,char,str_size); memset(str_buf + (str_size - 256), '\0', 256); } memcpy(str_buf+str_pos,p,len+1); str_data[str_num].type=C_NOP; str_data[str_num].str=str_pos; str_data[str_num].next=0; str_data[str_num].func=NULL; str_data[str_num].backpatch=-1; str_data[str_num].label=-1; str_pos+=len+1; return str_num++; } /*========================================== * �X�N���v�g�o�b�t�@�T�C�Y�̊m�F�Ɗg�� *------------------------------------------ */ static void expand_script_buf(void) { script_size+=SCRIPT_BLOCK_SIZE; RECREATE(script_buf,unsigned char,script_size); } /*========================================== * �X�N���v�g�o�b�t�@�ɂP�o�C�g�������� *------------------------------------------ */ #define add_scriptb(a) if( script_pos+1>=script_size ) expand_script_buf(); script_buf[script_pos++]=(uint8)(a) #if 0 static void add_scriptb(int a) { expand_script_buf(); script_buf[script_pos++]=a; } #endif /*========================================== * �X�N���v�g�o�b�t�@�Ƀf�[�^�^�C�v���������� *------------------------------------------ */ static void add_scriptc(int a) { while(a>=0x40){ add_scriptb((a&0x3f)|0x40); a=(a-0x40)>>6; } add_scriptb(a&0x3f); } /*========================================== * �X�N���v�g�o�b�t�@�ɐ������������� *------------------------------------------ */ static void add_scripti(int a) { while(a>=0x40){ add_scriptb(a|0xc0); a=(a-0x40)>>6; } add_scriptb(a|0x80); } /*========================================== * �X�N���v�g�o�b�t�@�Ƀ��x��/�ϐ�/������������ *------------------------------------------ */ // �ő�16M�܂� static void add_scriptl(int l) { int backpatch = str_data[l].backpatch; switch(str_data[l].type){ case C_POS: case C_USERFUNC_POS: add_scriptc(C_POS); add_scriptb(str_data[l].label); add_scriptb(str_data[l].label>>8); add_scriptb(str_data[l].label>>16); break; case C_NOP: case C_USERFUNC: // ���x���̉\��������̂�backpatch�p�f�[�^���ߍ��� add_scriptc(C_NAME); str_data[l].backpatch=script_pos; add_scriptb(backpatch); add_scriptb(backpatch>>8); add_scriptb(backpatch>>16); break; case C_INT: add_scripti(abs(str_data[l].val)); if(str_data[l].val < 0) //Notice that this is negative, from jA (Rayce) add_scriptc(C_NEG); break; default: // �������̗p�r�Ɗm�肵�Ă�̂Ő��������̂܂� add_scriptc(C_NAME); add_scriptb(l); add_scriptb(l>>8); add_scriptb(l>>16); break; } } /*========================================== * ���x������������ *------------------------------------------ */ void set_label(int l,int pos, const char* script_pos) { int i,next; if(str_data[l].type==C_INT || str_data[l].type==C_PARAM) { //Prevent overwriting constants values and parameters [Skotlex] disp_error_message("set_label: invalid label name",script_pos); return; } if(str_data[l].label!=-1){ disp_error_message("set_label: dup label ",script_pos); return; } str_data[l].type=(str_data[l].type == C_USERFUNC ? C_USERFUNC_POS : C_POS); str_data[l].label=pos; for(i=str_data[l].backpatch;i>=0 && i!=0x00ffffff;){ next=GETVALUE(script_buf,i); script_buf[i-1]=(str_data[l].type == C_USERFUNC ? C_USERFUNC_POS : C_POS); SETVALUE(script_buf,i,pos); i=next; } } /*========================================== * �X�y�[�X/�R�����g�ǂݔ�� *------------------------------------------ */ static const char *skip_space(const char *p) { for(;;){ while(ISSPACE(*p)) ++p; if( *p=='/' && p[1]=='/' ){ while(*p && *p!='\n') ++p; } else if( *p=='/' && p[1]=='*' ){ p+=2; if(*p) ++p; while( *p && (p[-1]!='*' || *p!='/') ) p++; if(*p) ++p; else disp_error_message("skip_space: unexpected eof @ block comment",p); } else break; } return p; } /*========================================== * �P�P��X�L�b�v *------------------------------------------ */ static const char *skip_word(const char *p) { // prefix if(*p=='.') p++; if(*p=='$') p++; // MAP�I�����L�ϐ��p if(*p=='@') p++; // �ꎞ�I�ϐ��p(like weiss) if(*p=='#') p++; // account�ϐ��p if(*p=='#') p++; // ���[���haccount�ϐ��p //# Changing from unsigned char to signed char makes p never be able to go above 0x81, but what IS 0x81 for? [Skotlex] //# It's for multibyte encodings like Shift-JIS. Unfortunately this can be problematic for singlebyte encodings. // Using (*p)>>7 would yield the appropriate result but it's better to restrict words to ASCII characters only. [FlavioJS] while( ISALNUM(*p) || *p == '_' ) ++p; // postfix if(*p=='$') p++; // ������ϐ� return p; } /// Adds a word to str_data int add_word(const char *p) { char *word; int len; int i; // Check for a word len = skip_word(p)-p; if( len == 0 ) disp_error_message("add_word: not a word",p); // Copy the word CREATE(word,char,len+1); memcpy(word,p,len); word[len]=0; // add the word i=add_str(word); aFree(word); return i; } /// Parses a function call. /// The argument list can have parenthesis or not. /// The number of arguments is checked. static const char* parse_callfunc(const char *p, int require_paren) { const char* p2; const char* arg=NULL; int func; func = add_word(p); if( str_data[func].type == C_FUNC ){ // buildin function add_scriptl(func); add_scriptc(C_ARG); arg = buildin_func[str_data[func].val].arg; } else if( str_data[func].type == C_USERFUNC || str_data[func].type == C_USERFUNC_POS ){ // script defined function int callsub = search_str("callsub"); add_scriptl(callsub); add_scriptc(C_ARG); add_scriptl(func); arg = buildin_func[str_data[callsub].val].arg; if( *arg == 0 ) disp_error_message("parse_callfunc: callsub has no arguments, please review it's definition",p); if( *arg != '*' ) ++arg; // count func as argument } else disp_error_message("parse_line: expect command, missing function name or calling undeclared function",p); p = skip_word(p); p = skip_space(p); syntax.curly[syntax.curly_count].type = TYPE_ARGLIST; syntax.curly[syntax.curly_count].count = 0; if( *p == ';' ) {// <func name> ';' syntax.curly[syntax.curly_count].flag = ARGLIST_NO_PAREN; } else if( *p == '(' && *(p2=skip_space(p+1)) == ')' ) {// <func name> '(' ')' syntax.curly[syntax.curly_count].flag = ARGLIST_PAREN; p = p2; /* } else if( 0 && require_paren && *p != '(' ) {// <func name> syntax.curly[syntax.curly_count].flag = ARGLIST_NO_PAREN; */ } else {// <func name> <arg list> if( require_paren ){ if( *p != '(' ) disp_error_message("need '('",p); ++p; // skip '(' syntax.curly[syntax.curly_count].flag = ARGLIST_PAREN; } else if( *p == '(' ){ syntax.curly[syntax.curly_count].flag = ARGLIST_UNDEFINED; } else { syntax.curly[syntax.curly_count].flag = ARGLIST_NO_PAREN; } ++syntax.curly_count; while( *arg ) { p2=parse_subexpr(p,-1); if( p == p2 ) break; // not an argument if( *arg != '*' ) ++arg; // next argument p=skip_space(p2); if( *arg == 0 || *p != ',' ) break; // no more arguments ++p; // skip comma } --syntax.curly_count; } if( *arg && *arg != '?' && *arg != '*' ) disp_error_message2("parse_callfunc: not enough arguments, expected ','", p, script_config.warn_func_mismatch_paramnum); if( syntax.curly[syntax.curly_count].type != TYPE_ARGLIST ) disp_error_message("parse_callfunc: DEBUG last curly is not an argument list",p); if( syntax.curly[syntax.curly_count].flag == ARGLIST_PAREN ){ if( *p != ')' ) disp_error_message("parse_callfunc: expected ')' to close argument list",p); ++p; } add_scriptc(C_FUNC); return p; } /*========================================== * ���̉�� *------------------------------------------ */ const char* parse_simpleexpr(const char *p) { int i; p=skip_space(p); #ifdef DEBUG_FUNCIN if(battle_config.etc_log) ShowDebug("parse_simpleexpr %s\n",p); #endif if(*p==';' || *p==',') disp_error_message("parse_simpleexpr: unexpected expr end",p); if(*p=='('){ if( (i=syntax.curly_count-1) >= 0 && syntax.curly[i].type == TYPE_ARGLIST ) ++syntax.curly[i].count; p=parse_subexpr(p+1,-1); p=skip_space(p); if( (i=syntax.curly_count-1) >= 0 && syntax.curly[i].type == TYPE_ARGLIST && syntax.curly[i].flag == ARGLIST_UNDEFINED && --syntax.curly[i].count == 0 ){ if( *p == ',' ){ syntax.curly[i].flag = ARGLIST_PAREN; return p; } else syntax.curly[i].flag = ARGLIST_NO_PAREN; } if( *p != ')' ) disp_error_message("parse_simpleexpr: unmatch ')'",p); ++p; } else if(isdigit(*p) || ((*p=='-' || *p=='+') && isdigit(p[1]))){ char *np; i=strtoul(p,&np,0); add_scripti(i); p=np; } else if(*p=='"'){ add_scriptc(C_STR); p++; while(*p && *p!='"'){ if(p[-1]<=0x7e && *p=='\\') p++; else if(*p=='\n') disp_error_message("parse_simpleexpr: unexpected newline @ string",p); add_scriptb(*p++); } if(!*p) disp_error_message("parse_simpleexpr: unexpected eof @ string",p); add_scriptb(0); p++; //'"' } else { int l; // label , register , function etc if(skip_word(p)==p) disp_error_message("parse_simpleexpr: unexpected character",p); l=add_word(p); if( str_data[l].type == C_FUNC || str_data[l].type == C_USERFUNC || str_data[l].type == C_USERFUNC_POS) return parse_callfunc(p,1); p=skip_word(p); if( *p == '[' ){ // array(name[i] => getelementofarray(name,i) ) add_scriptl(search_str("getelementofarray")); add_scriptc(C_ARG); add_scriptl(l); p=parse_subexpr(p+1,-1); p=skip_space(p); if( *p != ']' ) disp_error_message("parse_simpleexpr: unmatch ']'",p); ++p; add_scriptc(C_FUNC); }else add_scriptl(l); } #ifdef DEBUG_FUNCIN if(battle_config.etc_log) ShowDebug("parse_simpleexpr end %s\n",p); #endif return p; } /*========================================== * ���̉�� *------------------------------------------ */ const char* parse_subexpr(const char* p,int limit) { int op,opl,len; const char* tmpp; #ifdef DEBUG_FUNCIN if(battle_config.etc_log) ShowDebug("parse_subexpr %s\n",p); #endif p=skip_space(p); if(*p=='-'){ tmpp=skip_space(p+1); if(*tmpp==';' || *tmpp==','){ add_scriptl(LABEL_NEXTLINE); p++; return p; } } tmpp=p; if((op=C_NEG,*p=='-') || (op=C_LNOT,*p=='!') || (op=C_NOT,*p=='~')){ p=parse_subexpr(p+1,10); add_scriptc(op); } else p=parse_simpleexpr(p); p=skip_space(p); while(( (op=C_OP3,opl=0,len=1,*p=='?') || (op=C_ADD,opl=8,len=1,*p=='+') || (op=C_SUB,opl=8,len=1,*p=='-') || (op=C_MUL,opl=9,len=1,*p=='*') || (op=C_DIV,opl=9,len=1,*p=='/') || (op=C_MOD,opl=9,len=1,*p=='%') || (op=C_LAND,opl=2,len=2,*p=='&' && p[1]=='&') || (op=C_AND,opl=6,len=1,*p=='&') || (op=C_LOR,opl=1,len=2,*p=='|' && p[1]=='|') || (op=C_OR,opl=5,len=1,*p=='|') || (op=C_XOR,opl=4,len=1,*p=='^') || (op=C_EQ,opl=3,len=2,*p=='=' && p[1]=='=') || (op=C_NE,opl=3,len=2,*p=='!' && p[1]=='=') || (op=C_R_SHIFT,opl=7,len=2,*p=='>' && p[1]=='>') || (op=C_GE,opl=3,len=2,*p=='>' && p[1]=='=') || (op=C_GT,opl=3,len=1,*p=='>') || (op=C_L_SHIFT,opl=7,len=2,*p=='<' && p[1]=='<') || (op=C_LE,opl=3,len=2,*p=='<' && p[1]=='=') || (op=C_LT,opl=3,len=1,*p=='<')) && opl>limit){ p+=len; if(op == C_OP3) { p=parse_subexpr(p,-1); p=skip_space(p); if( *(p++) != ':') disp_error_message("parse_subexpr: need ':'", p-1); p=parse_subexpr(p,-1); } else { p=parse_subexpr(p,opl); } add_scriptc(op); p=skip_space(p); } #ifdef DEBUG_FUNCIN if(battle_config.etc_log) ShowDebug("parse_subexpr end %s\n",p); #endif return p; /* return first untreated operator */ } /*========================================== * ���̕]�� *------------------------------------------ */ const char* parse_expr(const char *p) { #ifdef DEBUG_FUNCIN if(battle_config.etc_log) ShowDebug("parse_expr %s\n",p); #endif switch(*p){ case ')': case ';': case ':': case '[': case ']': case '}': disp_error_message("parse_expr: unexpected char",p); } p=parse_subexpr(p,-1); #ifdef DEBUG_FUNCIN if(battle_config.etc_log) ShowDebug("parse_expr end %s\n",p); #endif return p; } /*========================================== * �s�̉�� *------------------------------------------ */ const char* parse_line(const char* p) { const char* p2; p=skip_space(p); if(*p==';') { // if(); for(); while(); �̂��߂ɕ����� p = parse_syntax_close(p); return p+1; } if(*p==')' && parse_syntax_for_flag) return p+1; p = skip_space(p); if(p[0] == '{') { syntax.curly[syntax.curly_count].type = TYPE_NULL; syntax.curly[syntax.curly_count].count = -1; syntax.curly[syntax.curly_count].index = -1; syntax.curly_count++; return p + 1; } else if(p[0] == '}') { return parse_curly_close(p); } // �\���֘A�̏��� p2 = parse_syntax(p); if(p2 != NULL) return p2; p = parse_callfunc(p,0); p = skip_space(p); if(parse_syntax_for_flag) { if( *p != ')' ) disp_error_message("parse_line: need ')'",p); } else { if( *p != ';' ) disp_error_message("parse_line: need ';'",p); } // if, for , while �̕����� p = parse_syntax_close(p+1); return p; } // { ... } �̕����� const char* parse_curly_close(const char* p) { if(syntax.curly_count <= 0) { disp_error_message("parse_curly_close: unexpected string",p); return p + 1; } else if(syntax.curly[syntax.curly_count-1].type == TYPE_NULL) { syntax.curly_count--; // if, for , while �̕����� p = parse_syntax_close(p + 1); return p; } else if(syntax.curly[syntax.curly_count-1].type == TYPE_SWITCH) { // switch() ������ int pos = syntax.curly_count-1; char label[256]; int l; // �ꎞ�ϐ������� sprintf(label,"set $@__SW%x_VAL,0;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // �������ŏI���|�C���^�Ɉړ� sprintf(label,"goto __SW%x_FIN;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // ���ݒn�̃��x����t���� sprintf(label,"__SW%x_%x",syntax.curly[pos].index,syntax.curly[pos].count); l=add_str(label); set_label(l,script_pos, p); if(syntax.curly[pos].flag) { // default �����݂��� sprintf(label,"goto __SW%x_DEF;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; } // �I�����x����t���� sprintf(label,"__SW%x_FIN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos, p); syntax.curly_count--; return p+1; } else { disp_error_message("parse_curly_close: unexpected string",p); return p + 1; } } // �\���֘A�̏��� // break, case, continue, default, do, for, function, // if, switch, while �����̓����ŏ������܂��B const char* parse_syntax(const char* p) { switch(*p) { case 'b': if(!strncasecmp(p,"break",5) && !ISALPHA(p[5])) { // break �̏��� char label[256]; int pos = syntax.curly_count - 1; while(pos >= 0) { if(syntax.curly[pos].type == TYPE_DO) { sprintf(label,"goto __DO%x_FIN;",syntax.curly[pos].index); break; } else if(syntax.curly[pos].type == TYPE_FOR) { sprintf(label,"goto __FR%x_FIN;",syntax.curly[pos].index); break; } else if(syntax.curly[pos].type == TYPE_WHILE) { sprintf(label,"goto __WL%x_FIN;",syntax.curly[pos].index); break; } else if(syntax.curly[pos].type == TYPE_SWITCH) { sprintf(label,"goto __SW%x_FIN;",syntax.curly[pos].index); break; } pos--; } if(pos < 0) { disp_error_message("parse_syntax: unexpected 'break'",p); } else { syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; } p = skip_word(p); p++; // if, for , while �̕����� p = parse_syntax_close(p + 1); return p; } break; case 'c': if(!strncasecmp(p,"case",4) && !ISALPHA(p[4])) { // case �̏��� if(syntax.curly_count <= 0 || syntax.curly[syntax.curly_count - 1].type != TYPE_SWITCH) { disp_error_message("parse_syntax: unexpected 'case' ",p); return p+1; } else { const char *p2; char label[256]; int l; int len; int pos = syntax.curly_count-1; if(syntax.curly[pos].count != 1) { // FALLTHRU �p�̃W�����v sprintf(label,"goto __SW%x_%xJ;",syntax.curly[pos].index,syntax.curly[pos].count); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // ���ݒn�̃��x����t���� sprintf(label,"__SW%x_%x",syntax.curly[pos].index,syntax.curly[pos].count); l=add_str(label); set_label(l,script_pos, p); } // switch ���蕶 p = skip_word(p); p = skip_space(p); p2 = p; p = skip_word(p); len = p-p2; // length of word at p2 p = skip_space(p); if(*p != ':') disp_error_message("parse_syntax: expect ':'",p); memcpy(label,"if(",3); memcpy(label+3,p2,len); sprintf(label+3+len," != $@__SW%x_VAL) goto __SW%x_%x;", syntax.curly[pos].index,syntax.curly[pos].index,syntax.curly[pos].count+1); syntax.curly[syntax.curly_count++].type = TYPE_NULL; // �Q��parse ���Ȃ��ƃ_�� p2 = parse_line(label); parse_line(p2); syntax.curly_count--; if(syntax.curly[pos].count != 1) { // FALLTHRU �I����̃��x�� sprintf(label,"__SW%x_%xJ",syntax.curly[pos].index,syntax.curly[pos].count); l=add_str(label); set_label(l,script_pos,p); } // �ꎞ�ϐ������� sprintf(label,"set $@__SW%x_VAL,0;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; syntax.curly[pos].count++; } return p + 1; } else if(!strncasecmp(p,"continue",8) && !ISALPHA(p[8])) { // continue �̏��� char label[256]; int pos = syntax.curly_count - 1; while(pos >= 0) { if(syntax.curly[pos].type == TYPE_DO) { sprintf(label,"goto __DO%x_NXT;",syntax.curly[pos].index); syntax.curly[pos].flag = 1; // continue �p�̃����N����t���O break; } else if(syntax.curly[pos].type == TYPE_FOR) { sprintf(label,"goto __FR%x_NXT;",syntax.curly[pos].index); break; } else if(syntax.curly[pos].type == TYPE_WHILE) { sprintf(label,"goto __WL%x_NXT;",syntax.curly[pos].index); break; } pos--; } if(pos < 0) { disp_error_message("parse_syntax: unexpected 'continue'",p); } else { syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; } p = skip_word(p); p++; // if, for , while �̕����� p = parse_syntax_close(p + 1); return p; } break; case 'd': if(!strncasecmp(p,"default",7) && !ISALPHA(p[7])) { // switch - default �̏��� if(syntax.curly_count <= 0 || syntax.curly[syntax.curly_count - 1].type != TYPE_SWITCH) { disp_error_message("parse_syntax: unexpected 'default'",p); return p+1; } else if(syntax.curly[syntax.curly_count - 1].flag) { disp_error_message("parse_syntax: dup 'default'",p); return p+1; } else { char label[256]; int l; int pos = syntax.curly_count-1; // ���ݒn�̃��x����t���� p = skip_word(p); p = skip_space(p); if(*p != ':') { disp_error_message("parse_syntax: need ':'",p); } p++; sprintf(label,"__SW%x_%x",syntax.curly[pos].index,syntax.curly[pos].count); l=add_str(label); set_label(l,script_pos,p); // �������Ŏ��̃����N�ɔ�� sprintf(label,"goto __SW%x_%x;",syntax.curly[pos].index,syntax.curly[pos].count+1); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // default �̃��x����t���� sprintf(label,"__SW%x_DEF",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); syntax.curly[syntax.curly_count - 1].flag = 1; syntax.curly[pos].count++; p = skip_word(p); return p + 1; } } else if(!strncasecmp(p,"do",2) && !ISALPHA(p[2])) { int l; char label[256]; p=skip_word(p); p=skip_space(p); syntax.curly[syntax.curly_count].type = TYPE_DO; syntax.curly[syntax.curly_count].count = 1; syntax.curly[syntax.curly_count].index = syntax.index++; syntax.curly[syntax.curly_count].flag = 0; // ���ݒn�̃��x���`������ sprintf(label,"__DO%x_BGN",syntax.curly[syntax.curly_count].index); l=add_str(label); set_label(l,script_pos,p); syntax.curly_count++; return p; } break; case 'f': if(!strncasecmp(p,"for",3) && !ISALPHA(p[3])) { int l; char label[256]; int pos = syntax.curly_count; syntax.curly[syntax.curly_count].type = TYPE_FOR; syntax.curly[syntax.curly_count].count = 1; syntax.curly[syntax.curly_count].index = syntax.index++; syntax.curly[syntax.curly_count].flag = 0; syntax.curly_count++; p=skip_word(p); p=skip_space(p); if(*p != '(') { disp_error_message("parse_syntax: need '('",p); return p+1; } p++; // �������������s���� syntax.curly[syntax.curly_count++].type = TYPE_NULL; p=parse_line(p); syntax.curly_count--; // �������f�J�n�̃��x���`������ sprintf(label,"__FR%x_J",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); p=skip_space(p); if(*p == ';') { // for(;;) �̃p�^�[���Ȃ̂ŕK���^ ; } else { // �������U�Ȃ�I���n�_�ɔ�� sprintf(label,"__FR%x_FIN",syntax.curly[pos].index); add_scriptl(add_str("jump_zero")); add_scriptc(C_ARG); p=parse_expr(p); p=skip_space(p); add_scriptl(add_str(label)); add_scriptc(C_FUNC); } if(*p != ';') { disp_error_message("parse_syntax: need ';'",p); return p+1; } p++; // ���[�v�J�n�ɔ�� sprintf(label,"goto __FR%x_BGN;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // ���̃��[�v�ւ̃��x���`������ sprintf(label,"__FR%x_NXT",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); // ���̃��[�v�ɓ��鎞�̏��� // for �Ō�� ')' �� ';' �Ƃ��Ĉ����t���O parse_syntax_for_flag = 1; syntax.curly[syntax.curly_count++].type = TYPE_NULL; p=parse_line(p); syntax.curly_count--; parse_syntax_for_flag = 0; // �������菈���ɔ�� sprintf(label,"goto __FR%x_J;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // ���[�v�J�n�̃��x���t�� sprintf(label,"__FR%x_BGN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); return p; } else if(!strncasecmp(p,"function",8) && !ISALPHA(p[8])) { const char *func_name; // function p=skip_word(p); p=skip_space(p); // function - name func_name = p; p=skip_word(p); if(*skip_space(p) == ';') { // ���̐錾 - ���O��o�^���ďI��� int l; l=add_word(func_name); if(str_data[l].type == C_NOP) str_data[l].type = C_USERFUNC; return skip_space(p) + 1; } else { // ���̒��g char label[256]; int l; syntax.curly[syntax.curly_count].type = TYPE_USERFUNC; syntax.curly[syntax.curly_count].count = 1; syntax.curly[syntax.curly_count].index = syntax.index++; syntax.curly[syntax.curly_count].flag = 0; syntax.curly_count++; // ���I���܂Ŕ�� sprintf(label,"goto __FN%x_FIN;",syntax.curly[syntax.curly_count-1].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // �����̃��x����t���� l=add_word(func_name); if(str_data[l].type == C_NOP) str_data[l].type = C_USERFUNC; set_label(l,script_pos,p); if( parse_options&SCRIPT_USE_LABEL_DB ) strdb_put(scriptlabel_db, GETSTRING(str_data[l].str), (void*)script_pos); return skip_space(p); } } break; case 'i': if(!strncasecmp(p,"if",2) && !ISALPHA(p[2])) { // if() �̏��� char label[256]; p=skip_word(p); p=skip_space(p); if(*p != '(') { //Prevent if this {} non-c syntax. from Rayce (jA) disp_error_message("need '('",p); } syntax.curly[syntax.curly_count].type = TYPE_IF; syntax.curly[syntax.curly_count].count = 1; syntax.curly[syntax.curly_count].index = syntax.index++; syntax.curly[syntax.curly_count].flag = 0; sprintf(label,"__IF%x_%x",syntax.curly[syntax.curly_count].index,syntax.curly[syntax.curly_count].count); syntax.curly_count++; add_scriptl(add_str("jump_zero")); add_scriptc(C_ARG); p=parse_expr(p); p=skip_space(p); add_scriptl(add_str(label)); add_scriptc(C_FUNC); return p; } break; case 's': if(!strncasecmp(p,"switch",6) && !ISALPHA(p[6])) { // switch() �̏��� char label[256]; p=skip_word(p); p=skip_space(p); if(*p != '(') { disp_error_message("need '('",p); } syntax.curly[syntax.curly_count].type = TYPE_SWITCH; syntax.curly[syntax.curly_count].count = 1; syntax.curly[syntax.curly_count].index = syntax.index++; syntax.curly[syntax.curly_count].flag = 0; sprintf(label,"$@__SW%x_VAL",syntax.curly[syntax.curly_count].index); syntax.curly_count++; add_scriptl(add_str("set")); add_scriptc(C_ARG); add_scriptl(add_str(label)); p=parse_expr(p); p=skip_space(p); if(*p != '{') { disp_error_message("parse_syntax: need '{'",p); } add_scriptc(C_FUNC); return p + 1; } break; case 'w': if(!strncasecmp(p,"while",5) && !ISALPHA(p[5])) { int l; char label[256]; p=skip_word(p); p=skip_space(p); if(*p != '(') { disp_error_message("need '('",p); } syntax.curly[syntax.curly_count].type = TYPE_WHILE; syntax.curly[syntax.curly_count].count = 1; syntax.curly[syntax.curly_count].index = syntax.index++; syntax.curly[syntax.curly_count].flag = 0; // �������f�J�n�̃��x���`������ sprintf(label,"__WL%x_NXT",syntax.curly[syntax.curly_count].index); l=add_str(label); set_label(l,script_pos,p); // �������U�Ȃ�I���n�_�ɔ�� sprintf(label,"__WL%x_FIN",syntax.curly[syntax.curly_count].index); add_scriptl(add_str("jump_zero")); add_scriptc(C_ARG); p=parse_expr(p); p=skip_space(p); add_scriptl(add_str(label)); add_scriptc(C_FUNC); syntax.curly_count++; return p; } break; } return NULL; } const char* parse_syntax_close(const char *p) { // if(...) for(...) hoge(); �̂悤�ɁA�P�x����ꂽ��ēx�����邩�m�F���� int flag; do { p = parse_syntax_close_sub(p,&flag); } while(flag); return p; } // if, for , while , do �̕����� // flag == 1 : ����ꂽ // flag == 0 : �����Ȃ� const char* parse_syntax_close_sub(const char* p,int* flag) { char label[256]; int pos = syntax.curly_count - 1; int l; *flag = 1; if(syntax.curly_count <= 0) { *flag = 0; return p; } else if(syntax.curly[pos].type == TYPE_IF) { const char *p2 = p; // if �ŏI�ꏊ�֔�� sprintf(label,"goto __IF%x_FIN;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // ���ݒn�̃��x����t���� sprintf(label,"__IF%x_%x",syntax.curly[pos].index,syntax.curly[pos].count); l=add_str(label); set_label(l,script_pos,p); syntax.curly[pos].count++; p = skip_space(p); if(!syntax.curly[pos].flag && !strncasecmp(p,"else",4) && !ISALPHA(p[4])) { // else or else - if p = skip_word(p); p = skip_space(p); if(!strncasecmp(p,"if",2) && !ISALPHA(p[2])) { // else - if p=skip_word(p); p=skip_space(p); if(*p != '(') { disp_error_message("need '('",p); } sprintf(label,"__IF%x_%x",syntax.curly[pos].index,syntax.curly[pos].count); add_scriptl(add_str("jump_zero")); add_scriptc(C_ARG); p=parse_expr(p); p=skip_space(p); add_scriptl(add_str(label)); add_scriptc(C_FUNC); *flag = 0; return p; } else { // else if(!syntax.curly[pos].flag) { syntax.curly[pos].flag = 1; *flag = 0; return p; } } } // if �� syntax.curly_count--; // �ŏI�n�̃��x����t���� sprintf(label,"__IF%x_FIN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); if(syntax.curly[pos].flag == 1) { // ����if�ɑ���else����Ȃ��̂Ń|�C���^�̈ʒu�͓��� return p2; } return p; } else if(syntax.curly[pos].type == TYPE_DO) { int l; char label[256]; const char *p2; if(syntax.curly[pos].flag) { // ���ݒn�̃��x���`������(continue �ł����ɗ���) sprintf(label,"__DO%x_NXT",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); } // �������U�Ȃ�I���n�_�ɔ�� p = skip_space(p); p2 = skip_word(p); if(p2 - p != 5 || strncasecmp("while",p,5)) { disp_error_message("parse_syntax: need 'while'",p); } p = skip_space(p2); if(*p != '(') { disp_error_message("need '('",p); } sprintf(label,"__DO%x_FIN",syntax.curly[pos].index); add_scriptl(add_str("jump_zero")); add_scriptc(C_ARG); p=parse_expr(p); p=skip_space(p); add_scriptl(add_str(label)); add_scriptc(C_FUNC); // �J�n�n�_�ɔ�� sprintf(label,"goto __DO%x_BGN;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // �����I���n�_�̃��x���`������ sprintf(label,"__DO%x_FIN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); p = skip_space(p); if(*p != ';') { disp_error_message("parse_syntax: need ';'",p); return p+1; } p++; syntax.curly_count--; return p; } else if(syntax.curly[pos].type == TYPE_FOR) { // ���̃��[�v�ɔ�� sprintf(label,"goto __FR%x_NXT;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // for �I���̃��x���t�� sprintf(label,"__FR%x_FIN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); syntax.curly_count--; return p; } else if(syntax.curly[pos].type == TYPE_WHILE) { // while �������f�֔�� sprintf(label,"goto __WL%x_NXT;",syntax.curly[pos].index); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // while �I���̃��x���t�� sprintf(label,"__WL%x_FIN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); syntax.curly_count--; return p; } else if(syntax.curly[syntax.curly_count-1].type == TYPE_USERFUNC) { int pos = syntax.curly_count-1; char label[256]; int l; // �߂� sprintf(label,"return;"); syntax.curly[syntax.curly_count++].type = TYPE_NULL; parse_line(label); syntax.curly_count--; // ���ݒn�̃��x����t���� sprintf(label,"__FN%x_FIN",syntax.curly[pos].index); l=add_str(label); set_label(l,script_pos,p); syntax.curly_count--; return p + 1; } else { *flag = 0; return p; } } /*========================================== * �g�ݍ��݊��̒lj� *------------------------------------------ */ static void add_buildin_func(void) { int i,n; const char* p; for( i=0; buildin_func[i].func; i++ ){ /// arg must follow the pattern: (v|s|i|l)*\?*\*? /// 'v' - value (either string or int) /// 's' - string /// 'i' - int /// 'l' - label /// '?' - one optional parameter /// '*' - unknown number of optional parameters p=buildin_func[i].arg; while( *p == 'v' || *p == 's' || *p == 'i' || *p == 'l' ) ++p; while( *p == '?' ) ++p; if( *p == '*' ) ++p; if( *p != 0){ ShowWarning("add_buildin_func: ignoring function \"%s\" with invalid arg \"%s\".\n", buildin_func[i].name, buildin_func[i].arg); } else if( *skip_word(buildin_func[i].name) != 0 ){ ShowWarning("add_buildin_func: ignoring function with invalid name \"%s\" (must be a word).\n", buildin_func[i].name); } else { n=add_str(buildin_func[i].name); str_data[n].type=C_FUNC; str_data[n].val=i; str_data[n].func=buildin_func[i].func; } } } /*========================================== * �萔�f�[�^�x�[�X�̓ǂݍ��� *------------------------------------------ */ static void read_constdb(void) { FILE *fp; char line[1024],name[1024],val[1024]; int n,type; sprintf(line, "%s/const.txt", db_path); fp=fopen(line, "r"); if(fp==NULL){ ShowError("can't read %s\n", line); return ; } while(fgets(line,1020,fp)){ if(line[0]=='/' && line[1]=='/') continue; type=0; if(sscanf(line,"%[A-Za-z0-9_],%[-0-9xXA-Fa-f],%d",name,val,&type)>=2 || sscanf(line,"%[A-Za-z0-9_] %[-0-9xXA-Fa-f] %d",name,val,&type)>=2){ n=add_str(name); if(type==0) str_data[n].type=C_INT; else str_data[n].type=C_PARAM; str_data[n].val= (int)strtol(val,NULL,0); } } fclose(fp); } /*========================================== * �G���[�\�� *------------------------------------------ */ const char* script_print_line( const char *p, const char *mark, int line ) { int i; if( p == NULL || !p[0] ) return NULL; if( line < 0 ) printf("*% 5d : ", -line); else printf(" % 5d : ", line); for(i=0;p[i] && p[i] != '\n';i++){ if(p + i != mark) printf("%c",p[i]); else printf("\'%c\'",p[i]); } printf("\n"); return p+i+(p[i] == '\n' ? 1 : 0); } void script_error(const char *src,const char *file,int start_line, const char *error_msg, const char *error_pos) { // �G���[�����������s�����߂� int j; int line = start_line; const char *p; const char *linestart[5] = { NULL, NULL, NULL, NULL, NULL }; for(p=src;p && *p;line++){ char *lineend=strchr(p,'\n'); if(lineend==NULL || error_pos<lineend){ break; } for( j = 0; j < 4; j++ ) { linestart[j] = linestart[j+1]; } linestart[4] = p; p=lineend+1; } printf("\a\n"); printf("script error on %s line %d\n", file, line); printf(" %s\n", error_msg); for(j = 0; j < 5; j++ ) { script_print_line( linestart[j], NULL, line + j - 5); } p = script_print_line( p, error_pos, -line); for(j = 0; j < 5; j++) { p = script_print_line( p, NULL, line + j + 1 ); } } /*========================================== * �X�N���v�g�̉�� *------------------------------------------ */ struct script_code* parse_script(const char *src,const char *file,int line,int options) { const char *p,*tmpp; int i; struct script_code *code; static int first=1; memset(&syntax,0,sizeof(syntax)); if(first){ add_buildin_func(); read_constdb(); } first=0; script_buf=(unsigned char *)aMalloc(SCRIPT_BLOCK_SIZE*sizeof(unsigned char)); script_pos=0; script_size=SCRIPT_BLOCK_SIZE; str_data[LABEL_NEXTLINE].type=C_NOP; str_data[LABEL_NEXTLINE].backpatch=-1; str_data[LABEL_NEXTLINE].label=-1; for(i=LABEL_START;i<str_num;i++){ if( str_data[i].type==C_POS || str_data[i].type==C_NAME || str_data[i].type==C_USERFUNC || str_data[i].type == C_USERFUNC_POS ){ str_data[i].type=C_NOP; str_data[i].backpatch=-1; str_data[i].label=-1; } } // who called parse_script is responsible for clearing the database after using it, but just in case... lets clear it here if( options&SCRIPT_USE_LABEL_DB ) scriptlabel_db->clear(scriptlabel_db, NULL); parse_options = options; if( setjmp( error_jump ) != 0 ) { //Restore program state when script has problems. [from jA] if( error_report ) script_error(src,file,line,error_msg,error_pos); aFree( error_msg ); aFree( script_buf ); script_pos = 0; script_size = 0; script_buf = NULL; for(i=LABEL_START;i<str_num;i++){ if(str_data[i].type == C_NOP) str_data[i].type = C_NAME; } return NULL; } parse_syntax_for_flag=0; p=src; p=skip_space(p); if(*p!='{'){ disp_error_message("not found '{'",p); } p++; p = skip_space(p); if (p && *p == '}') { // an empty function, just return aFree( script_buf ); script_pos = 0; script_size = 0; script_buf = NULL; return NULL; } while (p && *p && (*p!='}' || syntax.curly_count != 0)) { p=skip_space(p); // label�������ꏈ�� tmpp=skip_space(skip_word(p)); if(*tmpp==':' && !(!strncasecmp(p,"default:",8) && p + 7 == tmpp)){ i=add_word(p); set_label(i,script_pos,p); if( parse_options&SCRIPT_USE_LABEL_DB ) strdb_put(scriptlabel_db, GETSTRING(str_data[i].str), (void*)script_pos); p=tmpp+1; continue; } // ���͑S���ꏏ���� p=parse_line(p); p=skip_space(p); add_scriptc(C_EOL); set_label(LABEL_NEXTLINE,script_pos,p); str_data[LABEL_NEXTLINE].type=C_NOP; str_data[LABEL_NEXTLINE].backpatch=-1; str_data[LABEL_NEXTLINE].label=-1; } add_scriptc(C_NOP); script_size = script_pos; RECREATE(script_buf,unsigned char,script_pos); // �������̃��x�������� for(i=LABEL_START;i<str_num;i++){ if(str_data[i].type==C_NOP){ int j,next; str_data[i].type=C_NAME; str_data[i].label=i; for(j=str_data[i].backpatch;j>=0 && j!=0x00ffffff;){ next=GETVALUE(script_buf,j); SETVALUE(script_buf,j,i); j=next; } } } #ifdef DEBUG_DISP for(i=0;i<script_pos;i++){ if((i&15)==0) printf("%04x : ",i); printf("%02x ",script_buf[i]); if((i&15)==15) printf("\n"); } printf("\n"); #endif #ifdef DEBUG_DISASM { int i = 0,j; while(i < script_pos) { printf("%06x ",i); j = i; switch(get_com(script_buf,&i)) { case C_EOL: printf("C_EOL"); break; case C_INT: printf("C_INT %d",get_num(script_buf,&i)); break; case C_POS: printf("C_POS 0x%06x",*(int*)(script_buf+i)&0xffffff); i += 3; break; case C_NAME: j = (*(int*)(script_buf+i)&0xffffff); printf("C_NAME %s",j == 0xffffff ? "?? unknown ??" : str_buf + str_data[j].str); i += 3; break; case C_ARG: printf("C_ARG"); break; case C_FUNC: printf("C_FUNC"); break; case C_ADD: printf("C_ADD"); break; case C_SUB: printf("C_SUB"); break; case C_MUL: printf("C_MUL"); break; case C_DIV: printf("C_DIV"); break; case C_MOD: printf("C_MOD"); break; case C_EQ: printf("C_EQ"); break; case C_NE: printf("C_NE"); break; case C_GT: printf("C_GT"); break; case C_GE: printf("C_GE"); break; case C_LT: printf("C_LT"); break; case C_LE: printf("C_LE"); break; case C_AND: printf("C_AND"); break; case C_OR: printf("C_OR"); break; case C_XOR: printf("C_XOR"); break; case C_LAND: printf("C_LAND"); break; case C_LOR: printf("C_LOR"); break; case C_R_SHIFT: printf("C_R_SHIFT"); break; case C_L_SHIFT: printf("C_L_SHIFT"); break; case C_NEG: printf("C_NEG"); break; case C_NOT: printf("C_NOT"); break; case C_LNOT: printf("C_LNOT"); break; case C_NOP: printf("C_NOP"); break; case C_OP3: printf("C_OP3"); break; case C_STR: j = strlen(script_buf + i); printf("C_STR %s",script_buf + i); i+= j+1; break; default: printf("unknown"); } printf("\n"); } } #endif CREATE(code,struct script_code,1); code->script_buf = script_buf; code->script_size = script_size; code->script_vars = NULL; return code; } // // ���s�n // enum {RUN = 0,STOP,END,RERUNLINE,GOTO,RETFUNC}; /*========================================== * rid����sd�ւ̉��� *------------------------------------------ */ struct map_session_data *script_rid2sd(struct script_state *st) { struct map_session_data *sd=map_id2sd(st->rid); if(!sd){ ShowError("script_rid2sd: fatal error ! player not attached!\n"); report_src(st); //## I would also terminate script execution. [FlavioJS] //st->state = END; } return sd; } /*========================================== * �ϐ��̓ǂݎ�� *------------------------------------------ */ int get_val(struct script_state*st,struct script_data* data) { struct map_session_data *sd=NULL; if(data->type==C_NAME){ char *name=str_buf+str_data[data->u.num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; if(not_server_variable(prefix)){ if((sd=script_rid2sd(st))==NULL) ShowError("get_val error name?:%s\n",name); } if(postfix=='$'){ data->type=C_CONSTSTR; if( prefix=='@'){ if(sd) data->u.str = pc_readregstr(sd,data->u.num); }else if(prefix=='$'){ data->u.str = (char *)idb_get(mapregstr_db,data->u.num); }else if(prefix=='#'){ if( name[1]=='#'){ if(sd) data->u.str = pc_readaccountreg2str(sd,name); }else{ if(sd) data->u.str = pc_readaccountregstr(sd,name); } }else if(prefix=='.') { struct linkdb_node **n; if( data->ref ) { n = data->ref; } else if( name[1] == '@' ) { n = st->stack->var_function; } else { n = &st->script->script_vars; } data->u.str = linkdb_search(n, (void*)data->u.num ); }else{ if(sd) data->u.str = pc_readglobalreg_str(sd,name); } // [zBuffer] /*else{ ShowWarning("script: get_val: illegal scope string variable.\n"); data->u.str = "!!ERROR!!"; }*/ if( data->u.str == NULL ) data->u.str =""; }else{ data->type=C_INT; if(str_data[data->u.num&0x00ffffff].type==C_INT){ data->u.num = str_data[data->u.num&0x00ffffff].val; }else if(str_data[data->u.num&0x00ffffff].type==C_PARAM){ if(sd) data->u.num = pc_readparam(sd,str_data[data->u.num&0x00ffffff].val); }else if(prefix=='@'){ if(sd) data->u.num = pc_readreg(sd,data->u.num); }else if(prefix=='$'){ data->u.num = (int)idb_get(mapreg_db,data->u.num); }else if(prefix=='#'){ if( name[1]=='#'){ if(sd) data->u.num = pc_readaccountreg2(sd,name); }else{ if(sd) data->u.num = pc_readaccountreg(sd,name); } }else if(prefix=='.'){ struct linkdb_node **n; if( data->ref ) { n = data->ref; } else if( name[1] == '@' ) { n = st->stack->var_function; } else { n = &st->script->script_vars; } data->u.num = (int)linkdb_search(n, (void*)data->u.num); }else{ if(sd) data->u.num = pc_readglobalreg(sd,name); } } } return 0; } /*========================================== * �ϐ��̓ǂݎ��2 *------------------------------------------ */ void* get_val2(struct script_state*st,int num,struct linkdb_node **ref) { struct script_data dat; dat.type=C_NAME; dat.u.num=num; dat.ref=ref; get_val(st,&dat); if( dat.type==C_INT ) return (void*)dat.u.num; else return (void*)dat.u.str; } /*========================================== * �ϐ��ݒ�p *------------------------------------------ */ static int set_reg(struct script_state*st,struct map_session_data *sd,int num,char *name,void *v,struct linkdb_node** ref) { char prefix=*name; char postfix=name[strlen(name)-1]; if( postfix=='$' ){ char *str=(char*)v; if( prefix=='@'){ pc_setregstr(sd,num,str); }else if(prefix=='$') { mapreg_setregstr(num,str); }else if(prefix=='#') { if( name[1]=='#' ) pc_setaccountreg2str(sd,name,str); else pc_setaccountregstr(sd,name,str); }else if(prefix=='.') { char *p; struct linkdb_node **n; if( ref ) { n = ref; } else if( name[1] == '@' ) { n = st->stack->var_function; } else { n = &st->script->script_vars; } p = linkdb_search(n, (void*)num); if(p) { linkdb_erase(n, (void*)num); aFree(p); } if( ((char*)v)[0] ) linkdb_insert(n, (void*)num, aStrdup(v)); }else{ pc_setglobalreg_str(sd,name,str); } // [zBuffer] }else{ // ���l int val = (int)v; if(str_data[num&0x00ffffff].type==C_PARAM){ pc_setparam(sd,str_data[num&0x00ffffff].val,val); }else if(prefix=='@') { pc_setreg(sd,num,val); }else if(prefix=='$') { mapreg_setreg(num,val); }else if(prefix=='#') { if( name[1]=='#' ) pc_setaccountreg2(sd,name,val); else pc_setaccountreg(sd,name,val); }else if(prefix == '.') { struct linkdb_node **n; if( ref ) { n = ref; } else if( name[1] == '@' ) { n = st->stack->var_function; } else { n = &st->script->script_vars; } if( val == 0 ) { linkdb_erase(n, (void*)num); } else { linkdb_replace(n, (void*)num, (void*)val); } }else{ pc_setglobalreg(sd,name,val); } } return 0; } int set_var(struct map_session_data *sd, char *name, void *val) { return set_reg(NULL, sd, add_str(name), name, val, NULL); } /*========================================== * ������ւ̕ϊ� *------------------------------------------ */ char* conv_str(struct script_state *st,struct script_data *data) { get_val(st,data); if(data->type==C_INT){ char *buf; CREATE(buf,char,ITEM_NAME_LENGTH); snprintf(buf,ITEM_NAME_LENGTH, "%d",data->u.num); buf[ITEM_NAME_LENGTH-1]=0; data->type=C_STR; data->u.str=buf; } else if(data->type==C_POS) { // Protect form crashes by passing labels to string-expected args [jA2200] data->type = C_CONSTSTR; data->u.str = "** SCRIPT ERROR **"; } else if(data->type==C_NAME){ data->type=C_CONSTSTR; data->u.str=str_buf+str_data[data->u.num].str; } return data->u.str; } /*========================================== * ���l�֕ϊ� *------------------------------------------ */ int conv_num(struct script_state *st,struct script_data *data) { char *p; get_val(st,data); if(data->type==C_STR || data->type==C_CONSTSTR){ p=data->u.str; data->u.num = atoi(p); if(data->type==C_STR) aFree(p); data->type=C_INT; } return data->u.num; } /*========================================== * �X�^�b�N���l���v�b�V�� *------------------------------------------ */ void push_val(struct script_stack *stack,int type,int val) { if(stack->sp >= stack->sp_max){ stack->sp_max += 64; stack->stack_data = (struct script_data *)aRealloc(stack->stack_data, sizeof(stack->stack_data[0]) * stack->sp_max); memset(stack->stack_data + (stack->sp_max - 64), 0, 64 * sizeof(*(stack->stack_data))); } // if(battle_config.etc_log) // printf("push (%d,%d)-> %d\n",type,val,stack->sp); stack->stack_data[stack->sp].type=type; stack->stack_data[stack->sp].u.num=val; stack->stack_data[stack->sp].ref = NULL; stack->sp++; } /*========================================== * �X�^�b�N���l�{���t�@�����X���v�b�V�� *------------------------------------------ */ void push_val2(struct script_stack *stack,int type,int val,struct linkdb_node** ref) { push_val(stack,type,val); stack->stack_data[stack->sp-1].ref = ref; } /*========================================== * �X�^�b�N�֕�������v�b�V�� *------------------------------------------ */ void push_str(struct script_stack *stack,int type,char *str) { if(stack->sp>=stack->sp_max){ stack->sp_max += 64; stack->stack_data = (struct script_data *)aRealloc(stack->stack_data, sizeof(stack->stack_data[0]) * stack->sp_max); memset(stack->stack_data + (stack->sp_max - 64), '\0', 64 * sizeof(*(stack->stack_data))); } // if(battle_config.etc_log) // printf("push (%d,%x)-> %d\n",type,str,stack->sp); stack->stack_data[stack->sp].type =type; stack->stack_data[stack->sp].u.str=str; stack->stack_data[stack->sp].ref =NULL; stack->sp++; } /*========================================== * �X�^�b�N�֕������v�b�V�� *------------------------------------------ */ void push_copy(struct script_stack *stack,int pos) { switch(stack->stack_data[pos].type){ case C_CONSTSTR: push_str(stack,C_CONSTSTR,stack->stack_data[pos].u.str); break; case C_STR: push_str(stack,C_STR,aStrdup(stack->stack_data[pos].u.str)); break; default: push_val2( stack,stack->stack_data[pos].type,stack->stack_data[pos].u.num, stack->stack_data[pos].ref ); break; } } /*========================================== * �X�^�b�N����|�b�v *------------------------------------------ */ void pop_stack(struct script_stack* stack,int start,int end) { int i; for(i=start;i<end;i++){ if(stack->stack_data[i].type==C_STR){ aFree(stack->stack_data[i].u.str); stack->stack_data[i].type=C_INT; //Might not be correct, but it's done in case to prevent pointer errors later on. [Skotlex] } } if(stack->sp>end){ memmove(&stack->stack_data[start],&stack->stack_data[end],sizeof(stack->stack_data[0])*(stack->sp-end)); } stack->sp-=end-start; } /*========================================== * �X�N���v�g�ˑ��ϐ��A���ˑ��ϐ��̉�� *------------------------------------------ */ void script_free_vars(struct linkdb_node **node) { struct linkdb_node *n = *node; while(n) { char *name = str_buf + str_data[(int)(n->key)&0x00ffffff].str; char postfix = name[strlen(name)-1]; if( postfix == '$' ) { // �����^�ϐ��Ȃ̂ŁA�f�[�^�폜 aFree(n->data); } n = n->next; } linkdb_final( node ); } /*========================================== * Free's the whole stack. Invoked when clearing a character. [Skotlex] *------------------------------------------ */ void script_free_stack(struct script_stack *stack) { int i; for(i = 0; i < stack->sp; i++) { if( stack->stack_data[i].type == C_STR ) { aFree(stack->stack_data[i].u.str); stack->stack_data[i].type = C_INT; } else if( i > 0 && stack->stack_data[i].type == C_RETINFO ) { struct linkdb_node** n = (struct linkdb_node**)stack->stack_data[i-1].u.num; script_free_vars( n ); aFree( n ); } } script_free_vars( stack->var_function ); aFree(stack->var_function); aFree(stack->stack_data); aFree(stack); } void script_free_code(struct script_code* code) { script_free_vars( &code->script_vars ); aFree( code->script_buf ); aFree( code ); } // // ���s��main // /*========================================== * �R�}���h�̓ǂݎ�� *------------------------------------------ */ static int unget_com_data=-1; int get_com(unsigned char *script,int *pos) { int i,j; if(unget_com_data>=0){ i=unget_com_data; unget_com_data=-1; return i; } if(script[*pos]>=0x80){ return C_INT; } i=0; j=0; while(script[*pos]>=0x40){ i=script[(*pos)++]<<j; j+=6; } return i+(script[(*pos)++]<<j); } /*========================================== * �R�}���h�̃v�b�V���o�b�N *------------------------------------------ */ void unget_com(int c) { if(unget_com_data!=-1){ if(battle_config.error_log) ShowError("unget_com can back only 1 data\n"); } unget_com_data=c; } /*========================================== * ���l�̏��� *------------------------------------------ */ int get_num(unsigned char *script,int *pos) { int i,j; i=0; j=0; while(script[*pos]>=0xc0){ i+=(script[(*pos)++]&0x7f)<<j; j+=6; } return i+((script[(*pos)++]&0x7f)<<j); } /*========================================== * �X�^�b�N����l�����o�� *------------------------------------------ */ int pop_val(struct script_state* st) { if(st->stack->sp<=0) return 0; st->stack->sp--; get_val(st,&(st->stack->stack_data[st->stack->sp])); if(st->stack->stack_data[st->stack->sp].type==C_INT) return st->stack->stack_data[st->stack->sp].u.num; return 0; } int isstr(struct script_data *c) { if( c->type == C_STR || c->type == C_CONSTSTR ) return 1; else if( c->type == C_NAME ) { char *p = str_buf + str_data[c->u.num & 0xffffff].str; char postfix = p[strlen(p)-1]; return (postfix == '$'); } return 0; } /*========================================== * Three-section operator * test ? if_true : if_false *------------------------------------------ */ void op_3(struct script_state *st) { int flag = 0; if( isstr(&st->stack->stack_data[st->stack->sp-3])) { char *str = conv_str(st,& (st->stack->stack_data[st->stack->sp-3])); flag = str[0]; } else { flag = conv_num(st,& (st->stack->stack_data[st->stack->sp-3])); } if( flag ) { push_copy(st->stack, st->stack->sp-2 ); } else { push_copy(st->stack, st->stack->sp-1 ); } pop_stack(st->stack,st->stack->sp-4,st->stack->sp-1); } /*========================================== * ���Z���Z�q *------------------------------------------ */ void op_add(struct script_state* st) { st->stack->sp--; get_val(st,&(st->stack->stack_data[st->stack->sp])); get_val(st,&(st->stack->stack_data[st->stack->sp-1])); if(isstr(&st->stack->stack_data[st->stack->sp]) || isstr(&st->stack->stack_data[st->stack->sp-1])){ conv_str(st,&(st->stack->stack_data[st->stack->sp])); conv_str(st,&(st->stack->stack_data[st->stack->sp-1])); } if(st->stack->stack_data[st->stack->sp].type==C_INT){ // ii int *i1 = &st->stack->stack_data[st->stack->sp-1].u.num; int *i2 = &st->stack->stack_data[st->stack->sp].u.num; int ret = *i1 + *i2; double ret_double = (double)*i1 + (double)*i2; if(ret_double > INT_MAX|| ret_double < INT_MIN) { ShowWarning("script::op_add overflow detected op:%d\n",C_ADD); report_src(st); ret = cap_value(ret, INT_MIN, INT_MAX); } *i1 = ret; } else { // ss�̗\�� char *buf; buf=(char *)aMallocA((strlen(st->stack->stack_data[st->stack->sp-1].u.str)+ strlen(st->stack->stack_data[st->stack->sp].u.str)+1)*sizeof(char)); strcpy(buf,st->stack->stack_data[st->stack->sp-1].u.str); strcat(buf,st->stack->stack_data[st->stack->sp].u.str); if(st->stack->stack_data[st->stack->sp-1].type==C_STR) { aFree(st->stack->stack_data[st->stack->sp-1].u.str); st->stack->stack_data[st->stack->sp-1].type=C_INT; } if(st->stack->stack_data[st->stack->sp].type==C_STR) { aFree(st->stack->stack_data[st->stack->sp].u.str); st->stack->stack_data[st->stack->sp].type=C_INT; } st->stack->stack_data[st->stack->sp-1].type=C_STR; st->stack->stack_data[st->stack->sp-1].u.str=buf; } st->stack->stack_data[st->stack->sp-1].ref = NULL; } /*========================================== * ���Z�q(������) *------------------------------------------ */ void op_2str(struct script_state *st,int op,int sp1,int sp2) { char *s1=st->stack->stack_data[sp1].u.str, *s2=st->stack->stack_data[sp2].u.str; int a=0; switch(op){ case C_EQ: a= (strcmp(s1,s2)==0); break; case C_NE: a= (strcmp(s1,s2)!=0); break; case C_GT: a= (strcmp(s1,s2)> 0); break; case C_GE: a= (strcmp(s1,s2)>=0); break; case C_LT: a= (strcmp(s1,s2)< 0); break; case C_LE: a= (strcmp(s1,s2)<=0); break; default: ShowWarning("script: illegal string operator\n"); break; } // Because push_val() overwrite stack_data[sp1], C_STR on stack_data[sp1] won't be freed. // So, call push_val() after freeing strings. [jA1783] // push_val(st->stack,C_INT,a); if(st->stack->stack_data[sp1].type==C_STR) { aFree(s1); st->stack->stack_data[sp1].type=C_INT; } if(st->stack->stack_data[sp2].type==C_STR) { aFree(s2); st->stack->stack_data[sp2].type=C_INT; } push_val(st->stack,C_INT,a); } /*========================================== * ���Z�q(���l) *------------------------------------------ */ void op_2num(struct script_state *st,int op,int i1,int i2) { int ret = 0; double ret_double = 0; switch(op){ case C_MOD: ret = i1 % i2; break; case C_AND: ret = i1 & i2; break; case C_OR: ret = i1 | i2; break; case C_XOR: ret = i1 ^ i2; break; case C_LAND: ret = (i1 && i2); break; case C_LOR: ret = (i1 || i2); break; case C_EQ: ret = (i1 == i2); break; case C_NE: ret = (i1 != i2); break; case C_GT: ret = (i1 > i2); break; case C_GE: ret = (i1 >= i2); break; case C_LT: ret = (i1 < i2); break; case C_LE: ret = (i1 <= i2); break; case C_R_SHIFT: ret = i1>>i2; break; case C_L_SHIFT: ret = i1<<i2; break; default: switch(op) { case C_SUB: ret = i1 - i2; ret_double = (double)i1 - (double)i2; break; case C_MUL: ret = i1 * i2; ret_double = (double)i1 * (double)i2; break; case C_DIV: if(i2 == 0) { printf("script::op_2num division by zero.\n"); ret = INT_MAX; ret_double = 0; // double�̐��x���������̂ŃI�[�o�[�t���[����� } else { ret = i1 / i2; ret_double = (double)i1 / (double)i2; } break; } if(ret_double > INT_MAX || ret_double < INT_MIN) { printf("script::op_2num overflow detected op:%d\n",op); report_src(st); ret = (int)cap_value(ret_double,INT_MAX,INT_MIN); } } push_val(st->stack,C_INT,ret); } /*========================================== * ���Z�q *------------------------------------------ */ void op_2(struct script_state *st,int op) { int i1,i2; char *s1=NULL,*s2=NULL; i2=pop_val(st); if( isstr(&st->stack->stack_data[st->stack->sp]) ) s2=st->stack->stack_data[st->stack->sp].u.str; i1=pop_val(st); if( isstr(&st->stack->stack_data[st->stack->sp]) ) s1=st->stack->stack_data[st->stack->sp].u.str; if( s1!=NULL && s2!=NULL ){ // ss => op_2str op_2str(st,op,st->stack->sp,st->stack->sp+1); }else if( s1==NULL && s2==NULL ){ // ii => op_2num op_2num(st,op,i1,i2); }else{ // si,is => error ShowWarning("script: op_2: int&str, str&int not allow.\n"); report_src(st); if(s1 && st->stack->stack_data[st->stack->sp].type == C_STR) { aFree(s1); st->stack->stack_data[st->stack->sp].type = C_INT; } if(s2 && st->stack->stack_data[st->stack->sp+1].type == C_STR) { aFree(s2); st->stack->stack_data[st->stack->sp+1].type = C_INT; } push_val(st->stack,C_INT,0); } } /*========================================== * �P�����Z�q *------------------------------------------ */ void op_1num(struct script_state *st,int op) { int i1; i1=pop_val(st); switch(op){ case C_NEG: i1=-i1; break; case C_NOT: i1=~i1; break; case C_LNOT: i1=!i1; break; } push_val(st->stack,C_INT,i1); } /*========================================== * ���̎��s *------------------------------------------ */ int run_func(struct script_state *st) { int i,start_sp,end_sp,func; end_sp=st->stack->sp; for(i=end_sp-1;i>=0 && st->stack->stack_data[i].type!=C_ARG;i--); if(i<=0){ //Crash fix when missing "push_val" causes current pointer to become -1. from Rayce (jA) if(battle_config.error_log) ShowError("function not found\n"); // st->stack->sp=0; st->state=END; report_src(st); return 1; } start_sp=i-1; st->start=i-1; st->end=end_sp; func=st->stack->stack_data[st->start].u.num; #ifdef DEBUG_RUN if(battle_config.etc_log) { ShowDebug("run_func : %s? (%d(%d)) sp=%d (%d...%d)\n",str_buf+str_data[func].str, func, str_data[func].type, st->stack->sp, st->start, st->end); ShowDebug("stack dump :"); for(i=0;i<end_sp;i++){ switch(st->stack->stack_data[i].type){ case C_INT: printf(" int(%d)",st->stack->stack_data[i].u.num); break; case C_NAME: printf(" name(%s)",str_buf+str_data[st->stack->stack_data[i].u.num & 0xffffff].str); break; case C_ARG: printf(" arg"); break; case C_POS: printf(" pos(%d)",st->stack->stack_data[i].u.num); break; case C_STR: printf(" str(%s)",st->stack->stack_data[i].u.str); break; case C_CONSTSTR: printf(" cstr(%s)",st->stack->stack_data[i].u.str); break; default: printf(" etc(%d,%d)",st->stack->stack_data[i].type,st->stack->stack_data[i].u.num); } } printf("\n"); } #endif if(str_data[func].type!=C_FUNC ){ ShowMessage ("run_func: '"CL_WHITE"%s"CL_RESET"' (type %d) is not function and command!\n", str_buf+str_data[func].str, str_data[func].type); // st->stack->sp=0; st->state=END; report_src(st); return 1; } #ifdef DEBUG_RUN ShowDebug("run_func : %s (func_no : %d , func_type : %d pos : 0x%x)\n", str_buf+str_data[func].str,func,str_data[func].type,st->pos ); #endif if(str_data[func].func){ if (str_data[func].func(st)) //Report error report_src(st); } else { if(battle_config.error_log) ShowError("run_func : %s? (%d(%d))\n",str_buf+str_data[func].str,func,str_data[func].type); push_val(st->stack,C_INT,0); report_src(st); } // Stack's datum are used when re-run functions [Eoe] if(st->state != RERUNLINE) { pop_stack(st->stack,start_sp,end_sp); } if(st->state==RETFUNC){ // ���[�U�[��`������̕��A int olddefsp=st->stack->defsp; int i; pop_stack(st->stack,st->stack->defsp,start_sp); // ���A�Ɏז��ȃX�^�b�N�폜 if(st->stack->defsp<5 || st->stack->stack_data[st->stack->defsp-1].type!=C_RETINFO){ ShowWarning("script:run_func(return) return without callfunc or callsub!\n"); st->state=END; report_src(st); return 1; } script_free_vars( st->stack->var_function ); aFree(st->stack->var_function); i = conv_num(st,& (st->stack->stack_data[st->stack->defsp-5])); // �����̐����� st->pos=conv_num(st,& (st->stack->stack_data[st->stack->defsp-1])); // �X�N���v�g�ʒu�̕��� st->script=(struct script_code*)conv_num(st,& (st->stack->stack_data[st->stack->defsp-3])); // �X�N���v�g�� st->stack->var_function = (struct linkdb_node**)st->stack->stack_data[st->stack->defsp-2].u.num; // ���ˑ��ϐ� st->stack->defsp=conv_num(st,& (st->stack->stack_data[st->stack->defsp-4])); // ��X�^�b�N�|�C���^�� pop_stack(st->stack,olddefsp-5-i,olddefsp); // �v��Ȃ��Ȃ����X�^�b�N(�����ƕ��A�p�f�[�^)�폜 st->state=GOTO; } return 0; } /*========================================== * �X�N���v�g�̎��s *------------------------------------------ */ void run_script_main(struct script_state *st); void run_script(struct script_code *rootscript,int pos,int rid,int oid) { struct script_state *st; struct map_session_data *sd=NULL; if(rootscript==NULL || pos<0) return; if (rid) sd = map_id2sd(rid); if (sd && sd->st && sd->st->scriptroot == rootscript && sd->st->pos == pos){ //Resume script. st = sd->st; } else { st = aCalloc(sizeof(struct script_state), 1); // the script is different, make new script_state and stack st->stack = aMalloc (sizeof(struct script_stack)); st->stack->sp=0; st->stack->sp_max=64; st->stack->stack_data = (struct script_data *)aCalloc(st->stack->sp_max,sizeof(st->stack->stack_data[0])); st->stack->defsp = st->stack->sp; st->stack->var_function = aCalloc(1, sizeof(struct linkdb_node*)); st->state = RUN; st->script = rootscript; } st->pos = pos; st->rid = rid; st->oid = oid; st->sleep.timer = -1; run_script_main(st); } void script_stop_sleeptimers(int id) { struct script_state* st; for(;;) { st = (struct script_state*)linkdb_erase(&sleep_db,(void*)id); if( st == NULL ) break; // no more sleep timers if( st->sleep.timer != INVALID_TIMER ) delete_timer(st->sleep.timer, run_script_timer); script_free_stack(st->stack); aFree(st); } } /*========================================== * �w��m�[�h��sleep_db����폜 *------------------------------------------ */ struct linkdb_node* script_erase_sleepdb(struct linkdb_node *n) { struct linkdb_node *retnode; if( n == NULL) return NULL; if( n->prev == NULL ) sleep_db = n->next; else n->prev->next = n->next; if( n->next ) n->next->prev = n->prev; retnode = n->next; aFree( n ); return retnode; // ���̃m�[�h��Ԃ� } /*========================================== * sleep�p�^�C�}�[�� *------------------------------------------ */ int run_script_timer(int tid, unsigned int tick, int id, int data) { struct script_state *st = (struct script_state *)data; struct linkdb_node *node = (struct linkdb_node *)sleep_db; struct map_session_data *sd = map_id2sd(st->rid); if((sd && sd->status.char_id != id) || (st->rid && !sd)) { //Character mismatch. Cancel execution. st->rid = 0; st->state = END; } while( node && st->sleep.timer != -1 ) { if( (int)node->key == st->oid && ((struct script_state *)node->data)->sleep.timer == st->sleep.timer ) { script_erase_sleepdb(node); st->sleep.timer = -1; break; } node = node->next; } if(st->state != RERUNLINE) st->sleep.tick = 0; run_script_main(st); return 0; } /*========================================== * �X�N���v�g�̎��s���C������ *------------------------------------------ */ void run_script_main(struct script_state *st) { int c; int cmdcount=script_config.check_cmdcount; int gotocount=script_config.check_gotocount; struct map_session_data *sd; //For backing up purposes struct script_state *bk_st = NULL; int bk_npcid = 0; struct script_stack *stack=st->stack; sd = st->rid?map_id2sd(st->rid):NULL; if(sd){ if(sd->st != st){ bk_st = sd->st; bk_npcid = sd->npc_id; } sd->st = st; sd->npc_id = st->oid; } if(st->state == RERUNLINE) { st->state = RUN; run_func(st); if(st->state == GOTO) st->state = RUN; } else if(st->state != END) st->state = RUN; while(st->state == RUN){ c= get_com(st->script->script_buf,&st->pos); switch(c){ case C_EOL: if(stack->sp!=stack->defsp){ if(stack->sp > stack->defsp) { //sp > defsp is valid in cases when you invoke functions and don't use the returned value. [Skotlex] //Since sp is supposed to be defsp in these cases, we could assume the extra stack elements are unneeded. if (battle_config.etc_log) { ShowWarning("Clearing unused stack stack.sp(%d) -> default(%d)\n",stack->sp,stack->defsp); report_src(st); } pop_stack(stack, stack->defsp, stack->sp); //Clear out the unused stack-section. } else if(battle_config.error_log) ShowError("stack.sp(%d) != default(%d)\n",stack->sp,stack->defsp); stack->sp=stack->defsp; } break; case C_INT: push_val(stack,C_INT,get_num(st->script->script_buf,&st->pos)); break; case C_POS: case C_NAME: push_val(stack,c,GETVALUE(st->script->script_buf,st->pos)); st->pos+=3; break; case C_ARG: push_val(stack,c,0); break; case C_STR: push_str(stack,C_CONSTSTR,(st->script->script_buf+st->pos)); while(st->script->script_buf[st->pos++]); break; case C_FUNC: run_func(st); if(st->state==GOTO){ st->state = RUN; if( gotocount>0 && (--gotocount)<=0 ){ ShowError("run_script: infinity loop !\n"); report_src(st); st->state=END; } } break; case C_ADD: op_add(st); break; case C_SUB: case C_MUL: case C_DIV: case C_MOD: case C_EQ: case C_NE: case C_GT: case C_GE: case C_LT: case C_LE: case C_AND: case C_OR: case C_XOR: case C_LAND: case C_LOR: case C_R_SHIFT: case C_L_SHIFT: op_2(st,c); break; case C_NEG: case C_NOT: case C_LNOT: op_1num(st,c); break; case C_OP3: op_3(st); break; case C_NOP: st->state=END; break; default: if(battle_config.error_log) ShowError("unknown command : %d @ %d\n",c,pos); st->state=END; break; } if( cmdcount>0 && (--cmdcount)<=0 ){ ShowError("run_script: infinity loop !\n"); report_src(st); st->state=END; } } if(st->sleep.tick > 0) { //Delay execution st->sleep.charid = sd?sd->status.char_id:0; st->sleep.timer = add_timer(gettick()+st->sleep.tick, run_script_timer, st->sleep.charid, (int)st); linkdb_insert(&sleep_db, (void*)st->oid, st); //Restore previous script if (sd) { sd->st = bk_st; sd->npc_id = bk_npcid; bk_st = NULL; //Remove tag for removal. } } else if(st->state != END && sd){ //Resume later (st is already attached to player). if(bk_st) { ShowWarning("Unable to restore stack! Double continuation!\n"); //Report BOTH scripts to see if that can help somehow. ShowDebug("Previous script (lost):\n"); report_src(bk_st); ShowDebug("Current script:\n"); report_src(st); } } else { //Dispose of script. if (sd) { //Restore previous stack and save char. if(sd->state.using_fake_npc){ clif_clearchar_id(sd->npc_id, 0, sd->fd); sd->state.using_fake_npc = 0; } //Restore previous script if any. sd->st = bk_st; sd->npc_id = bk_npcid; if (!bk_st) npc_event_dequeue(sd); else bk_st = NULL; //Remove tag for removal. if (sd->state.reg_dirty&2) intif_saveregistry(sd,2); if (sd->state.reg_dirty&1) intif_saveregistry(sd,1); } st->pos = -1; script_free_stack (st->stack); aFree(st); } if (bk_st) { //Remove previous script bk_st->pos = -1; script_free_stack(bk_st->stack); aFree(bk_st); bk_st = NULL; } } /*========================================== * �}�b�v�ϐ��̕ύX *------------------------------------------ */ int mapreg_setreg(int num,int val) { #if !defined(TXT_ONLY) && defined(MAPREGSQL) int i=num>>24; char *name=str_buf+str_data[num&0x00ffffff].str; char tmp_str[64]; #endif if(val!=0) { if(idb_put(mapreg_db,num,(void*)val)) ; #if !defined(TXT_ONLY) && defined(MAPREGSQL) else if(name[1] != '@') { sprintf(tmp_sql,"INSERT INTO `%s`(`%s`,`%s`,`%s`) VALUES ('%s','%d','%d')",mapregsql_db,mapregsql_db_varname,mapregsql_db_index,mapregsql_db_value,jstrescapecpy(tmp_str,name),i,val); if(mysql_query(&mmysql_handle,tmp_sql)){ ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } #endif } else { // [zBuffer] #if !defined(TXT_ONLY) && defined(MAPREGSQL) if(name[1] != '@') { // Remove from database because it is unused. sprintf(tmp_sql,"DELETE FROM `%s` WHERE `%s`='%s' AND `%s`='%d'",mapregsql_db,mapregsql_db_varname,name,mapregsql_db_index,i); if(mysql_query(&mmysql_handle,tmp_sql)){ ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } #endif idb_remove(mapreg_db,num); } mapreg_dirty=1; return 0; } /*========================================== * ������^�}�b�v�ϐ��̕ύX *------------------------------------------ */ int mapreg_setregstr(int num,const char *str) { char *p; #if !defined(TXT_ONLY) && defined(MAPREGSQL) char tmp_str[64]; char tmp_str2[512]; int i=num>>24; // [zBuffer] char *name=str_buf+str_data[num&0x00ffffff].str; #endif if( str==NULL || *str==0 ){ #if !defined(TXT_ONLY) && defined(MAPREGSQL) if(name[1] != '@') { sprintf(tmp_sql,"DELETE FROM `%s` WHERE `%s`='%s' AND `%s`='%d'",mapregsql_db,mapregsql_db_varname,name,mapregsql_db_index,i); if(mysql_query(&mmysql_handle,tmp_sql)){ ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } #endif idb_remove(mapregstr_db,num); mapreg_dirty=1; return 0; } p=(char *)aMallocA((strlen(str)+1)*sizeof(char)); strcpy(p,str); if (idb_put(mapregstr_db,num,p)) ; #if !defined(TXT_ONLY) && defined(MAPREGSQL) else if(name[1] != '@'){ //put returned null, so we must insert. // Someone is causing a database size infinite increase here without name[1] != '@' [Lance] sprintf(tmp_sql,"INSERT INTO `%s`(`%s`,`%s`,`%s`) VALUES ('%s','%d','%s')",mapregsql_db,mapregsql_db_varname,mapregsql_db_index,mapregsql_db_value,jstrescapecpy(tmp_str,name),i,jstrescapecpy(tmp_str2,p)); if(mysql_query(&mmysql_handle,tmp_sql)){ ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } #endif mapreg_dirty=1; return 0; } /*========================================== * �i���I�}�b�v�ϐ��̓ǂݍ��� *------------------------------------------ */ static int script_load_mapreg(void) { #if defined(TXT_ONLY) || !defined(MAPREGSQL) FILE *fp; char line[1024]; if( (fp=fopen(mapreg_txt,"rt"))==NULL ) return -1; while(fgets(line,sizeof(line),fp)){ char buf1[256],buf2[1024],*p; int n,v,s,i; if( sscanf(line,"%255[^,],%d\t%n",buf1,&i,&n)!=2 && (i=0,sscanf(line,"%[^\t]\t%n",buf1,&n)!=1) ) continue; if( buf1[strlen(buf1)-1]=='$' ){ if( sscanf(line+n,"%[^\n\r]",buf2)!=1 ){ ShowError("%s: %s broken data !\n",mapreg_txt,buf1); continue; } p=(char *)aMallocA((strlen(buf2) + 1)*sizeof(char)); strcpy(p,buf2); s= add_str(buf1); idb_put(mapregstr_db,(i<<24)|s,p); }else{ if( sscanf(line+n,"%d",&v)!=1 ){ ShowError("%s: %s broken data !\n",mapreg_txt,buf1); continue; } s= add_str(buf1); idb_put(mapreg_db,(i<<24)|s,(void*)v); } } fclose(fp); mapreg_dirty=0; return 0; #else // SQL mapreg code start [zBuffer] /* 0 1 2 +-------------------------+ | varname | index | value | +-------------------------+ */ unsigned int perfomance = (unsigned int)time(NULL); sprintf(tmp_sql,"SELECT * FROM `%s`",mapregsql_db); ShowInfo("Querying script_load_mapreg ...\n"); if(mysql_query(&mmysql_handle, tmp_sql) ) { ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); return -1; } ShowInfo("Success! Returning results ...\n"); sql_res = mysql_store_result(&mmysql_handle); if (sql_res) { while ((sql_row = mysql_fetch_row(sql_res))) { char buf1[33], *p = NULL; int i,v,s; strcpy(buf1,sql_row[0]); if( buf1[strlen(buf1)-1]=='$' ){ i = atoi(sql_row[1]); p=(char *)aMallocA((strlen(sql_row[2]) + 1)*sizeof(char)); strcpy(p,sql_row[2]); s= add_str(buf1); idb_put(mapregstr_db,(i<<24)|s,p); }else{ s= add_str(buf1); v= atoi(sql_row[2]); i = atoi(sql_row[1]); idb_put(mapreg_db,(i<<24)|s,(void *)v); } } } ShowInfo("Freeing results...\n"); mysql_free_result(sql_res); mapreg_dirty=0; perfomance = (((unsigned int)time(NULL)) - perfomance); ShowInfo("SQL Mapreg Loading Completed Under %d Seconds.\n",perfomance); return 0; #endif /* TXT_ONLY */ } /*========================================== * �i���I�}�b�v�ϐ��̏������� *------------------------------------------ */ static int script_save_mapreg_intsub(DBKey key,void *data,va_list ap) { #if defined(TXT_ONLY) || !defined(MAPREGSQL) FILE *fp=va_arg(ap,FILE*); int num=key.i&0x00ffffff, i=key.i>>24; char *name=str_buf+str_data[num].str; if( name[1]!='@' ){ if(i==0) fprintf(fp,"%s\t%d\n", name, (int)data); else fprintf(fp,"%s,%d\t%d\n", name, i, (int)data); } return 0; #else int num=key.i&0x00ffffff, i=key.i>>24; // [zBuffer] char *name=str_buf+str_data[num].str; if ( name[1] != '@') { sprintf(tmp_sql,"UPDATE `%s` SET `%s`='%d' WHERE `%s`='%s' AND `%s`='%d'",mapregsql_db,mapregsql_db_value,(int)data,mapregsql_db_varname,name,mapregsql_db_index,i); if(mysql_query(&mmysql_handle, tmp_sql) ) { ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } return 0; #endif } static int script_save_mapreg_strsub(DBKey key,void *data,va_list ap) { #if defined(TXT_ONLY) || !defined(MAPREGSQL) FILE *fp=va_arg(ap,FILE*); int num=key.i&0x00ffffff, i=key.i>>24; char *name=str_buf+str_data[num].str; if( name[1]!='@' ){ if(i==0) fprintf(fp,"%s\t%s\n", name, (char *)data); else fprintf(fp,"%s,%d\t%s\n", name, i, (char *)data); } return 0; #else char tmp_str2[512]; int num=key.i&0x00ffffff, i=key.i>>24; char *name=str_buf+str_data[num].str; if ( name[1] != '@') { sprintf(tmp_sql,"UPDATE `%s` SET `%s`='%s' WHERE `%s`='%s' AND `%s`='%d'",mapregsql_db,mapregsql_db_value,jstrescapecpy(tmp_str2,(char *)data),mapregsql_db_varname,name,mapregsql_db_index,i); if(mysql_query(&mmysql_handle, tmp_sql) ) { ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); } } return 0; #endif } static int script_save_mapreg(void) { #if defined(TXT_ONLY) || !defined(MAPREGSQL) FILE *fp; int lock; if( (fp=lock_fopen(mapreg_txt,&lock))==NULL ) { ShowError("script_save_mapreg: Unable to lock-open file [%s]\n",mapreg_txt); return -1; } mapreg_db->foreach(mapreg_db,script_save_mapreg_intsub,fp); mapregstr_db->foreach(mapregstr_db,script_save_mapreg_strsub,fp); lock_fclose(fp,mapreg_txt,&lock); #else unsigned int perfomance = (unsigned int)time(NULL); mapreg_db->foreach(mapreg_db,script_save_mapreg_intsub); // [zBuffer] mapregstr_db->foreach(mapregstr_db,script_save_mapreg_strsub); perfomance = ((unsigned int)time(NULL) - perfomance); if(perfomance > 2) ShowWarning("Slow Query: MapregSQL Saving @ %d second(s).\n", perfomance); #endif mapreg_dirty=0; return 0; } static int script_autosave_mapreg(int tid,unsigned int tick,int id,int data) { if(mapreg_dirty) if (script_save_mapreg() == -1) ShowError("Failed to save the mapreg data!\n"); return 0; } /*========================================== * *------------------------------------------ */ static int set_posword(char *p) { char* np,* str[15]; int i=0; for(i=0;i<11;i++) { if((np=strchr(p,','))!=NULL) { str[i]=p; *np=0; p=np+1; } else { str[i]=p; p+=strlen(p); } if(str[i]) strcpy(pos[i],str[i]); } return 0; } int script_config_read_sub(char *cfgName) { int i; char line[1024],w1[1024],w2[1024]; FILE *fp; fp=fopen(cfgName,"r"); if(fp==NULL){ ShowError("file not found: [%s]\n", cfgName); return 1; } while(fgets(line,sizeof(line)-1,fp)){ if(line[0] == '/' && line[1] == '/') continue; i=sscanf(line,"%[^:]: %[^\r\n]",w1,w2); if(i!=2) continue; if(strcmpi(w1,"refine_posword")==0) { set_posword(w2); } else if(strcmpi(w1,"verbose_mode")==0) { script_config.verbose_mode = battle_config_switch(w2); } else if(strcmpi(w1,"warn_func_mismatch_paramnum")==0) { script_config.warn_func_mismatch_paramnum = battle_config_switch(w2); } else if(strcmpi(w1,"check_cmdcount")==0) { script_config.check_cmdcount = battle_config_switch(w2); } else if(strcmpi(w1,"check_gotocount")==0) { script_config.check_gotocount = battle_config_switch(w2); } else if(strcmpi(w1,"event_script_type")==0) { script_config.event_script_type = battle_config_switch(w2); } else if(strcmpi(w1,"event_requires_trigger")==0) { script_config.event_requires_trigger = battle_config_switch(w2); } else if(strcmpi(w1,"die_event_name")==0) { strncpy(script_config.die_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.die_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.die_event_name); } else if(strcmpi(w1,"kill_pc_event_name")==0) { strncpy(script_config.kill_pc_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.kill_pc_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.kill_pc_event_name); } else if(strcmpi(w1,"kill_mob_event_name")==0) { strncpy(script_config.kill_mob_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.kill_mob_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.kill_mob_event_name); } else if(strcmpi(w1,"login_event_name")==0) { strncpy(script_config.login_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.login_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.login_event_name); } else if(strcmpi(w1,"logout_event_name")==0) { strncpy(script_config.logout_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.logout_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.logout_event_name); } else if(strcmpi(w1,"loadmap_event_name")==0) { strncpy(script_config.loadmap_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.loadmap_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.loadmap_event_name); } else if(strcmpi(w1,"baselvup_event_name")==0) { strncpy(script_config.baselvup_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.baselvup_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.baselvup_event_name); } else if(strcmpi(w1,"joblvup_event_name")==0) { strncpy(script_config.joblvup_event_name, w2, NAME_LENGTH-1); if (strlen(script_config.joblvup_event_name) != strlen(w2)) ShowWarning("script_config_read: Event label truncated (max length is 23 chars): %d\n", script_config.joblvup_event_name); } else if(strcmpi(w1,"import")==0){ script_config_read_sub(w2); } } fclose(fp); return 0; } int script_config_read(char *cfgName) { //Script related variables should be initialized once! [Skotlex] memset (&script_config, 0, sizeof(script_config)); script_config.verbose_mode = 0; script_config.warn_func_mismatch_paramnum = 1; script_config.check_cmdcount = 65535; script_config.check_gotocount = 2048; script_config.event_script_type = 0; script_config.event_requires_trigger = 1; return script_config_read_sub(cfgName); } static int do_final_userfunc_sub (DBKey key,void *data,va_list ap) { struct script_code *code = (struct script_code *)data; if(code){ script_free_vars( &code->script_vars ); aFree( code->script_buf ); } return 0; } /*========================================== * �I�� *------------------------------------------ */ int do_final_script() { if (battle_config.etc_log) { FILE *fp = fopen("hash_dump.txt","wt"); if(fp) { int i,count[SCRIPT_HASH_SIZE]; int count2[SCRIPT_HASH_SIZE]; // number of buckets with a certain number of items int n=0; int min=INT_MAX,max=0,zero=0; double mean=0.0f; double median=0.0f; ShowNotice("Dumping script str hash information to hash_dump.txt\n"); memset(count, 0, sizeof(count)); fprintf(fp,"num : calced_val -> hash : data_name\n"); fprintf(fp,"---------------------------------------------------------------\n"); for(i=LABEL_START; i<str_num; i++) { unsigned int h2=calc_hash2(str_buf+str_data[i].str); unsigned int h =h2%SCRIPT_HASH_SIZE; fprintf(fp,"%04d: %10u -> %3u : %s\n",i,h2,h,str_buf+str_data[i].str); ++count[h]; } fprintf(fp,"--------------------\n\n"); memset(count2, 0, sizeof(count2)); for(i=0; i<SCRIPT_HASH_SIZE; i++) { fprintf(fp," hash %3d = %d\n",i,count[i]); if(min > count[i]) min = count[i]; // minimun count of collision if(max < count[i]) max = count[i]; // maximun count of collision if(count[i] == 0) zero++; ++count2[count[i]]; } fprintf(fp,"\n--------------------\n items : buckets\n--------------------\n"); for( i=min; i <= max; ++i ){ fprintf(fp," %5d : %7d\n",i,count2[i]); mean += 1.0f*i*count2[i]/SCRIPT_HASH_SIZE; // Note: this will always result in <nr labels>/<nr buckets> } for( i=min; i <= max; ++i ){ n += count2[i]; if( n*2 >= SCRIPT_HASH_SIZE ) { if( SCRIPT_HASH_SIZE%2 == 0 && SCRIPT_HASH_SIZE/2 == n ) median = (i+i+1)/2.0f; else median = i; break; } } fprintf(fp,"--------------------\n min = %d, max = %d, zero = %d\n mean = %lf, median = %lf\n",min,max,zero,mean,median); fclose(fp); } } if(mapreg_dirty>=0) script_save_mapreg(); mapreg_db->destroy(mapreg_db,NULL); mapregstr_db->destroy(mapregstr_db,NULL); scriptlabel_db->destroy(scriptlabel_db,NULL); userfunc_db->destroy(userfunc_db,do_final_userfunc_sub); if(sleep_db) { struct linkdb_node *n = (struct linkdb_node *)sleep_db; while(n) { struct script_state *st = (struct script_state *)n->data; script_free_stack(st->stack); aFree(st); n = n->next; } linkdb_final(&sleep_db); } if (str_data) aFree(str_data); if (str_buf) aFree(str_buf); return 0; } /*========================================== * ������ *------------------------------------------ */ int do_init_script() { mapreg_db= db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_BASE,sizeof(int)); mapregstr_db=db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_RELEASE_DATA,sizeof(int)); userfunc_db=db_alloc(__FILE__,__LINE__,DB_STRING,DB_OPT_RELEASE_BOTH,50); scriptlabel_db=db_alloc(__FILE__,__LINE__,DB_STRING,DB_OPT_DUP_KEY|DB_OPT_ALLOW_NULL_DATA,50); script_load_mapreg(); add_timer_func_list(script_autosave_mapreg,"script_autosave_mapreg"); add_timer_interval(gettick()+MAPREG_AUTOSAVE_INTERVAL, script_autosave_mapreg,0,0,MAPREG_AUTOSAVE_INTERVAL); return 0; } int script_reload() { if(mapreg_dirty>=0) script_save_mapreg(); mapreg_db->clear(mapreg_db, NULL); mapregstr_db->clear(mapregstr_db, NULL); userfunc_db->clear(userfunc_db,do_final_userfunc_sub); scriptlabel_db->clear(scriptlabel_db, NULL); if(sleep_db) { struct linkdb_node *n = (struct linkdb_node *)sleep_db; while(n) { struct script_state *st = (struct script_state *)n->data; if( st->sleep.timer != INVALID_TIMER ) delete_timer(st->sleep.timer, run_script_timer); script_free_stack(st->stack); aFree(st); n = n->next; } linkdb_final(&sleep_db); } script_load_mapreg(); return 0; } int buildin_mes(struct script_state *st); int buildin_goto(struct script_state *st); int buildin_callsub(struct script_state *st); int buildin_callfunc(struct script_state *st); int buildin_return(struct script_state *st); int buildin_getarg(struct script_state *st); int buildin_next(struct script_state *st); int buildin_close(struct script_state *st); int buildin_close2(struct script_state *st); int buildin_menu(struct script_state *st); int buildin_rand(struct script_state *st); int buildin_warp(struct script_state *st); int buildin_areawarp(struct script_state *st); int buildin_warpchar(struct script_state *st); // [LuzZza] int buildin_warpparty(struct script_state *st); //[Fredzilla] int buildin_warpguild(struct script_state *st); //[Fredzilla] int buildin_heal(struct script_state *st); int buildin_itemheal(struct script_state *st); int buildin_percentheal(struct script_state *st); int buildin_jobchange(struct script_state *st); int buildin_jobname(struct script_state *st); int buildin_input(struct script_state *st); int buildin_setlook(struct script_state *st); int buildin_set(struct script_state *st); int buildin_setarray(struct script_state *st); int buildin_cleararray(struct script_state *st); int buildin_copyarray(struct script_state *st); int buildin_getarraysize(struct script_state *st); int buildin_deletearray(struct script_state *st); int buildin_getelementofarray(struct script_state *st); int buildin_getitem(struct script_state *st); int buildin_getitem2(struct script_state *st); int buildin_getnameditem(struct script_state *st); int buildin_grouprandomitem(struct script_state *st); int buildin_makeitem(struct script_state *st); int buildin_delitem(struct script_state *st); int buildin_delitem2(struct script_state *st); int buildin_enableitemuse(struct script_state *st); int buildin_disableitemuse(struct script_state *st); int buildin_viewpoint(struct script_state *st); int buildin_countitem(struct script_state *st); int buildin_countitem2(struct script_state *st); int buildin_checkweight(struct script_state *st); int buildin_readparam(struct script_state *st); int buildin_getcharid(struct script_state *st); int buildin_getpartyname(struct script_state *st); int buildin_getpartymember(struct script_state *st); int buildin_getpartyleader(struct script_state *st); int buildin_getguildname(struct script_state *st); int buildin_getguildmaster(struct script_state *st); int buildin_getguildmasterid(struct script_state *st); int buildin_strcharinfo(struct script_state *st); int buildin_getequipid(struct script_state *st); int buildin_getequipname(struct script_state *st); int buildin_getbrokenid(struct script_state *st); // [Valaris] int buildin_repair(struct script_state *st); // [Valaris] int buildin_getequipisequiped(struct script_state *st); int buildin_getequipisenableref(struct script_state *st); int buildin_getequipisidentify(struct script_state *st); int buildin_getequiprefinerycnt(struct script_state *st); int buildin_getequipweaponlv(struct script_state *st); int buildin_getequippercentrefinery(struct script_state *st); int buildin_successrefitem(struct script_state *st); int buildin_failedrefitem(struct script_state *st); int buildin_cutin(struct script_state *st); int buildin_cutincard(struct script_state *st); int buildin_statusup(struct script_state *st); int buildin_statusup2(struct script_state *st); int buildin_bonus(struct script_state *st); int buildin_bonus2(struct script_state *st); int buildin_bonus3(struct script_state *st); int buildin_bonus4(struct script_state *st); int buildin_skill(struct script_state *st); int buildin_addtoskill(struct script_state *st); // [Valaris] int buildin_guildskill(struct script_state *st); int buildin_getskilllv(struct script_state *st); int buildin_getgdskilllv(struct script_state *st); int buildin_basicskillcheck(struct script_state *st); int buildin_getgmlevel(struct script_state *st); int buildin_end(struct script_state *st); int buildin_checkoption(struct script_state *st); int buildin_setoption(struct script_state *st); int buildin_setcart(struct script_state *st); int buildin_checkcart(struct script_state *st); // check cart [Valaris] int buildin_setfalcon(struct script_state *st); int buildin_checkfalcon(struct script_state *st); // check falcon [Valaris] int buildin_setriding(struct script_state *st); int buildin_checkriding(struct script_state *st); // check for pecopeco [Valaris] int buildin_savepoint(struct script_state *st); int buildin_gettimetick(struct script_state *st); int buildin_gettime(struct script_state *st); int buildin_gettimestr(struct script_state *st); int buildin_openstorage(struct script_state *st); int buildin_guildopenstorage(struct script_state *st); int buildin_itemskill(struct script_state *st); int buildin_produce(struct script_state *st); int buildin_monster(struct script_state *st); int buildin_areamonster(struct script_state *st); int buildin_killmonster(struct script_state *st); int buildin_killmonsterall(struct script_state *st); int buildin_clone(struct script_state *st); int buildin_doevent(struct script_state *st); int buildin_donpcevent(struct script_state *st); int buildin_addtimer(struct script_state *st); int buildin_deltimer(struct script_state *st); int buildin_addtimercount(struct script_state *st); int buildin_initnpctimer(struct script_state *st); int buildin_stopnpctimer(struct script_state *st); int buildin_startnpctimer(struct script_state *st); int buildin_setnpctimer(struct script_state *st); int buildin_getnpctimer(struct script_state *st); int buildin_attachnpctimer(struct script_state *st); // [celest] int buildin_detachnpctimer(struct script_state *st); // [celest] int buildin_playerattached(struct script_state *st); // [Skotlex] int buildin_announce(struct script_state *st); int buildin_mapannounce(struct script_state *st); int buildin_areaannounce(struct script_state *st); int buildin_getusers(struct script_state *st); int buildin_getmapguildusers(struct script_state *st); int buildin_getmapusers(struct script_state *st); int buildin_getareausers(struct script_state *st); int buildin_getareadropitem(struct script_state *st); int buildin_enablenpc(struct script_state *st); int buildin_disablenpc(struct script_state *st); int buildin_enablearena(struct script_state *st); // Added by RoVeRT int buildin_disablearena(struct script_state *st); // Added by RoVeRT int buildin_hideoffnpc(struct script_state *st); int buildin_hideonnpc(struct script_state *st); int buildin_sc_start(struct script_state *st); int buildin_sc_start2(struct script_state *st); int buildin_sc_start4(struct script_state *st); int buildin_sc_end(struct script_state *st); int buildin_getscrate(struct script_state *st); int buildin_debugmes(struct script_state *st); int buildin_catchpet(struct script_state *st); int buildin_birthpet(struct script_state *st); int buildin_resetlvl(struct script_state *st); int buildin_resetstatus(struct script_state *st); int buildin_resetskill(struct script_state *st); int buildin_skillpointcount(struct script_state *st); int buildin_changebase(struct script_state *st); int buildin_changesex(struct script_state *st); int buildin_waitingroom(struct script_state *st); int buildin_delwaitingroom(struct script_state *st); int buildin_waitingroomkickall(struct script_state *st); int buildin_enablewaitingroomevent(struct script_state *st); int buildin_disablewaitingroomevent(struct script_state *st); int buildin_getwaitingroomstate(struct script_state *st); int buildin_warpwaitingpc(struct script_state *st); int buildin_attachrid(struct script_state *st); int buildin_detachrid(struct script_state *st); int buildin_isloggedin(struct script_state *st); int buildin_setmapflagnosave(struct script_state *st); int buildin_setmapflag(struct script_state *st); int buildin_removemapflag(struct script_state *st); int buildin_pvpon(struct script_state *st); int buildin_pvpoff(struct script_state *st); int buildin_gvgon(struct script_state *st); int buildin_gvgoff(struct script_state *st); int buildin_emotion(struct script_state *st); int buildin_maprespawnguildid(struct script_state *st); int buildin_agitstart(struct script_state *st); // <Agit> int buildin_agitend(struct script_state *st); int buildin_agitcheck(struct script_state *st); // <Agitcheck> int buildin_flagemblem(struct script_state *st); // Flag Emblem int buildin_getcastlename(struct script_state *st); int buildin_getcastledata(struct script_state *st); int buildin_setcastledata(struct script_state *st); int buildin_requestguildinfo(struct script_state *st); int buildin_getequipcardcnt(struct script_state *st); int buildin_successremovecards(struct script_state *st); int buildin_failedremovecards(struct script_state *st); int buildin_marriage(struct script_state *st); int buildin_wedding_effect(struct script_state *st); int buildin_divorce(struct script_state *st); int buildin_ispartneron(struct script_state *st); // MouseJstr int buildin_getpartnerid(struct script_state *st); // MouseJstr int buildin_getchildid(struct script_state *st); // Skotlex int buildin_getmotherid(struct script_state *st); // Lupus int buildin_getfatherid(struct script_state *st); // Lupus int buildin_warppartner(struct script_state *st); // MouseJstr int buildin_getitemname(struct script_state *st); int buildin_getitemslots(struct script_state *st); int buildin_makepet(struct script_state *st); int buildin_getexp(struct script_state *st); int buildin_getinventorylist(struct script_state *st); int buildin_getskilllist(struct script_state *st); int buildin_clearitem(struct script_state *st); int buildin_classchange(struct script_state *st); int buildin_misceffect(struct script_state *st); int buildin_soundeffect(struct script_state *st); int buildin_soundeffectall(struct script_state *st); int buildin_setcastledata(struct script_state *st); int buildin_mapwarp(struct script_state *st); int buildin_inittimer(struct script_state *st); int buildin_stoptimer(struct script_state *st); int buildin_cmdothernpc(struct script_state *st); int buildin_mobcount(struct script_state *st); int buildin_strmobinfo(struct script_state *st); // Script for displaying mob info [Valaris] int buildin_guardian(struct script_state *st); // Script for displaying mob info [Valaris] int buildin_guardianinfo(struct script_state *st); // Script for displaying mob info [Valaris] int buildin_petskillbonus(struct script_state *st); // petskillbonus [Valaris] int buildin_petrecovery(struct script_state *st); // pet skill for curing status [Valaris] int buildin_petloot(struct script_state *st); // pet looting [Valaris] int buildin_petheal(struct script_state *st); // pet healing [Valaris] //int buildin_petmag(struct script_state *st); // pet magnificat [Valaris] int buildin_petskillattack(struct script_state *st); // pet skill attacks [Skotlex] int buildin_petskillattack2(struct script_state *st); // pet skill attacks [Skotlex] int buildin_petskillsupport(struct script_state *st); // pet support skill [Valaris] int buildin_skilleffect(struct script_state *st); // skill effects [Celest] int buildin_npcskilleffect(struct script_state *st); // skill effects for npcs [Valaris] int buildin_specialeffect(struct script_state *st); // special effect script [Valaris] int buildin_specialeffect2(struct script_state *st); // special effect script [Valaris] int buildin_nude(struct script_state *st); // nude [Valaris] int buildin_atcommand(struct script_state *st); // [MouseJstr] int buildin_charcommand(struct script_state *st); // [MouseJstr] int buildin_movenpc(struct script_state *st); // [MouseJstr] int buildin_message(struct script_state *st); // [MouseJstr] int buildin_npctalk(struct script_state *st); // [Valaris] int buildin_hasitems(struct script_state *st); // [Valaris] int buildin_getlook(struct script_state *st); //Lorky [Lupus] int buildin_getsavepoint(struct script_state *st); //Lorky [Lupus] int buildin_npcspeed(struct script_state *st); // [Valaris] int buildin_npcwalkto(struct script_state *st); // [Valaris] int buildin_npcstop(struct script_state *st); // [Valaris] int buildin_getmapxy(struct script_state *st); //get map position for player/npc/pet/mob by Lorky [Lupus] int buildin_checkoption1(struct script_state *st); // [celest] int buildin_checkoption2(struct script_state *st); // [celest] int buildin_guildgetexp(struct script_state *st); // [celest] int buildin_guildchangegm(struct script_state *st); // [Skotlex] int buildin_logmes(struct script_state *st); // [Lupus] int buildin_summon(struct script_state *st); // [celest] int buildin_isnight(struct script_state *st); // [celest] int buildin_isday(struct script_state *st); // [celest] int buildin_isequipped(struct script_state *st); // [celest] int buildin_isequippedcnt(struct script_state *st); // [celest] int buildin_cardscnt(struct script_state *st); // [Lupus] int buildin_getrefine(struct script_state *st); // [celest] int buildin_adopt(struct script_state *st); int buildin_night(struct script_state *st); int buildin_day(struct script_state *st); int buildin_getusersname(struct script_state *st); //jA commands added [Lupus] int buildin_dispbottom(struct script_state *st); int buildin_recovery(struct script_state *st); int buildin_getpetinfo(struct script_state *st); int buildin_checkequipedcard(struct script_state *st); int buildin_globalmes(struct script_state *st); int buildin_jump_zero(struct script_state *st); int buildin_select(struct script_state *st); int buildin_prompt(struct script_state *st); int buildin_getmapmobs(struct script_state *st); //jA addition end int buildin_unequip(struct script_state *st); // unequip [Spectre] int buildin_getstrlen(struct script_state *st); //strlen [valaris] int buildin_charisalpha(struct script_state *st);//isalpha [valaris] int buildin_fakenpcname(struct script_state *st); // [Lance] int buildin_compare(struct script_state *st); // Lordalfa, to bring strstr to Scripting Engine int buildin_getiteminfo(struct script_state *st); //[Lupus] returns Items Buy / sell Price, etc info int buildin_getequipcardid(struct script_state *st); //[Lupus] returns card id from quipped item card slot N // [zBuffer] List of mathematics commands ---> int buildin_sqrt(struct script_state *st); int buildin_pow(struct script_state *st); int buildin_distance(struct script_state *st); int buildin_checkcell(struct script_state *st); // <--- [zBuffer] List of mathematics commands // [zBuffer] List of dynamic var commands ---> int buildin_getd(struct script_state *st); int buildin_setd(struct script_state *st); // <--- [zBuffer] List of dynamic var commands int buildin_petstat(struct script_state *st); // [Lance] Pet Stat Rq: Dubby int buildin_callshop(struct script_state *st); // [Skotlex] int buildin_npcshopitem(struct script_state *st); // [Lance] int buildin_npcshopadditem(struct script_state *st); int buildin_npcshopdelitem(struct script_state *st); int buildin_equip(struct script_state *st); int buildin_autoequip(struct script_state *st); int buildin_setbattleflag(struct script_state *st); int buildin_getbattleflag(struct script_state *st); int buildin_query_sql(struct script_state *st); int buildin_escape_sql(struct script_state *st); int buildin_atoi(struct script_state *st); int buildin_axtoi(struct script_state *st); // [zBuffer] List of player cont commands ---> int buildin_rid2name(struct script_state *st); int buildin_pcfollow(struct script_state *st); int buildin_pcstopfollow(struct script_state *st); int buildin_pcblockmove(struct script_state *st); // <--- [zBuffer] List of player cont commands // [zBuffer] List of mob control commands ---> int buildin_mobspawn(struct script_state *st); int buildin_mobremove(struct script_state *st); int buildin_getmobdata(struct script_state *st); int buildin_setmobdata(struct script_state *st); int buildin_mobassist(struct script_state *st); int buildin_mobattach(struct script_state *st); int buildin_unitwalk(struct script_state *st); int buildin_unitkill(struct script_state *st); int buildin_unitwarp(struct script_state *st); int buildin_unitattack(struct script_state *st); int buildin_unitstop(struct script_state *st); int buildin_unittalk(struct script_state *st); int buildin_unitemote(struct script_state *st); int buildin_unitdeadsit(struct script_state *st); int buildin_unitskilluseid(struct script_state *st); // originally by Qamera [celest] int buildin_unitskillusepos(struct script_state *st); // originally by Qamera [celest] // <--- [zBuffer] List of mob control commands int buildin_sleep(struct script_state *st); int buildin_sleep2(struct script_state *st); int buildin_awake(struct script_state *st); int buildin_getvariableofnpc(struct script_state *st); // [blackhole89] --> int buildin_warpportal(struct script_state *st); // <-- [blackhole89] int buildin_homunculus_evolution(struct script_state *st) ; //[orn] int buildin_eaclass(struct script_state *st); int buildin_roclass(struct script_state *st); int buildin_setitemscript(struct script_state *st); int buildin_disguise(struct script_state *st); int buildin_undisguise(struct script_state *st); int buildin_getmonsterinfo(struct script_state *st); // [Lupus] int buildin_checkvending(struct script_state *st); // check vending [Nab4] int buildin_checkchatting(struct script_state *st); // check chatting [Marka] #ifdef PCRE_SUPPORT int buildin_defpattern(struct script_state *st); // MouseJstr int buildin_activatepset(struct script_state *st); // MouseJstr int buildin_deactivatepset(struct script_state *st); // MouseJstr int buildin_deletepset(struct script_state *st); // MouseJstr #endif struct script_function buildin_func[] = { {buildin_mes,"mes","s"}, {buildin_next,"next",""}, {buildin_close,"close",""}, {buildin_close2,"close2",""}, {buildin_menu,"menu","*"}, {buildin_goto,"goto","l"}, {buildin_callsub,"callsub","i*"}, {buildin_callfunc,"callfunc","s*"}, {buildin_return,"return","*"}, {buildin_getarg,"getarg","i"}, {buildin_jobchange,"jobchange","i*"}, {buildin_jobname,"jobname","i"}, {buildin_input,"input","*"}, {buildin_warp,"warp","sii"}, {buildin_areawarp,"areawarp","siiiisii"}, {buildin_warpchar,"warpchar","siii"}, // [LuzZza] {buildin_warpparty,"warpparty","siii"}, // [Fredzilla] {buildin_warpguild,"warpguild","siii"}, // [Fredzilla] {buildin_setlook,"setlook","ii"}, {buildin_set,"set","ii"}, {buildin_setarray,"setarray","ii*"}, {buildin_cleararray,"cleararray","iii"}, {buildin_copyarray,"copyarray","iii"}, {buildin_getarraysize,"getarraysize","i"}, {buildin_deletearray,"deletearray","ii"}, {buildin_getelementofarray,"getelementofarray","ii"}, {buildin_getitem,"getitem","vi?"}, {buildin_getitem2,"getitem2","iiiiiiiii*"}, {buildin_getnameditem,"getnameditem","is"}, {buildin_grouprandomitem,"groupranditem","i"}, {buildin_makeitem,"makeitem","iisii"}, {buildin_delitem,"delitem","ii"}, {buildin_delitem2,"delitem2","iiiiiiiii"}, {buildin_enableitemuse,"enable_items",""}, {buildin_disableitemuse,"disable_items",""}, {buildin_cutin,"cutin","si"}, {buildin_cutincard,"cutincard","i"}, {buildin_viewpoint,"viewpoint","iiiii"}, {buildin_heal,"heal","ii"}, {buildin_itemheal,"itemheal","ii"}, {buildin_percentheal,"percentheal","ii"}, {buildin_rand,"rand","i*"}, {buildin_countitem,"countitem","i"}, {buildin_countitem2,"countitem2","iiiiiiii"}, {buildin_checkweight,"checkweight","ii"}, {buildin_readparam,"readparam","i*"}, {buildin_getcharid,"getcharid","i*"}, {buildin_getpartyname,"getpartyname","i"}, {buildin_getpartymember,"getpartymember","i*"}, {buildin_getpartyleader,"getpartyleader","i*"}, {buildin_getguildname,"getguildname","i"}, {buildin_getguildmaster,"getguildmaster","i"}, {buildin_getguildmasterid,"getguildmasterid","i"}, {buildin_strcharinfo,"strcharinfo","i"}, {buildin_getequipid,"getequipid","i"}, {buildin_getequipname,"getequipname","i"}, {buildin_getbrokenid,"getbrokenid","i"}, // [Valaris] {buildin_repair,"repair","i"}, // [Valaris] {buildin_getequipisequiped,"getequipisequiped","i"}, {buildin_getequipisenableref,"getequipisenableref","i"}, {buildin_getequipisidentify,"getequipisidentify","i"}, {buildin_getequiprefinerycnt,"getequiprefinerycnt","i"}, {buildin_getequipweaponlv,"getequipweaponlv","i"}, {buildin_getequippercentrefinery,"getequippercentrefinery","i"}, {buildin_successrefitem,"successrefitem","i"}, {buildin_failedrefitem,"failedrefitem","i"}, {buildin_statusup,"statusup","i"}, {buildin_statusup2,"statusup2","ii"}, {buildin_bonus,"bonus","ii"}, {buildin_bonus,"bonus2","iii"}, {buildin_bonus,"bonus3","iiii"}, {buildin_bonus,"bonus4","iiiii"}, {buildin_skill,"skill","ii?"}, {buildin_addtoskill,"addtoskill","ii?"}, // [Valaris] {buildin_guildskill,"guildskill","ii"}, {buildin_getskilllv,"getskilllv","i"}, {buildin_getgdskilllv,"getgdskilllv","ii"}, {buildin_basicskillcheck,"basicskillcheck",""}, {buildin_getgmlevel,"getgmlevel",""}, {buildin_end,"end",""}, // {buildin_end,"break",""}, this might confuse advanced scripting support [Eoe] {buildin_checkoption,"checkoption","i"}, {buildin_setoption,"setoption","i?"}, {buildin_setcart,"setcart","?"}, {buildin_checkcart,"checkcart",""}, {buildin_setfalcon,"setfalcon","?"}, {buildin_checkfalcon,"checkfalcon",""}, {buildin_setriding,"setriding","?"}, {buildin_checkriding,"checkriding",""}, {buildin_savepoint,"save","sii"}, {buildin_savepoint,"savepoint","sii"}, {buildin_gettimetick,"gettimetick","i"}, {buildin_gettime,"gettime","i"}, {buildin_gettimestr,"gettimestr","si"}, {buildin_openstorage,"openstorage",""}, {buildin_guildopenstorage,"guildopenstorage","*"}, {buildin_itemskill,"itemskill","iis"}, {buildin_produce,"produce","i"}, {buildin_monster,"monster","siisii*"}, {buildin_areamonster,"areamonster","siiiisii*"}, {buildin_killmonster,"killmonster","ss"}, {buildin_killmonsterall,"killmonsterall","s"}, {buildin_clone,"clone","siisi*"}, {buildin_doevent,"doevent","s"}, {buildin_donpcevent,"donpcevent","s"}, {buildin_addtimer,"addtimer","is"}, {buildin_deltimer,"deltimer","s"}, {buildin_addtimercount,"addtimercount","si"}, {buildin_initnpctimer,"initnpctimer","*"}, {buildin_stopnpctimer,"stopnpctimer","*"}, {buildin_startnpctimer,"startnpctimer","*"}, {buildin_setnpctimer,"setnpctimer","*"}, {buildin_getnpctimer,"getnpctimer","i*"}, {buildin_attachnpctimer,"attachnpctimer","*"}, // attached the player id to the npc timer [Celest] {buildin_detachnpctimer,"detachnpctimer","*"}, // detached the player id from the npc timer [Celest] {buildin_playerattached,"playerattached",""}, // returns id of the current attached player. [Skotlex] {buildin_announce,"announce","si*"}, {buildin_mapannounce,"mapannounce","ssi*"}, {buildin_areaannounce,"areaannounce","siiiisi*"}, {buildin_getusers,"getusers","i"}, {buildin_getmapguildusers,"getmapguildusers","si"}, {buildin_getmapusers,"getmapusers","s"}, {buildin_getareausers,"getareausers","siiii"}, {buildin_getareadropitem,"getareadropitem","siiiii"}, {buildin_enablenpc,"enablenpc","s"}, {buildin_disablenpc,"disablenpc","s"}, {buildin_enablearena,"enablearena",""}, // Added by RoVeRT {buildin_disablearena,"disablearena",""}, // Added by RoVeRT {buildin_hideoffnpc,"hideoffnpc","s"}, {buildin_hideonnpc,"hideonnpc","s"}, {buildin_sc_start,"sc_start","iii*"}, {buildin_sc_start2,"sc_start2","iiii*"}, {buildin_sc_start4,"sc_start4","iiiiii*"}, {buildin_sc_end,"sc_end","i"}, {buildin_getscrate,"getscrate","ii*"}, {buildin_debugmes,"debugmes","s"}, {buildin_catchpet,"pet","i"}, {buildin_birthpet,"bpet",""}, {buildin_resetlvl,"resetlvl","i"}, {buildin_resetstatus,"resetstatus",""}, {buildin_resetskill,"resetskill",""}, {buildin_skillpointcount,"skillpointcount",""}, {buildin_changebase,"changebase","i"}, {buildin_changesex,"changesex",""}, {buildin_waitingroom,"waitingroom","si*"}, {buildin_warpwaitingpc,"warpwaitingpc","sii"}, {buildin_delwaitingroom,"delwaitingroom","*"}, {buildin_waitingroomkickall,"kickwaitingroomall","*"}, {buildin_enablewaitingroomevent,"enablewaitingroomevent","*"}, {buildin_disablewaitingroomevent,"disablewaitingroomevent","*"}, {buildin_getwaitingroomstate,"getwaitingroomstate","i*"}, {buildin_warpwaitingpc,"warpwaitingpc","sii*"}, {buildin_attachrid,"attachrid","i"}, {buildin_detachrid,"detachrid",""}, {buildin_isloggedin,"isloggedin","i"}, {buildin_setmapflagnosave,"setmapflagnosave","ssii"}, {buildin_setmapflag,"setmapflag","si*"}, {buildin_removemapflag,"removemapflag","si"}, {buildin_pvpon,"pvpon","s"}, {buildin_pvpoff,"pvpoff","s"}, {buildin_gvgon,"gvgon","s"}, {buildin_gvgoff,"gvgoff","s"}, {buildin_emotion,"emotion","i*"}, {buildin_maprespawnguildid,"maprespawnguildid","sii"}, {buildin_agitstart,"agitstart",""}, // <Agit> {buildin_agitend,"agitend",""}, {buildin_agitcheck,"agitcheck",""}, // <Agitcheck> {buildin_flagemblem,"flagemblem","i"}, // Flag Emblem {buildin_getcastlename,"getcastlename","s"}, {buildin_getcastledata,"getcastledata","si*"}, {buildin_setcastledata,"setcastledata","sii"}, {buildin_requestguildinfo,"requestguildinfo","i*"}, {buildin_getequipcardcnt,"getequipcardcnt","i"}, {buildin_successremovecards,"successremovecards","i"}, {buildin_failedremovecards,"failedremovecards","ii"}, {buildin_marriage,"marriage","s"}, {buildin_wedding_effect,"wedding",""}, {buildin_divorce,"divorce",""}, {buildin_ispartneron,"ispartneron",""}, {buildin_getpartnerid,"getpartnerid",""}, {buildin_getchildid,"getchildid",""}, {buildin_getmotherid,"getmotherid",""}, {buildin_getfatherid,"getfatherid",""}, {buildin_warppartner,"warppartner","sii"}, {buildin_getitemname,"getitemname","i"}, {buildin_getitemslots,"getitemslots","i"}, {buildin_makepet,"makepet","i"}, {buildin_getexp,"getexp","ii"}, {buildin_getinventorylist,"getinventorylist",""}, {buildin_getskilllist,"getskilllist",""}, {buildin_clearitem,"clearitem",""}, {buildin_classchange,"classchange","ii"}, {buildin_misceffect,"misceffect","i"}, {buildin_soundeffect,"soundeffect","si"}, {buildin_soundeffectall,"soundeffectall","si*"}, // SoundEffectAll [Codemaster] {buildin_strmobinfo,"strmobinfo","ii"}, // display mob data [Valaris] {buildin_guardian,"guardian","siisii??"}, // summon guardians {buildin_guardianinfo,"guardianinfo","i"}, // display guardian data [Valaris] {buildin_petskillbonus,"petskillbonus","iiii"}, // [Valaris] {buildin_petrecovery,"petrecovery","ii"}, // [Valaris] {buildin_petloot,"petloot","i"}, // [Valaris] {buildin_petheal,"petheal","iiii"}, // [Valaris] // {buildin_petmag,"petmag","iiii"}, // [Valaris] {buildin_petskillattack,"petskillattack","iiii"}, // [Skotlex] {buildin_petskillattack2,"petskillattack2","iiiii"}, // [Valaris] {buildin_petskillsupport,"petskillsupport","iiiii"}, // [Skotlex] {buildin_skilleffect,"skilleffect","ii"}, // skill effect [Celest] {buildin_npcskilleffect,"npcskilleffect","iiii"}, // npc skill effect [Valaris] {buildin_specialeffect,"specialeffect","i*"}, // npc skill effect [Valaris] {buildin_specialeffect2,"specialeffect2","i*"}, // skill effect on players[Valaris] {buildin_nude,"nude",""}, // nude command [Valaris] {buildin_mapwarp,"mapwarp","ssii*"}, // Added by RoVeRT {buildin_inittimer,"inittimer",""}, {buildin_stoptimer,"stoptimer",""}, {buildin_cmdothernpc,"cmdothernpc","ss"}, {buildin_atcommand,"atcommand","*"}, // [MouseJstr] {buildin_charcommand,"charcommand","*"}, // [MouseJstr] {buildin_movenpc,"movenpc","sii"}, // [MouseJstr] {buildin_message,"message","s*"}, // [MouseJstr] {buildin_npctalk,"npctalk","*"}, // [Valaris] {buildin_hasitems,"hasitems","*"}, // [Valaris] {buildin_mobcount,"mobcount","ss"}, {buildin_getlook,"getlook","i"}, {buildin_getsavepoint,"getsavepoint","i"}, {buildin_npcspeed,"npcspeed","i"}, // [Valaris] {buildin_npcwalkto,"npcwalkto","ii"}, // [Valaris] {buildin_npcstop,"npcstop",""}, // [Valaris] {buildin_getmapxy,"getmapxy","siii*"}, //by Lorky [Lupus] {buildin_checkoption1,"checkoption1","i"}, {buildin_checkoption2,"checkoption2","i"}, {buildin_guildgetexp,"guildgetexp","i"}, {buildin_guildchangegm,"guildchangegm","is"}, {buildin_logmes,"logmes","s"}, //this command actls as MES but rints info into LOG file either SQL/TXT [Lupus] {buildin_summon,"summon","si*"}, // summons a slave monster [Celest] {buildin_isnight,"isnight",""}, // check whether it is night time [Celest] {buildin_isday,"isday",""}, // check whether it is day time [Celest] {buildin_isequipped,"isequipped","i*"}, // check whether another item/card has been equipped [Celest] {buildin_isequippedcnt,"isequippedcnt","i*"}, // check how many items/cards are being equipped [Celest] {buildin_cardscnt,"cardscnt","i*"}, // check how many items/cards are being equipped in the same arm [Lupus] {buildin_getrefine,"getrefine","*"}, // returns the refined number of the current item, or an item with index specified [celest] {buildin_adopt,"adopt","sss"}, // allows 2 parents to adopt a child {buildin_night,"night",""}, // sets the server to night time {buildin_day,"day",""}, // sets the server to day time #ifdef PCRE_SUPPORT {buildin_defpattern, "defpattern", "iss"}, // Define pattern to listen for [MouseJstr] {buildin_activatepset, "activatepset", "i"}, // Activate a pattern set [MouseJstr] {buildin_deactivatepset, "deactivatepset", "i"}, // Deactive a pattern set [MouseJstr] {buildin_deletepset, "deletepset", "i"}, // Delete a pattern set [MouseJstr] #endif {buildin_dispbottom,"dispbottom","s"}, //added from jA [Lupus] {buildin_getusersname,"getusersname","*"}, {buildin_recovery,"recovery",""}, {buildin_getpetinfo,"getpetinfo","i"}, {buildin_checkequipedcard,"checkequipedcard","i"}, {buildin_jump_zero,"jump_zero","ii"}, //for future jA script compatibility {buildin_select,"select","*"}, //for future jA script compatibility {buildin_prompt,"prompt","*"}, {buildin_globalmes,"globalmes","s*"}, {buildin_getmapmobs,"getmapmobs","s"}, //end jA addition {buildin_unequip,"unequip","i"}, // unequip command [Spectre] {buildin_getstrlen,"getstrlen","s"}, //strlen [Valaris] {buildin_charisalpha,"charisalpha","si"}, //isalpha [Valaris] {buildin_fakenpcname,"fakenpcname","ssi"}, // [Lance] {buildin_compare,"compare","ss"}, // Lordalfa - To bring strstr to scripting Engine. {buildin_getiteminfo,"getiteminfo","ii"}, //[Lupus] returns Items Buy / sell Price, etc info {buildin_getequipcardid,"getequipcardid","ii"}, //[Lupus] returns CARD ID or other info from CARD slot N of equipped item // [zBuffer] List of mathematics commands ---> {buildin_sqrt,"sqrt","i"}, {buildin_pow,"pow","ii"}, {buildin_distance,"distance","iiii"}, {buildin_checkcell,"checkcell","siii"}, // <--- [zBuffer] List of mathematics commands // [zBuffer] List of dynamic var commands ---> {buildin_getd,"getd","*"}, {buildin_setd,"setd","*"}, // <--- [zBuffer] List of dynamic var commands {buildin_petstat,"petstat","i"}, {buildin_callshop,"callshop","si"}, // [Skotlex] {buildin_npcshopitem,"npcshopitem","sii*"}, // [Lance] {buildin_npcshopadditem,"npcshopadditem","sii*"}, {buildin_npcshopdelitem,"npcshopdelitem","si*"}, {buildin_equip,"equip","i"}, {buildin_autoequip,"autoequip","ii"}, {buildin_setbattleflag,"setbattleflag","ss"}, {buildin_getbattleflag,"getbattleflag","s"}, {buildin_setitemscript,"setitemscript","is"}, //Set NEW item bonus script. Lupus {buildin_disguise,"disguise","i"}, //disguise player. Lupus {buildin_undisguise,"undisguise","*"}, //undisguise player. Lupus {buildin_getmonsterinfo,"getmonsterinfo","ii"}, //Lupus {buildin_axtoi,"axtoi","s"}, {buildin_query_sql, "query_sql", "s*"}, {buildin_escape_sql, "escape_sql", "s"}, {buildin_atoi,"atoi","s"}, // [zBuffer] List of player cont commands ---> {buildin_rid2name,"rid2name","i"}, {buildin_pcfollow,"pcfollow","ii"}, {buildin_pcstopfollow,"pcstopfollow","i"}, {buildin_pcblockmove,"pcblockmove","ii"}, // <--- [zBuffer] List of player cont commands // [zBuffer] List of mob control commands ---> {buildin_mobspawn,"mobspawn","*"}, {buildin_mobremove,"mobremove","i"}, {buildin_getmobdata,"getmobdata","i*"}, {buildin_setmobdata,"setmobdata","iii"}, {buildin_mobassist,"mobassist","i*"}, {buildin_mobattach,"mobattach","i*"}, {buildin_unitwalk,"unitwalk","i*"}, {buildin_unitkill,"unitkill","i"}, {buildin_unitwarp,"unitwarp","isii"}, {buildin_unitattack,"unitattack","i*"}, {buildin_unitstop,"unitstop","i"}, {buildin_unittalk,"unittalk","is"}, {buildin_unitemote,"unitemote","ii"}, {buildin_unitdeadsit,"unitdeadsit","ii"}, {buildin_unitskilluseid,"unitskilluseid","iii*"}, // originally by Qamera [Celest] {buildin_unitskillusepos,"unitskillusepos","iiiii"}, // [Celest] // <--- [zBuffer] List of mob control commands {buildin_sleep,"sleep","i"}, {buildin_sleep2,"sleep2","i"}, {buildin_awake,"awake","s"}, {buildin_getvariableofnpc,"getvariableofnpc","is"}, // [blackhole89] --> {buildin_warpportal,"warpportal","iisii"}, // <--- [blackhole89] {buildin_homunculus_evolution,"homevolution",""}, //[orn] {buildin_eaclass,"eaclass","*"}, //[Skotlex] {buildin_roclass,"roclass","i*"}, //[Skotlex] {buildin_checkvending,"checkvending","*"}, {buildin_checkchatting,"checkchatting","*"}, {NULL,NULL,NULL}, }; /*========================================== * *------------------------------------------ */ int buildin_mes(struct script_state *st) { struct map_session_data *sd = script_rid2sd(st); char *mes = conv_str(st, &(st->stack->stack_data[st->start+2])); if (sd) clif_scriptmes(sd, st->oid, mes); return 0; } /*========================================== * *------------------------------------------ */ int buildin_goto(struct script_state *st) { int pos; if( st->stack->stack_data[st->start+2].type!=C_POS){ ShowMessage("script: goto: not label!\n"); st->state=END; return 1; } pos=conv_num(st,& (st->stack->stack_data[st->start+2])); st->pos=pos; st->state=GOTO; return 0; } /*========================================== * ���[�U�[��`���̌Ăяo�� *------------------------------------------ */ int buildin_callfunc(struct script_state *st) { struct script_code *scr, *oldscr; char *str=conv_str(st,& (st->stack->stack_data[st->start+2])); if( (scr=strdb_get(userfunc_db,str)) ){ int i,j; struct linkdb_node **oldval = st->stack->var_function; for(i=st->start+3,j=0;i<st->end;i++,j++) push_copy(st->stack,i); push_val(st->stack,C_INT,j); // �����̐����v�b�V�� push_val(st->stack,C_INT,st->stack->defsp); // ���݂̊�X�^�b�N�|�C���^���v�b�V�� push_val(st->stack,C_INT,(int)st->script); // ���݂̃X�N���v�g���v�b�V�� push_val(st->stack,C_INT,(int)st->stack->var_function); // ���݂̊��ˑ��ϐ����v�b�V�� push_val(st->stack,C_RETINFO,st->pos); // ���݂̃X�N���v�g�ʒu���v�b�V�� oldscr = st->script; st->pos=0; st->script=scr; st->stack->defsp=st->start+5+j; st->state=GOTO; st->stack->var_function = (struct linkdb_node**)aCalloc(1, sizeof(struct linkdb_node*)); // ' �ϐ��̈����p�� for(i = 0; i < j; i++) { struct script_data *s = &st->stack->stack_data[st->stack->sp-6-i]; if( s->type == C_NAME && !s->ref ) { char *name = str_buf+str_data[s->u.num&0x00ffffff].str; // '@ �ϐ��̈����p�� if( name[0] == '.' && name[1] == '@' ) { s->ref = oldval; } else if( name[0] == '.' ) { s->ref = &oldscr->script_vars; } } } }else{ ShowWarning("script:callfunc: function not found! [%s]\n",str); st->state=END; return 1; } return 0; } /*========================================== * �T�u���[�e�B���̌Ăяo�� *------------------------------------------ */ int buildin_callsub(struct script_state *st) { int pos=conv_num(st,& (st->stack->stack_data[st->start+2])); int i,j; if(st->stack->stack_data[st->start+2].type != C_POS && st->stack->stack_data[st->start+2].type != C_USERFUNC_POS) { ShowError("script: callsub: not label !\n"); st->state=END; return 1; } else { struct linkdb_node **oldval = st->stack->var_function; for(i=st->start+3,j=0;i<st->end;i++,j++) push_copy(st->stack,i); push_val(st->stack,C_INT,j); // �����̐����v�b�V�� push_val(st->stack,C_INT,st->stack->defsp); // ���݂̊�X�^�b�N�|�C���^���v�b�V�� push_val(st->stack,C_INT,(int)st->script); // ���݂̃X�N���v�g���v�b�V�� push_val(st->stack,C_INT,(int)st->stack->var_function); // ���݂̊��ˑ��ϐ����v�b�V�� push_val(st->stack,C_RETINFO,st->pos); // ���݂̃X�N���v�g�ʒu���v�b�V�� st->pos=pos; st->stack->defsp=st->start+5+j; st->state=GOTO; st->stack->var_function = (struct linkdb_node**)aCalloc(1, sizeof(struct linkdb_node*)); // ' �ϐ��̈����p�� for(i = 0; i < j; i++) { struct script_data *s = &st->stack->stack_data[st->stack->sp-6-i]; if( s->type == C_NAME && !s->ref ) { char *name = str_buf+str_data[s->u.num&0x00ffffff].str; // '@ �ϐ��̈����p�� if( name[0] == '.' && name[1] == '@' ) { s->ref = oldval; } } } } return 0; } /*========================================== * �����̏��� *------------------------------------------ */ int buildin_getarg(struct script_state *st) { int num=conv_num(st,& (st->stack->stack_data[st->start+2])); int max,stsp; if( st->stack->defsp<5 || st->stack->stack_data[st->stack->defsp-1].type!=C_RETINFO ){ ShowWarning("script:getarg without callfunc or callsub!\n"); st->state=END; return 1; } max=conv_num(st,& (st->stack->stack_data[st->stack->defsp-5])); stsp=st->stack->defsp - max -5; if( num >= max ){ ShowWarning("script:getarg arg1(%d) out of range(%d) !\n",num,max); st->state=END; return 1; } push_copy(st->stack,stsp+num); return 0; } /*========================================== * �T�u���[�`��/���[�U�[��`���̏I�� *------------------------------------------ */ int buildin_return(struct script_state *st) { if(st->end>st->start+2){ // �߂�l�L�� struct script_data *sd; push_copy(st->stack,st->start+2); sd = &st->stack->stack_data[st->stack->sp-1]; if(sd->type == C_NAME) { char *name = str_buf + str_data[sd->u.num&0x00ffffff].str; if( name[0] == '.' && name[1] == '@') { // '@ �ϐ����Q�Ɠn���ɂ���Ɗ댯�Ȃ̂Œl�n���ɂ��� get_val(st,sd); } else if( name[0] == '.' && !sd->ref) { // ' �ϐ��͎Q�Ɠn���ł��ǂ����A�Q�ƌ����ݒ肳��Ă��Ȃ��� // ���̃X�N���v�g�̒l�������Ă��܂��̂ŕ����B sd->ref = &st->script->script_vars; } } } st->state=RETFUNC; return 0; } /*========================================== * *------------------------------------------ */ int buildin_next(struct script_state *st) { st->state=STOP; clif_scriptnext(script_rid2sd(st),st->oid); return 0; } /*========================================== * *------------------------------------------ */ int buildin_close(struct script_state *st) { st->state=END; clif_scriptclose(script_rid2sd(st),st->oid); return 0; } int buildin_close2(struct script_state *st) { st->state=STOP; clif_scriptclose(script_rid2sd(st),st->oid); return 0; } /*========================================== * *------------------------------------------ */ int buildin_menu(struct script_state *st) { char *buf; int len,i, max = 1; struct map_session_data *sd = script_rid2sd(st); nullpo_retr(0, sd); if(sd->state.menu_or_input==0){ st->state=RERUNLINE; sd->state.menu_or_input=1; if( (st->end - st->start - 2) % 2 == 1 ) { // �����̐�����Ȃ̂ŃG���[���� ShowError("buildin_menu: illegal argument count(%d).\n", st->end - st->start - 2); sd->state.menu_or_input=0; st->state=END; return 1; } for(i=st->start+2,len=0;i<st->end;i+=2){ conv_str(st,& (st->stack->stack_data[i])); len+=(int)strlen(st->stack->stack_data[i].u.str)+1; } buf=(char *)aMallocA((len+1)*sizeof(char)); buf[0]=0; for(i=st->start+2,len=0;i<st->end;i+=2){ if( st->stack->stack_data[i].u.str[0] ) { strcat(buf,st->stack->stack_data[i].u.str); strcat(buf,":"); } } for(i=0; (unsigned int)i < strlen(buf); i++){ if(buf[i] == ':') max++; } sd->max_menu = max; clif_scriptmenu(sd,st->oid,buf); aFree(buf); } else if(sd->npc_menu==0xff){ // cancel sd->state.menu_or_input=0; st->state=END; } else { // goto���� sd->state.menu_or_input=0; if(sd->npc_menu>0){ //Skip empty menu entries which weren't displayed on the client (blackhole89) for(i=st->start+2;i<=(st->start+sd->npc_menu*2) && sd->npc_menu<(st->end-st->start)/2;i+=2) { conv_str(st,& (st->stack->stack_data[i])); // we should convert variables to strings before access it [jA1983] [EoE] if((int)strlen(st->stack->stack_data[i].u.str) < 1) sd->npc_menu++; //Empty selection which wasn't displayed on the client. } if(sd->npc_menu >= (st->end-st->start)/2) { //Invalid selection. st->state=END; return 0; } if( st->stack->stack_data[st->start+sd->npc_menu*2+1].type!=C_POS ){ ShowError("script: menu: not label !\n"); st->state=END; return 1; } pc_setreg(sd,add_str("@menu"),sd->npc_menu); st->pos=conv_num(st,& (st->stack->stack_data[st->start+sd->npc_menu*2+1])); st->state=GOTO; } } return 0; } /*========================================== * *------------------------------------------ */ int buildin_rand(struct script_state *st) { int range,min,max; if (st->end > st->start+3){ min = conv_num(st,& (st->stack->stack_data[st->start+2])); max = conv_num(st,& (st->stack->stack_data[st->start+3])); if (max == min){ //Why would someone do this? push_val(st->stack,C_INT,min); return 0; } if(max<min){ int tmp = min; min = max; max = tmp; } range = max - min + 1; if (range == 0) range = 1; push_val(st->stack,C_INT,rand()%range+min); } else { range = conv_num(st,& (st->stack->stack_data[st->start+2])); if (range == 0) range = 1; push_val(st->stack,C_INT,rand()%range); } return 0; } /*========================================== * *------------------------------------------ */ int buildin_warp(struct script_state *st) { int x,y; char *str; struct map_session_data *sd=script_rid2sd(st); nullpo_retr(0, sd); str=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); if(strcmp(str,"Random")==0) pc_randomwarp(sd,3); else if(strcmp(str,"SavePoint")==0){ pc_setpos(sd,sd->status.save_point.map, sd->status.save_point.x,sd->status.save_point.y,3); }else if(strcmp(str,"Save")==0){ pc_setpos(sd,sd->status.save_point.map, sd->status.save_point.x,sd->status.save_point.y,3); }else pc_setpos(sd,mapindex_name2id(str),x,y,0); return 0; } /*========================================== * �G���A�w�胏�[�v *------------------------------------------ */ int buildin_areawarp_sub(struct block_list *bl,va_list ap) { int x,y; unsigned int map; map=va_arg(ap, unsigned int); x=va_arg(ap,int); y=va_arg(ap,int); if(map == 0) pc_randomwarp((struct map_session_data *)bl,3); else pc_setpos((struct map_session_data *)bl,map,x,y,0); return 0; } int buildin_areawarp(struct script_state *st) { int x,y,m; unsigned int index; char *str; char *mapname; int x0,y0,x1,y1; mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); x0=conv_num(st,& (st->stack->stack_data[st->start+3])); y0=conv_num(st,& (st->stack->stack_data[st->start+4])); x1=conv_num(st,& (st->stack->stack_data[st->start+5])); y1=conv_num(st,& (st->stack->stack_data[st->start+6])); str=conv_str(st,& (st->stack->stack_data[st->start+7])); x=conv_num(st,& (st->stack->stack_data[st->start+8])); y=conv_num(st,& (st->stack->stack_data[st->start+9])); if( (m=map_mapname2mapid(mapname))< 0) return 0; if(strcmp(str,"Random")==0) index = 0; else if(!(index=mapindex_name2id(str))) return 0; map_foreachinarea(buildin_areawarp_sub, m,x0,y0,x1,y1,BL_PC, index,x,y ); return 0; } /*========================================== * warpchar [LuzZza] * Useful for warp one player from * another player npc-session. * Using: warpchar "mapname.gat",x,y,Char_ID; *------------------------------------------ */ int buildin_warpchar(struct script_state *st) { int x,y,a,i; char *str; struct map_session_data *sd, **pl_allsd; int users; str=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); a=conv_num(st,& (st->stack->stack_data[st->start+5])); pl_allsd = map_getallusers(&users); for(i=0; i<users; i++) { sd = pl_allsd[i]; if(sd->status.char_id == a) { if(strcmp(str, "Random") == 0) pc_randomwarp(sd, 3); else if(strcmp(str, "SavePoint") == 0) pc_setpos(sd, sd->status.save_point.map, sd->status.save_point.x, sd->status.save_point.y, 3); else pc_setpos(sd, mapindex_name2id(str), x, y, 3); } } return 0; } /*========================================== * Warpparty - [Fredzilla] * Syntax: warpparty "mapname.gat",x,y,Party_ID; *------------------------------------------ */ int buildin_warpparty(struct script_state *st) { int x,y; char *str; int p_id; int i; unsigned short mapindex; struct map_session_data *pl_sd; struct party_data *p=NULL; str=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); p_id=conv_num(st,& (st->stack->stack_data[st->start+5])); if(p_id < 1) return 0; p = party_search(p_id); if (!p) return 0; if(strcmp(str,"Random")==0) { for (i = 0; i < MAX_PARTY; i++) { if ((pl_sd = p->data[i].sd)) { if(map[pl_sd->bl.m].flag.nowarp) continue; pc_randomwarp(pl_sd,3); } } } else if(strcmp(str,"SavePointAll")==0) { for (i = 0; i < MAX_PARTY; i++) { if ((pl_sd = p->data[i].sd)) { if(map[pl_sd->bl.m].flag.noreturn) continue; pc_setpos(pl_sd,pl_sd->status.save_point.map,pl_sd->status.save_point.x,pl_sd->status.save_point.y,3); } } } else if(strcmp(str,"SavePoint")==0) { pl_sd=script_rid2sd(st); if (!pl_sd) return 0; mapindex=pl_sd->status.save_point.map; x=pl_sd->status.save_point.x; y=pl_sd->status.save_point.y; for (i = 0; i < MAX_PARTY; i++) { if ((pl_sd = p->data[i].sd)) { if(map[pl_sd->bl.m].flag.noreturn) continue; pc_setpos(pl_sd,mapindex,x,y,3); } } } else { mapindex = mapindex_name2id(str); if (!mapindex) //Show source of npc error. return 1; for (i = 0; i < MAX_PARTY; i++) { if ((pl_sd = p->data[i].sd)) { if(map[pl_sd->bl.m].flag.noreturn || map[pl_sd->bl.m].flag.nowarp) continue; pc_setpos(pl_sd,mapindex,x,y,3); } } } return 0; } /*========================================== * Warpguild - [Fredzilla] * Syntax: warpguild "mapname.gat",x,y,Guild_ID; *------------------------------------------ */ int buildin_warpguild(struct script_state *st) { int x,y; unsigned short mapindex; char *str; int g; int i; struct map_session_data *pl_sd, **pl_allsd; int users; struct map_session_data *sd; str=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); g=conv_num(st,& (st->stack->stack_data[st->start+5])); sd=script_rid2sd(st); if(map[sd->bl.m].flag.noreturn || map[sd->bl.m].flag.nowarpto) return 0; if(g < 1) return 0; pl_allsd = map_getallusers(&users); if(strcmp(str,"Random")==0) { for (i = 0; i < users; i++) { if ((pl_sd = pl_allsd[i]) && pl_sd->status.guild_id == g) { if(map[pl_sd->bl.m].flag.nowarp) continue; pc_randomwarp(pl_sd,3); } } } else if(strcmp(str,"SavePointAll")==0) { if(map[sd->bl.m].flag.noreturn) return 0; for (i = 0; i < users; i++) { if ((pl_sd = pl_allsd[i]) && pl_sd->status.guild_id == g) { if(map[pl_sd->bl.m].flag.noreturn) continue; pc_setpos(pl_sd,pl_sd->status.save_point.map,pl_sd->status.save_point.x,pl_sd->status.save_point.y,3); } } } else if(strcmp(str,"SavePoint")==0) { if(map[sd->bl.m].flag.noreturn) return 0; mapindex=sd->status.save_point.map; x=sd->status.save_point.x; y=sd->status.save_point.y; for (i = 0; i < users; i++) { if ((pl_sd = pl_allsd[i]) && pl_sd->status.guild_id == g) { if(map[pl_sd->bl.m].flag.noreturn) continue; pc_setpos(pl_sd,mapindex,x,y,3); } } } else { mapindex = mapindex_name2id(str); for (i = 0; i < users; i++) { if ((pl_sd = pl_allsd[i]) && pl_sd->status.guild_id == g) { if(map[pl_sd->bl.m].flag.noreturn || map[pl_sd->bl.m].flag.nowarp) continue; pc_setpos(pl_sd,mapindex,x,y,3); } } } return 0; } /*========================================== * *------------------------------------------ */ int buildin_heal(struct script_state *st) { struct map_session_data *sd; int hp,sp; sd = script_rid2sd(st); if (!sd) return 0; hp=conv_num(st,& (st->stack->stack_data[st->start+2])); sp=conv_num(st,& (st->stack->stack_data[st->start+3])); status_heal(&sd->bl, hp, sp, 1); return 0; } /*========================================== * *------------------------------------------ */ int buildin_itemheal(struct script_state *st) { struct map_session_data *sd; int hp,sp; hp=conv_num(st,& (st->stack->stack_data[st->start+2])); sp=conv_num(st,& (st->stack->stack_data[st->start+3])); if(potion_flag==1) { potion_hp = hp; potion_sp = sp; return 0; } sd = script_rid2sd(st); if (!sd) return 0; pc_itemheal(sd,sd->itemid,hp,sp); return 0; } /*========================================== * *------------------------------------------ */ int buildin_percentheal(struct script_state *st) { int hp,sp; hp=conv_num(st,& (st->stack->stack_data[st->start+2])); sp=conv_num(st,& (st->stack->stack_data[st->start+3])); if(potion_flag==1) { potion_per_hp = hp; potion_per_sp = sp; return 0; } pc_percentheal(script_rid2sd(st),hp,sp); return 0; } /*========================================== * *------------------------------------------ */ int buildin_jobchange(struct script_state *st) { int job, upper=-1; job=conv_num(st,& (st->stack->stack_data[st->start+2])); if( st->end>st->start+3 ) upper=conv_num(st,& (st->stack->stack_data[st->start+3])); if ((job >= 0 && job < MAX_PC_CLASS)) { pc_jobchange(script_rid2sd(st),job, upper); if(use_irc && irc_announce_jobchange_flag) irc_announce_jobchange(script_rid2sd(st)); } return 0; } /*========================================== * *------------------------------------------ */ int buildin_jobname(struct script_state *st) { int class_=conv_num(st,& (st->stack->stack_data[st->start+2])); push_str(st->stack,C_CONSTSTR,job_name(class_)); return 0; } /*========================================== * *------------------------------------------ */ int buildin_input(struct script_state *st) { struct map_session_data *sd = script_rid2sd(st); int num = (st->end>st->start+2)? st->stack->stack_data[st->start+2].u.num: 0; char *name = (st->end>st->start+2)? str_buf+str_data[num&0x00ffffff].str: ""; char postfix=name[strlen(name)-1]; nullpo_retr(0, sd); if(sd->state.menu_or_input){ sd->state.menu_or_input=0; if( postfix=='$' ){ // ������ if(st->end>st->start+2){ // ����1�� set_reg(st,sd,num,name,(void*)sd->npc_str,st->stack->stack_data[st->start+2].ref); }else{ ShowError("buildin_input: string discarded !!\n"); return 1; } return 0; } // commented by Lupus (check Value Number Input fix in clif.c) // readded by Yor: set ammount to 0 instead of cancel trade. // ** Fix by fritz :X keeps people from abusing old input bugs if (sd->npc_amount < 0) { //** If input amount is less then 0 // clif_tradecancelled(sd); // added "Deal has been cancelled" message by Valaris // buildin_close(st); // ** close sd->npc_amount = 0; } else if ((unsigned int)sd->npc_amount > battle_config.vending_max_value) // new fix by Yor sd->npc_amount = battle_config.vending_max_value; // ���l if(st->end>st->start+2){ // ����1�� set_reg(st,sd,num,name,(void*)sd->npc_amount,st->stack->stack_data[st->start+2].ref); } else { // ragemu�݊��̂��� //pc_setreg(sd,add_str("l14"),sd->npc_amount); } return 0; } //state.menu_or_input = 0 st->state=RERUNLINE; if(postfix=='$') clif_scriptinputstr(sd,st->oid); else clif_scriptinput(sd,st->oid); sd->state.menu_or_input=1; return 0; } /*========================================== * �ϐ��ݒ� *------------------------------------------ */ int buildin_set(struct script_state *st) { struct map_session_data *sd=NULL; int num=st->stack->stack_data[st->start+2].u.num; char *name=str_buf+str_data[num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; if( st->stack->stack_data[st->start+2].type!=C_NAME ){ ShowError("script: buildin_set: not name\n"); return 1; } if(not_server_variable(prefix)) sd=script_rid2sd(st); if( postfix=='$' ){ // ������ char *str = conv_str(st,& (st->stack->stack_data[st->start+3])); set_reg(st,sd,num,name,(void*)str,st->stack->stack_data[st->start+2].ref); }else{ // ���l int val = conv_num(st,& (st->stack->stack_data[st->start+3])); set_reg(st,sd,num,name,(void*)val,st->stack->stack_data[st->start+2].ref); } return 0; } /*========================================== * �z��ϐ��ݒ� *------------------------------------------ */ int buildin_setarray(struct script_state *st) { struct map_session_data *sd=NULL; int num=st->stack->stack_data[st->start+2].u.num; char *name=str_buf+str_data[num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; int i,j; if( prefix!='$' && prefix!='@' && prefix!='.'){ ShowWarning("buildin_setarray: illegal scope !\n"); return 1; } if(not_server_variable(prefix)) sd=script_rid2sd(st); for(j=0,i=st->start+3; i<st->end && j<128;i++,j++){ void *v; if( postfix=='$' ) v=(void*)conv_str(st,& (st->stack->stack_data[i])); else v=(void*)conv_num(st,& (st->stack->stack_data[i])); set_reg(st, sd, num+(j<<24), name, v, st->stack->stack_data[st->start+2].ref); } return 0; } /*========================================== * �z��ϐ��N���A *------------------------------------------ */ int buildin_cleararray(struct script_state *st) { struct map_session_data *sd=NULL; int num=st->stack->stack_data[st->start+2].u.num; char *name=str_buf+str_data[num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; int sz=conv_num(st,& (st->stack->stack_data[st->start+4])); int i; void *v; if( prefix!='$' && prefix!='@' && prefix!='.'){ ShowWarning("buildin_cleararray: illegal scope !\n"); return 1; } if( not_server_variable(prefix) ) sd=script_rid2sd(st); if( postfix=='$' ) v=(void*)conv_str(st,& (st->stack->stack_data[st->start+3])); else v=(void*)conv_num(st,& (st->stack->stack_data[st->start+3])); for(i=0;i<sz;i++) set_reg(st,sd,num+(i<<24),name,v,st->stack->stack_data[st->start+2].ref); return 0; } /*========================================== * �z��ϐ��R�s�[ *------------------------------------------ */ int buildin_copyarray(struct script_state *st) { struct map_session_data *sd=NULL; int num=st->stack->stack_data[st->start+2].u.num; char *name=str_buf+str_data[num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; int num2=st->stack->stack_data[st->start+3].u.num; char *name2=str_buf+str_data[num2&0x00ffffff].str; char prefix2=*name2; char postfix2=name2[strlen(name2)-1]; int sz=conv_num(st,& (st->stack->stack_data[st->start+4])); int i; if( prefix!='$' && prefix!='@' && prefix!='.' ){ printf("buildin_copyarray: illeagal scope !\n"); return 0; } if( prefix2!='$' && prefix2!='@' && prefix2!='.' ) { printf("buildin_copyarray: illeagal scope !\n"); return 0; } if( (postfix=='$' || postfix2=='$') && postfix!=postfix2 ){ printf("buildin_copyarray: type mismatch !\n"); return 0; } if( not_server_variable(prefix) || not_server_variable(prefix2) ) sd=script_rid2sd(st); if((num & 0x00FFFFFF) == (num2 & 0x00FFFFFF) && (num & 0xFF000000) > (num2 & 0xFF000000)) { // �����z��ŁAnum > num2 �̏ꍇ�傫��������R�s�[���Ȃ��Ƃ����Ȃ� for(i=sz-1;i>=0;i--) set_reg( st,sd,num+(i<<24),name, get_val2(st,num2+(i<<24),st->stack->stack_data[st->start+3].ref), st->stack->stack_data[st->start+2].ref ); } else { for(i=0;i<sz;i++) set_reg( st,sd,num+(i<<24),name, get_val2(st,num2+(i<<24),st->stack->stack_data[st->start+3].ref), st->stack->stack_data[st->start+2].ref ); } return 0; } /*========================================== * �z��ϐ��̃T�C�Y���� *------------------------------------------ */ static int getarraysize(struct script_state *st,int num,int postfix,struct linkdb_node** ref) { int i=(num>>24),c=(i==0? -1:i); // Moded to -1 because even if the first element is 0, it will still report as 1 [Lance] if(postfix == '$'){ for(;i<128;i++){ void *v=get_val2(st,(num & 0x00FFFFFF)+(i<<24),ref); if(*((char*)v)) c=i; } }else{ for(;i<128;i++){ void *v=get_val2(st,(num & 0x00FFFFFF)+(i<<24),ref); if((int)v) c=i; } } return c+1; } int buildin_getarraysize(struct script_state *st) { int num=st->stack->stack_data[st->start+2].u.num; char *name=str_buf+str_data[num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; if( prefix!='$' && prefix!='@' && prefix!='.' ){ ShowWarning("buildin_copyarray: illegal scope !\n"); push_val(st->stack,C_INT,0); return 1; } push_val(st->stack,C_INT,getarraysize(st,num,postfix,st->stack->stack_data[st->start+2].ref)); return 0; } /*========================================== * �z��ϐ�����v�f�폜 *------------------------------------------ */ int buildin_deletearray(struct script_state *st) { struct map_session_data *sd=NULL; int num=st->stack->stack_data[st->start+2].u.num; char *name=str_buf+str_data[num&0x00ffffff].str; char prefix=*name; char postfix=name[strlen(name)-1]; int count=1; int i,sz=getarraysize(st,num,postfix,st->stack->stack_data[st->start+2].ref)-(num>>24)-count+1; if( (st->end > st->start+3) ) count=conv_num(st,& (st->stack->stack_data[st->start+3])); if( prefix!='$' && prefix!='@' && prefix!='.' ){ ShowWarning("buildin_deletearray: illegal scope !\n"); return 1; } if( not_server_variable(prefix) ) sd=script_rid2sd(st); for(i=0;i<sz;i++){ set_reg( st,sd,num+(i<<24),name, get_val2(st,num+((i+count)<<24),st->stack->stack_data[st->start+2].ref), st->stack->stack_data[st->start+2].ref ); } if(postfix != '$'){ for(;i<(128-(num>>24));i++) set_reg(st,sd,num+(i<<24),name, 0,st->stack->stack_data[st->start+2].ref); } else { for(;i<(128-(num>>24));i++) set_reg(st,sd,num+(i<<24),name, (void *) "",st->stack->stack_data[st->start+2].ref); } return 0; } /*========================================== * �w��v�f��\���l(�L�[)���������� *------------------------------------------ */ int buildin_getelementofarray(struct script_state *st) { if( st->stack->stack_data[st->start+2].type==C_NAME ){ int i=conv_num(st,& (st->stack->stack_data[st->start+3])); if(i>127 || i<0){ ShowWarning("script: getelementofarray (operator[]): param2 illegal number %d\n",i); push_val(st->stack,C_INT,0); return 1; }else{ push_val2(st->stack,C_NAME, (i<<24) | st->stack->stack_data[st->start+2].u.num, st->stack->stack_data[st->start+2].ref ); } }else{ ShowError("script: getelementofarray (operator[]): param1 not name !\n"); push_val(st->stack,C_INT,0); } return 0; } /*========================================== * *------------------------------------------ */ int buildin_setlook(struct script_state *st) { int type,val; type=conv_num(st,& (st->stack->stack_data[st->start+2])); val=conv_num(st,& (st->stack->stack_data[st->start+3])); pc_changelook(script_rid2sd(st),type,val); return 0; } /*========================================== * *------------------------------------------ */ int buildin_cutin(struct script_state *st) { int type; conv_str(st,& (st->stack->stack_data[st->start+2])); type=conv_num(st,& (st->stack->stack_data[st->start+3])); clif_cutin(script_rid2sd(st),st->stack->stack_data[st->start+2].u.str,type); return 0; } /*========================================== * �J�[�h�̃C���X�g��\������ *------------------------------------------ */ int buildin_cutincard(struct script_state *st) { int itemid; struct item_data *i_data; itemid=conv_num(st,& (st->stack->stack_data[st->start+2])); i_data = itemdb_exists(itemid); if (i_data) clif_cutin(script_rid2sd(st),i_data->cardillustname,4); return 0; } /*========================================== * *------------------------------------------ */ int buildin_viewpoint(struct script_state *st) { int type,x,y,id,color; type=conv_num(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); id=conv_num(st,& (st->stack->stack_data[st->start+5])); color=conv_num(st,& (st->stack->stack_data[st->start+6])); clif_viewpoint(script_rid2sd(st),st->oid,type,x,y,id,color); return 0; } /*========================================== * *------------------------------------------ */ int buildin_countitem(struct script_state *st) { int nameid=0,count=0,i; struct map_session_data *sd; struct script_data *data; sd = script_rid2sd(st); data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data; if( (item_data = itemdb_searchname(name)) != NULL) nameid=item_data->nameid; }else nameid=conv_num(st,data); if (nameid>=500) //if no such ID then skip this iteration for(i=0;i<MAX_INVENTORY;i++){ if(sd->status.inventory[i].nameid==nameid) count+=sd->status.inventory[i].amount; } else{ if(battle_config.error_log) ShowError("wrong item ID : countitem(%i)\n",nameid); push_val(st->stack,C_INT,0); return 1; } push_val(st->stack,C_INT,count); return 0; } /*========================================== * countitem2(nameID,Identified,Refine,Attribute,Card0,Card1,Card2,Card3) [Lupus] * returns number of items that met the conditions *------------------------------------------ */ int buildin_countitem2(struct script_state *st) { int nameid=0,count=0,i; int iden,ref,attr,c1,c2,c3,c4; struct map_session_data *sd; struct script_data *data; sd = script_rid2sd(st); data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data; if( (item_data = itemdb_searchname(name)) != NULL) nameid=item_data->nameid; }else nameid=conv_num(st,data); iden=conv_num(st,& (st->stack->stack_data[st->start+3])); ref=conv_num(st,& (st->stack->stack_data[st->start+4])); attr=conv_num(st,& (st->stack->stack_data[st->start+5])); c1=conv_num(st,& (st->stack->stack_data[st->start+6])); c2=conv_num(st,& (st->stack->stack_data[st->start+7])); c3=conv_num(st,& (st->stack->stack_data[st->start+8])); c4=conv_num(st,& (st->stack->stack_data[st->start+9])); if (nameid>=500) //if no such ID then skip this iteration for(i=0;i<MAX_INVENTORY;i++){ if(sd->status.inventory[i].nameid<=0 || sd->inventory_data[i] == NULL || sd->status.inventory[i].amount<=0 || sd->status.inventory[i].nameid!=nameid || sd->status.inventory[i].identify!=iden || sd->status.inventory[i].refine!=ref || sd->status.inventory[i].attribute!=attr || sd->status.inventory[i].card[0]!=c1 || sd->status.inventory[i].card[1]!=c2 || sd->status.inventory[i].card[2]!=c3 || sd->status.inventory[i].card[3]!=c4) continue; count+=sd->status.inventory[i].amount; } else{ if(battle_config.error_log) ShowError("wrong item ID : countitem2(%i)\n",nameid); push_val(st->stack,C_INT,0); return 1; } push_val(st->stack,C_INT,count); return 0; } /*========================================== * �d�ʃ`�F�b�N *------------------------------------------ */ int buildin_checkweight(struct script_state *st) { int nameid=0,amount,i; unsigned long weight; struct map_session_data *sd; struct script_data *data; sd = script_rid2sd(st); data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); if( item_data ) nameid=item_data->nameid; }else nameid=conv_num(st,data); amount=conv_num(st,& (st->stack->stack_data[st->start+3])); if ( amount<=0 || nameid<500 ) { //if get wrong item ID or amount<=0, don't count weight of non existing items push_val(st->stack,C_INT,0); ShowError("buildin_checkweight: Wrong item ID or amount.\n"); return 1; } weight = itemdb_weight(nameid)*amount; if(amount > MAX_AMOUNT || weight + sd->weight > sd->max_weight){ push_val(st->stack,C_INT,0); } else { //Check if the inventory ain't full. //TODO: Currently does not checks if you can just stack it on top of another item you already have.... i = pc_search_inventory(sd,0); if (i >= 0) //Empty slot available. push_val(st->stack,C_INT,1); else //Inventory full push_val(st->stack,C_INT,0); } return 0; } /*========================================== * getitem <item id>,<amount>{,<character ID>}; * getitem "<item name>",<amount>{,<character ID>}; *------------------------------------------ */ int buildin_getitem(struct script_state *st) { int nameid,amount,flag = 0; struct item it; struct map_session_data *sd; struct script_data *data; data=script_getdata(st,2); get_val(st,data); if( script_isstring(data) ) {// "<item name>" const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); if( item_data == NULL ){ ShowError("buildin_getitem: Nonexistant item %s requested.\n", name); report_src(st); return 1; //No item created. } nameid=item_data->nameid; } else if( script_isint(data) ) {// <item id> nameid=conv_num(st,data); //Violet Box, Blue Box, etc - random item pick if( nameid < 0 ) { nameid=itemdb_searchrandomid(-nameid); flag = 1; } if( nameid <= 0 || !itemdb_exists(nameid) ){ ShowError("buildin_getitem: Nonexistant item %d requested.\n", nameid); report_src(st); return 1; //No item created. } } else { ShowError("buildin_getitem: invalid data type for argument #1 (%d).", data->type); report_src(st); return 1; } // <amount> if( (amount=conv_num(st, script_getdata(st,3))) <= 0) return 0; //return if amount <=0, skip the useles iteration memset(&it,0,sizeof(it)); it.nameid=nameid; if(!flag) it.identify=1; else it.identify=itemdb_isidentified(nameid); if( script_hasdata(st,4) ) {// <character ID> sd=map_id2sd(conv_num(st,script_getdata(st,4))); } else {// attached player sd=script_rid2sd(st); } if( sd == NULL ) // no target return 0; if( pet_create_egg(sd, nameid) ) amount = 1; //This is a pet! else if( (flag=pc_additem(sd,&it,amount)) ){ clif_additem(sd,0,0,flag); if( pc_candrop(sd,&it) ) map_addflooritem(&it,amount,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0); } //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&LOG_SCRIPT_TRANSACTIONS) log_pick_pc(sd, "N", nameid, amount, NULL); return 0; } /*========================================== * *------------------------------------------ */ int buildin_getitem2(struct script_state *st) { int nameid,amount,flag = 0; int iden,ref,attr,c1,c2,c3,c4; struct item_data *item_data; struct item item_tmp; struct map_session_data *sd; struct script_data *data; sd = script_rid2sd(st); data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); nameid=UNKNOWN_ITEM_ID; if( item_data ) nameid=item_data->nameid; }else nameid=conv_num(st,data); amount=conv_num(st,& (st->stack->stack_data[st->start+3])); iden=conv_num(st,& (st->stack->stack_data[st->start+4])); ref=conv_num(st,& (st->stack->stack_data[st->start+5])); attr=conv_num(st,& (st->stack->stack_data[st->start+6])); c1=conv_num(st,& (st->stack->stack_data[st->start+7])); c2=conv_num(st,& (st->stack->stack_data[st->start+8])); c3=conv_num(st,& (st->stack->stack_data[st->start+9])); c4=conv_num(st,& (st->stack->stack_data[st->start+10])); if( st->end>st->start+11 ) //�A�C�e�����w�肵��ID�ɓn�� sd=map_id2sd(conv_num(st,& (st->stack->stack_data[st->start+11]))); if(sd == NULL) //�A�C�e����n�����肪���Ȃ������炨�A�� return 0; if(nameid<0) { // �����_�� nameid=itemdb_searchrandomid(-nameid); flag = 1; } if(nameid > 0) { memset(&item_tmp,0,sizeof(item_tmp)); item_data=itemdb_exists(nameid); if (item_data == NULL) return -1; if(item_data->type==4 || item_data->type==5){ if(ref > 10) ref = 10; } else if(item_data->type==7) { iden = 1; ref = 0; } else { iden = 1; ref = attr = 0; } item_tmp.nameid=nameid; if(!flag) item_tmp.identify=iden; else if(item_data->type==4 || item_data->type==5) item_tmp.identify=0; item_tmp.refine=ref; item_tmp.attribute=attr; item_tmp.card[0]=c1; item_tmp.card[1]=c2; item_tmp.card[2]=c3; item_tmp.card[3]=c4; if((flag = pc_additem(sd,&item_tmp,amount))) { clif_additem(sd,0,0,flag); map_addflooritem(&item_tmp,amount,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0); } //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", nameid, amount, &item_tmp); } return 0; } /*========================================== * gets an item with someone's name inscribed [Skotlex] * getinscribeditem item_num, character_name * Returned Qty is always 1, only works on equip-able * equipment *------------------------------------------ */ int buildin_getnameditem(struct script_state *st) { int nameid; struct item item_tmp; struct map_session_data *sd, *tsd; struct script_data *data; sd = script_rid2sd(st); if (sd == NULL) { //Player not attached! push_val(st->stack,C_INT,0); return 0; } data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); if( item_data == NULL) { //Failed push_val(st->stack,C_INT,0); return 0; } nameid = item_data->nameid; }else nameid = conv_num(st,data); if(!itemdb_exists(nameid)/* || itemdb_isstackable(nameid)*/) { //Even though named stackable items "could" be risky, they are required for certain quests. push_val(st->stack,C_INT,0); return 0; } data=&(st->stack->stack_data[st->start+3]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ) //Char Name tsd=map_nick2sd(conv_str(st,data)); else //Char Id was given tsd=map_charid2sd(conv_num(st,data)); if( tsd == NULL ) { //Failed push_val(st->stack,C_INT,0); return 0; } memset(&item_tmp,0,sizeof(item_tmp)); item_tmp.nameid=nameid; item_tmp.amount=1; item_tmp.identify=1; item_tmp.card[0]=CARD0_CREATE; //we don't use 255! because for example SIGNED WEAPON shouldn't get TOP10 BS Fame bonus [Lupus] item_tmp.card[2]=tsd->status.char_id; item_tmp.card[3]=tsd->status.char_id >> 16; if(pc_additem(sd,&item_tmp,1)) { push_val(st->stack,C_INT,0); return 0; //Failed to add item, we will not drop if they don't fit } //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", item_tmp.nameid, item_tmp.amount, &item_tmp); push_val(st->stack,C_INT,1); return 0; } /*========================================== * gets a random item ID from an item group [Skotlex] * groupranditem group_num *------------------------------------------ */ int buildin_grouprandomitem(struct script_state *st) { int group; group = conv_num(st,& (st->stack->stack_data[st->start+2])); push_val(st->stack, C_INT, itemdb_searchrandomid(group)); return 0; } /*========================================== * *------------------------------------------ */ int buildin_makeitem(struct script_state *st) { int nameid,amount,flag = 0; int x,y,m; char *mapname; struct item item_tmp; struct script_data *data; data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); nameid=UNKNOWN_ITEM_ID; if( item_data ) nameid=item_data->nameid; }else nameid=conv_num(st,data); amount=conv_num(st,& (st->stack->stack_data[st->start+3])); mapname =conv_str(st,& (st->stack->stack_data[st->start+4])); x =conv_num(st,& (st->stack->stack_data[st->start+5])); y =conv_num(st,& (st->stack->stack_data[st->start+6])); if(strcmp(mapname,"this")==0) { struct map_session_data *sd; sd = script_rid2sd(st); if (!sd) return 0; //Failed... m=sd->bl.m; } else m=map_mapname2mapid(mapname); if(nameid<0) { // �����_�� nameid=itemdb_searchrandomid(-nameid); flag = 1; } if(nameid > 0) { memset(&item_tmp,0,sizeof(item_tmp)); item_tmp.nameid=nameid; if(!flag) item_tmp.identify=1; else item_tmp.identify=itemdb_isidentified(nameid); map_addflooritem(&item_tmp,amount,m,x,y,NULL,NULL,NULL,0); } return 0; } /*========================================== * script DELITEM command (fixed 2 bugs by Lupus, added deletion priority by Lupus) *------------------------------------------ */ int buildin_delitem(struct script_state *st) { int nameid=0,amount,i,important_item=0; struct map_session_data *sd; struct script_data *data; sd = script_rid2sd(st); data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); //nameid=UNKNOWN_ITEM_ID; if( item_data ) nameid=item_data->nameid; }else nameid=conv_num(st,data); amount=conv_num(st,& (st->stack->stack_data[st->start+3])); if (nameid<500 || amount<=0 ) {//by Lupus. Don't run FOR if u got wrong item ID or amount<=0 //eprintf("wrong item ID or amount<=0 : delitem %i,\n",nameid,amount); return 0; } //1st pass //here we won't delete items with CARDS, named items but we count them for(i=0;i<MAX_INVENTORY;i++){ //we don't delete wrong item or equipped item if(sd->status.inventory[i].nameid<=0 || sd->inventory_data[i] == NULL || sd->status.inventory[i].amount<=0 || sd->status.inventory[i].nameid!=nameid) continue; //1 egg uses 1 cell in the inventory. so it's ok to delete 1 pet / per cycle if(sd->inventory_data[i]->type==IT_PETEGG && sd->status.inventory[i].card[0] == CARD0_PET) { if (intif_delete_petdata(MakeDWord(sd->status.inventory[i].card[1], sd->status.inventory[i].card[2]))) continue; //pet couldn't be sent for deletion. } //is this item important? does it have cards? or Player's name? or Refined/Upgraded if(itemdb_isspecial(sd->status.inventory[i].card[0]) || sd->status.inventory[i].card[0] || sd->status.inventory[i].refine) { //this is important item, count it (except for pet eggs) if(sd->status.inventory[i].card[0] != CARD0_PET) important_item++; continue; } if(sd->status.inventory[i].amount>=amount){ //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -amount, &sd->status.inventory[i]); pc_delitem(sd,i,amount,0); return 0; //we deleted exact amount of items. now exit } else { amount-=sd->status.inventory[i].amount; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) { log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -sd->status.inventory[i].amount, &sd->status.inventory[i]); } //Logs pc_delitem(sd,i,sd->status.inventory[i].amount,0); } } //2nd pass //now if there WERE items with CARDs/REFINED/NAMED... and if we still have to delete some items. we'll delete them finally if (important_item>0 && amount>0) for(i=0;i<MAX_INVENTORY;i++){ //we don't delete wrong item if(sd->status.inventory[i].nameid<=0 || sd->inventory_data[i] == NULL || sd->status.inventory[i].amount<=0 || sd->status.inventory[i].nameid!=nameid ) continue; if(sd->status.inventory[i].amount>=amount){ //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -amount, &sd->status.inventory[i]); pc_delitem(sd,i,amount,0); return 0; //we deleted exact amount of items. now exit } else { amount-=sd->status.inventory[i].amount; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -sd->status.inventory[i].amount, &sd->status.inventory[i]); pc_delitem(sd,i,sd->status.inventory[i].amount,0); } } return 0; } /*========================================== * advanced version of delitem [modified by Mihilion] *------------------------------------------ */ int buildin_delitem2(struct script_state *st) { int nameid=0,amount,i=0; int iden,ref,attr,c1,c2,c3,c4; struct map_session_data *sd; struct script_data *data; sd = script_rid2sd(st); data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); //nameid=UNKNOWN_ITEM_ID; if( item_data ) nameid=item_data->nameid; }else nameid=conv_num(st,data); amount=conv_num(st,& (st->stack->stack_data[st->start+3])); iden=conv_num(st,& (st->stack->stack_data[st->start+4])); ref=conv_num(st,& (st->stack->stack_data[st->start+5])); attr=conv_num(st,& (st->stack->stack_data[st->start+6])); c1=conv_num(st,& (st->stack->stack_data[st->start+7])); c2=conv_num(st,& (st->stack->stack_data[st->start+8])); c3=conv_num(st,& (st->stack->stack_data[st->start+9])); c4=conv_num(st,& (st->stack->stack_data[st->start+10])); if (!itemdb_exists(nameid) || amount<=0 ) {//by Lupus. Don't run FOR if u got wrong item ID or amount<=0 //eprintf("wrong item ID or amount<=0 : delitem %i,\n",nameid,amount); return 0; } for(i=0;i<MAX_INVENTORY;i++){ //we don't delete wrong item or equipped item if(sd->status.inventory[i].nameid<=0 || sd->inventory_data[i] == NULL || sd->status.inventory[i].amount<=0 || sd->status.inventory[i].nameid!=nameid || sd->status.inventory[i].identify!=iden || sd->status.inventory[i].refine!=ref || sd->status.inventory[i].attribute!=attr || sd->status.inventory[i].card[0]!=c1 || sd->status.inventory[i].card[1]!=c2 || sd->status.inventory[i].card[2]!=c3 || sd->status.inventory[i].card[3]!=c4) continue; //1 egg uses 1 cell in the inventory. so it's ok to delete 1 pet / per cycle if(sd->inventory_data[i]->type==IT_PETEGG && sd->status.inventory[i].card[0] == CARD0_PET) { if (!intif_delete_petdata( MakeDWord(sd->status.inventory[i].card[1], sd->status.inventory[i].card[2]))) continue; //Failed to send delete the pet. } if(sd->status.inventory[i].amount>=amount){ //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -amount, &sd->status.inventory[i]); pc_delitem(sd,i,amount,0); return 0; //we deleted exact amount of items. now exit } else { amount-=sd->status.inventory[i].amount; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -sd->status.inventory[i].amount, &sd->status.inventory[i]); pc_delitem(sd,i,sd->status.inventory[i].amount,0); } } return 0; } /*========================================== * Enables/Disables use of items while in an NPC [Skotlex] *------------------------------------------ */ int buildin_enableitemuse(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); if (sd) sd->npc_item_flag = st->oid; return 0; } int buildin_disableitemuse(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); if (sd) sd->npc_item_flag = 0; return 0; } /*========================================== *�L�����W�̃p�����[�^�擾 *------------------------------------------ */ int buildin_readparam(struct script_state *st) { int type; struct map_session_data *sd; type=conv_num(st,& (st->stack->stack_data[st->start+2])); if( st->end>st->start+3 ) sd=map_nick2sd(conv_str(st,& (st->stack->stack_data[st->start+3]))); else sd=script_rid2sd(st); if(sd==NULL){ push_val(st->stack,C_INT,-1); return 0; } push_val(st->stack,C_INT,pc_readparam(sd,type)); return 0; } /*========================================== *�L�����W��ID�擾 *------------------------------------------ */ int buildin_getcharid(struct script_state *st) { int num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); if( st->end>st->start+3 ) sd=map_nick2sd(conv_str(st,& (st->stack->stack_data[st->start+3]))); else sd=script_rid2sd(st); if(sd==NULL || num<0 || num>3){ push_val(st->stack,C_INT,0); //return 0, according docs return 0; } if(num==0) push_val(st->stack,C_INT,sd->status.char_id); if(num==1) push_val(st->stack,C_INT,sd->status.party_id); if(num==2) push_val(st->stack,C_INT,sd->status.guild_id); if(num==3) push_val(st->stack,C_INT,sd->status.account_id); return 0; } /*========================================== *�w��ID��PT���擾 *------------------------------------------ */ char *buildin_getpartyname_sub(int party_id) { struct party_data *p; p=party_search(party_id); if(p!=NULL){ char *buf; buf=(char *)aMallocA(NAME_LENGTH*sizeof(char)); memcpy(buf, p->party.name, NAME_LENGTH-1); buf[NAME_LENGTH-1] = '\0'; return buf; } return 0; } int buildin_getpartyname(struct script_state *st) { char *name; int party_id; party_id=conv_num(st,& (st->stack->stack_data[st->start+2])); name=buildin_getpartyname_sub(party_id); if(name != NULL) push_str(st->stack,C_STR,name); else push_str(st->stack,C_CONSTSTR,"null"); return 0; } /*========================================== *�w��ID��PT�l���ƃ����o�[ID�擾 *------------------------------------------ */ int buildin_getpartymember(struct script_state *st) { struct party_data *p; int i,j=0,type=0; p=party_search(conv_num(st,& (st->stack->stack_data[st->start+2]))); if( st->end>st->start+3 ) type=conv_num(st,& (st->stack->stack_data[st->start+3])); if(p!=NULL){ for(i=0;i<MAX_PARTY;i++){ if(p->party.member[i].account_id){ switch (type) { case 2: mapreg_setreg(add_str("$@partymemberaid")+(j<<24),p->party.member[i].account_id); break; case 1: mapreg_setreg(add_str("$@partymembercid")+(j<<24),p->party.member[i].char_id); break; default: mapreg_setregstr(add_str("$@partymembername$")+(j<<24),p->party.member[i].name); } j++; } } } mapreg_setreg(add_str("$@partymembercount"),j); return 0; } /*========================================== * Retrieves party leader. if flag is specified, * return some of the leader data. Otherwise, return name. *------------------------------------------ */ int buildin_getpartyleader(struct script_state *st) { int party_id, type = 0, i=0; struct party_data *p; party_id=conv_num(st,& (st->stack->stack_data[st->start+2])); if( st->end>st->start+3 ) type=conv_num(st,& (st->stack->stack_data[st->start+3])); p=party_search(party_id); if (p) //Search leader for(i = 0; i < MAX_PARTY && !p->party.member[i].leader; i++); if (!p || i == MAX_PARTY) { //leader not found if (type) push_val(st->stack,C_INT,-1); else push_str(st->stack,C_CONSTSTR,"null"); return 0; } switch (type) { case 1: push_val(st->stack,C_INT,p->party.member[i].account_id); break; case 2: push_val(st->stack,C_INT,p->party.member[i].char_id); break; case 3: push_val(st->stack,C_INT,p->party.member[i].class_); break; case 4: push_val(st->stack,C_INT,p->party.member[i].map); break; case 5: push_val(st->stack,C_INT,p->party.member[i].lv); break; default: push_str(st->stack,C_STR,p->party.member[i].name); break; } return 0; } /*========================================== *�w��ID�̃M���h���擾 *------------------------------------------ */ char *buildin_getguildname_sub(int guild_id) { struct guild *g=NULL; g=guild_search(guild_id); if(g!=NULL){ char *buf; buf=(char *)aMallocA(NAME_LENGTH*sizeof(char)); memcpy(buf, g->name, NAME_LENGTH-1); buf[NAME_LENGTH-1] = '\0'; return buf; } return NULL; } int buildin_getguildname(struct script_state *st) { char *name; int guild_id=conv_num(st,& (st->stack->stack_data[st->start+2])); name=buildin_getguildname_sub(guild_id); if(name != NULL) push_str(st->stack,C_STR,name); else push_str(st->stack,C_CONSTSTR,"null"); return 0; } /*========================================== *�w��ID��GuildMaster���擾 *------------------------------------------ */ char *buildin_getguildmaster_sub(int guild_id) { struct guild *g=NULL; g=guild_search(guild_id); if(g!=NULL){ char *buf; buf=(char *)aMallocA(NAME_LENGTH*sizeof(char)); memcpy(buf, g->master, NAME_LENGTH-1); buf[NAME_LENGTH-1] = '\0'; return buf; } return 0; } int buildin_getguildmaster(struct script_state *st) { char *master; int guild_id=conv_num(st,& (st->stack->stack_data[st->start+2])); master=buildin_getguildmaster_sub(guild_id); if(master!=0) push_str(st->stack,C_STR,master); else push_str(st->stack,C_CONSTSTR,"null"); return 0; } int buildin_getguildmasterid(struct script_state *st) { char *master; struct map_session_data *sd=NULL; int guild_id=conv_num(st,& (st->stack->stack_data[st->start+2])); master=buildin_getguildmaster_sub(guild_id); if(master!=0){ if((sd=map_nick2sd(master)) == NULL){ push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,sd->status.char_id); }else{ push_val(st->stack,C_INT,0); } return 0; } /*========================================== * �L�����N�^�̖��O *------------------------------------------ */ int buildin_strcharinfo(struct script_state *st) { struct map_session_data *sd; int num; char *buf; sd=script_rid2sd(st); if (!sd) { //Avoid crashing.... push_str(st->stack,C_CONSTSTR,""); return 0; } num=conv_num(st,& (st->stack->stack_data[st->start+2])); switch(num){ case 0: push_str(st->stack,C_CONSTSTR,sd->status.name); break; case 1: buf=buildin_getpartyname_sub(sd->status.party_id); if(buf!=0) push_str(st->stack,C_STR,buf); else push_str(st->stack,C_CONSTSTR,""); break; case 2: buf=buildin_getguildname_sub(sd->status.guild_id); if(buf != NULL) push_str(st->stack,C_STR,buf); else push_str(st->stack,C_CONSTSTR,""); break; default: ShowWarning("buildin_strcharinfo: unknown parameter."); push_str(st->stack,C_CONSTSTR,""); break; } return 0; } unsigned int equip[10]={EQP_HEAD_TOP,EQP_ARMOR,EQP_HAND_L,EQP_HAND_R,EQP_GARMENT,EQP_SHOES,EQP_ACC_L,EQP_ACC_R,EQP_HEAD_MID,EQP_HEAD_LOW}; /*========================================== * GetEquipID(Pos); Pos: 1-10 *------------------------------------------ */ int buildin_getequipid(struct script_state *st) { int i,num; struct map_session_data *sd; struct item_data* item; sd=script_rid2sd(st); if(sd == NULL) { ShowError("getequipid: sd == NULL\n"); return 0; } num=conv_num(st,& (st->stack->stack_data[st->start+2])); i=pc_checkequip(sd,equip[num-1]); if(i >= 0){ item=sd->inventory_data[i]; if(item) push_val(st->stack,C_INT,item->nameid); else push_val(st->stack,C_INT,0); }else{ push_val(st->stack,C_INT,-1); } return 0; } /*========================================== * ������������i���B���j���[�p�j *------------------------------------------ */ int buildin_getequipname(struct script_state *st) { int i,num; struct map_session_data *sd; struct item_data* item; char *buf; buf=(char *)aMallocA(64*sizeof(char)); sd=script_rid2sd(st); num=conv_num(st,& (st->stack->stack_data[st->start+2])); i=pc_checkequip(sd,equip[num-1]); if(i >= 0){ item=sd->inventory_data[i]; if(item) sprintf(buf,"%s-[%s]",pos[num-1],item->jname); else sprintf(buf,"%s-[%s]",pos[num-1],pos[10]); }else{ sprintf(buf,"%s-[%s]",pos[num-1],pos[10]); } push_str(st->stack,C_STR,buf); return 0; } /*========================================== * getbrokenid [Valaris] *------------------------------------------ */ int buildin_getbrokenid(struct script_state *st) { int i,num,id=0,brokencounter=0; struct map_session_data *sd; sd=script_rid2sd(st); num=conv_num(st,& (st->stack->stack_data[st->start+2])); for(i=0; i<MAX_INVENTORY; i++) { if(sd->status.inventory[i].attribute==1){ brokencounter++; if(num==brokencounter){ id=sd->status.inventory[i].nameid; break; } } } push_val(st->stack,C_INT,id); return 0; } /*========================================== * repair [Valaris] *------------------------------------------ */ int buildin_repair(struct script_state *st) { int i,num; int repaircounter=0; struct map_session_data *sd; sd=script_rid2sd(st); num=conv_num(st,& (st->stack->stack_data[st->start+2])); for(i=0; i<MAX_INVENTORY; i++) { if(sd->status.inventory[i].attribute==1){ repaircounter++; if(num==repaircounter){ sd->status.inventory[i].attribute=0; clif_equiplist(sd); clif_produceeffect(sd, 0, sd->status.inventory[i].nameid); clif_misceffect(&sd->bl, 3); break; } } } return 0; } /*========================================== * �����`�F�b�N *------------------------------------------ */ int buildin_getequipisequiped(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); if ((num - 1) >= (sizeof(equip) / sizeof(equip[0]))) i = -1; else i=pc_checkequip(sd,equip[num-1]); if(i >= 0) push_val(st->stack,C_INT,1); else push_val(st->stack,C_INT,0); return 0; } /*========================================== * �����i���B�\�`�F�b�N *------------------------------------------ */ int buildin_getequipisenableref(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0 && sd->inventory_data[i] && !sd->inventory_data[i]->flag.no_refine) { push_val(st->stack,C_INT,1); } else { push_val(st->stack,C_INT,0); } return 0; } /*========================================== * �����i�Ӓ�`�F�b�N *------------------------------------------ */ int buildin_getequipisidentify(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0) push_val(st->stack,C_INT,sd->status.inventory[i].identify); else push_val(st->stack,C_INT,0); return 0; } /*========================================== * �����i���B�x *------------------------------------------ */ int buildin_getequiprefinerycnt(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0) push_val(st->stack,C_INT,sd->status.inventory[i].refine); else push_val(st->stack,C_INT,0); return 0; } /*========================================== * �����i����LV *------------------------------------------ */ int buildin_getequipweaponlv(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0 && sd->inventory_data[i]) push_val(st->stack,C_INT,sd->inventory_data[i]->wlv); else push_val(st->stack,C_INT,0); return 0; } /*========================================== * �����i���B������ *------------------------------------------ */ int buildin_getequippercentrefinery(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0 && sd->status.inventory[i].nameid && sd->status.inventory[i].refine < MAX_REFINE) push_val(st->stack,C_INT,percentrefinery[itemdb_wlv(sd->status.inventory[i].nameid)][(int)sd->status.inventory[i].refine]); else push_val(st->stack,C_INT,0); return 0; } /*========================================== * ���B���� *------------------------------------------ */ int buildin_successrefitem(struct script_state *st) { int i,num,ep; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0) { ep=sd->status.inventory[i].equip; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -1, &sd->status.inventory[i]); sd->status.inventory[i].refine++; pc_unequipitem(sd,i,2); clif_refine(sd->fd,sd,0,i,sd->status.inventory[i].refine); clif_delitem(sd,i,1); //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, 1, &sd->status.inventory[i]); clif_additem(sd,i,1,0); pc_equipitem(sd,i,ep); clif_misceffect(&sd->bl,3); if(sd->status.inventory[i].refine == MAX_REFINE && sd->status.inventory[i].card[0] == CARD0_FORGE && sd->status.char_id == (int)MakeDWord(sd->status.inventory[i].card[2],sd->status.inventory[i].card[3]) ){ // Fame point system [DracoRPG] switch (sd->inventory_data[i]->wlv){ case 1: pc_addfame(sd,1); // Success to refine to +10 a lv1 weapon you forged = +1 fame point break; case 2: pc_addfame(sd,25); // Success to refine to +10 a lv2 weapon you forged = +25 fame point break; case 3: pc_addfame(sd,1000); // Success to refine to +10 a lv3 weapon you forged = +1000 fame point break; } } } return 0; } /*========================================== * ���B���s *------------------------------------------ */ int buildin_failedrefitem(struct script_state *st) { int i,num; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0) { //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -1, &sd->status.inventory[i]); sd->status.inventory[i].refine = 0; pc_unequipitem(sd,i,3); // ���B���s�G�t�F�N�g�̃p�P�b�g clif_refine(sd->fd,sd,1,i,sd->status.inventory[i].refine); pc_delitem(sd,i,1,0); // ���̐l�ɂ����s��ʒm clif_misceffect(&sd->bl,2); } return 0; } /*========================================== * *------------------------------------------ */ int buildin_statusup(struct script_state *st) { int type; struct map_session_data *sd; type=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); pc_statusup(sd,type); return 0; } /*========================================== * *------------------------------------------ */ int buildin_statusup2(struct script_state *st) { int type,val; struct map_session_data *sd; type=conv_num(st,& (st->stack->stack_data[st->start+2])); val=conv_num(st,& (st->stack->stack_data[st->start+3])); sd=script_rid2sd(st); pc_statusup2(sd,type,val); return 0; } /// See 'doc/item_bonus.txt' /// bonus <bonus type>,<val1> /// bonus2 <bonus type>,<val1>,<val2> /// bonus3 <bonus type>,<val1>,<val2>,<val3> /// bonus4 <bonus type>,<val1>,<val2>,<val3>,<val4> int buildin_bonus(struct script_state* st) { int type; int type2; int type3; int type4; int val; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0; // no player attached type = conv_num(st, script_getdata(st,2)); switch( script_lastdata(st) ){ case 3: val = conv_num(st, script_getdata(st,3)); pc_bonus(sd, type, val); break; case 4: type2 = conv_num(st, script_getdata(st,3)); val = conv_num(st, script_getdata(st,4)); pc_bonus2(sd, type, type2, val); break; case 5: type2 = conv_num(st, script_getdata(st,3)); type3 = conv_num(st, script_getdata(st,4)); val = conv_num(st, script_getdata(st,5)); pc_bonus3(sd, type, type2, type3, val); break; case 6: type2 = conv_num(st, script_getdata(st,3)); type3 = conv_num(st, script_getdata(st,4)); type4 = conv_num(st, script_getdata(st,5)); val = conv_num(st, script_getdata(st,6)); pc_bonus4(sd, type, type2, type3, type4, val); break; default: ShowDebug("buildin_bonus: unexpected last data (%d)\n", script_lastdata(st)); } return 0; } /// Changes the level of a player skill. /// skill <skill id>,<level>{,<flag>} /// @see pc_skill() for flag int buildin_skill(struct script_state* st) { int id; int level; int flag = 1; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0; // no player attached id = conv_num(st, script_getdata(st,2)); level = conv_num(st, script_getdata(st,3)); if( script_hasdata(st,4) ) flag = conv_num(st, script_getdata(st,4)); pc_skill(sd, id, level, flag); return 0; } /// Changes the level of a player skill. /// addtoskill <skill id>,<level>{,<flag>} /// @see pc_skill() for flag int buildin_addtoskill(struct script_state* st) { int id; int level; int flag = 2; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0; // no player attached id = conv_num(st, script_getdata(st,2)); level = conv_num(st, script_getdata(st,3)); if( script_hasdata(st,4) ) flag = conv_num(st, script_getdata(st,4)); pc_skill(sd, id, level, flag); return 0; } /// Increases the level of the guild skill. /// guildskill <skill id>,<level> int buildin_guildskill(struct script_state* st) { int id; int level; TBL_PC* sd; int i; sd = script_rid2sd(st); if( sd == NULL ) return 0; // needs player attached id = conv_num(st, script_getdata(st,2)); level = conv_num(st, script_getdata(st,3)); for( i=0; i < level; i++ ) guild_skillup(sd, id); return 0; } /// Returns the level of the player skill. /// getskilllv(<skill id>) -> <level> int buildin_getskilllv(struct script_state* st) { int id; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ){ script_pushint(st, 0); return 0; // needs player attached } id = conv_num(st, script_getdata(st,2)); script_pushint(st, pc_checkskill(sd,id)); return 0; } /// Returns the level of the guild skill. /// getgdskilllv(<guild id>,<skill id>) -> <level> int buildin_getgdskilllv(struct script_state* st) { int guild_id; int skill_id; struct guild* g; guild_id = conv_num(st, script_getdata(st,2)); skill_id = conv_num(st, script_getdata(st,3)); g = guild_search(guild_id); if( g == NULL ) script_pushint(st, -1); else script_pushint(st, guild_checkskill(g,skill_id)); return 0; /* int skill_id; TBL_PC* sd; struct guild* g = NULL; sd = script_rid2sd(st); if( sd == NULL ) return 0; // needs player attached skill_id = conv_num(st, script_getdata(st,2)); if( sd->status.guild_id > 0 ) g = guild_search(sd->status.guild_id); if( g == NULL ) script_pushint(st, -1); else script_pushint(st, guild_checkskill(g,skill_id+9999)); return 0; */ } /// Returns the 'basic_skill_check' setting. /// basicskillcheck() -> <setting> int buildin_basicskillcheck(struct script_state* st) { script_pushint(st, battle_config.basic_skill_check); return 0; } /// Returns the GM level of the player. /// getgmlevel() -> <level> int buildin_getgmlevel(struct script_state* st) { TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ){ script_pushint(st, 0); return 0; // needs player attached } script_pushint(st, pc_isGM(sd)); return 0; } /// Terminates the execution of this script instance. /// end int buildin_end(struct script_state* st) { st->state = END; return 0; } /// Checks if the player has that option. /// checkoption(<option>) -> <bool> int buildin_checkoption(struct script_state* st) { int option; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return buildin_end(st);// needs player attached option = conv_num(st, script_getdata(st,2)); if( sd->sc.option&option ) script_pushint(st, 1); else script_pushint(st, 0); return 0; } /// Checks if the player is in that opt1 state. /// checkoption1(<opt1>) -> <bool> int buildin_checkoption1(struct script_state* st) { int opt1; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return buildin_end(st);// needs player attached opt1 = conv_num(st, script_getdata(st,2)); if( sd->sc.opt1 == opt1 ) script_pushint(st, 1); else script_pushint(st, 0); return 0; } /// Checks if the player has that opt2. /// checkoption2(<opt2>) -> <bool> int buildin_checkoption2(struct script_state* st) { int opt2; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return buildin_end(st);// needs player attached opt2 = conv_num(st, script_getdata(st,2)); if( sd->sc.opt2&opt2 ) script_pushint(st, 1); else script_pushint(st, 0); return 0; } /// Changes the option of the player. /// setoption <option number>{,<flag>} int buildin_setoption(struct script_state* st) { int option; int flag = 1; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0;// needs player attached option = conv_num(st, script_getdata(st,2)); if( script_hasdata(st,3) ) flag = conv_num(st, script_getdata(st,3)); else if( !option ){// Request to remove everything. flag = 0; option = OPTION_CART|OPTION_FALCON|OPTION_RIDING; } if( flag ){// Add option if( option&OPTION_WEDDING && !battle_config.wedding_modifydisplay ) option &= ~OPTION_WEDDING;// Do not show the wedding sprites pc_setoption(sd, sd->sc.option|option); } else// Remove option pc_setoption(sd, sd->sc.option&~option); return 0; } /// Returns if the player has a cart. /// checkcart() -> <bool> /// @author Valaris int buildin_checkcart(struct script_state* st) { TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return buildin_end(st);// needs player attached if( pc_iscarton(sd) ) script_pushint(st, 1); else script_pushint(st, 0); return 0; } /// Sets the cart of the player. /// setcart {<type>} int buildin_setcart(struct script_state* st) { int type = 1; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0;// needs player attached if( script_hasdata(st,2) ) type = conv_num(st, script_getdata(st,2)); pc_setcart(sd, type); return 0; } /// Returns if the player has a falcon. /// checkfalcon() -> <bool> /// @author Valaris int buildin_checkfalcon(struct script_state* st) { TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return buildin_end(st);// needs player attached if( pc_isfalcon(sd) ) script_pushint(st, 1); else script_pushint(st, 0); return 0; } /// Sets if the player has a falcon or not. /// setfalcon {<flag>} int buildin_setfalcon(struct script_state* st) { int flag = 1; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0;// needs player attached if( script_hasdata(st,2) ) flag = conv_num(st, script_getdata(st,2)); pc_setfalcon(sd, flag); return 0; } /// Returns if the player is riding. /// checkriding() -> <bool> /// @author Valaris int buildin_checkriding(struct script_state* st) { TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return buildin_end(st);// needs player attached if( pc_isriding(sd) ) script_pushint(st, 1); else script_pushint(st, 0); return 0; } /// Sets if the player is riding. /// setriding {<flag>} int buildin_setriding(struct script_state* st) { int flag = 1; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0;// needs player attached if( script_hasdata(st,2) ) flag = conv_num(st, script_getdata(st,2)); pc_setriding(sd, flag); return 0; } /// Sets the save point of the player. /// save "<map name>",<x>,<y> /// savepoint "<map name>",<x>,<y> int buildin_savepoint(struct script_state* st) { int x; int y; short map; char* str; TBL_PC* sd; sd = script_rid2sd(st); if( sd == NULL ) return 0;// needs player attached str = conv_str(st, script_getdata(st,2)); x = conv_num(st, script_getdata(st,3)); y = conv_num(st, script_getdata(st,4)); map = mapindex_name2id(str); if( map ) pc_setsavepoint(sd, map, x, y); return 0; } /*========================================== * GetTimeTick(0: System Tick, 1: Time Second Tick) *------------------------------------------ */ int buildin_gettimetick(struct script_state *st) /* Asgard Version */ { int type; time_t timer; struct tm *t; type=conv_num(st,& (st->stack->stack_data[st->start+2])); switch(type){ case 2: //type 2:(Get the number of seconds elapsed since 00:00 hours, Jan 1, 1970 UTC // from the system clock.) push_val(st->stack,C_INT,(int)time(NULL)); break; case 1: //type 1:(Second Ticks: 0-86399, 00:00:00-23:59:59) time(&timer); t=localtime(&timer); push_val(st->stack,C_INT,((t->tm_hour)*3600+(t->tm_min)*60+t->tm_sec)); break; case 0: default: //type 0:(System Ticks) push_val(st->stack,C_INT,gettick()); break; } return 0; } /*========================================== * GetTime(Type); * 1: Sec 2: Min 3: Hour * 4: WeekDay 5: MonthDay 6: Month * 7: Year *------------------------------------------ */ int buildin_gettime(struct script_state *st) /* Asgard Version */ { int type; time_t timer; struct tm *t; type=conv_num(st,& (st->stack->stack_data[st->start+2])); time(&timer); t=localtime(&timer); switch(type){ case 1://Sec(0~59) push_val(st->stack,C_INT,t->tm_sec); break; case 2://Min(0~59) push_val(st->stack,C_INT,t->tm_min); break; case 3://Hour(0~23) push_val(st->stack,C_INT,t->tm_hour); break; case 4://WeekDay(0~6) push_val(st->stack,C_INT,t->tm_wday); break; case 5://MonthDay(01~31) push_val(st->stack,C_INT,t->tm_mday); break; case 6://Month(01~12) push_val(st->stack,C_INT,t->tm_mon+1); break; case 7://Year(20xx) push_val(st->stack,C_INT,t->tm_year+1900); break; case 8://Year Day(01~366) push_val(st->stack,C_INT,t->tm_yday+1); break; default://(format error) push_val(st->stack,C_INT,-1); break; } return 0; } /*========================================== * GetTimeStr("TimeFMT", Length); *------------------------------------------ */ int buildin_gettimestr(struct script_state *st) { char *tmpstr; char *fmtstr; int maxlen; time_t now = time(NULL); fmtstr=conv_str(st,& (st->stack->stack_data[st->start+2])); maxlen=conv_num(st,& (st->stack->stack_data[st->start+3])); tmpstr=(char *)aMallocA((maxlen+1)*sizeof(char)); strftime(tmpstr,maxlen,fmtstr,localtime(&now)); tmpstr[maxlen]='\0'; push_str(st->stack,C_STR,tmpstr); return 0; } /*========================================== * �J�v���q�ɂ��J�� *------------------------------------------ */ int buildin_openstorage(struct script_state *st) { storage_storageopen(script_rid2sd(st)); return 0; } int buildin_guildopenstorage(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); int ret; ret = storage_guild_storageopen(sd); push_val(st->stack,C_INT,ret); return 0; } /*========================================== * �A�C�e���ɂ��X�L������ *------------------------------------------ */ int buildin_itemskill(struct script_state *st) { int id,lv; char *str; struct map_session_data *sd=script_rid2sd(st); id=conv_num(st,& (st->stack->stack_data[st->start+2])); lv=conv_num(st,& (st->stack->stack_data[st->start+3])); str=conv_str(st,& (st->stack->stack_data[st->start+4])); // �r�����ɃX�L���A�C�e���͎g�p�ł��Ȃ� if(sd->ud.skilltimer != -1) return 0; sd->skillitem=id; sd->skillitemlv=lv; clif_item_skill(sd,id,lv,str); return 0; } /*========================================== * �A�C�e���쐬 *------------------------------------------ */ int buildin_produce(struct script_state *st) { int trigger; struct map_session_data *sd=script_rid2sd(st); trigger=conv_num(st,& (st->stack->stack_data[st->start+2])); clif_skill_produce_mix_list(sd, trigger); return 0; } /*========================================== * NPC�Ńy�b�g��� *------------------------------------------ */ int buildin_makepet(struct script_state *st) { struct map_session_data *sd = script_rid2sd(st); struct script_data *data; int id,pet_id; data=&(st->stack->stack_data[st->start+2]); get_val(st,data); id=conv_num(st,data); pet_id = search_petDB_index(id, PET_CLASS); if (pet_id < 0) pet_id = search_petDB_index(id, PET_EGG); if (pet_id >= 0 && sd) { sd->catch_target_class = pet_db[pet_id].class_; intif_create_pet( sd->status.account_id, sd->status.char_id, (short)pet_db[pet_id].class_, (short)mob_db(pet_db[pet_id].class_)->lv, (short)pet_db[pet_id].EggID, 0, (short)pet_db[pet_id].intimate, 100, 0, 1, pet_db[pet_id].jname); } return 0; } /*========================================== * NPC�Ōo���l�グ�� *------------------------------------------ */ int buildin_getexp(struct script_state *st) { struct map_session_data *sd = script_rid2sd(st); int base=0,job=0; base=conv_num(st,& (st->stack->stack_data[st->start+2])); job =conv_num(st,& (st->stack->stack_data[st->start+3])); if(base<0 || job<0) return 0; if(sd) pc_gainexp(sd,NULL,base,job); return 0; } /*========================================== * Gain guild exp [Celest] *------------------------------------------ */ int buildin_guildgetexp(struct script_state *st) { struct map_session_data *sd = script_rid2sd(st); int exp; exp = conv_num(st,& (st->stack->stack_data[st->start+2])); if(exp < 0) return 0; if(sd && sd->status.guild_id > 0) guild_getexp (sd, exp); return 0; } /*========================================== * Changes the guild master of a guild [Skotlex] *------------------------------------------ */ int buildin_guildchangegm(struct script_state *st) { struct map_session_data *sd; int guild_id; char *name; guild_id = conv_num(st,& (st->stack->stack_data[st->start+2])); name = conv_str(st,& (st->stack->stack_data[st->start+3])); sd=map_nick2sd(name); if (!sd) push_val(st->stack,C_INT,0); else push_val(st->stack,C_INT,guild_gm_change(guild_id, sd)); return 0; } /*========================================== * �����X�^�[���� *------------------------------------------ */ int buildin_monster(struct script_state *st) { int class_,amount,x,y; char *str,*map,*event=""; map =conv_str(st,& (st->stack->stack_data[st->start+2])); x =conv_num(st,& (st->stack->stack_data[st->start+3])); y =conv_num(st,& (st->stack->stack_data[st->start+4])); str =conv_str(st,& (st->stack->stack_data[st->start+5])); class_=conv_num(st,& (st->stack->stack_data[st->start+6])); amount=conv_num(st,& (st->stack->stack_data[st->start+7])); if( st->end>st->start+8 ){ event=conv_str(st,& (st->stack->stack_data[st->start+8])); check_event(st, event); } if (class_ >= 0 && !mobdb_checkid(class_)) { ShowWarning("buildin_monster: Attempted to spawn non-existing monster class %d\n", class_); return 1; } mob_once_spawn(map_id2sd(st->rid),map,x,y,str,class_,amount,event); return 0; } /*========================================== * �����X�^�[���� *------------------------------------------ */ int buildin_areamonster(struct script_state *st) { int class_,amount,x0,y0,x1,y1; char *str,*map,*event=""; map =conv_str(st,& (st->stack->stack_data[st->start+2])); x0 =conv_num(st,& (st->stack->stack_data[st->start+3])); y0 =conv_num(st,& (st->stack->stack_data[st->start+4])); x1 =conv_num(st,& (st->stack->stack_data[st->start+5])); y1 =conv_num(st,& (st->stack->stack_data[st->start+6])); str =conv_str(st,& (st->stack->stack_data[st->start+7])); class_=conv_num(st,& (st->stack->stack_data[st->start+8])); amount=conv_num(st,& (st->stack->stack_data[st->start+9])); if( st->end>st->start+10 ){ event=conv_str(st,& (st->stack->stack_data[st->start+10])); check_event(st, event); } mob_once_spawn_area(map_id2sd(st->rid),map,x0,y0,x1,y1,str,class_,amount,event); return 0; } /*========================================== * �����X�^�[�폜 *------------------------------------------ */ int buildin_killmonster_sub(struct block_list *bl,va_list ap) { TBL_MOB* md = (TBL_MOB*)bl; char *event=va_arg(ap,char *); int allflag=va_arg(ap,int); if(!allflag){ if(strcmp(event,md->npc_event)==0) status_kill(bl); }else{ if(!md->spawn) status_kill(bl); } return 0; } int buildin_killmonster(struct script_state *st) { char *mapname,*event; int m,allflag=0; mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); event=conv_str(st,& (st->stack->stack_data[st->start+3])); if(strcmp(event,"All")==0) allflag = 1; else check_event(st, event); if( (m=map_mapname2mapid(mapname))<0 ) return 0; map_foreachinmap(buildin_killmonster_sub, m, BL_MOB, event ,allflag); return 0; } int buildin_killmonsterall_sub(struct block_list *bl,va_list ap) { status_kill(bl); return 0; } int buildin_killmonsterall(struct script_state *st) { char *mapname; int m; mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); if( (m=map_mapname2mapid(mapname))<0 ) return 0; map_foreachinmap(buildin_killmonsterall_sub, m,BL_MOB); return 0; } /*========================================== * Creates a clone of a player. * clone map, x, y, event, char_id, master_id, mode, flag, duration *------------------------------------------ */ int buildin_clone(struct script_state *st) { struct map_session_data *sd, *msd=NULL; int char_id,master_id=0,x,y, mode = 0, flag = 0, m; unsigned int duration = 0; char *map,*event=""; map=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); event=conv_str(st,& (st->stack->stack_data[st->start+5])); char_id=conv_num(st,& (st->stack->stack_data[st->start+6])); if( st->end>st->start+7 ) master_id=conv_num(st,& (st->stack->stack_data[st->start+7])); if( st->end>st->start+8 ) mode=conv_num(st,& (st->stack->stack_data[st->start+8])); if( st->end>st->start+9 ) flag=conv_num(st,& (st->stack->stack_data[st->start+9])); if( st->end>st->start+10 ) duration=conv_num(st,& (st->stack->stack_data[st->start+10])); check_event(st, event); m = map_mapname2mapid(map); if (m < 0) return 0; sd = map_charid2sd(char_id); if (master_id) { msd = map_charid2sd(master_id); if (msd) master_id = msd->bl.id; else master_id = 0; } if (sd) //Return ID of newly crafted clone. push_val(st->stack,C_INT,mob_clone_spawn(sd, m, x, y, event, master_id, mode, flag, 1000*duration)); else //Failed to create clone. push_val(st->stack,C_INT,0); return 0; } /*========================================== * �C�x���g���s *------------------------------------------ */ int buildin_doevent(struct script_state *st) { char *event; event=conv_str(st,& (st->stack->stack_data[st->start+2])); check_event(st, event); npc_event(map_id2sd(st->rid),event,0); return 0; } /*========================================== * NPC��̃C�x���g���s *------------------------------------------ */ int buildin_donpcevent(struct script_state *st) { char *event; event=conv_str(st,& (st->stack->stack_data[st->start+2])); check_event(st, event); npc_event_do(event); return 0; } /*========================================== * �C�x���g�^�C�}�[�lj� *------------------------------------------ */ int buildin_addtimer(struct script_state *st) { char *event; int tick; tick=conv_num(st,& (st->stack->stack_data[st->start+2])); event=conv_str(st,& (st->stack->stack_data[st->start+3])); check_event(st, event); pc_addeventtimer(script_rid2sd(st),tick,event); return 0; } /*========================================== * �C�x���g�^�C�}�[�폜 *------------------------------------------ */ int buildin_deltimer(struct script_state *st) { char *event; event=conv_str(st,& (st->stack->stack_data[st->start+2])); check_event(st, event); pc_deleventtimer(script_rid2sd(st),event); return 0; } /*========================================== * �C�x���g�^�C�}�[�̃J�E���g�l�lj� *------------------------------------------ */ int buildin_addtimercount(struct script_state *st) { char *event; int tick; event=conv_str(st,& (st->stack->stack_data[st->start+2])); tick=conv_num(st,& (st->stack->stack_data[st->start+3])); check_event(st, event); pc_addeventtimercount(script_rid2sd(st),event,tick); return 0; } /*========================================== * NPC�^�C�}�[������ *------------------------------------------ */ int buildin_initnpctimer(struct script_state *st) { struct npc_data *nd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); npc_settimerevent_tick(nd,0); npc_timerevent_start(nd, st->rid); return 0; } /*========================================== * NPC�^�C�}�[�J�n *------------------------------------------ */ int buildin_startnpctimer(struct script_state *st) { struct npc_data *nd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); npc_timerevent_start(nd, st->rid); return 0; } /*========================================== * NPC�^�C�}�[��~ *------------------------------------------ */ int buildin_stopnpctimer(struct script_state *st) { struct npc_data *nd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); npc_timerevent_stop(nd); return 0; } /*========================================== * NPC�^�C�}�[��� *------------------------------------------ */ int buildin_getnpctimer(struct script_state *st) { struct npc_data *nd; struct map_session_data *sd; int type=conv_num(st,& (st->stack->stack_data[st->start+2])); int val=0; if( st->end > st->start+3 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+3]))); else nd=(struct npc_data *)map_id2bl(st->oid); if (!nd || nd->bl.type != BL_NPC) { push_val(st->stack,C_INT,0); if (battle_config.error_log) ShowError("getnpctimer: Invalid NPC\n"); return 1; } switch(type){ case 0: val=npc_gettimerevent_tick(nd); break; case 1: if (nd->u.scr.rid) { sd = map_id2sd(nd->u.scr.rid); if (!sd) { if(battle_config.error_log) ShowError("buildin_getnpctimer: Attached player not found!\n"); break; } val = (sd->npc_timer_id != -1); } else val= (nd->u.scr.timerid !=-1); break; case 2: val= nd->u.scr.timeramount; break; } push_val(st->stack,C_INT,val); return 0; } /*========================================== * NPC�^�C�}�[�l�ݒ� *------------------------------------------ */ int buildin_setnpctimer(struct script_state *st) { int tick; struct npc_data *nd; tick=conv_num(st,& (st->stack->stack_data[st->start+2])); if( st->end > st->start+3 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+3]))); else nd=(struct npc_data *)map_id2bl(st->oid); npc_settimerevent_tick(nd,tick); return 0; } /*========================================== * attaches the player rid to the timer [Celest] *------------------------------------------ */ int buildin_attachnpctimer(struct script_state *st) { struct map_session_data *sd; struct npc_data *nd; nd=(struct npc_data *)map_id2bl(st->oid); if( st->end > st->start+2 ) { char *name = conv_str(st,& (st->stack->stack_data[st->start+2])); sd=map_nick2sd(name); } else { sd = script_rid2sd(st); } if (sd==NULL) return 0; nd->u.scr.rid = sd->bl.id; return 0; } /*========================================== * detaches a player rid from the timer [Celest] *------------------------------------------ */ int buildin_detachnpctimer(struct script_state *st) { struct npc_data *nd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); nd->u.scr.rid = 0; return 0; } /*========================================== * To avoid "player not attached" script errors, this function is provided, * it checks if there is a player attached to the current script. [Skotlex] * If no, returns 0, if yes, returns the char_id of the attached player. *------------------------------------------ */ int buildin_playerattached(struct script_state *st) { struct map_session_data *sd; if (st->rid == 0 || (sd = map_id2sd(st->rid)) == NULL) push_val(st->stack,C_INT,0); else push_val(st->stack,C_INT,st->rid); return 0; } /*========================================== * �V�̐��A�i�E���X *------------------------------------------ */ int buildin_announce(struct script_state *st) { char *str, *color=NULL; int flag; str=conv_str(st,& (st->stack->stack_data[st->start+2])); flag=conv_num(st,& (st->stack->stack_data[st->start+3])); if (st->end>st->start+4) color=conv_str(st,& (st->stack->stack_data[st->start+4])); if(flag&0x0f){ struct block_list *bl=(flag&0x08)? map_id2bl(st->oid) : (struct block_list *)script_rid2sd(st); if (color) clif_announce(bl,str,(int)strlen(str)+1, strtol(color, (char **)NULL, 0),flag); else clif_GMmessage(bl,str,(int)strlen(str)+1,flag); }else { if (color) intif_announce(str,(int)strlen(str)+1, strtol(color, (char **)NULL, 0), flag); else intif_GMmessage(str,(int)strlen(str)+1,flag); } return 0; } /*========================================== * �V�̐��A�i�E���X�i����}�b�v�j *------------------------------------------ */ int buildin_mapannounce_sub(struct block_list *bl,va_list ap) { char *str, *color; int len,flag; str=va_arg(ap,char *); len=va_arg(ap,int); flag=va_arg(ap,int); color=va_arg(ap,char *); if (color) clif_announce(bl,str,len, strtol(color, (char **)NULL, 0), flag|3); else clif_GMmessage(bl,str,len,flag|3); return 0; } int buildin_mapannounce(struct script_state *st) { char *mapname,*str, *color=NULL; int flag,m; mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); str=conv_str(st,& (st->stack->stack_data[st->start+3])); flag=conv_num(st,& (st->stack->stack_data[st->start+4])); if (st->end>st->start+5) color=conv_str(st,& (st->stack->stack_data[st->start+5])); if( (m=map_mapname2mapid(mapname))<0 ) return 0; map_foreachinmap(buildin_mapannounce_sub, m, BL_PC, str,strlen(str)+1,flag&0x10, color); return 0; } /*========================================== * �V�̐��A�i�E���X�i����G���A�j *------------------------------------------ */ int buildin_areaannounce(struct script_state *st) { char *map,*str,*color=NULL; int flag,m; int x0,y0,x1,y1; map=conv_str(st,& (st->stack->stack_data[st->start+2])); x0=conv_num(st,& (st->stack->stack_data[st->start+3])); y0=conv_num(st,& (st->stack->stack_data[st->start+4])); x1=conv_num(st,& (st->stack->stack_data[st->start+5])); y1=conv_num(st,& (st->stack->stack_data[st->start+6])); str=conv_str(st,& (st->stack->stack_data[st->start+7])); flag=conv_num(st,& (st->stack->stack_data[st->start+8])); if (st->end>st->start+9) color=conv_str(st,& (st->stack->stack_data[st->start+9])); if( (m=map_mapname2mapid(map))<0 ) return 0; map_foreachinarea(buildin_mapannounce_sub, m,x0,y0,x1,y1,BL_PC, str,strlen(str)+1,flag&0x10, color); return 0; } /*========================================== * ���[�U�[������ *------------------------------------------ */ int buildin_getusers(struct script_state *st) { int flag=conv_num(st,& (st->stack->stack_data[st->start+2])); struct block_list *bl=map_id2bl((flag&0x08)?st->oid:st->rid); int val=0; switch(flag&0x07){ case 0: val=map[bl->m].users; break; case 1: val=map_getusers(); break; } push_val(st->stack,C_INT,val); return 0; } /*========================================== * Works like @WHO - displays all online users names in window *------------------------------------------ */ int buildin_getusersname(struct script_state *st) { struct map_session_data *sd, *pl_sd = NULL, **pl_allsd; int i=0,disp_num=1, users; sd = script_rid2sd(st); if (!sd) return 0; pl_allsd = map_getallusers(&users); for (i=0;i<users;i++) { pl_sd = pl_allsd[i]; if( !(battle_config.hide_GM_session && pc_isGM(pl_sd)) ) { if((disp_num++)%10==0) clif_scriptnext(sd,st->oid); clif_scriptmes(sd,st->oid,pl_sd->status.name); } } return 0; } /*========================================== * getmapguildusers("mapname.gat",guild ID) Returns the number guild members present on a map [Reddozen] *------------------------------------------ */ int buildin_getmapguildusers(struct script_state *st) { char *str; int m, gid; int i=0,c=0; struct guild *g = NULL; str=conv_str(st, &(st->stack->stack_data[st->start+2])); gid=conv_num(st, &(st->stack->stack_data[st->start+3])); if ((m = map_mapname2mapid(str)) < 0) { // map id on this server (m == -1 if not in actual map-server) push_val(st->stack, C_INT, -1); return 0; } g = guild_search(gid); if (g){ for(i = 0; i < g->max_member; i++) { if (g->member[i].sd && g->member[i].sd->bl.m == m) c++; } } push_val(st->stack, C_INT, c); return 0; } /*========================================== * �}�b�v�w�胆�[�U�[������ *------------------------------------------ */ int buildin_getmapusers(struct script_state *st) { char *str; int m; str=conv_str(st,& (st->stack->stack_data[st->start+2])); if( (m=map_mapname2mapid(str))< 0){ push_val(st->stack,C_INT,-1); return 0; } push_val(st->stack,C_INT,map[m].users); return 0; } /*========================================== * �G���A�w�胆�[�U�[������ *------------------------------------------ */ int buildin_getareausers_sub(struct block_list *bl,va_list ap) { int *users=va_arg(ap,int *); (*users)++; return 0; } int buildin_getareausers(struct script_state *st) { char *str; int m,x0,y0,x1,y1,users=0; str=conv_str(st,& (st->stack->stack_data[st->start+2])); x0=conv_num(st,& (st->stack->stack_data[st->start+3])); y0=conv_num(st,& (st->stack->stack_data[st->start+4])); x1=conv_num(st,& (st->stack->stack_data[st->start+5])); y1=conv_num(st,& (st->stack->stack_data[st->start+6])); if( (m=map_mapname2mapid(str))< 0){ push_val(st->stack,C_INT,-1); return 0; } map_foreachinarea(buildin_getareausers_sub, m,x0,y0,x1,y1,BL_PC,&users); push_val(st->stack,C_INT,users); return 0; } /*========================================== * �G���A�w��h���b�v�A�C�e�������� *------------------------------------------ */ int buildin_getareadropitem_sub(struct block_list *bl,va_list ap) { int item=va_arg(ap,int); int *amount=va_arg(ap,int *); struct flooritem_data *drop=(struct flooritem_data *)bl; if(drop->item_data.nameid==item) (*amount)+=drop->item_data.amount; return 0; } int buildin_getareadropitem(struct script_state *st) { char *str; int m,x0,y0,x1,y1,item,amount=0; struct script_data *data; str=conv_str(st,& (st->stack->stack_data[st->start+2])); x0=conv_num(st,& (st->stack->stack_data[st->start+3])); y0=conv_num(st,& (st->stack->stack_data[st->start+4])); x1=conv_num(st,& (st->stack->stack_data[st->start+5])); y1=conv_num(st,& (st->stack->stack_data[st->start+6])); data=&(st->stack->stack_data[st->start+7]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); item=UNKNOWN_ITEM_ID; if( item_data ) item=item_data->nameid; }else item=conv_num(st,data); if( (m=map_mapname2mapid(str))< 0){ push_val(st->stack,C_INT,-1); return 0; } map_foreachinarea(buildin_getareadropitem_sub, m,x0,y0,x1,y1,BL_ITEM,item,&amount); push_val(st->stack,C_INT,amount); return 0; } /*========================================== * NPC�̗L���� *------------------------------------------ */ int buildin_enablenpc(struct script_state *st) { char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); npc_enable(str,1); return 0; } /*========================================== * NPC�̖����� *------------------------------------------ */ int buildin_disablenpc(struct script_state *st) { char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); npc_enable(str,0); return 0; } int buildin_enablearena(struct script_state *st) // Added by RoVeRT { struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); struct chat_data *cd; if(nd==NULL || (cd=(struct chat_data *)map_id2bl(nd->chat_id))==NULL) return 0; npc_enable(nd->name,1); nd->arenaflag=1; if(cd->users>=cd->trigger && cd->npc_event[0]) npc_timer_event(cd->npc_event); return 0; } int buildin_disablearena(struct script_state *st) // Added by RoVeRT { struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); nd->arenaflag=0; return 0; } /*========================================== * �B��Ă���NPC�̕\�� *------------------------------------------ */ int buildin_hideoffnpc(struct script_state *st) { char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); npc_enable(str,2); return 0; } /*========================================== * NPC���n�C�f�B���O *------------------------------------------ */ int buildin_hideonnpc(struct script_state *st) { char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); npc_enable(str,4); return 0; } /*========================================== * ��Ԉُ�ɂ����� *------------------------------------------ */ int buildin_sc_start(struct script_state *st) { struct block_list *bl; int type,tick,val1,val4=0; type=conv_num(st,& (st->stack->stack_data[st->start+2])); tick=conv_num(st,& (st->stack->stack_data[st->start+3])); val1=conv_num(st,& (st->stack->stack_data[st->start+4])); if( st->end>st->start+5 ) //�w�肵���L��������Ԉُ�ɂ��� bl = map_id2bl(conv_num(st,& (st->stack->stack_data[st->start+5]))); else bl = map_id2bl(st->rid); if (potion_flag==1 && potion_target) { bl = map_id2bl(potion_target); tick/=2; //Thrown potions only last half. val4 = 1; //Mark that this was a thrown sc_effect } if (type >= 0 && type < SC_MAX && val1 && !tick) { //When there isn't a duration specified, try to get it from the skill_db tick = StatusSkillChangeTable[type]; if (tick) tick = skill_get_time(tick,val1); else //Failed to retrieve duration, reset to what it was. tick = 0; } if (bl) status_change_start(bl,type,10000,val1,0,0,val4,tick,11); return 0; } /*========================================== * ��Ԉُ�ɂ�����(�m���w��) *------------------------------------------ */ int buildin_sc_start2(struct script_state *st) { struct block_list *bl; int type,tick,val1,val4=0,per; type=conv_num(st,& (st->stack->stack_data[st->start+2])); tick=conv_num(st,& (st->stack->stack_data[st->start+3])); val1=conv_num(st,& (st->stack->stack_data[st->start+4])); per=conv_num(st,& (st->stack->stack_data[st->start+5])); if( st->end>st->start+6 ) //�w�肵���L��������Ԉُ�ɂ��� bl = map_id2bl(conv_num(st,& (st->stack->stack_data[st->start+6]))); else bl = map_id2bl(st->rid); if (type >= 0 && type < SC_MAX && val1 && !tick) { //When there isn't a duration specified, try to get it from the skill_db tick = StatusSkillChangeTable[type]; if (tick) tick = skill_get_time(tick,val1); else //Failed to retrieve duration, reset to what it was. tick = 0; } if (potion_flag==1 && potion_target) { bl = map_id2bl(potion_target); tick/=2; val4 = 1; } if(bl) status_change_start(bl,type,per,val1,0,0,val4,tick,11); return 0; } /*========================================== * Starts a SC_ change with the four values passed. [Skotlex] * Final optional argument is the ID of player to affect. * sc_start4 type, duration, val1, val2, val3, val4, <id>; *------------------------------------------ */ int buildin_sc_start4(struct script_state *st) { struct block_list *bl; int type,tick,val1,val2,val3,val4; type=conv_num(st,& (st->stack->stack_data[st->start+2])); tick=conv_num(st,& (st->stack->stack_data[st->start+3])); val1=conv_num(st,& (st->stack->stack_data[st->start+4])); val2=conv_num(st,& (st->stack->stack_data[st->start+5])); val3=conv_num(st,& (st->stack->stack_data[st->start+6])); val4=conv_num(st,& (st->stack->stack_data[st->start+7])); if( st->end>st->start+8 ) bl = map_id2bl(conv_num(st,& (st->stack->stack_data[st->start+8]))); else bl = map_id2bl(st->rid); if (type >= 0 && type < SC_MAX && val1 && !tick) { //When there isn't a duration specified, try to get it from the skill_db tick = StatusSkillChangeTable[type]; if (tick) tick = skill_get_time(tick,val1); else //Failed to retrieve duration, reset to what it was. tick = 0; } if (potion_flag==1 && potion_target) { bl = map_id2bl(potion_target); tick/=2; } if (bl) status_change_start(bl,type,10000,val1,val2,val3,val4,tick,11); return 0; } /*========================================== * ��Ԉُ킪���� *------------------------------------------ */ int buildin_sc_end(struct script_state *st) { struct block_list *bl; int type; type=conv_num(st,& (st->stack->stack_data[st->start+2])); bl = map_id2bl(st->rid); if (potion_flag==1 && potion_target) bl = map_id2bl(potion_target); if (!bl) return 0; if (type >= 0) status_change_end(bl,type,-1); else status_change_clear(bl, 2); return 0; } /*========================================== * ��Ԉُ�ϐ����v�Z�����m����Ԃ� *------------------------------------------ */ int buildin_getscrate(struct script_state *st) { struct block_list *bl; int sc_def=0,type,rate; type=conv_num(st,& (st->stack->stack_data[st->start+2])); rate=conv_num(st,& (st->stack->stack_data[st->start+3])); if( st->end>st->start+4 ) //�w�肵���L�����̑ϐ����v�Z���� bl = map_id2bl(conv_num(st,& (st->stack->stack_data[st->start+4]))); else bl = map_id2bl(st->rid); if (bl) sc_def = status_get_sc_def(bl,type); rate = rate*(10000-sc_def)/10000; push_val(st->stack,C_INT,rate<0?0:rate); return 0; } /*========================================== * *------------------------------------------ */ int buildin_debugmes(struct script_state *st) { conv_str(st,& (st->stack->stack_data[st->start+2])); ShowDebug("script debug : %d %d : %s\n",st->rid,st->oid,st->stack->stack_data[st->start+2].u.str); return 0; } /*========================================== *�ߊl�A�C�e���g�p *------------------------------------------ */ int buildin_catchpet(struct script_state *st) { int pet_id; struct map_session_data *sd; pet_id= conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); pet_catch_process1(sd,pet_id); return 0; } /*========================================== * [orn] *------------------------------------------ */ int buildin_homunculus_evolution(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); if ( sd->hd && sd->hd->homunculusDB->evo_class && sd->hd->homunculus.intimacy > 91000 ) { return !merc_hom_evolution(sd->hd) ; } clif_emotion(&sd->hd->bl, 4) ; //swt return 0; } //These two functions bring the eA MAPID_* class functionality to scripts. int buildin_eaclass(struct script_state *st) { int class_; if( st->end>st->start+2 ) class_ = conv_num(st,& (st->stack->stack_data[st->start+2])); else { struct map_session_data *sd; sd=script_rid2sd(st); if (!sd) { push_val(st->stack,C_INT, -1); return 0; } class_ = sd->status.class_; } push_val(st->stack,C_INT, pc_jobid2mapid(class_)); return 0; } int buildin_roclass(struct script_state *st) { int class_ =conv_num(st,& (st->stack->stack_data[st->start+2])); int sex; if( st->end>st->start+3 ) sex = conv_num(st,& (st->stack->stack_data[st->start+3])); else { struct map_session_data *sd; if (st->rid && (sd=script_rid2sd(st))) sex = sd->status.sex; else sex = 1; //Just use male when not found. } push_val(st->stack,C_INT,pc_mapid2jobid(class_, sex)); return 0; } /*========================================== *�g�ї��z���@�g�p *------------------------------------------ */ int buildin_birthpet(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); clif_sendegg(sd); return 0; } /*========================================== * Added - AppleGirl For Advanced Classes, (Updated for Cleaner Script Purposes) *------------------------------------------ */ int buildin_resetlvl(struct script_state *st) { struct map_session_data *sd; int type=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); pc_resetlvl(sd,type); return 0; } /*========================================== * �X�e�[�^�X���Z�b�g *------------------------------------------ */ int buildin_resetstatus(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); pc_resetstate(sd); return 0; } /*========================================== * script command resetskill *------------------------------------------ */ int buildin_resetskill(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); pc_resetskill(sd,1); return 0; } /*========================================== * Counts total amount of skill points. *------------------------------------------ */ int buildin_skillpointcount(struct script_state *st) { struct map_session_data *sd; sd=script_rid2sd(st); push_val(st->stack,C_INT,sd->status.skill_point + pc_resetskill(sd,2)); return 0; } /*========================================== * *------------------------------------------ */ int buildin_changebase(struct script_state *st) { struct map_session_data *sd=NULL; int vclass; if( st->end>st->start+3 ) sd=map_id2sd(conv_num(st,& (st->stack->stack_data[st->start+3]))); else sd=script_rid2sd(st); if(sd == NULL) return 0; vclass = conv_num(st,& (st->stack->stack_data[st->start+2])); if(vclass == JOB_WEDDING) { if (!battle_config.wedding_modifydisplay || //Do not show the wedding sprites sd->class_&JOBL_BABY //Baby classes screw up when showing wedding sprites. [Skotlex] They don't seem to anymore. ) return 0; } if(!sd->disguise && vclass != sd->vd.class_) { status_set_viewdata(&sd->bl, vclass); //Updated client view. Base, Weapon and Cloth Colors. clif_changelook(&sd->bl,LOOK_BASE,sd->vd.class_); clif_changelook(&sd->bl,LOOK_WEAPON,sd->status.weapon); if (sd->vd.cloth_color) clif_changelook(&sd->bl,LOOK_CLOTHES_COLOR,sd->vd.cloth_color); } return 0; } /*========================================== * ���ʕϊ� *------------------------------------------ */ int buildin_changesex(struct script_state *st) { struct map_session_data *sd = NULL; sd = script_rid2sd(st); if (sd->status.sex == 0) { sd->status.sex = 1; if ((sd->class_&MAPID_UPPERMASK) == MAPID_BARDDANCER) sd->status.class_ -= 1; } else if (sd->status.sex == 1) { sd->status.sex = 0; if ((sd->class_&MAPID_UPPERMASK) == MAPID_BARDDANCER) sd->status.class_ += 1; } chrif_char_ask_name(-1, sd->status.name, 5, 0, 0, 0, 0, 0, 0); // type: 5 - changesex chrif_save(sd,0); return 0; } /*========================================== * npc�`���b�g�쐬 *------------------------------------------ */ int buildin_waitingroom(struct script_state *st) { char *name,*ev=""; int limit, trigger = 0,pub=1; name=conv_str(st,& (st->stack->stack_data[st->start+2])); limit= conv_num(st,& (st->stack->stack_data[st->start+3])); if(limit==0) pub=3; if( (st->end > st->start+5) ){ struct script_data* data=&(st->stack->stack_data[st->start+5]); get_val(st,data); if(data->type==C_INT){ // �VAthena�d�l(��Athena�d�l�ƌ݊�������) ev=conv_str(st,& (st->stack->stack_data[st->start+4])); trigger=conv_num(st,& (st->stack->stack_data[st->start+5])); }else{ // eathena�d�l trigger=conv_num(st,& (st->stack->stack_data[st->start+4])); ev=conv_str(st,& (st->stack->stack_data[st->start+5])); } }else{ // ��Athena�d�l if( st->end > st->start+4 ) ev=conv_str(st,& (st->stack->stack_data[st->start+4])); } chat_createnpcchat( (struct npc_data *)map_id2bl(st->oid), limit,pub,trigger,name,(int)strlen(name)+1,ev); return 0; } /*========================================== * Works like 'announce' but outputs in the common chat window *------------------------------------------ */ int buildin_globalmes(struct script_state *st) { struct block_list *bl = map_id2bl(st->oid); struct npc_data *nd = (struct npc_data *)bl; char *name=NULL,*mes; mes=conv_str(st,& (st->stack->stack_data[st->start+2])); // ���b�Z�[�W�̎擾 if(mes==NULL) return 0; if(st->end>st->start+3){ // NPC���̎擾(123#456) name=conv_str(st,& (st->stack->stack_data[st->start+3])); } else { name=nd->name; } npc_globalmessage(name,mes); // �O���[�o�����b�Z�[�W���M return 0; } /*========================================== * npc�`���b�g�폜 *------------------------------------------ */ int buildin_delwaitingroom(struct script_state *st) { struct npc_data *nd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); chat_deletenpcchat(nd); return 0; } /*========================================== * npc�`���b�g�S���R��o�� *------------------------------------------ */ int buildin_waitingroomkickall(struct script_state *st) { struct npc_data *nd; struct chat_data *cd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); if(nd==NULL || (cd=(struct chat_data *)map_id2bl(nd->chat_id))==NULL ) return 0; chat_npckickall(cd); return 0; } /*========================================== * npc�`���b�g�C�x���g�L���� *------------------------------------------ */ int buildin_enablewaitingroomevent(struct script_state *st) { struct npc_data *nd; struct chat_data *cd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); if(nd==NULL || (cd=(struct chat_data *)map_id2bl(nd->chat_id))==NULL ) return 0; chat_enableevent(cd); return 0; } /*========================================== * npc�`���b�g�C�x���g������ *------------------------------------------ */ int buildin_disablewaitingroomevent(struct script_state *st) { struct npc_data *nd; struct chat_data *cd; if( st->end > st->start+2 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); else nd=(struct npc_data *)map_id2bl(st->oid); if(nd==NULL || (cd=(struct chat_data *)map_id2bl(nd->chat_id))==NULL ) return 0; chat_disableevent(cd); return 0; } /*========================================== * npc�`���b�g��ԏ��� *------------------------------------------ */ int buildin_getwaitingroomstate(struct script_state *st) { struct npc_data *nd; struct chat_data *cd; int val=0,type; type=conv_num(st,& (st->stack->stack_data[st->start+2])); if( st->end > st->start+3 ) nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+3]))); else nd=(struct npc_data *)map_id2bl(st->oid); if(nd==NULL || (cd=(struct chat_data *)map_id2bl(nd->chat_id))==NULL ){ push_val(st->stack,C_INT,-1); return 0; } switch(type){ case 0: val=cd->users; break; case 1: val=cd->limit; break; case 2: val=cd->trigger&0x7f; break; case 3: val=((cd->trigger&0x80)>0); break; case 32: val=(cd->users >= cd->limit); break; case 33: val=(cd->users >= cd->trigger); break; case 4: push_str(st->stack,C_CONSTSTR,cd->title); return 0; case 5: push_str(st->stack,C_CONSTSTR,cd->pass); return 0; case 16: push_str(st->stack,C_CONSTSTR,cd->npc_event); return 0; } push_val(st->stack,C_INT,val); return 0; } /*========================================== * �`���b�g�����o�[(�K��l��)���[�v *------------------------------------------ */ int buildin_warpwaitingpc(struct script_state *st) { int x,y,i,n; char *str; struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); struct chat_data *cd; struct map_session_data *sd; if(nd==NULL || (cd=(struct chat_data *)map_id2bl(nd->chat_id))==NULL ) return 0; n=cd->trigger&0x7f; str=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); if( st->end > st->start+5 ) n=conv_num(st,& (st->stack->stack_data[st->start+5])); for(i=0;i<n;i++){ sd=cd->usersd[0]; if (!sd) continue; //Broken npc chat room? mapreg_setreg(add_str("$@warpwaitingpc")+(i<<24),sd->bl.id); if(strcmp(str,"Random")==0) pc_randomwarp(sd,3); else if(strcmp(str,"SavePoint")==0){ if(map[sd->bl.m].flag.noteleport) // �e���|�֎~ return 0; pc_setpos(sd,sd->status.save_point.map, sd->status.save_point.x,sd->status.save_point.y,3); }else pc_setpos(sd,mapindex_name2id(str),x,y,0); } mapreg_setreg(add_str("$@warpwaitingpcnum"),n); return 0; } /*========================================== * RID�̃A�^�b�` *------------------------------------------ */ int buildin_attachrid(struct script_state *st) { st->rid=conv_num(st,& (st->stack->stack_data[st->start+2])); push_val(st->stack,C_INT, (map_id2sd(st->rid)!=NULL)); return 0; } /*========================================== * RID�̃f�^�b�` *------------------------------------------ */ int buildin_detachrid(struct script_state *st) { st->rid=0; return 0; } /*========================================== * ���݃`�F�b�N *------------------------------------------ */ int buildin_isloggedin(struct script_state *st) { push_val(st->stack,C_INT, map_id2sd( conv_num(st,& (st->stack->stack_data[st->start+2])) )!=NULL ); return 0; } /*========================================== * *------------------------------------------ */ int buildin_setmapflagnosave(struct script_state *st) { int m,x,y; unsigned short mapindex; char *str,*str2; str=conv_str(st,& (st->stack->stack_data[st->start+2])); str2=conv_str(st,& (st->stack->stack_data[st->start+3])); x=conv_num(st,& (st->stack->stack_data[st->start+4])); y=conv_num(st,& (st->stack->stack_data[st->start+5])); m = map_mapname2mapid(str); mapindex = mapindex_name2id(str2); if(m >= 0 && mapindex) { map[m].flag.nosave=1; map[m].save.map=mapindex; map[m].save.x=x; map[m].save.y=y; } return 0; } int buildin_setmapflag(struct script_state *st) { int m,i; char *str; char *val=NULL; str=conv_str(st,& (st->stack->stack_data[st->start+2])); i=conv_num(st,& (st->stack->stack_data[st->start+3])); if(st->end>st->start+4){ val=conv_str(st,& (st->stack->stack_data[st->start+4])); } m = map_mapname2mapid(str); if(m >= 0) { switch(i) { case MF_NOMEMO: map[m].flag.nomemo=1; break; case MF_NOTELEPORT: map[m].flag.noteleport=1; break; case MF_NOBRANCH: map[m].flag.nobranch=1; break; case MF_NOPENALTY: map[m].flag.noexppenalty=1; map[m].flag.nozenypenalty=1; break; case MF_NOZENYPENALTY: map[m].flag.nozenypenalty=1; break; case MF_PVP: map[m].flag.pvp=1; break; case MF_PVP_NOPARTY: map[m].flag.pvp_noparty=1; break; case MF_PVP_NOGUILD: map[m].flag.pvp_noguild=1; break; case MF_GVG: map[m].flag.gvg=1; break; case MF_GVG_NOPARTY: map[m].flag.gvg_noparty=1; break; case MF_GVG_DUNGEON: map[m].flag.gvg_dungeon=1; break; case MF_GVG_CASTLE: map[m].flag.gvg_castle=1; break; case MF_NOTRADE: map[m].flag.notrade=1; break; case MF_NODROP: map[m].flag.nodrop=1; break; case MF_NOSKILL: map[m].flag.noskill=1; break; case MF_NOWARP: map[m].flag.nowarp=1; break; case MF_NOICEWALL: // [Valaris] map[m].flag.noicewall=1; break; case MF_SNOW: // [Valaris] map[m].flag.snow=1; break; case MF_CLOUDS: map[m].flag.clouds=1; break; case MF_CLOUDS2: // [Valaris] map[m].flag.clouds2=1; break; case MF_FOG: // [Valaris] map[m].flag.fog=1; break; case MF_FIREWORKS: map[m].flag.fireworks=1; break; case MF_SAKURA: // [Valaris] map[m].flag.sakura=1; break; case MF_LEAVES: // [Valaris] map[m].flag.leaves=1; break; case MF_RAIN: // [Valaris] map[m].flag.rain=1; break; case MF_INDOORS: // celest map[m].flag.indoors=1; break; case MF_NIGHTENABLED: map[m].flag.nightenabled=1; break; case MF_NOGO: // celest map[m].flag.nogo=1; break; case MF_NOBASEEXP: map[m].flag.nobaseexp=1; break; case MF_NOJOBEXP: map[m].flag.nojobexp=1; break; case MF_NOMOBLOOT: map[m].flag.nomobloot=1; break; case MF_NOMVPLOOT: map[m].flag.nomvploot=1; break; case MF_NORETURN: map[m].flag.noreturn=1; break; case MF_NOWARPTO: map[m].flag.nowarpto=1; break; case MF_NIGHTMAREDROP: map[m].flag.pvp_nightmaredrop=1; break; case MF_RESTRICTED: map[m].flag.restricted=1; break; case MF_NOCOMMAND: map[m].nocommand = (!val || atoi(val) <= 0) ? 100 : atoi(val); break; case MF_JEXP: map[m].jexp = (!val || atoi(val) < 0) ? 100 : atoi(val); break; case MF_BEXP: map[m].bexp = (!val || atoi(val) < 0) ? 100 : atoi(val); break; case MF_NOVENDING: map[m].flag.novending=1; break; case MF_LOADEVENT: map[m].flag.loadevent=1; break; case MF_NOCHAT: map[m].flag.nochat=1; break; case MF_PARTYLOCK: map[m].flag.partylock=1; break; case MF_GUILDLOCK: map[m].flag.guildlock=1; break; } } return 0; } int buildin_removemapflag(struct script_state *st) { int m,i; char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); i=conv_num(st,& (st->stack->stack_data[st->start+3])); m = map_mapname2mapid(str); if(m >= 0) { switch(i) { case MF_NOMEMO: map[m].flag.nomemo=0; break; case MF_NOTELEPORT: map[m].flag.noteleport=0; break; case MF_NOSAVE: map[m].flag.nosave=0; break; case MF_NOBRANCH: map[m].flag.nobranch=0; break; case MF_NOPENALTY: map[m].flag.noexppenalty=0; map[m].flag.nozenypenalty=0; break; case MF_PVP: map[m].flag.pvp=0; break; case MF_PVP_NOPARTY: map[m].flag.pvp_noparty=0; break; case MF_PVP_NOGUILD: map[m].flag.pvp_noguild=0; break; case MF_GVG: map[m].flag.gvg=0; break; case MF_GVG_NOPARTY: map[m].flag.gvg_noparty=0; break; case MF_GVG_DUNGEON: map[m].flag.gvg_dungeon=0; break; case MF_GVG_CASTLE: map[m].flag.gvg_castle=0; break; case MF_NOZENYPENALTY: map[m].flag.nozenypenalty=0; break; case MF_NOTRADE: map[m].flag.notrade=0; break; case MF_NODROP: map[m].flag.nodrop=0; break; case MF_NOSKILL: map[m].flag.noskill=0; break; case MF_NOWARP: map[m].flag.nowarp=0; break; case MF_NOICEWALL: // [Valaris] map[m].flag.noicewall=0; break; case MF_SNOW: // [Valaris] map[m].flag.snow=0; break; case MF_CLOUDS: map[m].flag.clouds=0; break; case MF_CLOUDS2: // [Valaris] map[m].flag.clouds2=0; break; case MF_FOG: // [Valaris] map[m].flag.fog=0; break; case MF_FIREWORKS: map[m].flag.fireworks=0; break; case MF_SAKURA: // [Valaris] map[m].flag.sakura=0; break; case MF_LEAVES: // [Valaris] map[m].flag.leaves=0; break; case MF_RAIN: // [Valaris] map[m].flag.rain=0; break; case MF_INDOORS: // celest map[m].flag.indoors=0; break; case MF_NIGHTENABLED: map[m].flag.nightenabled=0; break; case MF_NOGO: // celest map[m].flag.nogo=0; break; case MF_NOBASEEXP: map[m].flag.nobaseexp=0; break; case MF_NOJOBEXP: map[m].flag.nojobexp=0; break; case MF_NOMOBLOOT: map[m].flag.nomobloot=0; break; case MF_NOMVPLOOT: map[m].flag.nomvploot=0; break; case MF_NORETURN: map[m].flag.noreturn=0; break; case MF_NOWARPTO: map[m].flag.nowarpto=0; break; case MF_NIGHTMAREDROP: map[m].flag.pvp_nightmaredrop=0; break; case MF_RESTRICTED: map[m].flag.restricted=0; break; case MF_NOCOMMAND: map[m].nocommand=0; break; case MF_JEXP: map[m].jexp=100; break; case MF_BEXP: map[m].bexp=100; break; case MF_NOVENDING: map[m].flag.novending=0; break; case MF_LOADEVENT: map[m].flag.loadevent=0; break; case MF_NOCHAT: map[m].flag.nochat=0; break; case MF_PARTYLOCK: map[m].flag.partylock=0; break; case MF_GUILDLOCK: map[m].flag.guildlock=0; break; } } return 0; } int buildin_pvpon(struct script_state *st) { int m,i,users; char *str; struct map_session_data *pl_sd=NULL, **pl_allsd; str=conv_str(st,& (st->stack->stack_data[st->start+2])); m = map_mapname2mapid(str); if(m >= 0 && !map[m].flag.pvp) { map[m].flag.pvp = 1; clif_send0199(m,1); if(battle_config.pk_mode) // disable ranking functions if pk_mode is on [Valaris] return 0; pl_allsd = map_getallusers(&users); for(i=0;i<users;i++) { if ((pl_sd = pl_allsd[i]) && m == pl_sd->bl.m && pl_sd->pvp_timer == -1) { pl_sd->pvp_timer=add_timer(gettick()+200,pc_calc_pvprank_timer,pl_sd->bl.id,0); pl_sd->pvp_rank=0; pl_sd->pvp_lastusers=0; pl_sd->pvp_point=5; pl_sd->pvp_won = 0; pl_sd->pvp_lost = 0; } } } return 0; } static int buildin_pvpoff_sub(struct block_list *bl,va_list ap) { TBL_PC* sd = (TBL_PC*)bl; clif_pvpset(sd, 0, 0, 2); if (sd->pvp_timer != UINT_MAX) { delete_timer(sd->pvp_timer, pc_calc_pvprank_timer); sd->pvp_timer = UINT_MAX; } return 0; } int buildin_pvpoff(struct script_state *st) { int m; char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); m = map_mapname2mapid(str); if(m < 0 || !map[m].flag.pvp) return 0; //fixed Lupus map[m].flag.pvp = 0; clif_send0199(m,0); if(battle_config.pk_mode) // disable ranking options if pk_mode is on [Valaris] return 0; map_foreachinmap(buildin_pvpoff_sub, m, BL_PC); return 0; } int buildin_gvgon(struct script_state *st) { int m; char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); m = map_mapname2mapid(str); if(m >= 0 && !map[m].flag.gvg) { map[m].flag.gvg = 1; clif_send0199(m,3); } return 0; } int buildin_gvgoff(struct script_state *st) { int m; char *str; str=conv_str(st,& (st->stack->stack_data[st->start+2])); m = map_mapname2mapid(str); if(m >= 0 && map[m].flag.gvg) { map[m].flag.gvg = 0; clif_send0199(m,0); } return 0; } /*========================================== * Shows an emoticon on top of the player/npc * emotion emotion#, <target: 0 - NPC, 1 - PC> *------------------------------------------ */ //Optional second parameter added by [Skotlex] int buildin_emotion(struct script_state *st) { int type; int player=0; type=conv_num(st,& (st->stack->stack_data[st->start+2])); if(type < 0 || type > 100) return 0; if( st->end>st->start+3 ) player=conv_num(st,& (st->stack->stack_data[st->start+3])); if (player) { struct map_session_data *sd = script_rid2sd(st); if (sd) clif_emotion(&sd->bl,type); } else clif_emotion(map_id2bl(st->oid),type); return 0; } static int buildin_maprespawnguildid_sub_pc(DBKey key, void *data, va_list ap) { int m=va_arg(ap,int); int g_id=va_arg(ap,int); int flag=va_arg(ap,int); struct map_session_data *sd = (TBL_PC*)data; if(!sd || sd->bl.m != m) return 0; if( (sd->status.guild_id == g_id && flag&1) || //Warp out owners (sd->status.guild_id != g_id && flag&2) || //Warp out outsiders (sd->status.guild_id == 0) // Warp out players not in guild [Valaris] ) pc_setpos(sd,sd->status.save_point.map,sd->status.save_point.x,sd->status.save_point.y,3); return 1; } static int buildin_maprespawnguildid_sub_mob(struct block_list *bl,va_list ap) { struct mob_data *md=(struct mob_data *)bl; if(!md->guardian_data && md->class_ != MOBID_EMPERIUM) status_kill(bl); return 0; } int buildin_maprespawnguildid(struct script_state *st) { char *mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); int g_id=conv_num(st,& (st->stack->stack_data[st->start+3])); int flag=conv_num(st,& (st->stack->stack_data[st->start+4])); int m=map_mapname2mapid(mapname); if(m == -1) return 0; //Catch ALL players (in case some are 'between maps' on execution time) map_foreachpc(buildin_maprespawnguildid_sub_pc,m,g_id,flag); if (flag&4) //Remove script mobs. map_foreachinmap(buildin_maprespawnguildid_sub_mob,m,BL_MOB); return 0; } int buildin_agitstart(struct script_state *st) { if(agit_flag==1) return 0; // Agit already Start. agit_flag=1; guild_agit_start(); return 0; } int buildin_agitend(struct script_state *st) { if(agit_flag==0) return 0; // Agit already End. agit_flag=0; guild_agit_end(); return 0; } /*========================================== * Returns whether woe is on or off. // choice script *------------------------------------------ */ int buildin_agitcheck(struct script_state *st) { push_val(st->stack,C_INT,agit_flag); return 0; } int buildin_flagemblem(struct script_state *st) { int g_id=conv_num(st,& (st->stack->stack_data[st->start+2])); if(g_id < 0) return 0; // printf("Script.c: [FlagEmblem] GuildID=%d, Emblem=%d.\n", g->guild_id, g->emblem_id); ((struct npc_data *)map_id2bl(st->oid))->u.scr.guild_id = g_id; return 0; } int buildin_getcastlename(struct script_state *st) { char *mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); struct guild_castle *gc=NULL; int i; for(i=0;i<MAX_GUILDCASTLE;i++){ if( (gc=guild_castle_search(i)) != NULL ){ if(strcmp(mapname,gc->map_name)==0){ break; } } } if(gc) push_str(st->stack,C_CONSTSTR,gc->castle_name); else push_str(st->stack,C_CONSTSTR,""); return 0; } int buildin_getcastledata(struct script_state *st) { char *mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); int index=conv_num(st,& (st->stack->stack_data[st->start+3])); char *event=NULL; struct guild_castle *gc; int i,j; if( st->end>st->start+4 && index==0){ for(i=0,j=-1;i<MAX_GUILDCASTLE;i++) if( (gc=guild_castle_search(i)) != NULL && strcmp(mapname,gc->map_name)==0 ) j=i; if(j>=0){ event=conv_str(st,& (st->stack->stack_data[st->start+4])); check_event(st, event); guild_addcastleinfoevent(j,17,event); } } for(i=0;i<MAX_GUILDCASTLE;i++){ if( (gc=guild_castle_search(i)) != NULL ){ if(strcmp(mapname,gc->map_name)==0){ switch(index){ case 0: for(j=1;j<26;j++) guild_castledataload(gc->castle_id,j); break; // Initialize[AgitInit] case 1: push_val(st->stack,C_INT,gc->guild_id); break; case 2: push_val(st->stack,C_INT,gc->economy); break; case 3: push_val(st->stack,C_INT,gc->defense); break; case 4: push_val(st->stack,C_INT,gc->triggerE); break; case 5: push_val(st->stack,C_INT,gc->triggerD); break; case 6: push_val(st->stack,C_INT,gc->nextTime); break; case 7: push_val(st->stack,C_INT,gc->payTime); break; case 8: push_val(st->stack,C_INT,gc->createTime); break; case 9: push_val(st->stack,C_INT,gc->visibleC); break; case 10: case 11: case 12: case 13: case 14: case 15: case 16: case 17: push_val(st->stack,C_INT,gc->guardian[index-10].visible); break; case 18: case 19: case 20: case 21: case 22: case 23: case 24: case 25: push_val(st->stack,C_INT,gc->guardian[index-18].hp); break; default: push_val(st->stack,C_INT,0); break; } return 0; } } } push_val(st->stack,C_INT,0); return 0; } int buildin_setcastledata(struct script_state *st) { char *mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); int index=conv_num(st,& (st->stack->stack_data[st->start+3])); int value=conv_num(st,& (st->stack->stack_data[st->start+4])); struct guild_castle *gc; int i; for(i=0;i<MAX_GUILDCASTLE;i++){ if( (gc=guild_castle_search(i)) != NULL ){ if(strcmp(mapname,gc->map_name)==0){ // Save Data byself First switch(index){ case 1: gc->guild_id = value; break; case 2: gc->economy = value; break; case 3: gc->defense = value; break; case 4: gc->triggerE = value; break; case 5: gc->triggerD = value; break; case 6: gc->nextTime = value; break; case 7: gc->payTime = value; break; case 8: gc->createTime = value; break; case 9: gc->visibleC = value; break; case 10: case 11: case 12: case 13: case 14: case 15: case 16: case 17: gc->guardian[index-10].visible = value; break; case 18: case 19: case 20: case 21: case 22: case 23: case 24: case 25: gc->guardian[index-18].hp = value; if (gc->guardian[index-18].id) { //Update this mob's HP. struct block_list *bl = map_id2bl(gc->guardian[index-18].id); if (!bl) { //Wrong target? gc->guardian[index-18].id = 0; break; } if (value < 1) { status_kill(bl); break; } status_set_hp(bl, value, 0); } break; default: return 0; } guild_castledatasave(gc->castle_id,index,value); return 0; } } } return 0; } /* ===================================================================== * �M���h����v������ * --------------------------------------------------------------------- */ int buildin_requestguildinfo(struct script_state *st) { int guild_id=conv_num(st,& (st->stack->stack_data[st->start+2])); char *event=NULL; if( st->end>st->start+3 ){ event=conv_str(st,& (st->stack->stack_data[st->start+3])); check_event(st, event); } if(guild_id>0) guild_npc_request_info(guild_id,event); return 0; } /* ===================================================================== * �J�[�h�̐��� * --------------------------------------------------------------------- */ int buildin_getequipcardcnt(struct script_state *st) { int i,num; struct map_session_data *sd; int c=MAX_SLOTS; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(itemdb_isspecial(sd->status.inventory[i].card[0])) { push_val(st->stack,C_INT,0); return 0; } do{ if(sd->status.inventory[i].card[c-1] && itemdb_type(sd->status.inventory[i].card[c-1]) == IT_CARD){ // [Celest] push_val(st->stack,C_INT,(c)); return 0; } }while(c--); push_val(st->stack,C_INT,0); return 0; } /* ================================================================ * �J�[�h���O������ * ---------------------------------------------------------------- */ int buildin_successremovecards(struct script_state *st) { int i,j,num,cardflag=0,flag; struct map_session_data *sd; struct item item_tmp; int c=MAX_SLOTS; num=conv_num(st,& (st->stack->stack_data[st->start+2])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(itemdb_isspecial(sd->status.inventory[i].card[0])) return 0; do{ if(sd->status.inventory[i].card[c-1] && itemdb_type(sd->status.inventory[i].card[c-1]) == IT_CARD){ // [Celest] cardflag = 1; item_tmp.id=0,item_tmp.nameid=sd->status.inventory[i].card[c-1]; item_tmp.equip=0,item_tmp.identify=1,item_tmp.refine=0; item_tmp.attribute=0; for (j = 0; j < MAX_SLOTS; j++) item_tmp.card[j]=0; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", item_tmp.nameid, 1, NULL); if((flag=pc_additem(sd,&item_tmp,1))){ // ���ĂȂ��Ȃ�h���b�v clif_additem(sd,0,0,flag); map_addflooritem(&item_tmp,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0); } } }while(c--); if(cardflag == 1){ // �J�[�h����菜�����A�C�e������ flag=0; item_tmp.id=0,item_tmp.nameid=sd->status.inventory[i].nameid; item_tmp.equip=0,item_tmp.identify=1,item_tmp.refine=sd->status.inventory[i].refine; item_tmp.attribute=sd->status.inventory[i].attribute; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -1, &sd->status.inventory[i]); for (j = 0; j < MAX_SLOTS; j++) item_tmp.card[j]=0; pc_delitem(sd,i,1,0); //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", item_tmp.nameid, 1, &item_tmp); if((flag=pc_additem(sd,&item_tmp,1))){ // ���ĂȂ��Ȃ�h���b�v clif_additem(sd,0,0,flag); map_addflooritem(&item_tmp,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0); } clif_misceffect(&sd->bl,3); return 0; } return 0; } /* ================================================================ * �J�[�h���O�����s slot,type * type=0: ���������A1:�J�[�h�����A2:������A3:�������� * ---------------------------------------------------------------- */ int buildin_failedremovecards(struct script_state *st) { int i,j,num,cardflag=0,flag,typefail; struct map_session_data *sd; struct item item_tmp; int c=MAX_SLOTS; num=conv_num(st,& (st->stack->stack_data[st->start+2])); typefail=conv_num(st,& (st->stack->stack_data[st->start+3])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(itemdb_isspecial(sd->status.inventory[i].card[0])) return 0; do{ if(sd->status.inventory[i].card[c-1] && itemdb_type(sd->status.inventory[i].card[c-1]) == IT_CARD){ // [Celest] cardflag = 1; if(typefail == 2){ // ����̂ݑ����Ȃ�A�J�[�h�͎�点�� item_tmp.id=0,item_tmp.nameid=sd->status.inventory[i].card[c-1]; item_tmp.equip=0,item_tmp.identify=1,item_tmp.refine=0; item_tmp.attribute=0; for (j = 0; j < MAX_SLOTS; j++) item_tmp.card[j]=0; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", item_tmp.nameid, 1, NULL); if((flag=pc_additem(sd,&item_tmp,1))){ clif_additem(sd,0,0,flag); map_addflooritem(&item_tmp,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0); } } } }while(c--); if(cardflag == 1){ if(typefail == 0 || typefail == 2){ // ����� //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -1, &sd->status.inventory[i]); pc_delitem(sd,i,1,0); clif_misceffect(&sd->bl,2); return 0; } if(typefail == 1){ // �J�[�h�̂ݑ����i�����Ԃ��j flag=0; item_tmp.id=0,item_tmp.nameid=sd->status.inventory[i].nameid; item_tmp.equip=0,item_tmp.identify=1,item_tmp.refine=sd->status.inventory[i].refine; item_tmp.attribute=sd->status.inventory[i].attribute; //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -1, &sd->status.inventory[i]); for (j = 0; j < MAX_SLOTS; j++) item_tmp.card[j]=0; pc_delitem(sd,i,1,0); //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", item_tmp.nameid, 1, &item_tmp); if((flag=pc_additem(sd,&item_tmp,1))){ clif_additem(sd,0,0,flag); map_addflooritem(&item_tmp,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0); } } clif_misceffect(&sd->bl,2); return 0; } return 0; } /* ================================================================ * mapwarp "<from map>","<to map>",<x>,<y>,<type>,<ID for Type>; * type: 0=everyone, 1=guild, 2=party; [Reddozen] * improved by [Lance] * ================================================================ */ int buildin_mapwarp(struct script_state *st) // Added by RoVeRT { int x,y,m,check_val=0,check_ID=0,i=0; struct guild *g = NULL; struct party_data *p = NULL; char *str; char *mapname; unsigned int index; mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); str=conv_str(st,& (st->stack->stack_data[st->start+3])); x=conv_num(st,& (st->stack->stack_data[st->start+4])); y=conv_num(st,& (st->stack->stack_data[st->start+5])); if(st->end > st->start+7){ check_val=conv_num(st,& (st->stack->stack_data[st->start+6])); check_ID=conv_num(st,& (st->stack->stack_data[st->start+7])); } if( (m=map_mapname2mapid(mapname))< 0) return 0; if(!(index=mapindex_name2id(str))) return 0; switch(check_val){ case 1: g = guild_search(check_ID); if (g){ for( i=0; i < g->max_member; i++) { if(g->member[i].sd && g->member[i].sd->bl.m==m){ pc_setpos(g->member[i].sd,index,x,y,3); } } } break; case 2: p = party_search(check_ID); if(p){ for(i=0;i<MAX_PARTY; i++){ if(p->data[i].sd && p->data[i].sd->bl.m == m){ pc_setpos(p->data[i].sd,index,x,y,3); } } } break; default: map_foreachinmap(buildin_areawarp_sub,m,BL_PC,index,x,y); break; } return 0; } int buildin_cmdothernpc(struct script_state *st) // Added by RoVeRT { char *npc,*command; npc=conv_str(st,& (st->stack->stack_data[st->start+2])); command=conv_str(st,& (st->stack->stack_data[st->start+3])); npc_command(map_id2sd(st->rid),npc,command); return 0; } int buildin_inittimer(struct script_state *st) // Added by RoVeRT { // struct npc_data *nd=(struct npc_data*)map_id2bl(st->oid); // nd->lastaction=nd->timer=gettick(); npc_do_ontimer(st->oid, 1); return 0; } int buildin_stoptimer(struct script_state *st) // Added by RoVeRT { // struct npc_data *nd=(struct npc_data*)map_id2bl(st->oid); // nd->lastaction=nd->timer=-1; npc_do_ontimer(st->oid, 0); return 0; } int buildin_mobcount_sub(struct block_list *bl,va_list ap) // Added by RoVeRT { char *event=va_arg(ap,char *); if(strcmp(event,((struct mob_data *)bl)->npc_event)==0) return 1; return 0; } int buildin_mobcount(struct script_state *st) // Added by RoVeRT { char *mapname,*event; int m; mapname=conv_str(st,& (st->stack->stack_data[st->start+2])); event=conv_str(st,& (st->stack->stack_data[st->start+3])); check_event(st, event); if( (m=map_mapname2mapid(mapname))<0 ) { push_val(st->stack,C_INT,-1); return 0; } push_val(st->stack,C_INT,map_foreachinmap(buildin_mobcount_sub, m, BL_MOB, event)); return 0; } int buildin_marriage(struct script_state *st) { char *partner=conv_str(st,& (st->stack->stack_data[st->start+2])); struct map_session_data *sd=script_rid2sd(st); struct map_session_data *p_sd=map_nick2sd(partner); if(sd==NULL || p_sd==NULL || pc_marriage(sd,p_sd) < 0){ push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,1); return 0; } int buildin_wedding_effect(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); struct block_list *bl; if(sd==NULL) { bl=map_id2bl(st->oid); } else bl=&sd->bl; clif_wedding_effect(bl); return 0; } int buildin_divorce(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || pc_divorce(sd) < 0){ push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,1); return 0; } int buildin_ispartneron(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); struct map_session_data *p_sd=NULL; if(sd==NULL || !pc_ismarried(sd) || (p_sd=map_charid2sd(sd->status.partner_id)) == NULL) { push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,1); return 0; } int buildin_getpartnerid(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if (sd == NULL) { push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,sd->status.partner_id); return 0; } int buildin_getchildid(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if (sd == NULL) { push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,sd->status.child); return 0; } int buildin_getmotherid(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if (sd == NULL) { push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,sd->status.mother); return 0; } int buildin_getfatherid(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if (sd == NULL) { push_val(st->stack,C_INT,0); return 0; } push_val(st->stack,C_INT,sd->status.father); return 0; } int buildin_warppartner(struct script_state *st) { int x,y; unsigned short mapindex; char *str; struct map_session_data *sd=script_rid2sd(st); struct map_session_data *p_sd=NULL; if(sd==NULL || !pc_ismarried(sd) || (p_sd=map_charid2sd(sd->status.partner_id)) == NULL) { push_val(st->stack,C_INT,0); return 0; } str=conv_str(st,& (st->stack->stack_data[st->start+2])); x=conv_num(st,& (st->stack->stack_data[st->start+3])); y=conv_num(st,& (st->stack->stack_data[st->start+4])); mapindex = mapindex_name2id(str); if (mapindex) { pc_setpos(p_sd,mapindex,x,y,0); push_val(st->stack,C_INT,1); } else push_val(st->stack,C_INT,0); return 0; } /*================================================ * Script for Displaying MOB Information [Valaris] *------------------------------------------------ */ int buildin_strmobinfo(struct script_state *st) { int num=conv_num(st,& (st->stack->stack_data[st->start+2])); int class_=conv_num(st,& (st->stack->stack_data[st->start+3])); if((class_>=0 && class_<=1000) || class_ >2000) return 0; switch (num) { case 1: push_str(st->stack,C_CONSTSTR,mob_db(class_)->name); break; case 2: push_str(st->stack,C_CONSTSTR,mob_db(class_)->jname); break; case 3: push_val(st->stack,C_INT,mob_db(class_)->lv); break; case 4: push_val(st->stack,C_INT,mob_db(class_)->status.max_hp); break; case 5: push_val(st->stack,C_INT,mob_db(class_)->status.max_sp); break; case 6: push_val(st->stack,C_INT,mob_db(class_)->base_exp); break; case 7: push_val(st->stack,C_INT,mob_db(class_)->job_exp); break; default: push_val(st->stack,C_INT,0); break; } return 0; } /*========================================== * Summon guardians [Valaris] * guardian "<map name>",<x>,<y>,"<name to show>",<mob id>,<amount>{,"<event label>"}{,<guardian index>}; *------------------------------------------ */ int buildin_guardian(struct script_state *st) { int class_=0,amount=1,x=0,y=0,guardian=0; char *str,*map,*evt=""; struct script_data *data; map =conv_str(st,script_getdata(st,2)); x =conv_num(st,script_getdata(st,3)); y =conv_num(st,script_getdata(st,4)); str =conv_str(st,script_getdata(st,5)); class_=conv_num(st,script_getdata(st,6)); amount=conv_num(st,script_getdata(st,7)); if( script_hasdata(st,9) ) {// "<event label>",<guardian index> evt=conv_str(st,script_getdata(st,8)); guardian=conv_num(st,script_getdata(st,9)); } else if( script_hasdata(st,8) ){ data=script_getdata(st,8); get_val(st,data); if( script_isstring(data) ) {// "<event label>" evt=conv_str(st,script_getdata(st,8)); } else if( script_isint(data) ) {// <guardian index> guardian=conv_num(st,script_getdata(st,8)); } else { ShowError("buildin_guardian: invalid data type for argument #8 (%d).", data->type); report_src(st); return 1; } } check_event(st, evt); mob_spawn_guardian(map_id2sd(st->rid),map,x,y,str,class_,amount,evt,guardian); return 0; } /*================================================ * Script for Displaying Guardian Info [Valaris] *------------------------------------------------ */ int buildin_guardianinfo(struct script_state *st) { int guardian=conv_num(st,& (st->stack->stack_data[st->start+2])); struct map_session_data *sd=script_rid2sd(st); struct guild_castle *gc=guild_mapname2gc(map[sd->bl.m].name); if (guardian < 0 || guardian >= MAX_GUARDIANS || gc==NULL) { push_val(st->stack,C_INT,-1); return 0; } if(gc->guardian[guardian].visible) push_val(st->stack,C_INT,gc->guardian[guardian].hp); else push_val(st->stack,C_INT,-1); return 0; } /*========================================== * ID����Item�� *------------------------------------------ */ int buildin_getitemname(struct script_state *st) { int item_id=0; struct item_data *i_data; char *item_name; struct script_data *data; data=&(st->stack->stack_data[st->start+2]); get_val(st,data); if( data->type==C_STR || data->type==C_CONSTSTR ){ const char *name=conv_str(st,data); struct item_data *item_data = itemdb_searchname(name); if( item_data ) item_id=item_data->nameid; }else item_id=conv_num(st,data); i_data = itemdb_exists(item_id); if (i_data == NULL) { push_str(st->stack,C_CONSTSTR,"null"); return 0; } item_name=(char *)aMallocA(ITEM_NAME_LENGTH*sizeof(char)); memcpy(item_name, i_data->jname, ITEM_NAME_LENGTH); push_str(st->stack,C_STR,item_name); return 0; } /*========================================== * Returns number of slots an item has. [Skotlex] *------------------------------------------ */ int buildin_getitemslots(struct script_state *st) { int item_id; struct item_data *i_data; item_id=conv_num(st,& (st->stack->stack_data[st->start+2])); i_data = itemdb_exists(item_id); if (i_data) push_val(st->stack,C_INT,i_data->slot); else push_val(st->stack,C_INT,-1); return 0; } /*========================================== * Returns some values of an item [Lupus] * Price, Weight, etc... getiteminfo(itemID,n), where n 0 value_buy; 1 value_sell; 2 type; 3 maxchance = Max drop chance of this item e.g. 1 = 0.01% , etc.. if = 0, then monsters don't drop it at all (rare or a quest item) if = 10000, then this item is sold in NPC shops only 4 sex; 5 equip; 6 weight; 7 atk; 8 def; 9 range; 10 slot; 11 look; 12 elv; 13 wlv; *------------------------------------------ */ int buildin_getiteminfo(struct script_state *st) { int item_id,n; int *item_arr; struct item_data *i_data; item_id = conv_num(st,& (st->stack->stack_data[st->start+2])); n = conv_num(st,& (st->stack->stack_data[st->start+3])); i_data = itemdb_exists(item_id); if (i_data && n>=0 && n<14) { item_arr = (int*)&i_data->value_buy; push_val(st->stack,C_INT,item_arr[n]); } else push_val(st->stack,C_INT,-1); return 0; } /*========================================== * Returns value from equipped item slot n [Lupus] getequipcardid(num,slot) where num = eqip position slot slot = 0,1,2,3 (Card Slot N) This func returns CARD ID, 255,254,-255 (for card 0, if the item is produced) it's useful when you want to check item cards or if it's signed Useful for such quests as "Sign this refined item with players name" etc Hat[0] +4 -> Player's Hat[0] +4 *------------------------------------------ */ int buildin_getequipcardid(struct script_state *st) { int i,num,slot; struct map_session_data *sd; num=conv_num(st,& (st->stack->stack_data[st->start+2])); slot=conv_num(st,& (st->stack->stack_data[st->start+3])); sd=script_rid2sd(st); i=pc_checkequip(sd,equip[num-1]); if(i >= 0 && slot>=0 && slot<4) push_val(st->stack,C_INT,sd->status.inventory[i].card[slot]); else push_val(st->stack,C_INT,0); return 0; } /*========================================== * petskillbonus [Valaris] //Rewritten by [Skotlex] *------------------------------------------ */ int buildin_petskillbonus(struct script_state *st) { struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; pd=sd->pd; if (pd->bonus) { //Clear previous bonus if (pd->bonus->timer != -1) delete_timer(pd->bonus->timer, pet_skill_bonus_timer); } else //init pd->bonus = (struct pet_bonus *) aMalloc(sizeof(struct pet_bonus)); pd->bonus->type=conv_num(st,& (st->stack->stack_data[st->start+2])); pd->bonus->val=conv_num(st,& (st->stack->stack_data[st->start+3])); pd->bonus->duration=conv_num(st,& (st->stack->stack_data[st->start+4])); pd->bonus->delay=conv_num(st,& (st->stack->stack_data[st->start+5])); if (pd->state.skillbonus == 1) pd->state.skillbonus=0; // waiting state // wait for timer to start if (battle_config.pet_equip_required && pd->pet.equip == 0) pd->bonus->timer=-1; else pd->bonus->timer=add_timer(gettick()+pd->bonus->delay*1000, pet_skill_bonus_timer, sd->bl.id, 0); return 0; } /*========================================== * pet looting [Valaris] //Rewritten by [Skotlex] *------------------------------------------ */ int buildin_petloot(struct script_state *st) { int max; struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; max=conv_num(st,& (st->stack->stack_data[st->start+2])); if(max < 1) max = 1; //Let'em loot at least 1 item. else if (max > MAX_PETLOOT_SIZE) max = MAX_PETLOOT_SIZE; pd = sd->pd; if (pd->loot != NULL) { //Release whatever was there already and reallocate memory pet_lootitem_drop(pd, pd->msd); aFree(pd->loot->item); } else pd->loot = (struct pet_loot *)aMalloc(sizeof(struct pet_loot)); pd->loot->item = (struct item *)aCalloc(max,sizeof(struct item)); pd->loot->max=max; pd->loot->count = 0; pd->loot->weight = 0; return 0; } /*========================================== * PC�̏����i���ǂݎ�� *------------------------------------------ */ int buildin_getinventorylist(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); unsigned char card_var[NAME_LENGTH]; int i,j=0,k; if(!sd) return 0; for(i=0;i<MAX_INVENTORY;i++){ if(sd->status.inventory[i].nameid > 0 && sd->status.inventory[i].amount > 0){ pc_setreg(sd,add_str("@inventorylist_id")+(j<<24),sd->status.inventory[i].nameid); pc_setreg(sd,add_str("@inventorylist_amount")+(j<<24),sd->status.inventory[i].amount); pc_setreg(sd,add_str("@inventorylist_equip")+(j<<24),sd->status.inventory[i].equip); pc_setreg(sd,add_str("@inventorylist_refine")+(j<<24),sd->status.inventory[i].refine); pc_setreg(sd,add_str("@inventorylist_identify")+(j<<24),sd->status.inventory[i].identify); pc_setreg(sd,add_str("@inventorylist_attribute")+(j<<24),sd->status.inventory[i].attribute); for (k = 0; k < MAX_SLOTS; k++) { sprintf(card_var, "@inventorylist_card%d",k+1); pc_setreg(sd,add_str(card_var)+(j<<24),sd->status.inventory[i].card[k]); } j++; } } pc_setreg(sd,add_str("@inventorylist_count"),j); return 0; } int buildin_getskilllist(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); int i,j=0; if(!sd) return 0; for(i=0;i<MAX_SKILL;i++){ if(sd->status.skill[i].id > 0 && sd->status.skill[i].lv > 0){ pc_setreg(sd,add_str("@skilllist_id")+(j<<24),sd->status.skill[i].id); pc_setreg(sd,add_str("@skilllist_lv")+(j<<24),sd->status.skill[i].lv); pc_setreg(sd,add_str("@skilllist_flag")+(j<<24),sd->status.skill[i].flag); j++; } } pc_setreg(sd,add_str("@skilllist_count"),j); return 0; } int buildin_clearitem(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); int i; if(sd==NULL) return 0; for (i=0; i<MAX_INVENTORY; i++) { if (sd->status.inventory[i].amount) { //Logs items, got from (N)PC scripts [Lupus] if(log_config.enable_logs&0x40) log_pick_pc(sd, "N", sd->status.inventory[i].nameid, -sd->status.inventory[i].amount, &sd->status.inventory[i]); pc_delitem(sd, i, sd->status.inventory[i].amount, 0); } } return 0; } /*========================================== Disguise Player (returns Mob/NPC ID if success, 0 on fail) [Lupus] *------------------------------------------ */ int buildin_disguise(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); int id; id = conv_num(st,& (st->stack->stack_data[st->start+2])); if (!mobdb_checkid(id) && !npcdb_checkid(id)) { push_val(st->stack,C_INT,0); return 0; } pc_disguise(sd, id); push_val(st->stack,C_INT,id); return 0; } /*========================================== Undisguise Player (returns 1 if success, 0 on fail) [Lupus] *------------------------------------------ */ int buildin_undisguise(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if (sd->disguise) { pc_disguise(sd, 0); push_val(st->stack,C_INT,0); } else { push_val(st->stack,C_INT,1); } return 0; } /*========================================== * NPC�N���X�`�F���W * class�͕ς�肽��class * type�͒ʏ�0�Ȃ̂��ȁH *------------------------------------------ */ int buildin_classchange(struct script_state *st) { int _class,type; struct block_list *bl=map_id2bl(st->oid); if(bl==NULL) return 0; _class=conv_num(st,& (st->stack->stack_data[st->start+2])); type=conv_num(st,& (st->stack->stack_data[st->start+3])); clif_class_change(bl,_class,type); return 0; } /*========================================== * NPC���甭������G�t�F�N�g *------------------------------------------ */ int buildin_misceffect(struct script_state *st) { int type; type=conv_num(st,& (st->stack->stack_data[st->start+2])); if(st->oid && st->oid != fake_nd->bl.id) { struct block_list *bl = map_id2bl(st->oid); if (bl) clif_misceffect2(bl,type); } else{ struct map_session_data *sd=script_rid2sd(st); if(sd) clif_misceffect2(&sd->bl,type); } return 0; } /*========================================== * �T�E���h�G�t�F�N�g *------------------------------------------ */ int buildin_soundeffect(struct script_state *st) { // Redundn struct map_session_data *sd=script_rid2sd(st); char *name; int type=0; name=conv_str(st,& (st->stack->stack_data[st->start+2])); type=conv_num(st,& (st->stack->stack_data[st->start+3])); if(sd){ if(!st->rid) clif_soundeffect(sd,map_id2bl(st->oid),name,type); else{ clif_soundeffect(sd,&sd->bl,name,type); } } return 0; } int soundeffect_sub(struct block_list* bl,va_list ap) { char *name; int type; nullpo_retr(0, bl); nullpo_retr(0, ap); name = va_arg(ap,char *); type = va_arg(ap,int); clif_soundeffect((struct map_session_data *)bl, bl, name, type); return 0; } int buildin_soundeffectall(struct script_state *st) { // [Lance] - Improved. char *name, *map = NULL; struct block_list *bl; int type, coverage, x0, y0, x1, y1; name=conv_str(st,& (st->stack->stack_data[st->start+2])); type=conv_num(st,& (st->stack->stack_data[st->start+3])); coverage=conv_num(st,& (st->stack->stack_data[st->start+4])); if(!st->rid) bl = map_id2bl(st->oid); else bl = &(script_rid2sd(st)->bl); if(bl){ if(coverage < 23){ clif_soundeffectall(bl,name,type,coverage); }else { if(st->end > st->start+9){ map=conv_str(st,& (st->stack->stack_data[st->start+5])); x0 = conv_num(st,& (st->stack->stack_data[st->start+6])); y0 = conv_num(st,& (st->stack->stack_data[st->start+7])); x1 = conv_num(st,& (st->stack->stack_data[st->start+8])); y1 = conv_num(st,& (st->stack->stack_data[st->start+9])); map_foreachinarea(soundeffect_sub,map_mapname2mapid(map),x0,y0,x1,y1,BL_PC,name,type); } else { ShowError("buildin_soundeffectall: insufficient arguments for specific area broadcast.\n"); } } } return 0; } /*========================================== * pet status recovery [Valaris] / Rewritten by [Skotlex] *------------------------------------------ */ int buildin_petrecovery(struct script_state *st) { struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; pd=sd->pd; if (pd->recovery) { //Halt previous bonus if (pd->recovery->timer != -1) delete_timer(pd->recovery->timer, pet_recovery_timer); } else //Init pd->recovery = (struct pet_recovery *)aMalloc(sizeof(struct pet_recovery)); pd->recovery->type=conv_num(st,& (st->stack->stack_data[st->start+2])); pd->recovery->delay=conv_num(st,& (st->stack->stack_data[st->start+3])); pd->recovery->timer=-1; return 0; } /*========================================== * pet healing [Valaris] //Rewritten by [Skotlex] *------------------------------------------ */ int buildin_petheal(struct script_state *st) { struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; pd=sd->pd; if (pd->s_skill) { //Clear previous skill if (pd->s_skill->timer != -1) { if (pd->s_skill->id) delete_timer(pd->s_skill->timer, pet_skill_support_timer); else delete_timer(pd->s_skill->timer, pet_heal_timer); } } else //init memory pd->s_skill = (struct pet_skill_support *) aMalloc(sizeof(struct pet_skill_support)); pd->s_skill->id=0; //This id identifies that it IS petheal rather than pet_skillsupport //Use the lv as the amount to heal pd->s_skill->lv=conv_num(st,& (st->stack->stack_data[st->start+2])); pd->s_skill->delay=conv_num(st,& (st->stack->stack_data[st->start+3])); pd->s_skill->hp=conv_num(st,& (st->stack->stack_data[st->start+4])); pd->s_skill->sp=conv_num(st,& (st->stack->stack_data[st->start+5])); //Use delay as initial offset to avoid skill/heal exploits if (battle_config.pet_equip_required && pd->pet.equip == 0) pd->s_skill->timer=-1; else pd->s_skill->timer=add_timer(gettick()+pd->s_skill->delay*1000,pet_heal_timer,sd->bl.id,0); return 0; } /*========================================== * pet attack skills [Valaris] //Rewritten by [Skotlex] *------------------------------------------ */ int buildin_petskillattack(struct script_state *st) { struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; pd=sd->pd; if (pd->a_skill == NULL) pd->a_skill = (struct pet_skill_attack *)aMalloc(sizeof(struct pet_skill_attack)); pd->a_skill->id=conv_num(st,& (st->stack->stack_data[st->start+2])); pd->a_skill->lv=conv_num(st,& (st->stack->stack_data[st->start+3])); pd->a_skill->div_ = 0; pd->a_skill->rate=conv_num(st,& (st->stack->stack_data[st->start+4])); pd->a_skill->bonusrate=conv_num(st,& (st->stack->stack_data[st->start+5])); return 0; } /*========================================== * pet attack skills [Valaris] *------------------------------------------ */ int buildin_petskillattack2(struct script_state *st) { struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; pd=sd->pd; if (pd->a_skill == NULL) pd->a_skill = (struct pet_skill_attack *)aMalloc(sizeof(struct pet_skill_attack)); pd->a_skill->id=conv_num(st,& (st->stack->stack_data[st->start+2])); pd->a_skill->lv=conv_num(st,& (st->stack->stack_data[st->start+3])); pd->a_skill->div_ = conv_num(st,& (st->stack->stack_data[st->start+4])); pd->a_skill->rate=conv_num(st,& (st->stack->stack_data[st->start+5])); pd->a_skill->bonusrate=conv_num(st,& (st->stack->stack_data[st->start+6])); return 0; } /*========================================== * pet support skills [Skotlex] *------------------------------------------ */ int buildin_petskillsupport(struct script_state *st) { struct pet_data *pd; struct map_session_data *sd=script_rid2sd(st); if(sd==NULL || sd->pd==NULL) return 0; pd=sd->pd; if (pd->s_skill) { //Clear previous skill if (pd->s_skill->timer != -1) { if (pd->s_skill->id) delete_timer(pd->s_skill->timer, pet_skill_support_timer); else delete_timer(pd->s_skill->timer, pet_heal_timer); } } else //init memory pd->s_skill = (struct pet_skill_support *) aMalloc(sizeof(struct pet_skill_support)); pd->s_skill->id=conv_num(st,& (st->stack->stack_data[st->start+2])); pd->s_skill->lv=conv_num(st,& (st->stack->stack_data[st->start+3])); pd->s_skill->delay=conv_num(st,& (st->stack->stack_data[st->start+4])); pd->s_skill->hp=conv_num(st,& (st->stack->stack_data[st->start+5])); pd->s_skill->sp=conv_num(st,& (st->stack->stack_data[st->start+6])); //Use delay as initial offset to avoid skill/heal exploits if (battle_config.pet_equip_required && pd->pet.equip == 0) pd->s_skill->timer=-1; else pd->s_skill->timer=add_timer(gettick()+pd->s_skill->delay*1000,pet_skill_support_timer,sd->bl.id,0); return 0; } /*========================================== * Scripted skill effects [Celest] *------------------------------------------ */ int buildin_skilleffect(struct script_state *st) { struct map_session_data *sd; int skillid=conv_num(st,& (st->stack->stack_data[st->start+2])); int skilllv=conv_num(st,& (st->stack->stack_data[st->start+3])); sd=script_rid2sd(st); clif_skill_nodamage(&sd->bl,&sd->bl,skillid,skilllv,1); return 0; } /*========================================== * NPC skill effects [Valaris] *------------------------------------------ */ int buildin_npcskilleffect(struct script_state *st) { struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); int skillid=conv_num(st,& (st->stack->stack_data[st->start+2])); int skilllv=conv_num(st,& (st->stack->stack_data[st->start+3])); int x=conv_num(st,& (st->stack->stack_data[st->start+4])); int y=conv_num(st,& (st->stack->stack_data[st->start+5])); clif_skill_poseffect(&nd->bl,skillid,skilllv,x,y,gettick()); return 0; } /*========================================== * Special effects [Valaris] *------------------------------------------ */ int buildin_specialeffect(struct script_state *st) { struct block_list *bl=map_id2bl(st->oid); if(bl==NULL) return 0; clif_specialeffect(bl,conv_num(st,& (st->stack->stack_data[st->start+2])), ((st->end > st->start+3)?conv_num(st,& (st->stack->stack_data[st->start+3])):AREA)); return 0; } int buildin_specialeffect2(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); if(sd==NULL) return 0; clif_specialeffect(&sd->bl,conv_num(st,& (st->stack->stack_data[st->start+2])), ((st->end > st->start+3)?conv_num(st,& (st->stack->stack_data[st->start+3])):AREA)); return 0; } /*========================================== * Nude [Valaris] *------------------------------------------ */ int buildin_nude(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); int i,calcflag=0; if(sd==NULL) return 0; for(i=0;i<11;i++) if(sd->equip_index[i] >= 0) { if(!calcflag) calcflag=1; pc_unequipitem(sd,sd->equip_index[i],2); } if(calcflag) status_calc_pc(sd,0); return 0; } /*========================================== * gmcommand [MouseJstr] * * suggested on the forums... * splitted into atcommand & charcommand by [Skotlex] *------------------------------------------ */ int buildin_atcommand(struct script_state *st) { struct map_session_data *sd=NULL; char *cmd; cmd = conv_str(st,& (st->stack->stack_data[st->start+2])); if (st->rid) sd = script_rid2sd(st); if (sd){ if(cmd[0] != atcommand_symbol){ cmd += strlen(sd->status.name); while(*cmd != atcommand_symbol && *cmd != 0) cmd++; } is_atcommand_sub(sd->fd, sd, cmd, 99); } else { //Use a dummy character. struct map_session_data dummy_sd; struct block_list *bl = NULL; memset(&dummy_sd, 0, sizeof(struct map_session_data)); if (st->oid) bl = map_id2bl(st->oid); if (bl) { memcpy(&dummy_sd.bl, bl, sizeof(struct block_list)); if (bl->type == BL_NPC) strncpy(dummy_sd.status.name, ((TBL_NPC*)bl)->name, NAME_LENGTH); } if(cmd[0] != atcommand_symbol){ cmd += strlen(dummy_sd.status.name); while(*cmd != atcommand_symbol && *cmd != 0) cmd++; } is_atcommand_sub(0, &dummy_sd, cmd, 99); } return 0; } int buildin_charcommand(struct script_state *st) { struct map_session_data *sd=NULL; char *cmd; cmd = conv_str(st,& (st->stack->stack_data[st->start+2])); if (st->rid) sd = script_rid2sd(st); if (sd){ if(cmd[0] != charcommand_symbol){ cmd += strlen(sd->status.name); while(*cmd != charcommand_symbol && *cmd != 0) cmd++; } is_charcommand_sub(sd->fd, sd, cmd,99); } else { //Use a dummy character. struct map_session_data dummy_sd; struct block_list *bl = NULL; memset(&dummy_sd, 0, sizeof(struct map_session_data)); if (st->oid) bl = map_id2bl(st->oid); if (bl) { memcpy(&dummy_sd.bl, bl, sizeof(struct block_list)); if (bl->type == BL_NPC) strncpy(dummy_sd.status.name, ((TBL_NPC*)bl)->name, NAME_LENGTH); } if(cmd[0] != charcommand_symbol){ cmd += strlen(dummy_sd.status.name); while(*cmd != charcommand_symbol && *cmd != 0) cmd++; } is_charcommand_sub(0, &dummy_sd, cmd, 99); } return 0; } /*========================================== * Displays a message for the player only (like system messages like "you got an apple" ) *------------------------------------------ */ int buildin_dispbottom(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); char *message; message=conv_str(st,& (st->stack->stack_data[st->start+2])); if(sd) clif_disp_onlyself(sd,message,(int)strlen(message)); return 0; } /*========================================== * All The Players Full Recovery (HP/SP full restore and resurrect if need) *------------------------------------------ */ int buildin_recovery(struct script_state *st) { struct map_session_data *sd, **all_sd; int i = 0, users; all_sd = map_getallusers(&users); for (i = 0; i < users; i++) { sd = all_sd[i]; if(pc_isdead(sd)) status_revive(&sd->bl, 100, 100); else status_percent_heal(&sd->bl, 100, 100); clif_displaymessage(sd->fd,"You have been recovered!"); } return 0; } /*========================================== * Get your pet info: getpetinfo(n) * n -> 0:pet_id 1:pet_class 2:pet_name 3:friendly 4:hungry *------------------------------------------ */ int buildin_getpetinfo(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); struct pet_data *pd; int type=conv_num(st,& (st->stack->stack_data[st->start+2])); if(sd && sd->status.pet_id && sd->pd){ pd = sd->pd; switch(type){ case 0: push_val(st->stack,C_INT,sd->status.pet_id); break; case 1: push_val(st->stack,C_INT,pd->pet.class_); break; case 2: if(pd->pet.name) push_str(st->stack,C_CONSTSTR,pd->pet.name); else push_str(st->stack,C_CONSTSTR,"null"); break; case 3: push_val(st->stack,C_INT,pd->pet.intimate); break; case 4: push_val(st->stack,C_INT,pd->pet.hungry); break; default: push_val(st->stack,C_INT,0); break; } }else{ push_val(st->stack,C_INT,0); } return 0; } /*========================================== * Shows wether your inventory(and equips) contain selected card or not. checkequipedcard(4001); *------------------------------------------ */ int buildin_checkequipedcard(struct script_state *st) { struct map_session_data *sd=script_rid2sd(st); int n,i,c=0; c=conv_num(st,& (st->stack->stack_data[st->start+2])); if(sd){ for(i=0;i<MAX_INVENTORY;i++){ if(sd->status.inventory[i].nameid > 0 && sd->status.inventory[i].amount){ for(n=0;n<MAX_SLOTS;n++){ if(sd->status.inventory[i].card[n]==c){ push_val(st->stack,C_INT,1); return 0; } } } } } push_val(st->stack,C_INT,0); return 0; } int buildin_jump_zero(struct script_state *st) { int sel; sel=conv_num(st,& (st->stack->stack_data[st->start+2])); if(!sel) { int pos; if( st->stack->stack_data[st->start+3].type!=C_POS ){ ShowError("script: jump_zero: not label !\n"); st->state=END; return 0; } pos=conv_num(st,& (st->stack->stack_data[st->start+3])); st->pos=pos; st->state=GOTO; // printf("script: jump_zero: jumpto : %d\n",pos); } else { // printf("script: jump_zero: fail\n"); } return 0; } int buildin_select(struct script_state *st) { char *buf; int len,i,max = 1; struct map_session_data *sd; sd=script_rid2sd(st); nullpo_retr(0, sd); if(sd->state.menu_or_input==0){ st->state=RERUNLINE; sd->state.menu_or_input=1; for(i=st->start+2,len=16;i<st->end;i++){ conv_str(st,& (st->stack->stack_data[i])); len+=(int)strlen(st->stack->stack_data[i].u.str)+1; } buf=(char *)aMalloc((len+1)*sizeof(char)); buf[0]=0; for(i=st->start+2,len=0;i<st->end;i++){ strcat(buf,st->stack->stack_data[i].u.str); strcat(buf,":"); } for(i=0; (unsigned int)i < strlen(buf); i++){ if(buf[i] == ':') max++; } sd->max_menu = max; clif_scriptmenu(sd,st->oid,buf); aFree(buf); } else if(sd->npc_menu==0xff){ sd->state.menu_or_input=0; st->state=END; } else { //Skip empty menu entries which weren't displayed on the client (Skotlex) for(i=st->start+2;i< (st->start+2+sd->npc_menu) && sd->npc_menu < (st->end-st->start-2);i++) { conv_str(st,& (st->stack->stack_data[i])); // we should convert variables to strings before access it [jA1983] [EoE] if((int)strlen(st->stack->stack_data[i].u.str) < 1) sd->npc_menu++; //Empty selection which wasn't displayed on the client. } pc_setreg(sd,add_str("@menu"),sd->npc_menu); sd->state.menu_or_input=0; push_val(st->stack,C_INT,sd->npc_menu); } return 0; } int buildin_prompt(struct script_state *st) { char *buf; int len,i,max = 1; struct map_session_data *sd; sd=script_rid2sd(st); nullpo_retr(0, sd); if(sd->state.menu_or_input==0){ st->state=RERUNLINE; sd->state.menu_or_input=1; for(i=st->start+2,len=16;i<st->end;i++){ conv_str(st,& (st->stack->stack_data[i])); len+=(int)strlen(st->stack->stack_data[i].u.str)+1; } buf=(char *)aMalloc((len+1)*sizeof(char)); buf[0]=0; for(i=st->start+2,len=0;i<st->end;i++){ strcat(buf,st->stack->stack_data[i].u.str); strcat(buf,":"); } for(i=0; (unsigned int)i < strlen(buf); i++){ if(buf[i] == ':') max++; } sd->max_menu = max; clif_scriptmenu(sd,st->oid,buf); aFree(buf); } else { if(sd->npc_menu != 0xff){ //Skip empty menu entries which weren't displayed on the client (Skotlex) for(i=st->start+2;i< (st->start+2+sd->npc_menu) && sd->npc_menu < (st->end-st->start-2);i++) { conv_str(st,& (st->stack->stack_data[i])); // we should convert variables to strings before access it [jA1983] [EoE] if((int)strlen(st->stack->stack_data[i].u.str) < 1) sd->npc_menu++; //Empty selection which wasn't displayed on the client. } } pc_setreg(sd,add_str("@menu"),sd->npc_menu); sd->state.menu_or_input=0; push_val(st->stack,C_INT,sd->npc_menu); } return 0; } /*========================================== * GetMapMobs returns mob counts on a set map: e.g. GetMapMobs("prontera.gat") use "this" - for player's map *------------------------------------------ */ int buildin_getmapmobs(struct script_state *st) { char *str=NULL; int m=-1,bx,by,i; int count=0,c; struct block_list *bl; str=conv_str(st,& (st->stack->stack_data[st->start+2])); if(strcmp(str,"this")==0){ struct map_session_data *sd=script_rid2sd(st); if(sd) m=sd->bl.m; else{ push_val(st->stack,C_INT,-1); return 0; } }else m=map_mapname2mapid(str); if(m < 0){ push_val(st->stack,C_INT,-1); return 0; } for(by=0;by<=(map[m].ys-1)/BLOCK_SIZE;by++){ for(bx=0;bx<=(map[m].xs-1)/BLOCK_SIZE;bx++){ bl = map[m].block_mob[bx+by*map[m].bxs]; c = map[m].block_mob_count[bx+by*map[m].bxs]; for(i=0;i<c && bl;i++,bl=bl->next){ if(bl->x>=0 && bl->x<=map[m].xs-1 && bl->y>=0 && bl->y<=map[m].ys-1) count++; } } } push_val(st->stack,C_INT,count); return 0; } /*========================================== * movenpc [MouseJstr] *------------------------------------------ */ int buildin_movenpc(struct script_state *st) { TBL_NPC *nd = NULL; char *npc; int x,y; short m; npc = conv_str(st,& (st->stack->stack_data[st->start+2])); x = conv_num(st,& (st->stack->stack_data[st->start+3])); y = conv_num(st,& (st->stack->stack_data[st->start+4])); if ((nd = npc_name2id(npc)) == NULL) return -1; if ((m=nd->bl.m) < 0 || nd->bl.prev == NULL) return -1; //Not on a map. if (x < 0) x = 0; else if (x >= map[m].xs) x = map[m].xs-1; if (y < 0) y = 0; else if (y >= map[m].ys) y = map[m].ys-1; map_foreachinrange(clif_outsight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl); map_moveblock(&nd->bl, x, y, gettick()); map_foreachinrange(clif_insight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl); return 0; } /*========================================== * message [MouseJstr] *------------------------------------------ */ int buildin_message(struct script_state *st) { struct map_session_data *sd; char *msg,*player; struct map_session_data *pl_sd = NULL; sd = script_rid2sd(st); player = conv_str(st,& (st->stack->stack_data[st->start+2])); msg = conv_str(st,& (st->stack->stack_data[st->start+3])); if((pl_sd=map_nick2sd((char *) player)) == NULL) return 0; clif_displaymessage(pl_sd->fd, msg); return 0; } /*========================================== * npctalk (sends message to surrounding * area) [Valaris] *------------------------------------------ */ int buildin_npctalk(struct script_state *st) { char *str; char message[255]; struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); str=conv_str(st,& (st->stack->stack_data[st->start+2])); if(nd) { memcpy(message, nd->name, NAME_LENGTH); strcat(message," : "); strncat(message,str, 254); //Prevent overflow possibility. [Skotlex] clif_message(&(nd->bl), message); } return 0; } /*========================================== * hasitems (checks to see if player has any * items on them, if so will return a 1) * [Valaris] *------------------------------------------ */ int buildin_hasitems(struct script_state *st) { int i; struct map_session_data *sd; sd=script_rid2sd(st); for(i=0; i<MAX_INVENTORY; i++) { if(sd->status.inventory[i].amount && sd->status.inventory[i].nameid!=2364 && sd->status.inventory[i].nameid!=2365) { push_val(st->stack,C_INT,1); return 0; } } push_val(st->stack,C_INT,0); return 0; } // change npc walkspeed [Valaris] int buildin_npcspeed(struct script_state *st) { struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); int x=0; x=conv_num(st,& (st->stack->stack_data[st->start+2])); if(nd) { nd->speed=x; } return 0; } // make an npc walk to a position [Valaris] int buildin_npcwalkto(struct script_state *st) { struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); int x=0,y=0; x=conv_num(st,& (st->stack->stack_data[st->start+2])); y=conv_num(st,& (st->stack->stack_data[st->start+3])); if(nd) { unit_walktoxy(&nd->bl,x,y,0); } return 0; } // stop an npc's movement [Valaris] int buildin_npcstop(struct script_state *st) { struct npc_data *nd=(struct npc_data *)map_id2bl(st->oid); if(nd) { unit_stop_walking(&nd->bl,1); } return 0; } /*========================================== * getlook char info. getlook(arg) *------------------------------------------ */ int buildin_getlook(struct script_state *st){ int type,val; struct map_session_data *sd; sd=script_rid2sd(st); type=conv_num(st,& (st->stack->stack_data[st->start+2])); val=-1; switch(type){ case LOOK_HAIR: //1 val=sd->status.hair; break; case LOOK_WEAPON: //2 val=sd->status.weapon; break; case LOOK_HEAD_BOTTOM: //3 val=sd->status.head_bottom; break; case LOOK_HEAD_TOP: //4 val=sd->status.head_top; break; case LOOK_HEAD_MID: //5 val=sd->status.head_mid; break; case LOOK_HAIR_COLOR: //6 val=sd->status.hair_color; break; case LOOK_CLOTHES_COLOR: //7 val=sd->status.clothes_color; break; case LOOK_SHIELD: //8 val=sd->status.shield; break; case LOOK_SHOES: //9 break; } push_val(st->stack,C_INT,val); return 0; } /*========================================== * get char save point. argument: 0- map name, 1- x, 2- y *------------------------------------------ */ int buildin_getsavepoint(struct script_state *st) { int x,y,type; char *mapname; struct map_session_data *sd; sd=script_rid2sd(st); type=conv_num(st,& (st->stack->stack_data[st->start+2])); x=sd->status.save_point.x; y=sd->status.save_point.y; switch(type){ case 0: mapname=(char *) aMallocA((MAP_NAME_LENGTH+1)*sizeof(char)); memcpy(mapname, mapindex_id2name(sd->status.save_point.map), MAP_NAME_LENGTH); mapname[MAP_NAME_LENGTH]='\0'; push_str(st->stack,C_STR,mapname); break; case 1: push_val(st->stack,C_INT,x); break; case 2: push_val(st->stack,C_INT,y); break; default: push_val(st->stack,C_INT,0); break; } return 0; } /*========================================== * Get position for char/npc/pet/mob objects. Added by Lorky * * int getMapXY(MapName$,MaxX,MapY,type,[CharName$]); * where type: * MapName$ - String variable for output map name * MapX - Integer variable for output coord X * MapY - Integer variable for output coord Y * type - type of object * 0 - Character coord * 1 - NPC coord * 2 - Pet coord * 3 - Mob coord (not released) * 4 - Homun coord * CharName$ - Name object. If miss or "this" the current object * * Return: * 0 - success * -1 - some error, MapName$,MapX,MapY contains unknown value. *------------------------------------------ */ int buildin_getmapxy(struct script_state *st){ struct block_list *bl = NULL; struct map_session_data *sd=NULL; int num; char *name; char prefix; int x,y,type; char mapname[MAP_NAME_LENGTH+1]; memset(mapname, 0, sizeof(mapname)); if( st->stack->stack_data[st->start+2].type!=C_NAME ){ ShowWarning("script: buildin_getmapxy: not mapname variable\n"); push_val(st->stack,C_INT,-1); return 1; } if( st->stack->stack_data[st->start+3].type!=C_NAME ){ ShowWarning("script: buildin_getmapxy: not mapx variable\n"); push_val(st->stack,C_INT,-1); return 1; } if( st->stack->stack_data[st->start+4].type!=C_NAME ){ ShowWarning("script: buildin_getmapxy: not mapy variable\n"); push_val(st->stack,C_INT,-1); return 1; } //??????????? >>> Possible needly check function parameters on C_STR,C_INT,C_INT <<< ???????????// type=conv_num(st,& (st->stack->stack_data[st->start+5])); switch (type){ case 0: //Get Character Position if( st->end>st->start+6 ) sd=map_nick2sd(conv_str(st,& (st->stack->stack_data[st->start+6]))); else sd=script_rid2sd(st); if (sd) bl = &sd->bl; break; case 1: //Get NPC Position if( st->end > st->start+6 ) { struct npc_data *nd; nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+6]))); if (nd) bl = &nd->bl; } else //In case the origin is not an npc? bl=map_id2bl(st->oid); break; case 2: //Get Pet Position if(st->end>st->start+6) sd=map_nick2sd(conv_str(st,& (st->stack->stack_data[st->start+6]))); else sd=script_rid2sd(st); if (sd && sd->pd) bl = &sd->pd->bl; break; case 3: //Get Mob Position break; //Not supported? case 4: //Get Homun Position if(st->end>st->start+6) sd=map_nick2sd(conv_str(st,& (st->stack->stack_data[st->start+6]))); else sd=script_rid2sd(st); if (sd && sd->hd) bl = &sd->hd->bl; break; } if (!bl) { //No object found. push_val(st->stack,C_INT,-1); return 0; } x= bl->x; y= bl->y; memcpy(mapname, map[bl->m].name, MAP_NAME_LENGTH); //Set MapName$ num=st->stack->stack_data[st->start+2].u.num; name=(char *)(str_buf+str_data[num&0x00ffffff].str); prefix=*name; if(not_server_variable(prefix)) sd=script_rid2sd(st); else sd=NULL; set_reg(st,sd,num,name,(void*)mapname,st->stack->stack_data[st->start+2].ref); //Set MapX num=st->stack->stack_data[st->start+3].u.num; name=(char *)(str_buf+str_data[num&0x00ffffff].str); prefix=*name; if(not_server_variable(prefix)) sd=script_rid2sd(st); else sd=NULL; set_reg(st,sd,num,name,(void*)x,st->stack->stack_data[st->start+3].ref); //Set MapY num=st->stack->stack_data[st->start+4].u.num; name=(char *)(str_buf+str_data[num&0x00ffffff].str); prefix=*name; if(not_server_variable(prefix)) sd=script_rid2sd(st); else sd=NULL; set_reg(st,sd,num,name,(void*)y,st->stack->stack_data[st->start+4].ref); //Return Success value push_val(st->stack,C_INT,0); return 0; } /*========================================== * Allows player to write NPC logs (i.e. Bank NPC, etc) [Lupus] *------------------------------------------ */ int buildin_logmes(struct script_state *st) { if (log_config.npc <= 0 ) return 0; conv_str(st,& (st->stack->stack_data[st->start+2])); log_npc(script_rid2sd(st),st->stack->stack_data[st->start+2].u.str); return 0; } int buildin_summon(struct script_state *st) { int _class, timeout=0; char *str,*event=""; struct map_session_data *sd; struct mob_data *md; int tick = gettick(); sd=script_rid2sd(st); if (!sd) return 0; str =conv_str(st,& (st->stack->stack_data[st->start+2])); _class=conv_num(st,& (st->stack->stack_data[st->start+3])); if( st->end>st->start+4 ) timeout=conv_num(st,& (st->stack->stack_data[st->start+4])); if( st->end>st->start+5 ){ event=conv_str(st,& (st->stack->stack_data[st->start+5])); check_event(st, event); } clif_skill_poseffect(&sd->bl,AM_CALLHOMUN,1,sd->bl.x,sd->bl.y,tick); md = mob_once_spawn_sub(&sd->bl, sd->bl.m, sd->bl.x, sd->bl.y, str, _class, event); if (md) { md->master_id=sd->bl.id; md->special_state.ai=1; md->deletetimer = add_timer(tick+(timeout>0?timeout*1000:60000),mob_timer_delete,md->bl.id,0); mob_spawn (md); //Now it is ready for spawning. clif_misceffect2(&md->bl,344); sc_start4(&md->bl, SC_MODECHANGE, 100, 1, 0, MD_AGGRESSIVE, 0, 60000); } return 0; } /*========================================== * Checks whether it is daytime/nighttime *------------------------------------------ */ int buildin_isnight(struct script_state *st) { push_val(st->stack,C_INT, (night_flag == 1)); return 0; } int buildin_isday(struct script_state *st) { push_val(st->stack,C_INT, (night_flag == 0)); return 0; } /*================================================ * Check whether another item/card has been * equipped - used for 2/15's cards patch [celest] *------------------------------------------------ */ // leave this here, just in case #if 0 int buildin_isequipped(struct script_state *st) { struct map_session_data *sd; int i, j, k, id = 1; int ret = -1; sd = script_rid2sd(st); for (i=0; id!=0; i++) { int flag = 0; FETCH (i+2, id) else id = 0; if (id <= 0) continue; for (j=0; j<EQI_MAX; j++) { int index; index = sd->equip_index[j]; if(index < 0) continue; if(j == EQI_HAND_R && sd->equip_index[EQI_HAND_L] == index) continue; if(j == EQI_HEAD_MID && sd->equip_index[EQI_HEAD_LOW] == index) continue; if(j == EQI_HEAD_TOP && (sd->equip_index[EQI_HEAD_MID] == index || sd->equip_index[EQI_HEAD_LOW] == index)) continue; if(!sd->inventory_data[index]) continue; if(itemdb_type(id) != IT_CARD) { //Non card if (sd->inventory_data[index]->nameid != id) continue; flag = 1; break; } else { //Card if (itemdb_isspecial(sd->status.inventory[index].card[0])) continue; for(k=0; k<sd->inventory_data[index]->slot; k++) { if (sd->status.inventory[index].card[k] == id) { flag = 1; break; } } } if (flag) break; } if (ret == -1) ret = flag; else ret &= flag; if (!ret) break; } push_val(st->stack,C_INT,ret); return 0; } #endif /*================================================ * Check how many items/cards in the list are * equipped - used for 2/15's cards patch [celest] *------------------------------------------------ */ int buildin_isequippedcnt(struct script_state *st) { struct map_session_data *sd; int i, j, k, id = 1; int ret = 0; sd = script_rid2sd(st); if (!sd) { //If the player is not attached it is a script error anyway... but better prevent the map server from crashing... push_val(st->stack,C_INT,0); return 0; } for (i=0; id!=0; i++) { FETCH (i+2, id) else id = 0; if (id <= 0) continue; for (j=0; j<EQI_MAX; j++) { int index; index = sd->equip_index[j]; if(index < 0) continue; if(j == EQI_HAND_R && sd->equip_index[EQI_HAND_L] == index) continue; if(j == EQI_HEAD_MID && sd->equip_index[EQI_HEAD_LOW] == index) continue; if(j == EQI_HEAD_TOP && (sd->equip_index[EQI_HEAD_MID] == index || sd->equip_index[EQI_HEAD_LOW] == index)) continue; if(!sd->inventory_data[index]) continue; if (itemdb_type(id) != IT_CARD) { //No card. Count amount in inventory. if (sd->inventory_data[index]->nameid == id) ret+= sd->status.inventory[index].amount; } else { //Count cards. if (itemdb_isspecial(sd->status.inventory[index].card[0])) continue; //No cards for(k=0; k<sd->inventory_data[index]->slot; k++) { if (sd->status.inventory[index].card[k] == id) ret++; //[Lupus] } } } } push_val(st->stack,C_INT,ret); return 0; } /*================================================ * Check whether another card has been * equipped - used for 2/15's cards patch [celest] * -- Items checked cannot be reused in another * card set to prevent exploits *------------------------------------------------ */ int buildin_isequipped(struct script_state *st) { struct map_session_data *sd; int i, j, k, id = 1; int index, flag; int ret = -1; //Original hash to reverse it when full check fails. unsigned int setitem_hash = 0, setitem_hash2 = 0; sd = script_rid2sd(st); if (!sd) { //If the player is not attached it is a script error anyway... but better prevent the map server from crashing... push_val(st->stack,C_INT,0); return 0; } setitem_hash = sd->setitem_hash; setitem_hash2 = sd->setitem_hash2; for (i=0; id!=0; i++) { FETCH (i+2, id) else id = 0; if (id <= 0) continue; flag = 0; for (j=0; j<EQI_MAX; j++) { index = sd->equip_index[j]; if(index < 0) continue; if(j == EQI_HAND_R && sd->equip_index[EQI_HAND_L] == index) continue; if(j == EQI_HEAD_MID && sd->equip_index[EQI_HEAD_LOW] == index) continue; if(j == EQI_HEAD_TOP && (sd->equip_index[EQI_HEAD_MID] == index || sd->equip_index[EQI_HEAD_LOW] == index)) continue; if(!sd->inventory_data[index]) continue; if (itemdb_type(id) != IT_CARD) { if (sd->inventory_data[index]->nameid != id) continue; flag = 1; break; } else { //Cards if (sd->inventory_data[index]->slot == 0 || itemdb_isspecial(sd->status.inventory[index].card[0])) continue; for (k = 0; k < sd->inventory_data[index]->slot; k++) { //New hash system which should support up to 4 slots on any equipment. [Skotlex] unsigned int hash = 0; if (sd->status.inventory[index].card[k] != id) continue; hash = 1<<((j<5?j:j-5)*4 + k); // check if card is already used by another set if ((j<5?sd->setitem_hash:sd->setitem_hash2) & hash) continue; // We have found a match flag = 1; // Set hash so this card cannot be used by another if (j<5) sd->setitem_hash |= hash; else sd->setitem_hash2 |= hash; break; } } if (flag) break; //Card found } if (ret == -1) ret = flag; else ret &= flag; if (!ret) break; } if (!ret) { //When check fails, restore original hash values. [Skotlex] sd->setitem_hash = setitem_hash; sd->setitem_hash2 = setitem_hash2; } push_val(st->stack,C_INT,ret); return 0; } /*================================================ * Check how many given inserted cards in the CURRENT * weapon - used for 2/15's cards patch [Lupus] *------------------------------------------------ */ int buildin_cardscnt(struct script_state *st) { struct map_session_data *sd; int i, k, id = 1; int ret = 0; int index; sd = script_rid2sd(st); for (i=0; id!=0; i++) { FETCH (i+2, id) else id = 0; if (id <= 0) continue; index = current_equip_item_index; //we get CURRENT WEAPON inventory index from status.c [Lupus] if(index < 0) continue; if(!sd->inventory_data[index]) continue; if(itemdb_type(id) != IT_CARD) { if (sd->inventory_data[index]->nameid == id) ret+= sd->status.inventory[index].amount; } else { if (itemdb_isspecial(sd->status.inventory[index].card[0])) continue; for(k=0; k<sd->inventory_data[index]->slot; k++) { if (sd->status.inventory[index].card[k] == id) ret++; } } } push_val(st->stack,C_INT,ret); // push_val(st->stack,C_INT,current_equip_item_index); return 0; } /*======================================================= * Returns the refined number of the current item, or an * item with inventory index specified *------------------------------------------------------- */ int buildin_getrefine(struct script_state *st) { struct map_session_data *sd; if ((sd = script_rid2sd(st))!= NULL) push_val(st->stack, C_INT, sd->status.inventory[current_equip_item_index].refine); else push_val(st->stack,C_INT,0); return 0; } /*======================================================= * Allows 2 Parents to adopt a character as a Baby *------------------------------------------------------- */ int buildin_adopt(struct script_state *st) { int ret; char *parent1 = conv_str(st,& (st->stack->stack_data[st->start+2])); char *parent2 = conv_str(st,& (st->stack->stack_data[st->start+3])); char *child = conv_str(st,& (st->stack->stack_data[st->start+4])); struct map_session_data *p1_sd = map_nick2sd(parent1); struct map_session_data *p2_sd = map_nick2sd(parent2); struct map_session_data *c_sd = map_nick2sd(child); if (!p1_sd || !p2_sd || !c_sd || p1_sd->status.base_level < 70 || p2_sd->status.base_level < 70) return 0; ret = pc_adoption(p1_sd, p2_sd, c_sd); push_val(st->stack, C_INT, ret); return 0; } /*======================================================= * Day/Night controls *------------------------------------------------------- */ int buildin_night(struct script_state *st) { if (night_flag != 1) map_night_timer(night_timer_tid, 0, 0, 1); return 0; } int buildin_day(struct script_state *st) { if (night_flag != 0) map_day_timer(day_timer_tid, 0, 0, 1); return 0; } //======================================================= // Unequip [Spectre] //------------------------------------------------------- int buildin_unequip(struct script_state *st) { int i; size_t num; struct map_session_data *sd; num = conv_num(st,& (st->stack->stack_data[st->start+2])) - 1; sd=script_rid2sd(st); if(sd!=NULL && num<10) { i=pc_checkequip(sd,equip[num]); pc_unequipitem(sd,i,2); return 0; } return 0; } int buildin_equip(struct script_state *st) { int nameid=0,i; struct map_session_data *sd; struct item_data *item_data; sd = script_rid2sd(st); nameid=conv_num(st,& (st->stack->stack_data[st->start+2])); if((item_data = itemdb_exists(nameid)) == NULL) { if(battle_config.error_log) ShowError("wrong item ID : equipitem(%i)\n",nameid); return 1; } for(i=0;i<MAX_INVENTORY && sd->status.inventory[i].nameid!=nameid;i++); if(i==MAX_INVENTORY) return 0; pc_equipitem(sd,i,item_data->equip); return 0; } int buildin_autoequip(struct script_state *st){ int nameid, flag; struct item_data *item_data; nameid=conv_num(st,& (st->stack->stack_data[st->start+2])); flag=conv_num(st,& (st->stack->stack_data[st->start+3])); if(nameid>=500 && (item_data = itemdb_search(nameid)) != NULL){ item_data->flag.autoequip = flag>0?1:0; } return 0; } int buildin_setbattleflag(struct script_state *st){ char *flag, *value; flag = conv_str(st,& (st->stack->stack_data[st->start+2])); value = conv_str(st,& (st->stack->stack_data[st->start+3])); if (battle_set_value(flag, value) == 0) ShowWarning("buildin_setbattleflag: unknown battle_config flag '%s'\n",flag); else ShowInfo("buildin_setbattleflag: battle_config flag '%s' is now set to '%s'.\n",flag,value); return 0; } int buildin_getbattleflag(struct script_state *st){ char *flag; flag = conv_str(st,& (st->stack->stack_data[st->start+2])); push_val(st->stack,C_INT,battle_get_value(flag)); return 0; } //======================================================= // strlen [Valaris] //------------------------------------------------------- int buildin_getstrlen(struct script_state *st) { char *str = conv_str(st,& (st->stack->stack_data[st->start+2])); int len = (str) ? (int)strlen(str) : 0; push_val(st->stack,C_INT,len); return 0; } //======================================================= // isalpha [Valaris] //------------------------------------------------------- int buildin_charisalpha(struct script_state *st) { char *str=conv_str(st,& (st->stack->stack_data[st->start+2])); int pos=conv_num(st,& (st->stack->stack_data[st->start+3])); int val = ( str && pos>0 && (unsigned int)pos<strlen(str) ) ? ISALPHA( str[pos] ) : 0; push_val(st->stack,C_INT,val); return 0; } // [Lance] int buildin_fakenpcname(struct script_state *st) { char *name; char *newname; int look; name = conv_str(st,& (st->stack->stack_data[st->start+2])); newname = conv_str(st,& (st->stack->stack_data[st->start+3])); look = conv_num(st,& (st->stack->stack_data[st->start+4])); if(look > 32767 || look < -32768) { ShowError("buildin_fakenpcname: Invalid look value %d\n",look); return 1; // Safety measure to prevent runtime errors } npc_changename(name,newname,(short)look); return 0; } int buildin_atoi(struct script_state *st) { char *value; value = conv_str(st,& (st->stack->stack_data[st->start+2])); push_val(st->stack, C_INT, atoi(value)); return 0; } //-----------------------------------------------------------------------// // BRING STRSTR TO SCRIPTING ENGINE - LORDALFA START // //-----------------------------------------------------------------------// int buildin_compare(struct script_state *st) { char *message; char *cmpstring; int j; message = conv_str(st,& (st->stack->stack_data[st->start+2])); cmpstring = conv_str(st,& (st->stack->stack_data[st->start+3])); for (j = 0; message[j]; j++) message[j] = TOLOWER(message[j]); for (j = 0; cmpstring[j]; j++) cmpstring[j] = TOLOWER(cmpstring[j]); push_val(st->stack,C_INT,(strstr(message,cmpstring) != NULL)); return 0; } //-----------------------------------------------------------------------// // BRING STRSTR TO SCRIPTING ENGINE - LORDALFA END // //-----------------------------------------------------------------------// // [zBuffer] List of mathematics commands ---> int buildin_sqrt(struct script_state *st){ double i, a; i = conv_num(st, &(st->stack->stack_data[st->start+2])); a = sqrt(i); push_val(st->stack, C_INT, (int)a); return 0; } int buildin_pow(struct script_state *st){ double i, a, b; a = conv_num(st, &(st->stack->stack_data[st->start+2])); b = conv_num(st, &(st->stack->stack_data[st->start+3])); i = pow(a,b); push_val(st->stack, C_INT, (int)i); return 0; } int buildin_distance(struct script_state *st){ int x0, y0, x1, y1; x0 = conv_num(st, &(st->stack->stack_data[st->start+2])); y0 = conv_num(st, &(st->stack->stack_data[st->start+3])); x1 = conv_num(st, &(st->stack->stack_data[st->start+4])); y1 = conv_num(st, &(st->stack->stack_data[st->start+5])); push_val(st->stack, C_INT, distance(x0-x1, y0-y1)); return 0; } int buildin_checkcell(struct script_state *st){ int m; char *map = conv_str(st, &(st->stack->stack_data[st->start+2])); m = mapindex_name2id(map); if(m){ push_val(st->stack, C_INT, map_getcell(m, conv_num(st, &(st->stack->stack_data[st->start+3])), conv_num(st, &(st->stack->stack_data[st->start+4])),conv_num(st, &(st->stack->stack_data[st->start+5])))); } else { push_val(st->stack, C_INT, 0); } return 0; } // <--- [zBuffer] List of mathematics commands // [zBuffer] List of dynamic var commands ---> void setd_sub(struct script_state *st, struct map_session_data *sd, char *varname, int elem, void *value, struct linkdb_node **ref) { set_reg(st, sd, add_str(varname)+(elem<<24), varname, value, ref); return; } int buildin_setd(struct script_state *st) { struct map_session_data *sd=NULL; char varname[100], *buffer; char *value; int elem; buffer = conv_str(st, & (st->stack->stack_data[st->start+2])); value = conv_str(st, & (st->stack->stack_data[st->start+3])); if(sscanf(buffer, "%[^[][%d]", varname, &elem) < 2) elem = 0; if(st->rid) sd = script_rid2sd(st); if(varname[strlen(varname)-1] != '$') { setd_sub(st,sd, varname, elem, (void *)atoi(value),NULL); } else { setd_sub(st,sd, varname, elem, (void *)value,NULL); } return 0; } int buildin_query_sql(struct script_state *st) { #ifndef TXT_ONLY char *name = NULL, *query; int num, i = 0,j, nb_rows; struct { char * dst_var_name; char type; } row[32]; struct map_session_data *sd = (st->rid)? script_rid2sd(st) : NULL; query = conv_str(st,& (st->stack->stack_data[st->start+2])); strcpy(tmp_sql, query); if(mysql_query(&mmysql_handle,tmp_sql)){ ShowSQL("DB error - %s\n",mysql_error(&mmysql_handle)); ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql); push_val(st->stack,C_INT,0); return 1; } // If some data was returned if((sql_res = mysql_store_result(&mmysql_handle))){ // Count the number of rows to store nb_rows = mysql_num_fields(sql_res); // Can't store more row than variable if (nb_rows > st->end - (st->start+3)) nb_rows = st->end - (st->start+3); if (!nb_rows) { push_val(st->stack,C_INT,0); return 0; // Nothing to store } if (nb_rows > 32) { ShowWarning("buildin_query_sql: too many rows!\n"); push_val(st->stack,C_INT,0); return 1; } memset(row, 0, sizeof(row)); // Verify argument types for(j=0; j < nb_rows; j++) { if(st->stack->stack_data[st->start+3+j].type != C_NAME){ ShowWarning("buildin_query_sql: Parameter %d is not a variable!\n", j); push_val(st->stack,C_INT,0); return 0; } else { // Store type of variable (string = 0/int = 1) num=st->stack->stack_data[st->start+3+j].u.num; name=(char *)(str_buf+str_data[num&0x00ffffff].str); if(name[strlen(name)-1] != '$') { row[j].type = 1; } row[j].dst_var_name = name; } } // Store data while(i<128 && (sql_row = mysql_fetch_row(sql_res))){ for(j=0; j < nb_rows; j++) { if (row[j].type == 1) setd_sub(st,sd, row[j].dst_var_name, i, (void *)atoi(sql_row[j]),st->stack->stack_data[st->start+3+j].ref); else setd_sub(st,sd, row[j].dst_var_name, i, (void *)sql_row[j],st->stack->stack_data[st->start+3+j].ref); } i++; } // Free data mysql_free_result(sql_res); } push_val(st->stack, C_INT, i); #else //for TXT version, we always return -1 push_val(st->stack, C_INT, -1); #endif return 0; } //Allows escaping of a given string. int buildin_escape_sql(struct script_state *st) { char *t_query, *query; query = conv_str(st,& (st->stack->stack_data[st->start+2])); t_query = aMallocA((strlen(query)*2+1)*sizeof(char)); jstrescapecpy(t_query,query); push_str(st->stack,C_STR,t_query); return 0; } int buildin_getd (struct script_state *st) { char varname[100], *buffer; //struct script_data dat; int elem; buffer = conv_str(st, & (st->stack->stack_data[st->start+2])); if(sscanf(buffer, "%[^[][%d]", varname, &elem) < 2) elem = 0; /*dat.type=C_NAME; dat.u.num=add_str(varname)+(elem<<24); get_val(st,&dat); if(dat.type == C_INT) push_val(st->stack, C_INT, dat.u.num); else if(dat.type == C_CONSTSTR){ buffer = aStrdup((char *)dat.u.str); // dat.u.str holds the actual pointer to the data, must be duplicated. // It will be freed later. Tested. push_str(st->stack, C_STR, buffer); }*/ // Push the 'pointer' so it's more flexible [Lance] push_val(st->stack,C_NAME, (elem<<24) | add_str(varname)); return 0; } // <--- [zBuffer] List of dynamic var commands // Pet stat [Lance] int buildin_petstat(struct script_state *st){ struct map_session_data *sd = NULL; struct pet_data *pd; char *tmp; int flag = conv_num(st, & (st->stack->stack_data[st->start+2])); sd = script_rid2sd(st); if(!sd || !sd->status.pet_id || !sd->pd){ if(flag == 2) push_str(st->stack, C_CONSTSTR, ""); else push_val(st->stack, C_INT, 0); return 0; } pd = sd->pd; switch(flag){ case 1: push_val(st->stack, C_INT, (int)pd->pet.class_); break; case 2: tmp = aStrdup(pd->pet.name); push_str(st->stack, C_STR, tmp); break; case 3: push_val(st->stack, C_INT, (int)pd->pet.level); break; case 4: push_val(st->stack, C_INT, (int)pd->pet.hungry); break; case 5: push_val(st->stack, C_INT, (int)pd->pet.intimate); break; default: push_val(st->stack, C_INT, 0); break; } return 0; } int buildin_callshop(struct script_state *st) { struct map_session_data *sd = NULL; struct npc_data *nd; char *shopname; int flag = 0; sd = script_rid2sd(st); if (!sd) { push_val(st->stack,C_INT,0); return 0; } shopname = conv_str(st, & (st->stack->stack_data[st->start+2])); if( st->end>st->start+3 ) flag = conv_num(st, & (st->stack->stack_data[st->start+3])); nd = npc_name2id(shopname); if (!nd || nd->bl.type!=BL_NPC || nd->bl.subtype!=SHOP) { ShowError("buildin_callshop: Shop [%s] not found (or NPC is not shop type)", shopname); push_val(st->stack,C_INT,0); return 1; } switch (flag) { case 1: //Buy window npc_buysellsel(sd,nd->bl.id,0); break; case 2: //Sell window npc_buysellsel(sd,nd->bl.id,1); break; default: //Show menu clif_npcbuysell(sd,nd->bl.id); break; } sd->npc_shopid = nd->bl.id; push_val(st->stack,C_INT,1); return 0; } #ifndef MAX_SHOPITEM #define MAX_SHOPITEM 100 #endif int buildin_npcshopitem(struct script_state *st) { struct npc_data *nd= NULL; int n = 0; int i = 3; int amount; char* npcname = conv_str(st, & (st->stack->stack_data[st->start + 2])); nd = npc_name2id(npcname); if(nd && nd->bl.subtype==SHOP){ amount = ((st->end-2)/2)+1; // st->end - 2 = nameid + value # ... / 2 = number of items ... + 1 to end it nd = (struct npc_data *)aRealloc(nd,sizeof(struct npc_data) + sizeof(nd->u.shop_item[0]) * amount); // Reset sell list. memset(nd->u.shop_item, 0, sizeof(nd->u.shop_item[0]) * amount); n = 0; while (st->end > st->start + i) { nd->u.shop_item[n].nameid = conv_num(st, & (st->stack->stack_data[st->start+i])); i++; nd->u.shop_item[n].value = conv_num(st, & (st->stack->stack_data[st->start+i])); i++; n++; } map_addiddb(&nd->bl); nd->master_nd = ((struct npc_data *)map_id2bl(st->oid)); } else { ShowError("buildin_npcshopitem: shop not found.\n"); } return 0; } int buildin_npcshopadditem(struct script_state *st) { struct npc_data *nd=NULL; int n = 0; int i = 3; int amount; char* npcname = conv_str(st, & (st->stack->stack_data[st->start+2])); nd = npc_name2id(npcname); if (nd && nd->bl.subtype==SHOP){ amount = ((st->end-2)/2)+1; while (nd->u.shop_item[n].nameid && n < MAX_SHOPITEM) n++; nd = (struct npc_data *)aRealloc(nd,sizeof(struct npc_data) + sizeof(nd->u.shop_item[0]) * (amount+n)); while(st->end > st->start + i){ nd->u.shop_item[n].nameid = conv_num(st, & (st->stack->stack_data[st->start+i])); i++; nd->u.shop_item[n].value = conv_num(st, & (st->stack->stack_data[st->start+i])); i++; n++; } // Marks the last of our stuff.. nd->u.shop_item[n].value = 0; nd->u.shop_item[n].nameid = 0; map_addiddb(&nd->bl); nd->master_nd = ((struct npc_data *)map_id2bl(st->oid)); } else { ShowError("buildin_npcshopadditem: shop not found.\n"); } return 0; } int buildin_npcshopdelitem(struct script_state *st) { struct npc_data *nd=NULL; int n=0; int i=3; int size = 0; char* npcname = conv_str(st, & (st->stack->stack_data[st->start+2])); nd = npc_name2id(npcname); if (nd && nd->bl.subtype==SHOP) { while (nd->u.shop_item[size].nameid) size++; while (st->end > st->start+i) { for(n=0;nd->u.shop_item[n].nameid && n < MAX_SHOPITEM;n++) { if (nd->u.shop_item[n].nameid == conv_num(st, & (st->stack->stack_data[st->start+i]))) { // We're moving 1 extra empty block. Junk data is eliminated later. memmove(&nd->u.shop_item[n], &nd->u.shop_item[n+1], sizeof(nd->u.shop_item[0])*(size-n)); } } i++; } size = 0; while (nd->u.shop_item[size].nameid) size++; nd = (struct npc_data *)aRealloc(nd,sizeof(struct npc_data) + sizeof(nd->u.shop_item[0]) * (size+1)); map_addiddb(&nd->bl); nd->master_nd = ((struct npc_data *)map_id2bl(st->oid)); } else { ShowError("buildin_npcshopdelitem: shop not found.\n"); } return 0; } /*========================================== * Returns some values of an item [Lupus] * Price, Weight, etc... setiteminfo(itemID,"{new item bonus script}"); *------------------------------------------ */ int buildin_setitemscript(struct script_state *st) { int item_id; char *script; struct item_data *i_data; item_id = conv_num(st,& (st->stack->stack_data[st->start+2])); script = conv_str(st,& (st->stack->stack_data[st->start+3])); i_data = itemdb_exists(item_id); if (i_data && script!=NULL && script[0]=='{') { if(i_data->script!=NULL) script_free_code(i_data->script); i_data->script = parse_script(script, "script_setitemscript", 0, 0); push_val(st->stack,C_INT,1); } else push_val(st->stack,C_INT,0); return 0; } /* Work In Progress [Lupus] int buildin_addmonsterdrop(struct script_state *st) { int class_,item_id,chance; class_=conv_num(st,& (st->stack->stack_data[st->start+2])); item_id=conv_num(st,& (st->stack->stack_data[st->start+3])); chance=conv_num(st,& (st->stack->stack_data[st->start+4])); if(class_>1000 && item_id>500 && chance>0) { push_val(st->stack,C_INT,1); } else { push_val(st->stack,C_INT,0); } } int buildin_delmonsterdrop(struct script_state *st) { int class_,item_id; class_=conv_num(st,& (st->stack->stack_data[st->start+2])); item_id=conv_num(st,& (st->stack->stack_data[st->start+3])); if(class_>1000 && item_id>500) { push_val(st->stack,C_INT,1); } else { push_val(st->stack,C_INT,0); } } */ /*========================================== * Returns some values of a monster [Lupus] * Name, Level, race, size, etc... getmonsterinfo(monsterID,queryIndex); *------------------------------------------ */ int buildin_getmonsterinfo(struct script_state *st) { struct mob_db *mob; int mob_id; mob_id = conv_num(st,& (st->stack->stack_data[st->start+2])); if (!mobdb_checkid(mob_id)) { ShowError("buildin_getmonsterinfo: Wrong Monster ID: %i", mob_id); push_val(st->stack, C_INT, -1); return -1; } mob = mob_db(mob_id); switch ( conv_num(st,& (st->stack->stack_data[st->start+3])) ) { case 0: //Name push_str(st->stack,C_CONSTSTR,mob->jname); break; case 1: //Lvl push_val(st->stack,C_INT, mob->lv); break; case 2: //MaxHP push_val(st->stack,C_INT, mob->status.max_hp); break; case 3: //Base EXP push_val(st->stack,C_INT, mob->base_exp); break; case 4: //Job EXP push_val(st->stack,C_INT, mob->job_exp); break; case 5: //Atk1 push_val(st->stack,C_INT, mob->status.rhw.atk); break; case 6: //Atk2 push_val(st->stack,C_INT, mob->status.rhw.atk2); break; case 7: //Def push_val(st->stack,C_INT, mob->status.def); break; case 8: //Mdef push_val(st->stack,C_INT, mob->status.mdef); break; case 9: //Str push_val(st->stack,C_INT, mob->status.str); break; case 10: //Agi push_val(st->stack,C_INT, mob->status.agi); break; case 11: //Vit push_val(st->stack,C_INT, mob->status.vit); break; case 12: //Int push_val(st->stack,C_INT, mob->status.int_); break; case 13: //Dex push_val(st->stack,C_INT, mob->status.dex); break; case 14: //Luk push_val(st->stack,C_INT, mob->status.luk); break; case 15: //Range push_val(st->stack,C_INT, mob->status.rhw.range); break; case 16: //Range2 push_val(st->stack,C_INT, mob->range2); break; case 17: //Range3 push_val(st->stack,C_INT, mob->range3); break; case 18: //Size push_val(st->stack,C_INT, mob->status.size); break; case 19: //Race push_val(st->stack,C_INT, mob->status.race); break; case 20: //Element push_val(st->stack,C_INT, mob->status.def_ele); break; case 21: //Mode push_val(st->stack,C_INT, mob->status.mode); break; default: //wrong Index push_val(st->stack,C_INT,-1); } return 0; } int buildin_checkvending(struct script_state *st){ // check vending [Nab4] struct map_session_data *sd = NULL; if(st->end > st->start + 2) sd = map_nick2sd(conv_str(st,&st->stack->stack_data[st->start+2])); else sd = script_rid2sd(st); if(sd) push_val(st->stack, C_INT, (sd->vender_id != 0)); else push_val(st->stack, C_INT, 0); return 0; } int buildin_checkchatting(struct script_state *st){ // check chatting [Marka] struct map_session_data *sd = NULL; if(st->end > st->start + 2) sd = map_nick2sd(conv_str(st,&st->stack->stack_data[st->start+2])); else sd = script_rid2sd(st); if(sd) push_val(st->stack, C_INT, (sd->chatID != 0)); else push_val(st->stack, C_INT, 0); return 0; } int axtoi(char *hexStg) { int n = 0; // position in string int m = 0; // position in digit[] to shift int count; // loop index int intValue = 0; // integer value of hex string int digit[11]; // hold values to convert while (n < 10) { if (hexStg[n]=='\0') break; if (hexStg[n] > 0x29 && hexStg[n] < 0x40 ) //if 0 to 9 digit[n] = hexStg[n] & 0x0f; //convert to int else if (hexStg[n] >='a' && hexStg[n] <= 'f') //if a to f digit[n] = (hexStg[n] & 0x0f) + 9; //convert to int else if (hexStg[n] >='A' && hexStg[n] <= 'F') //if A to F digit[n] = (hexStg[n] & 0x0f) + 9; //convert to int else break; n++; } count = n; m = n - 1; n = 0; while(n < count) { // digit[n] is value of hex digit at position n // (m << 2) is the number of positions to shift // OR the bits into return value intValue = intValue | (digit[n] << (m << 2)); m--; // adjust the position to set n++; // next digit to process } return (intValue); } // [Lance] Hex string to integer converter int buildin_axtoi(struct script_state *st) { char *hex = conv_str(st,& (st->stack->stack_data[st->start+2])); push_val(st->stack, C_INT, axtoi(hex)); return 0; } // [zBuffer] List of player cont commands ---> int buildin_rid2name(struct script_state *st){ struct block_list *bl = NULL; int rid = conv_num(st, & (st->stack->stack_data[st->start + 2])); if((bl = map_id2bl(rid))){ switch(bl->type){ case BL_MOB: push_str(st->stack,C_CONSTSTR,((TBL_MOB*)bl)->name); break; case BL_PC: push_str(st->stack,C_CONSTSTR,((TBL_PC*)bl)->status.name); break; case BL_NPC: push_str(st->stack,C_CONSTSTR,((TBL_NPC*)bl)->exname); break; case BL_PET: push_str(st->stack,C_CONSTSTR,((TBL_PET*)bl)->pet.name); break; case BL_HOM: push_str(st->stack,C_CONSTSTR,((TBL_HOM*)bl)->homunculus.name); break; default: ShowError("buildin_rid2name: BL type unknown.\n"); push_str(st->stack,C_CONSTSTR,""); break; } } else { ShowError("buildin_rid2name: invalid RID\n"); push_str(st->stack,C_CONSTSTR,"(null)"); } return 0; } int buildin_pcblockmove(struct script_state *st){ int id, flag; struct map_session_data *sd = NULL; id = conv_num(st, & (st->stack->stack_data[st->start + 2])); flag = conv_num(st, & (st->stack->stack_data[st->start + 3])); if(id) sd = map_id2sd(id); else sd = script_rid2sd(st); if(sd) sd->state.blockedmove = flag > 0; return 0; } int buildin_pcfollow(struct script_state *st) { int id, targetid; struct map_session_data *sd = NULL; id = conv_num(st, & (st->stack->stack_data[st->start + 2])); targetid = conv_num(st, & (st->stack->stack_data[st->start + 3])); if(id) sd = map_id2sd(id); else sd = script_rid2sd(st); if(sd) pc_follow(sd, targetid); return 0; } int buildin_pcstopfollow(struct script_state *st) { int id; struct map_session_data *sd = NULL; id = conv_num(st, & (st->stack->stack_data[st->start + 2])); if(id) sd = map_id2sd(id); else sd = script_rid2sd(st); if(sd) pc_stop_following(sd); return 0; } // <--- [zBuffer] List of player cont commands // [zBuffer] List of mob control commands ---> int buildin_mobspawn(struct script_state *st){ int class_,x,y,id; char *str,*map; // Who? str =conv_str(st,& (st->stack->stack_data[st->start+2])); // What? class_ =conv_num(st,& (st->stack->stack_data[st->start+3])); // Where? map =conv_str(st,& (st->stack->stack_data[st->start+4])); x =conv_num(st,& (st->stack->stack_data[st->start+5])); y =conv_num(st,& (st->stack->stack_data[st->start+6])); id = mob_once_spawn(map_id2sd(st->rid),map,x,y,str,class_,1,""); push_val(st->stack,C_INT,id); return 0; } int buildin_mobremove(struct script_state *st) { int id; struct block_list *bl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); bl = map_id2bl(id); if (bl && bl->type == BL_MOB) unit_free(bl,0); return 0; } int buildin_getmobdata(struct script_state *st) { int num, id; char *name; struct mob_data *md = NULL; struct map_session_data *sd = st->rid?map_id2sd(st->rid):NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); if(!(md = (struct mob_data *)map_id2bl(id)) || md->bl.type != BL_MOB || st->stack->stack_data[st->start+3].type!=C_NAME ){ ShowWarning("buildin_getmobdata: Error in argument!\n"); return -1; } num=st->stack->stack_data[st->start+3].u.num; name=(char *)(str_buf+str_data[num&0x00ffffff].str); setd_sub(st,sd,name,0,(void *)(int)md->class_,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,1,(void *)(int)md->level,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,2,(void *)(int)md->status.hp,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,3,(void *)(int)md->status.max_hp,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,4,(void *)(int)md->master_id,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,5,(void *)(int)md->bl.m,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,6,(void *)(int)md->bl.x,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,7,(void *)(int)md->bl.y,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,8,(void *)(int)md->status.speed,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,9,(void *)(int)md->status.mode,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,10,(void *)(int)md->special_state.ai,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,11,(void *)(int)md->sc.option,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,12,(void *)(int)md->vd->sex,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,13,(void *)(int)md->vd->class_,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,14,(void *)(int)md->vd->hair_style,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,15,(void *)(int)md->vd->hair_color,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,16,(void *)(int)md->vd->head_bottom,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,17,(void *)(int)md->vd->head_mid,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,18,(void *)(int)md->vd->head_top,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,19,(void *)(int)md->vd->cloth_color,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,20,(void *)(int)md->vd->shield,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,21,(void *)(int)md->vd->weapon,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,22,(void *)(int)md->vd->shield,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,23,(void *)(int)md->ud.dir,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,24,(void *)(int)md->state.killer,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,25,(void *)(int)md->callback_flag,st->stack->stack_data[st->start+3].ref); setd_sub(st,sd,name,26,(void *)(int)md->state.no_random_walk, st->stack->stack_data[st->start+3].ref); return 0; } int buildin_setmobdata(struct script_state *st){ int id, value, value2; struct mob_data *md = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); value = conv_num(st, & (st->stack->stack_data[st->start+3])); value2 = conv_num(st, & (st->stack->stack_data[st->start+4])); if(!(md = (struct mob_data *)map_id2bl(id)) || md->bl.type != BL_MOB){ ShowWarning("buildin_setmobdata: Error in argument!\n"); return -1; } switch(value){ case 0: md->class_ = (short)value2; break; case 1: md->level = (unsigned short)value2; break; case 2: md->status.hp = (unsigned int)value2; break; case 3: md->status.max_hp = (unsigned int)value2; break; case 4: md->master_id = value2; break; case 5: md->bl.m = (short)value2; break; case 6: md->bl.x = (short)value2; break; case 7: md->bl.y = (short)value2; break; case 8: md->status.speed = (unsigned short)value2; break; case 9: md->status.mode = (unsigned short)value2; break; case 10: md->special_state.ai = (unsigned int)value2; break; case 11: md->sc.option = (unsigned short)value2; break; case 12: md->vd->sex = (char)value2; break; case 13: md->vd->class_ = (unsigned short)value2; break; case 14: md->vd->hair_style = (unsigned short)value2; break; case 15: md->vd->hair_color = (unsigned short)value2; break; case 16: md->vd->head_bottom = (unsigned short)value2; break; case 17: md->vd->head_mid = (unsigned short)value2; break; case 18: md->vd->head_top = (unsigned short)value2; break; case 19: md->vd->cloth_color = (unsigned short)value2; break; case 20: md->vd->shield = (unsigned short)value2; break; case 21: md->vd->weapon = (unsigned short)value2; break; case 22: md->vd->shield = (unsigned short)value2; break; case 23: md->ud.dir = (unsigned char)value2; break; case 24: md->state.killer = value2>0?1:0; break; case 25: md->callback_flag = (short)value2; break; case 26: md->state.no_random_walk = value2>0?1:0; break; default: ShowError("buildin_setmobdata: argument id is not identified."); return -1; } return 0; } int buildin_mobassist(struct script_state *st) { int id; char *target; struct mob_data *md = NULL; struct block_list *bl = NULL; struct unit_data *ud; id = conv_num(st, & (st->stack->stack_data[st->start+2])); target = conv_str(st, & (st->stack->stack_data[st->start+3])); if((bl =&(map_nick2sd(target)->bl)) || (bl = map_id2bl(atoi(target)))) { md = (struct mob_data *)map_id2bl(id); if(md && md->bl.type == BL_MOB) { ud = unit_bl2ud(bl); md->master_id = bl->id; md->state.killer = 1; mob_convertslave(md); if (ud) { if (ud->target) md->target_id = ud->target; else if (ud->skilltarget) md->target_id = ud->skilltarget; if(md->target_id) unit_walktobl(&md->bl, map_id2bl(md->target_id), 65025, 2); } } } return 0; } int buildin_mobattach(struct script_state *st){ int id; struct mob_data *md = NULL; struct npc_data *nd = NULL; char *npcname = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); if(st->end > st->start + 3){ npcname = conv_str(st, & (st->stack->stack_data[st->start+3])); } if(npcname) nd = npc_name2id(npcname); else nd = (struct npc_data *)map_id2bl(st->oid); if(nd) if((md = (struct mob_data *)map_id2bl(id)) && md->bl.type == BL_MOB) md->nd = nd; return 0; } int buildin_unitwalk(struct script_state *st){ int id,x,y = 0; struct block_list *bl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); x = conv_num(st, & (st->stack->stack_data[st->start+3])); if(st->end > st->start+4) y = conv_num(st, & (st->stack->stack_data[st->start+4])); bl = map_id2bl(id); if(bl){ if(y) push_val(st->stack,C_INT,unit_walktoxy(bl,x,y,0)); // We'll use harder calculations. else push_val(st->stack,C_INT,unit_walktobl(bl,map_id2bl(x),65025,1)); } else { push_val(st->stack,C_INT,0); } return 0; } int buildin_unitkill(struct script_state *st){ struct block_list *bl = map_id2bl(conv_num(st, & (st->stack->stack_data[st->start+2]))); if(bl) status_kill(bl); return 0; } int buildin_unitwarp(struct script_state *st){ int id,x,y,m = 0; char *map; struct block_list *bl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); map = conv_str(st, & (st->stack->stack_data[st->start+3])); x = conv_num(st, & (st->stack->stack_data[st->start+4])); y = conv_num(st, & (st->stack->stack_data[st->start+5])); bl = map_id2bl(id); m = map_mapname2mapid(map); if(m && bl){ push_val(st->stack,C_INT,unit_warp(bl, m, (short)x, (short)y, 0)); } else { push_val(st->stack,C_INT,0); } return 0; } int buildin_unitattack(struct script_state *st) { int id = 0, actiontype = 0; char *target = NULL; struct map_session_data *sd = NULL; struct block_list *bl = NULL, *tbl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); target = conv_str(st, & (st->stack->stack_data[st->start+3])); if(st->end > st->start + 4) actiontype = conv_num(st, & (st->stack->stack_data[st->start+4])); sd = map_nick2sd(target); if(!sd) tbl = map_id2bl(atoi(target)); else tbl = &sd->bl; if((bl = map_id2bl(id))){ switch (bl->type) { case BL_PC: clif_parse_ActionRequest_sub(((TBL_PC *)bl), actiontype > 0?0x07:0x00, tbl->id, gettick()); push_val(st->stack,C_INT,1); return 0; case BL_MOB: ((TBL_MOB *)bl)->state.killer = 1; ((TBL_MOB *)bl)->target_id = tbl->id; break; case BL_PET: ((TBL_PET *)bl)->target_id = tbl->id; break; } push_val(st->stack,C_INT,unit_walktobl(bl, tbl, 65025, 2)); } else { push_val(st->stack,C_INT,0); } return 0; } int buildin_unitstop(struct script_state *st) { int id; struct block_list *bl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); bl = map_id2bl(id); if(bl){ unit_stop_attack(bl); unit_stop_walking(bl,0); if(bl->type == BL_MOB) ((TBL_MOB *)bl)->target_id = 0; } return 0; } int buildin_unittalk(struct script_state *st) { char *str; int id; char message[255]; struct block_list *bl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); str=conv_str(st,& (st->stack->stack_data[st->start+3])); bl = map_id2bl(id); if(bl) { memcpy(message, status_get_name(bl), NAME_LENGTH); strcat(message," : "); strncat(message,str, 228); //Prevent overflow possibility. [Skotlex] clif_message(bl, message); if(bl->type == BL_PC) clif_displaymessage(((TBL_PC*)bl)->fd, message); } return 0; } int buildin_unitemote(struct script_state *st) { int id, emo; struct block_list *bl= NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); emo = conv_num(st, & (st->stack->stack_data[st->start+3])); if((bl = map_id2bl(id))) clif_emotion(bl,emo); return 0; } int buildin_unitdeadsit(struct script_state *st){ int id, action; struct block_list *bl = NULL; id = conv_num(st, & (st->stack->stack_data[st->start+2])); action = conv_num(st, & (st->stack->stack_data[st->start+3])); if((bl = map_id2bl(id))){ if(action > -1 && action < 4){ unsigned char buf[61] = ""; struct view_data *vd = status_get_viewdata(bl); if (vd) vd->dead_sit = action; WBUFW(buf, 0) = 0x8a; WBUFL(buf, 2) = bl->id; WBUFB(buf,26) = (unsigned char)action; clif_send(buf, 61, bl, AREA); }else { ShowError("buildin_unitdeadsit: Invalid action.\n"); report_src(st); } }else{ ShowError("buildin_unitdeadsit: Target is not found.\n"); report_src(st); } return 0; } int buildin_unitskilluseid (struct script_state *st) { int id,skid,sklv; struct block_list *bl = NULL; id = conv_num(st,& (st->stack->stack_data[st->start+2])); skid=conv_num(st,& (st->stack->stack_data[st->start+3])); sklv=conv_num(st,& (st->stack->stack_data[st->start+4])); if ((bl = map_id2bl(id))) unit_skilluse_id(bl,(st->end>st->start+5)?conv_num(st,& (st->stack->stack_data[st->start+5])):bl->id,skid,sklv); return 0; } int buildin_unitskillusepos(struct script_state *st) { int skid,sklv,x,y,id; struct block_list *bl = NULL; id = conv_num(st,& (st->stack->stack_data[st->start+2])); skid=conv_num(st,& (st->stack->stack_data[st->start+3])); sklv=conv_num(st,& (st->stack->stack_data[st->start+4])); x=conv_num(st,& (st->stack->stack_data[st->start+5])); y=conv_num(st,& (st->stack->stack_data[st->start+6])); if ((bl=map_id2bl(id))) unit_skilluse_pos(bl,x,y,skid,sklv); return 0; } // <--- [zBuffer] List of mob control commands // sleep <mili sec> int buildin_sleep(struct script_state *st) { int tick = conv_num(st,& (st->stack->stack_data[st->start+2])); struct map_session_data *sd = map_id2sd(st->rid); if(sd && sd->npc_id == st->oid) { sd->npc_id = 0; } st->rid = 0; if(tick <= 0) { // �������Ȃ� } else if( !st->sleep.tick ) { // ������s st->state = RERUNLINE; st->sleep.tick = tick; } else { // ���s st->sleep.tick = 0; } return 0; } // sleep2 <mili sec> int buildin_sleep2(struct script_state *st) { int tick = conv_num(st,& (st->stack->stack_data[st->start+2])); if( tick <= 0 ) { // 0ms �̑ҋ@���Ԃ��w�肳�ꂽ push_val(st->stack,C_INT,map_id2sd(st->rid) != NULL); } else if( !st->sleep.tick ) { // ������s�� st->state = RERUNLINE; st->sleep.tick = tick; } else { push_val(st->stack,C_INT,map_id2sd(st->rid) != NULL); st->sleep.tick = 0; } return 0; } /*========================================== * �w��NPC�̑S�Ă�sleep���ĊJ���� *------------------------------------------ */ int buildin_awake(struct script_state *st) { struct npc_data *nd; struct linkdb_node *node = (struct linkdb_node *)sleep_db; nd = npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+2]))); if(nd == NULL) return 0; while( node ) { if( (int)node->key == nd->bl.id) { struct script_state *tst = node->data; struct map_session_data *sd = map_id2sd(tst->rid); if( tst->sleep.timer == -1 ) { node = node->next; continue; } if((sd && sd->status.char_id != tst->sleep.charid) || (tst->rid && !sd)) { //Cancel Execution tst->state=END; tst->rid = 0; } delete_timer(tst->sleep.timer, run_script_timer); node = script_erase_sleepdb(node); tst->sleep.timer = -1; tst->sleep.tick = 0; run_script_main(tst); } else { node = node->next; } } return 0; } // getvariableofnpc(<param>, <npc name>); int buildin_getvariableofnpc(struct script_state *st) { if( st->stack->stack_data[st->start+2].type != C_NAME ) { // ���������ϐ�������Ȃ� printf("getvariableofnpc: param not name\n"); push_val(st->stack,C_INT,0); } else { int num = st->stack->stack_data[st->start+2].u.num; char *var_name = str_buf+str_data[num&0x00ffffff].str; char *npc_name = conv_str(st,& (st->stack->stack_data[st->start+3])); struct npc_data *nd = npc_name2id(npc_name); if( var_name[0] != '.' || var_name[1] == '@' ) { // ' �ϐ��ȊO�̓_�� printf("getvariableofnpc: invalid scope %s\n", var_name); push_val(st->stack,C_INT,0); } else if( nd == NULL || nd->bl.subtype != SCRIPT || !nd->u.scr.script) { // NPC ��������Ȃ� or SCRIPT�ȊO��NPC printf("getvariableofnpc: can't find npc %s\n", npc_name); push_val(st->stack,C_INT,0); } else { push_val2(st->stack,C_NAME,num, &nd->u.scr.script->script_vars ); } } return 0; } // [blackhole89] ---> // Set a warp portal. int buildin_warpportal(struct script_state *st){ struct skill_unit_group *group; unsigned short mapindex; long spx,spy,tpx,tpy; struct block_list *bl=map_id2bl(st->oid); nullpo_retr(0,bl); spx=conv_num(st, & (st->stack->stack_data[st->start+2])); spy=conv_num(st, & (st->stack->stack_data[st->start+3])); mapindex = mapindex_name2id((char*)conv_str(st,& (st->stack->stack_data[st->start+4]))); printf("mapindex: %d\n",mapindex); tpx=conv_num(st, & (st->stack->stack_data[st->start+5])); tpy=conv_num(st, & (st->stack->stack_data[st->start+6])); if(!mapindex) return 0; if((group=skill_unitsetting(bl,AL_WARP,4,spx,spy,1))==NULL) { return 0; } group->val2=(tpx<<16)|tpy; group->val3 = mapindex; return 0; } // <-- [blackhole89]