// $Id: script.c 148 2004-09-30 14:05:37Z MouseJstr $
//#define DEBUG_FUNCIN
//#define DEBUG_DISP
//#define DEBUG_RUN
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#ifndef _WIN32
#include <sys/time.h>
#endif
#include <time.h>
#include "socket.h"
#include "timer.h"
#include "malloc.h"
#include "lock.h"
#include "map.h"
#include "clif.h"
#include "chrif.h"
#include "itemdb.h"
#include "pc.h"
#include "script.h"
#include "storage.h"
#include "mob.h"
#include "npc.h"
#include "pet.h"
#include "intif.h"
#include "db.h"
#include "skill.h"
#include "chat.h"
#include "battle.h"
#include "party.h"
#include "guild.h"
#include "lock.h"
#include "atcommand.h"
#include "log.h"
#ifdef MEMWATCH
#include "memwatch.h"
#endif
#define SCRIPT_BLOCK_SIZE 256
enum { LABEL_NEXTLINE=1,LABEL_START };
static unsigned char * script_buf;
static int script_pos,script_size;
char *str_buf;
int str_pos,str_size;
static struct {
int type;
int str;
int backpatch;
int label;
int (*func)();
int val;
int next;
} *str_data;
int str_num=LABEL_START,str_data_size;
int str_hash[16];
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 (10*1000)
static struct dbt *scriptlabel_db=NULL;
static struct dbt *userfunc_db=NULL;
struct dbt* script_get_label_db(){ return scriptlabel_db; }
struct dbt* script_get_userfunc_db(){ if(!userfunc_db) userfunc_db=strdb_init(50); return userfunc_db; }
int scriptlabel_final(void *k,void *d,va_list ap){ return 0; }
static char pos[11][100] = {"��","��","����","�E��","���[�u","�C","�A�N�Z�T���[1","�A�N�Z�T���[2","��2","��3","�������Ă��Ȃ�"};
struct Script_Config script_config;
static int parse_cmd_if=0;
static int parse_cmd;
/*==========================================
* ���[�J���v���g�^�C�v�錾 (�K�v�ȕ��̂�)
*------------------------------------------
*/
unsigned char* parse_subexpr(unsigned char *,int);
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_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_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_if(struct script_state *st);
int buildin_getitem(struct script_state *st);
int buildin_getitem2(struct script_state *st);
int buildin_makeitem(struct script_state *st);
int buildin_delitem(struct script_state *st);
int buildin_viewpoint(struct script_state *st);
int buildin_countitem(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_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_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_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_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_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_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_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_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);
int buildin_getpartnerid(struct script_state *st);
int buildin_warppartner(struct script_state *st);
int buildin_getitemname(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 [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_gmcommand(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_skilluseid(struct script_state *st); // originally by Qamera [celest]
int buildin_skillusepos(struct script_state *st); // originally by Qamera [celest]
int buildin_logmes(struct script_state *st); // [Lupus]
int buildin_summon(struct script_state *st); // [celest]
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);
struct {
int (*func)();
char *name;
char *arg;
} 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_input,"input","*"},
{buildin_warp,"warp","sii"},
{buildin_areawarp,"areawarp","siiiisii"},
{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_if,"if","i*"},
{buildin_getitem,"getitem","ii**"},
{buildin_getitem2,"getitem2","iiiiiiiii*"},
{buildin_makeitem,"makeitem","iisii"},
{buildin_delitem,"delitem","ii"},
{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_checkweight,"checkweight","ii"},
{buildin_readparam,"readparam","i*"},
{buildin_getcharid,"getcharid","i*"},
{buildin_getpartyname,"getpartyname","i"},
{buildin_getpartymember,"getpartymember","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_bonus2,"bonus2","iii"},
{buildin_bonus3,"bonus3","iiii"},
{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",""},
{buildin_checkoption,"checkoption","i"},
{buildin_setoption,"setoption","i"},
{buildin_setcart,"setcart",""},
{buildin_checkcart,"checkcart","*"}, //fixed by Lupus (added '*')
{buildin_setfalcon,"setfalcon",""},
{buildin_checkfalcon,"checkfalcon","*"}, //fixed by Lupus (fixed wrong pointer, added '*')
{buildin_setriding,"setriding",""},
{buildin_checkriding,"checkriding","*"}, //fixed by Lupus (fixed wrong pointer, added '*')
{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_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_announce,"announce","si"},
{buildin_mapannounce,"mapannounce","ssi"},
{buildin_areaannounce,"areaannounce","siiiisi"},
{buildin_getusers,"getusers","i"},
{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_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_changebase,"changebase","i"},
{buildin_changesex,"changesex",""},
{buildin_waitingroom,"waitingroom","si*"},
{buildin_warpwaitingpc,"warpwaitingpc","sii"},
{buildin_delwaitingroom,"delwaitingroom","*"},
{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","i"}, // <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_warppartner,"warppartner","sii"},
{buildin_getitemname,"getitemname","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*i"}, // 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","iii"}, // [Valaris]
{buildin_petmag,"petmag","iiii"}, // [Valaris]
{buildin_petskillattack,"petskillattack","iiii"}, // [Valaris]
{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_gmcommand,"gmcommand","*"}, // [MouseJstr]
// {buildin_movenpc,"movenpc","siis"}, // [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_skilluseid,"skilluseid","ii"}, // originally by Qamera [Celest]
{buildin_skilluseid,"doskill","ii"}, // since a lot of scripts would already use 'doskill'...
{buildin_skillusepos,"skillusepos","iiii"}, // [Celest]
{buildin_logmes,"logmes","s"}, //this command actls as MES but prints info into LOG file either SQL/TXT [Lupus]
{buildin_summon,"summon","si*"}, // summons a slave monster [Celest]
{NULL,NULL,NULL},
};
int buildin_message(struct script_state *st); // [MouseJstr]
enum {
C_NOP,C_POS,C_INT,C_PARAM,C_FUNC,C_STR,C_CONSTSTR,C_ARG,
C_NAME,C_EOL, C_RETINFO,
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
};
/*==========================================
* ������̃n�b�V�����v�Z
*------------------------------------------
*/
static int calc_hash(const unsigned char *p)
{
int h=0;
while(*p){
h=(h<<1)+(h>>3)+(h>>5)+(h>>8);
h+=*p++;
}
return h&15;
}
/*==========================================
* str_data�̒��ɖ��O�����邩��������
*------------------------------------------
*/
// �����̂ł���Δԍ��A�������-1
static int search_str(const unsigned char *p)
{
int i;
i=str_hash[calc_hash(p)];
while(i){
if(strcmp(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�ԍ�
static int add_str(const unsigned char *p)
{
int i;
char *lowcase;
lowcase=aStrdup(p);
for(i=0;lowcase[i];i++)
lowcase[i]=tolower(lowcase[i]);
if((i=search_str(lowcase))>=0){
aFree(lowcase);
return i;
}
aFree(lowcase);
i=calc_hash(p);
if(str_hash[i]==0){
str_hash[i]=str_num;
} else {
i=str_hash[i];
for(;;){
if(strcmp(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;
str_data=aRealloc(str_data,sizeof(str_data[0])*str_data_size);
memset(str_data + (str_data_size - 128), '\0', 128);
}
while(str_pos+(int)strlen(p)+1>=str_size){
str_size+=256;
str_buf=(char *)aRealloc(str_buf,str_size);
memset(str_buf + (str_size - 256), '\0', 256);
}
strcpy(str_buf+str_pos,p);
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+=strlen(p)+1;
return str_num++;
}
/*==========================================
* �X�N���v�g�o�b�t�@�T�C�Y�̊m�F�Ɗg��
*------------------------------------------
*/
static void check_script_buf(int size)
{
if(script_pos+size>=script_size){
script_size+=SCRIPT_BLOCK_SIZE;
script_buf=(char *)aRealloc(script_buf,script_size);
memset(script_buf + script_size - SCRIPT_BLOCK_SIZE, '\0',
SCRIPT_BLOCK_SIZE);
}
}
/*==========================================
* �X�N���v�g�o�b�t�@�ɂP�o�C�g��������
*------------------------------------------
*/
static void add_scriptb(int a)
{
check_script_buf(1);
script_buf[script_pos++]=a;
}
/*==========================================
* �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:
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:
// ���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(str_data[l].val);
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)
{
int i,next;
str_data[l].type=C_POS;
str_data[l].label=pos;
for(i=str_data[l].backpatch;i>=0 && i!=0x00ffffff;){
next=(*(int*)(script_buf+i)) & 0x00ffffff;
script_buf[i-1]=C_POS;
script_buf[i]=pos;
script_buf[i+1]=pos>>8;
script_buf[i+2]=pos>>16;
i=next;
}
}
/*==========================================
* �X�y�[�X/�R�����g�ǂݔ��
*------------------------------------------
*/
static unsigned char *skip_space(unsigned char *p)
{
while(1){
while(isspace(*p))
p++;
if(p[0]=='/' && p[1]=='/'){
while(*p && *p!='\n')
p++;
} else if(p[0]=='/' && p[1]=='*'){
p++;
while(*p && (p[-1]!='*' || p[0]!='/'))
p++;
if(*p) p++;
} else
break;
}
return p;
}
/*==========================================
* �P�P��X�L�b�v
*------------------------------------------
*/
static unsigned char *skip_word(unsigned char *p)
{
// prefix
if(*p=='$') p++; // MAP�I�����L�ϐ��p
if(*p=='@') p++; // �ꎞ�I�ϐ��p(like weiss)
if(*p=='#') p++; // account�ϐ��p
if(*p=='#') p++; // ���[���haccount�ϐ��p
if(*p=='l') p++; // �ꎞ�I�ϐ��p(like weiss)
while(isalnum(*p)||*p=='_'|| *p>=0x81)
if(*p>=0x81 && p[1]){
p+=2;
} else
p++;
// postfix
if(*p=='$') p++; // ������ϐ�
return p;
}
static unsigned char *startptr;
static int startline;
/*==========================================
* �G���[���b�Z�[�W�o��
*------------------------------------------
*/
static void disp_error_message(const char *mes,const unsigned char *pos)
{
int line,c=0,i;
unsigned char *p,*linestart,*lineend;
for(line=startline,p=startptr;p && *p;line++){
linestart=p;
lineend=strchr(p,'\n');
if(lineend){
c=*lineend;
*lineend=0;
}
if(lineend==NULL || pos<lineend){
printf("%s line %d : ",mes,line);
for(i=0;(linestart[i]!='\r') && (linestart[i]!='\n') && linestart[i];i++){
if(linestart+i!=pos)
printf("%c",linestart[i]);
else
printf("\'%c\'",linestart[i]);
}
printf("\a\n");
if(lineend)
*lineend=c;
return;
}
*lineend=c;
p=lineend+1;
}
}
/*==========================================
* ���̉��
*------------------------------------------
*/
unsigned char* parse_simpleexpr(unsigned char *p)
{
int i;
p=skip_space(p);
#ifdef DEBUG_FUNCIN
if(battle_config.etc_log)
printf("parse_simpleexpr %s\n",p);
#endif
if(*p==';' || *p==','){
disp_error_message("unexpected expr end",p);
exit(1);
}
if(*p=='('){
p=parse_subexpr(p+1,-1);
p=skip_space(p);
if((*p++)!=')'){
disp_error_message("unmatch ')'",p);
exit(1);
}
} 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("unexpected newline @ string",p);
exit(1);
}
add_scriptb(*p++);
}
if(!*p){
disp_error_message("unexpected eof @ string",p);
exit(1);
}
add_scriptb(0);
p++; //'"'
} else {
int c,l;
char *p2;
// label , register , function etc
if(skip_word(p)==p){
disp_error_message("unexpected character",p);
exit(1);
}
p2=skip_word(p);
c=*p2; *p2=0; // ���O��add_str����
l=add_str(p);
parse_cmd=l; // warn_*_mismatch_paramnum�̂��߂ɕK�v
if(l==search_str("if")) // warn_cmd_no_comma�̂��߂ɕK�v
parse_cmd_if++;
/*
// �p�~�\���l14/l15,����уv���t�B�b�N�X���̌x��
if( strcmp(str_buf+str_data[l].str,"l14")==0 ||
strcmp(str_buf+str_data[l].str,"l15")==0 ){
disp_error_message("l14 and l15 is DEPRECATED. use @menu instead of l15.",p);
}else if(str_buf[str_data[l].str]=='l'){
disp_error_message("prefix 'l' is DEPRECATED. use prefix '@' instead.",p2);
}
*/
*p2=c; p=p2;
if(str_data[l].type!=C_FUNC && c=='['){
// 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("unmatch ']'",p);
exit(1);
}
add_scriptc(C_FUNC);
}else
add_scriptl(l);
}
#ifdef DEBUG_FUNCIN
if(battle_config.etc_log)
printf("parse_simpleexpr end %s\n",p);
#endif
return p;
}
/*==========================================
* ���̉��
*------------------------------------------
*/
unsigned char* parse_subexpr(unsigned char *p,int limit)
{
int op,opl,len;
char *tmpp;
#ifdef DEBUG_FUNCIN
if(battle_config.etc_log)
printf("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,100);
add_scriptc(op);
} else
p=parse_simpleexpr(p);
p=skip_space(p);
while(((op=C_ADD,opl=6,len=1,*p=='+') ||
(op=C_SUB,opl=6,len=1,*p=='-') ||
(op=C_MUL,opl=7,len=1,*p=='*') ||
(op=C_DIV,opl=7,len=1,*p=='/') ||
(op=C_MOD,opl=7,len=1,*p=='%') ||
(op=C_FUNC,opl=8,len=1,*p=='(') ||
(op=C_LAND,opl=1,len=2,*p=='&' && p[1]=='&') ||
(op=C_AND,opl=5,len=1,*p=='&') ||
(op=C_LOR,opl=0,len=2,*p=='|' && p[1]=='|') ||
(op=C_OR,opl=4,len=1,*p=='|') ||
(op=C_XOR,opl=3,len=1,*p=='^') ||
(op=C_EQ,opl=2,len=2,*p=='=' && p[1]=='=') ||
(op=C_NE,opl=2,len=2,*p=='!' && p[1]=='=') ||
(op=C_R_SHIFT,opl=5,len=2,*p=='>' && p[1]=='>') ||
(op=C_GE,opl=2,len=2,*p=='>' && p[1]=='=') ||
(op=C_GT,opl=2,len=1,*p=='>') ||
(op=C_L_SHIFT,opl=5,len=2,*p=='<' && p[1]=='<') ||
(op=C_LE,opl=2,len=2,*p=='<' && p[1]=='=') ||
(op=C_LT,opl=2,len=1,*p=='<')) && opl>limit){
p+=len;
if(op==C_FUNC){
int i=0,func=parse_cmd;
const char *plist[128];
if( str_data[func].type!=C_FUNC ){
disp_error_message("expect function",tmpp);
exit(0);
}
add_scriptc(C_ARG);
do {
plist[i]=p;
p=parse_subexpr(p,-1);
p=skip_space(p);
if(*p==',') p++;
else if(*p!=')' && script_config.warn_func_no_comma){
disp_error_message("expect ',' or ')' at func params",p);
}
p=skip_space(p);
i++;
} while(*p && *p!=')' && i<128);
plist[i]=p;
if(*(p++)!=')'){
disp_error_message("func request '(' ')'",p);
exit(1);
}
if( str_data[func].type==C_FUNC && script_config.warn_func_mismatch_paramnum){
const char *arg=buildin_func[str_data[func].val].arg;
int j=0;
for(j=0;arg[j];j++) if(arg[j]=='*')break;
if( (arg[j]==0 && i!=j) || (arg[j]=='*' && i<j) ){
disp_error_message("illegal number of parameters",plist[(i<j)?i:j]);
}
}
} else {
p=parse_subexpr(p,opl);
}
add_scriptc(op);
p=skip_space(p);
}
#ifdef DEBUG_FUNCIN
if(battle_config.etc_log)
printf("parse_subexpr end %s\n",p);
#endif
return p; /* return first untreated operator */
}
/*==========================================
* ���̕]��
*------------------------------------------
*/
unsigned char* parse_expr(unsigned char *p)
{
#ifdef DEBUG_FUNCIN
if(battle_config.etc_log)
printf("parse_expr %s\n",p);
#endif
switch(*p){
case ')': case ';': case ':': case '[': case ']':
case '}':
disp_error_message("unexpected char",p);
exit(1);
}
p=parse_subexpr(p,-1);
#ifdef DEBUG_FUNCIN
if(battle_config.etc_log)
printf("parse_expr end %s\n",p);
#endif
return p;
}
/*==========================================
* �s�̉��
*------------------------------------------
*/
unsigned char* parse_line(unsigned char *p)
{
int i=0,cmd;
const char *plist[128];
char *p2;
p=skip_space(p);
if(*p==';')
return p;
parse_cmd_if=0; // warn_cmd_no_comma�̂��߂ɕK�v
// �ŏ��͊���
p2=p;
p=parse_simpleexpr(p);
p=skip_space(p);
cmd=parse_cmd;
if( str_data[cmd].type!=C_FUNC ){
disp_error_message("expect command",p2);
// exit(0);
}
add_scriptc(C_ARG);
while(p && *p && *p!=';' && i<128){
plist[i]=p;
p=parse_expr(p);
p=skip_space(p);
// ��������,����
if(*p==',') p++;
else if(*p!=';' && script_config.warn_cmd_no_comma && parse_cmd_if*2<=i ){
disp_error_message("expect ',' or ';' at cmd params",p);
}
p=skip_space(p);
i++;
}
plist[i]=p;
if(!p || *(p++)!=';'){
disp_error_message("need ';'",p);
exit(1);
}
add_scriptc(C_FUNC);
if( str_data[cmd].type==C_FUNC && script_config.warn_cmd_mismatch_paramnum){
const char *arg=buildin_func[str_data[cmd].val].arg;
int j=0;
for(j=0;arg[j];j++) if(arg[j]=='*')break;
if( (arg[j]==0 && i!=j) || (arg[j]=='*' && i<j) ){
disp_error_message("illegal number of parameters",plist[(i<j)?i:j]);
}
}
return p;
}
/*==========================================
* �g�ݍ��݊��̒lj�
*------------------------------------------
*/
static void add_buildin_func(void)
{
int i,n;
for(i=0;buildin_func[i].func;i++){
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];
int val,n,i,type;
fp=fopen("db/const.txt","r");
if(fp==NULL){
printf("can't read db/const.txt\n");
return ;
}
while(fgets(line,1020,fp)){
if(line[0]=='/' && line[1]=='/')
continue;
type=0;
if(sscanf(line,"%[A-Za-z0-9_],%d,%d",name,&val,&type)>=2 ||
sscanf(line,"%[A-Za-z0-9_] %d %d",name,&val,&type)>=2){
for(i=0;name[i];i++)
name[i]=tolower(name[i]);
n=add_str(name);
if(type==0)
str_data[n].type=C_INT;
else
str_data[n].type=C_PARAM;
str_data[n].val=val;
}
}
fclose(fp);
}
/*==========================================
* �X�N���v�g�̉��
*------------------------------------------
*/
unsigned char* parse_script(unsigned char *src,int line)
{
unsigned char *p,*tmpp;
int i;
static int first=1;
if(first){
add_buildin_func();
read_constdb();
}
first=0;
script_buf=(unsigned char *)aCallocA(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_NOP;
str_data[i].backpatch=-1;
str_data[i].label=-1;
}
}
// �O���plabel db�̏�����
if(scriptlabel_db!=NULL)
strdb_final(scriptlabel_db,scriptlabel_final);
scriptlabel_db=strdb_init(50);
// for error message
startptr = src;
startline = line;
p=src;
p=skip_space(p);
if(*p!='{'){
disp_error_message("not found '{'",p);
return NULL;
}
for(p++;p && *p && *p!='}';){
p=skip_space(p);
// label�������ꏈ��
tmpp=skip_space(skip_word(p));
if(*tmpp==':'){
int l,c;
c=*skip_word(p);
*skip_word(p)=0;
l=add_str(p);
if(str_data[l].label!=-1){
*skip_word(p)=c;
disp_error_message("dup label ",p);
exit(1);
}
set_label(l,script_pos);
strdb_insert(scriptlabel_db,p,script_pos); // �O���plabel db�o�^
*skip_word(p)=c;
p=tmpp+1;
continue;
}
// ���͑S���ꏏ����
p=parse_line(p);
p=skip_space(p);
add_scriptc(C_EOL);
set_label(LABEL_NEXTLINE,script_pos);
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;
script_buf=(char *)aRealloc(script_buf,script_pos + 1);
// �������̃��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=(*(int*)(script_buf+j)) & 0x00ffffff;
script_buf[j]=i;
script_buf[j+1]=i>>8;
script_buf[j+2]=i>>16;
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
return script_buf;
}
//
// ���s�n
//
enum {STOP=1,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){
printf("script_rid2sd: fatal error ! player not attached!\n");
}
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(prefix!='$'){
if((sd=script_rid2sd(st))==NULL)
printf("get_val error name?:%s\n",name);
}
if(postfix=='$'){
data->type=C_CONSTSTR;
if( prefix=='@' || prefix=='l' ){
if(sd)
data->u.str = pc_readregstr(sd,data->u.num);
}else if(prefix=='$'){
data->u.str = (char *)numdb_search(mapregstr_db,data->u.num);
}else{
printf("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=='@' || prefix=='l'){
if(sd)
data->u.num = pc_readreg(sd,data->u.num);
}else if(prefix=='$'){
data->u.num = (int)numdb_search(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(sd)
data->u.num = pc_readglobalreg(sd,name);
}
}
}
return 0;
}
/*==========================================
* �ϐ��̓ǂݎ��2
*------------------------------------------
*/
void* get_val2(struct script_state*st,int num)
{
struct script_data dat;
dat.type=C_NAME;
dat.u.num=num;
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 map_session_data *sd,int num,char *name,void *v)
{
char prefix=*name;
char postfix=name[strlen(name)-1];
if( postfix=='$' ){
char *str=(char*)v;
if( prefix=='@' || prefix=='l'){
pc_setregstr(sd,num,str);
}else if(prefix=='$') {
mapreg_setregstr(num,str);
}else{
printf("script: set_reg: illegal scope string variable !");
}
}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=='@' || prefix=='l') {
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{
pc_setglobalreg(sd,name,val);
}
}
return 0;
}
/*==========================================
* ������ւ̕ϊ�
*------------------------------------------
*/
char* conv_str(struct script_state *st,struct script_data *data)
{
get_val(st,data);
if(data->type==C_INT){
char *buf;
buf=(char *)aCallocA(16,sizeof(char));
sprintf(buf,"%d",data->u.num);
data->type=C_STR;
data->u.str=buf;
#if 1
} else if(data->type==C_NAME){
// �e���|�����B�{�������͂�
data->type=C_CONSTSTR;
data->u.str=str_buf+str_data[data->u.num].str;
#endif
}
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->sp++;
}
/*==========================================
* �X�^�b�N�֕�������v�b�V��
*------------------------------------------
*/
void push_str(struct script_stack *stack,int type,unsigned 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->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_val(stack,stack->stack_data[pos].type,stack->stack_data[pos].u.num);
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);
}
}
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;
}
//
// ���ߍ��݊�
//
/*==========================================
*
*------------------------------------------
*/
int buildin_mes(struct script_state *st)
{
conv_str(st,& (st->stack->stack_data[st->start+2]));
clif_scriptmes(script_rid2sd(st),st->oid,st->stack->stack_data[st->start+2].u.str);
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_goto(struct script_state *st)
{
int pos;
if( st->stack->stack_data[st->start+2].type!=C_POS ){
printf("script: goto: not label!\n");
st->state=END;
return 0;
}
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)
{
char *scr;
char *str=conv_str(st,& (st->stack->stack_data[st->start+2]));
if( (scr=strdb_search(script_get_userfunc_db(),str)) ){
int i,j;
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->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_RETINFO,st->pos); // ���݂̃X�N���v�g�ʒu���v�b�V��
st->pos=0;
st->script=scr;
st->defsp=st->start+4+j;
st->state=GOTO;
}else{
printf("script:callfunc: function not found! [%s]\n",str);
st->state=END;
}
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;
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->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_RETINFO,st->pos); // ���݂̃X�N���v�g�ʒu���v�b�V��
st->pos=pos;
st->defsp=st->start+4+j;
st->state=GOTO;
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->defsp<4 || st->stack->stack_data[st->defsp-1].type!=C_RETINFO ){
printf("script:getarg without callfunc or callsub!\n");
st->state=END;
return 0;
}
max=conv_num(st,& (st->stack->stack_data[st->defsp-4]));
stsp=st->defsp - max -4;
if( num >= max ){
printf("script:getarg arg1(%d) out of range(%d) !\n",num,max);
st->state=END;
return 0;
}
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��
push_copy(st->stack,st->start+2);
}
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;
struct map_session_data *sd;
sd=script_rid2sd(st);
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+=2){
conv_str(st,& (st->stack->stack_data[i]));
len+=strlen(st->stack->stack_data[i].u.str)+1;
}
buf=(char *)aCallocA(len,sizeof(char));
buf[0]=0;
for(i=st->start+2,len=0;i<st->end;i+=2){
strcat(buf,st->stack->stack_data[i].u.str);
strcat(buf,":");
}
clif_scriptmenu(script_rid2sd(st),st->oid,buf);
aFree(buf);
} else if(sd->npc_menu==0xff){ // cansel
sd->state.menu_or_input=0;
st->state=END;
} else { // goto����
// ragemu�݊��̂���
pc_setreg(sd,add_str("l15"),sd->npc_menu);
pc_setreg(sd,add_str("@menu"),sd->npc_menu);
sd->state.menu_or_input=0;
if(sd->npc_menu>0 && sd->npc_menu<(st->end-st->start)/2){
int pos;
if( st->stack->stack_data[st->start+sd->npc_menu*2+1].type!=C_POS ){
printf("script: menu: not label !\n");
st->state=END;
return 0;
}
pos=conv_num(st,& (st->stack->stack_data[st->start+sd->npc_menu*2+1]));
st->pos=pos;
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){
int tmp;
tmp=min;
min=max;
max=tmp;
}
range=max-min+1;
push_val(st->stack,C_INT,rand()%range+min);
} else {
range=conv_num(st,& (st->stack->stack_data[st->start+2]));
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);
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){
if(map[sd->bl.m].flag.noreturn) // ���֎~
return 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){
if(map[sd->bl.m].flag.noreturn) // ���֎~
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,str,x,y,0);
return 0;
}
/*==========================================
* �G���A�w�胏�[�v
*------------------------------------------
*/
int buildin_areawarp_sub(struct block_list *bl,va_list ap)
{
int x,y;
char *map;
map=va_arg(ap, char *);
x=va_arg(ap,int);
y=va_arg(ap,int);
if(strcmp(map,"Random")==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;
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;
map_foreachinarea(buildin_areawarp_sub,
m,x0,y0,x1,y1,BL_PC, str,x,y );
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_heal(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]));
pc_heal(script_rid2sd(st),hp,sp);
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_itemheal(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]));
pc_itemheal(script_rid2sd(st),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]));
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);
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_input(struct script_state *st)
{
struct map_session_data *sd=NULL;
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 prefix=*name;
char postfix=name[strlen(name)-1];
sd=script_rid2sd(st);
if(sd->state.menu_or_input){
sd->state.menu_or_input=0;
if( postfix=='$' ){
// ������
if(st->end>st->start+2){ // ����1��
set_reg(sd,num,name,(void*)sd->npc_str);
}else{
printf("buildin_input: string discarded !!\n");
}
}else{
// 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 (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(sd,num,name,(void*)sd->npc_amount);
} else {
// ragemu�݊��̂���
pc_setreg(sd,add_str("l14"),sd->npc_amount);
}
}
} else {
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_if(struct script_state *st)
{
int sel,i;
sel=conv_num(st,& (st->stack->stack_data[st->start+2]));
if(!sel)
return 0;
// �������R�s�[
push_copy(st->stack,st->start+3);
// �ԂɈ����}�[�J������
push_val(st->stack,C_ARG,0);
// �c��̈������R�s�[
for(i=st->start+4;i<st->end;i++){
push_copy(st->stack,i);
}
run_func(st);
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 ){
printf("script: buildin_set: not name\n");
return 0;
}
if( prefix!='$' )
sd=script_rid2sd(st);
if( postfix=='$' ){
// ������
char *str = conv_str(st,& (st->stack->stack_data[st->start+3]));
set_reg(sd,num,name,(void*)str);
}else{
// ���l
int val = conv_num(st,& (st->stack->stack_data[st->start+3]));
set_reg(sd,num,name,(void*)val);
}
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!='@' ){
printf("buildin_setarray: illegal scope !\n");
return 0;
}
if( 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( sd, num+(j<<24), name, v);
}
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!='@' ){
printf("buildin_cleararray: illegal scope !\n");
return 0;
}
if( 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(sd,num+(i<<24),name,v);
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!='@' && prefix2!='$' && prefix2!='@' ){
printf("buildin_copyarray: illegal scope !\n");
return 0;
}
if( (postfix=='$' || postfix2=='$') && postfix!=postfix2 ){
printf("buildin_copyarray: type mismatch !\n");
return 0;
}
if( prefix!='$' || prefix2!='$' )
sd=script_rid2sd(st);
for(i=0;i<sz;i++)
set_reg(sd,num+(i<<24),name, get_val2(st,num2+(i<<24)) );
return 0;
}
/*==========================================
* �z��ϐ��̃T�C�Y����
*------------------------------------------
*/
static int getarraysize(struct script_state *st,int num,int postfix)
{
int i=(num>>24),c=i;
for(;i<128;i++){
void *v=get_val2(st,num+(i<<24));
if(postfix=='$' && *((char*)v) ) c=i;
if(postfix!='$' && (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!='@' ){
printf("buildin_copyarray: illegal scope !\n");
return 0;
}
push_val(st->stack,C_INT,getarraysize(st,num,postfix) );
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)-(num>>24)-count+1;
if( (st->end > st->start+3) )
count=conv_num(st,& (st->stack->stack_data[st->start+3]));
if( prefix!='$' && prefix!='@' ){
printf("buildin_deletearray: illegal scope !\n");
return 0;
}
if( prefix!='$' )
sd=script_rid2sd(st);
for(i=0;i<sz;i++){
set_reg(sd,num+(i<<24),name, get_val2(st,num+((i+count)<<24) ) );
}
for(;i<(128-(num>>24));i++){
if( postfix!='$' ) set_reg(sd,num+(i<<24),name, 0);
if( postfix=='$' ) set_reg(sd,num+(i<<24),name, "");
}
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){
printf("script: getelementofarray (operator[]): param2 illegal number %d\n",i);
push_val(st->stack,C_INT,0);
}else{
push_val(st->stack,C_NAME,
(i<<24) | st->stack->stack_data[st->start+2].u.num );
}
}else{
printf("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;
itemid=conv_num(st,& (st->stack->stack_data[st->start+2]));
clif_cutin(script_rid2sd(st),itemdb_search(itemid)->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)
printf("wrong item ID : countitem(%i)\n",nameid);
}
push_val(st->stack,C_INT,count);
return 0;
}
/*==========================================
* �d�ʃ`�F�b�N
*------------------------------------------
*/
int buildin_checkweight(struct script_state *st)
{
int nameid=0,amount;
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);
}
sd=script_rid2sd(st);
if(itemdb_weight(nameid)*amount + sd->weight > sd->max_weight){
push_val(st->stack,C_INT,0);
} else {
push_val(st->stack,C_INT,1);
}
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_getitem(struct script_state *st)
{
int nameid,amount,flag = 0;
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=512; //Apple item ID
if( item_data != NULL)
nameid=item_data->nameid;
}else
nameid=conv_num(st,data);
if ( ( amount=conv_num(st,& (st->stack->stack_data[st->start+3])) ) <= 0) {
return 0; //return if amount <=0, skip the useles iteration
}
//Violet Box, Blue Box, etc - random item pick
if(nameid<0) { // �����_��
nameid=itemdb_searchrandomid(-nameid);
#ifndef TXT_ONLY
if(log_config.present > 0)
log_present(sd, -nameid, nameid);
#endif //USE_SQL
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_isequip3(nameid);
if( st->end>st->start+5 ) //�A�C�e�����w�肵��ID�ɓn��
sd=map_id2sd(conv_num(st,& (st->stack->stack_data[st->start+5])));
if(sd == NULL) //�A�C�e����n�����肪���Ȃ������炨�A��
return 0;
if((flag = pc_additem(sd,&item_tmp,amount))) {
clif_additem(sd,0,0,flag);
if(!pc_candrop(sd,nameid))
map_addflooritem(&item_tmp,amount,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0);
}
}
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=512; //Apple 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_search(nameid);
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);
}
}
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 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=512; //Apple 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( sd && strcmp(mapname,"this")==0)
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_isequip3(nameid);
// clif_additem(sd,0,0,flag);
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=512;
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
//printf("wrong item ID or amount<=0 : delitem %i,\n",nameid,amount);
return 0;
}
sd=script_rid2sd(st);
//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==7 && sd->status.inventory[i].card[0] == (short)0xff00 && search_petDB_index(nameid, PET_EGG) >= 0 ){
intif_delete_petdata(*((long *)(&sd->status.inventory[i].card[1])));
//clear egg flag. so it won't be put in IMPORTANT items (eggs look like item with 2 cards ^_^)
sd->status.inventory[i].card[1] = sd->status.inventory[i].card[0] = 0;
//now this egg'll be deleted as a common unimportant item
}
//is this item important? does it have cards? or Player's name? or Refined/Upgraded
if( sd->status.inventory[i].card[0] || sd->status.inventory[i].card[1] ||
sd->status.inventory[i].card[2] || sd->status.inventory[i].card[3] || sd->status.inventory[i].refine) {
//this is important item, count it
important_item++;
continue;
}
if(sd->status.inventory[i].amount>=amount){
pc_delitem(sd,i,amount,0);
return 0; //we deleted exact amount of items. now exit
} else {
amount-=sd->status.inventory[i].amount;
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){
pc_delitem(sd,i,amount,0);
return 0; //we deleted exact amount of items. now exit
} else {
amount-=sd->status.inventory[i].amount;
pc_delitem(sd,i,sd->status.inventory[i].amount,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){
push_val(st->stack,C_INT,-1);
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 *p;
p=NULL;
p=party_search(party_id);
if(p!=NULL){
char *buf;
buf=(char *)aCallocA(24,sizeof(char));
strcpy(buf,p->name);
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!=0)
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 *p;
int i,j=0;
p=NULL;
p=party_search(conv_num(st,& (st->stack->stack_data[st->start+2])));
if(p!=NULL){
for(i=0;i<MAX_PARTY;i++){
if(p->member[i].account_id){
// printf("name:%s %d\n",p->member[i].name,i);
mapreg_setregstr(add_str("$@partymembername$")+(i<<24),p->member[i].name);
j++;
}
}
}
mapreg_setreg(add_str("$@partymembercount"),j);
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 *)aCallocA(24,sizeof(char));
strcpy(buf,g->name);
return buf;
}
return 0;
}
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!=0)
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 *)aCallocA(24,sizeof(char));
strncpy(buf,g->master, 23);
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;
sd=script_rid2sd(st);
num=conv_num(st,& (st->stack->stack_data[st->start+2]));
if(num==0){
char *buf;
buf=(char *)aCallocA(24,sizeof(char));
strncpy(buf,sd->status.name, 23);
push_str(st->stack,C_STR,buf);
}
if(num==1){
char *buf;
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,"");
}
if(num==2){
char *buf;
buf=buildin_getguildname_sub(sd->status.guild_id);
if(buf!=0)
push_str(st->stack,C_STR,buf);
else
push_str(st->stack,C_CONSTSTR,"");
}
return 0;
}
unsigned int equip[10]={0x0100,0x0010,0x0020,0x0002,0x0004,0x0040,0x0008,0x0080,0x0200,0x0001};
/*==========================================
* 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)
{
printf("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 *)aCallocA(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);
clif_displaymessage(sd->fd,"Item has been repaired.");
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);
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 && num<7 && sd->inventory_data[i] && !sd->inventory_data[i]->flag.no_refine)
// replaced by Celest
/*(num!=1
|| sd->inventory_data[i]->def > 1
|| (sd->inventory_data[i]->def==1 && sd->inventory_data[i]->equip_script==NULL)
|| (sd->inventory_data[i]->def<=0 && sd->inventory_data[i]->equip_script!=NULL)))*/
{
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)
push_val(st->stack,C_INT,pc_percentrefinery(sd,&sd->status.inventory[i]));
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;
#ifndef TXT_ONLY
if(log_config.refine > 0)
log_refine(sd, i, 1);
#endif //USE_SQL
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);
clif_additem(sd,i,1,0);
pc_equipitem(sd,i,ep);
clif_misceffect(&sd->bl,3);
}
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) {
#ifndef TXT_ONLY
if(log_config.refine > 0)
log_refine(sd, i, 0);
#endif //USE_SQL
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;
}
/*==========================================
* �����i�ɂ��\�͒l�{�[�i�X
*------------------------------------------
*/
int buildin_bonus(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_bonus(sd,type,val);
return 0;
}
/*==========================================
* �����i�ɂ��\�͒l�{�[�i�X
*------------------------------------------
*/
int buildin_bonus2(struct script_state *st)
{
int type,type2,val;
struct map_session_data *sd;
type=conv_num(st,& (st->stack->stack_data[st->start+2]));
type2=conv_num(st,& (st->stack->stack_data[st->start+3]));
val=conv_num(st,& (st->stack->stack_data[st->start+4]));
sd=script_rid2sd(st);
pc_bonus2(sd,type,type2,val);
return 0;
}
/*==========================================
* �����i�ɂ��\�͒l�{�[�i�X
*------------------------------------------
*/
int buildin_bonus3(struct script_state *st)
{
int type,type2,type3,val;
struct map_session_data *sd;
type=conv_num(st,& (st->stack->stack_data[st->start+2]));
type2=conv_num(st,& (st->stack->stack_data[st->start+3]));
type3=conv_num(st,& (st->stack->stack_data[st->start+4]));
val=conv_num(st,& (st->stack->stack_data[st->start+5]));
sd=script_rid2sd(st);
pc_bonus3(sd,type,type2,type3,val);
return 0;
}
/*==========================================
* �X�L������
*------------------------------------------
*/
int buildin_skill(struct script_state *st)
{
int id,level,flag=1;
struct map_session_data *sd;
id=conv_num(st,& (st->stack->stack_data[st->start+2]));
level=conv_num(st,& (st->stack->stack_data[st->start+3]));
if( st->end>st->start+4 )
flag=conv_num(st,&(st->stack->stack_data[st->start+4]) );
sd=script_rid2sd(st);
pc_skill(sd,id,level,flag);
return 0;
}
// add x levels of skill (stackable) [Valaris]
int buildin_addtoskill(struct script_state *st)
{
int id,level,flag=2;
struct map_session_data *sd;
id=conv_num(st,& (st->stack->stack_data[st->start+2]));
level=conv_num(st,& (st->stack->stack_data[st->start+3]));
if( st->end>st->start+4 )
flag=conv_num(st,&(st->stack->stack_data[st->start+4]) );
sd=script_rid2sd(st);
pc_skill(sd,id,level,flag);
return 0;
}
/*==========================================
* �M���h�X�L���擾
*------------------------------------------
*/
int buildin_guildskill(struct script_state *st)
{
int id,level,flag=0;
struct map_session_data *sd;
int i=0;
id=conv_num(st,& (st->stack->stack_data[st->start+2]));
level=conv_num(st,& (st->stack->stack_data[st->start+3]));
if( st->end>st->start+4 )
flag=conv_num(st,&(st->stack->stack_data[st->start+4]) );
sd=script_rid2sd(st);
for(i=0;i<level;i++)
guild_skillup(sd,id,flag);
return 0;
}
/*==========================================
* �X�L�����x������
*------------------------------------------
*/
int buildin_getskilllv(struct script_state *st)
{
int id=conv_num(st,& (st->stack->stack_data[st->start+2]));
push_val(st->stack,C_INT, pc_checkskill( script_rid2sd(st) ,id) );
return 0;
}
/*==========================================
* getgdskilllv(Guild_ID, Skill_ID);
* skill_id = 10000 : GD_APPROVAL
* 10001 : GD_KAFRACONTACT
* 10002 : GD_GUARDIANRESEARCH
* 10003 : GD_GUARDUP
* 10004 : GD_EXTENSION
*------------------------------------------
*/
int buildin_getgdskilllv(struct script_state *st)
{
int guild_id=conv_num(st,& (st->stack->stack_data[st->start+2]));
int skill_id=conv_num(st,& (st->stack->stack_data[st->start+3]));
struct guild *g=guild_search(guild_id);
push_val(st->stack,C_INT, (g==NULL)?-1:guild_checkskill(g,skill_id) );
return 0;
/*
struct map_session_data *sd=NULL;
struct guild *g=NULL;
int skill_id;
skill_id=conv_num(st,& (st->stack->stack_data[st->start+2]));
sd=script_rid2sd(st);
if(sd && sd->status.guild_id > 0) g=guild_search(sd->status.guild_id);
if(sd && g) {
push_val(st->stack,C_INT, guild_checkskill(g,skill_id+9999) );
} else {
push_val(st->stack,C_INT,-1);
}
return 0;
*/
}
/*==========================================
*
*------------------------------------------
*/
int buildin_basicskillcheck(struct script_state *st)
{
push_val(st->stack,C_INT, battle_config.basic_skill_check);
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_getgmlevel(struct script_state *st)
{
push_val(st->stack,C_INT, pc_isGM(script_rid2sd(st)));
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_end(struct script_state *st)
{
st->state = END;
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_checkoption(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);
if(sd->status.option & type){
push_val(st->stack,C_INT,1);
} else {
push_val(st->stack,C_INT,0);
}
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_checkoption1(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);
if(sd->opt1 & type){
push_val(st->stack,C_INT,1);
} else {
push_val(st->stack,C_INT,0);
}
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_checkoption2(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);
if(sd->opt2 & type){
push_val(st->stack,C_INT,1);
} else {
push_val(st->stack,C_INT,0);
}
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_setoption(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_setoption(sd,type);
return 0;
}
/*==========================================
* Checkcart [Valaris]
*------------------------------------------
*/
int buildin_checkcart(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
if(pc_iscarton(sd)){
push_val(st->stack,C_INT,1);
} else {
push_val(st->stack,C_INT,0);
}
return 0;
}
/*==========================================
* �J�[�g��t����
*------------------------------------------
*/
int buildin_setcart(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
pc_setcart(sd,1);
return 0;
}
/*==========================================
* checkfalcon [Valaris]
*------------------------------------------
*/
int buildin_checkfalcon(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
if(pc_isfalcon(sd)){
push_val(st->stack,C_INT,1);
} else {
push_val(st->stack,C_INT,0);
}
return 0;
}
/*==========================================
* ���t����
*------------------------------------------
*/
int buildin_setfalcon(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
pc_setfalcon(sd);
return 0;
}
/*==========================================
* Checkcart [Valaris]
*------------------------------------------
*/
int buildin_checkriding(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
if(pc_isriding(sd)){
push_val(st->stack,C_INT,1);
} else {
push_val(st->stack,C_INT,0);
}
return 0;
}
/*==========================================
* �y�R�y�R���
*------------------------------------------
*/
int buildin_setriding(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
pc_setriding(sd);
return 0;
}
/*==========================================
* �Z�[�u�|�C���g�̕ۑ�
*------------------------------------------
*/
int buildin_savepoint(struct script_state *st)
{
int x,y;
char *str;
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]));
pc_setsavepoint(script_rid2sd(st),str,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 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;
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 *)aCallocA(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->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);
if( sd->state.produce_flag == 1) return 0;
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,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;
}
/*==========================================
* �����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]));
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]));
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)
{
char *event=va_arg(ap,char *);
int allflag=va_arg(ap,int);
if(!allflag){
if(strcmp(event,((struct mob_data *)bl)->npc_event)==0)
mob_delete((struct mob_data *)bl);
return 0;
}else if(allflag){
if(((struct mob_data *)bl)->spawndelay1==-1 && ((struct mob_data *)bl)->spawndelay2==-1)
mob_delete((struct mob_data *)bl);
return 0;
}
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;
if( (m=map_mapname2mapid(mapname))<0 )
return 0;
map_foreachinarea(buildin_killmonster_sub,
m,0,0,map[m].xs,map[m].ys,BL_MOB, event ,allflag);
return 0;
}
int buildin_killmonsterall_sub(struct block_list *bl,va_list ap)
{
mob_delete((struct mob_data *)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_foreachinarea(buildin_killmonsterall_sub,
m,0,0,map[m].xs,map[m].ys,BL_MOB);
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]));
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]));
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]));
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]));
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]));
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;
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);
switch(type){
case 0: val=npc_gettimerevent_tick(nd); break;
case 1: val= (nd->u.scr.nexttimer>=0); 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;
}
/*==========================================
* �V�̐��A�i�E���X
*------------------------------------------
*/
int buildin_announce(struct script_state *st)
{
char *str;
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(flag&0x0f){
struct block_list *bl=(flag&0x08)? map_id2bl(st->oid) :
(struct block_list *)script_rid2sd(st);
clif_GMmessage(bl,str,strlen(str)+1,flag);
}else
intif_GMmessage(str,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;
int len,flag;
str=va_arg(ap,char *);
len=va_arg(ap,int);
flag=va_arg(ap,int);
clif_GMmessage(bl,str,len,flag|3);
return 0;
}
int buildin_mapannounce(struct script_state *st)
{
char *mapname,*str;
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( (m=map_mapname2mapid(mapname))<0 )
return 0;
map_foreachinarea(buildin_mapannounce_sub,
m,0,0,map[m].xs,map[m].ys,BL_PC, str,strlen(str)+1,flag&0x10);
return 0;
}
/*==========================================
* �V�̐��A�i�E���X�i����G���A�j
*------------------------------------------
*/
int buildin_areaannounce(struct script_state *st)
{
char *map,*str;
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( (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 );
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;
}
/*==========================================
* �}�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=512;
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;
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 (bl != 0) {
if(bl->type == BL_PC && ((struct map_session_data *)bl)->state.potionpitcher_flag)
bl = map_id2bl(((struct map_session_data *)bl)->skilltarget);
skill_status_change_start(bl,type,val1,0,0,0,tick,0);
}
return 0;
}
/*==========================================
* ��Ԉُ�ɂ�����(�m���w��)
*------------------------------------------
*/
int buildin_sc_start2(struct script_state *st)
{
struct block_list *bl;
int type,tick,val1,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(bl->type == BL_PC && ((struct map_session_data *)bl)->state.potionpitcher_flag)
bl = map_id2bl(((struct map_session_data *)bl)->skilltarget);
if(rand()%10000 < per)
skill_status_change_start(bl,type,val1,0,0,0,tick,0);
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(bl->type == BL_PC && ((struct map_session_data *)bl)->state.potionpitcher_flag)
bl = map_id2bl(((struct map_session_data *)bl)->skilltarget);
skill_status_change_end(bl,type,-1);
// if(battle_config.etc_log)
// printf("sc_end : %d %d\n",st->rid,type);
return 0;
}
/*==========================================
* ��Ԉُ�ϐ����v�Z�����m����Ԃ�
*------------------------------------------
*/
int buildin_getscrate(struct script_state *st)
{
struct block_list *bl;
int sc_def=100,sc_def_mdef2,sc_def_vit2,sc_def_int2,sc_def_luk2;
int type,rate,luk;
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+6])));
else
bl = map_id2bl(st->rid);
luk = battle_get_luk(bl);
sc_def_mdef2=100 - (3 + battle_get_mdef(bl) + luk/3);
sc_def_vit2=100 - (3 + battle_get_vit(bl) + luk/3);
sc_def_int2=100 - (3 + battle_get_int(bl) + luk/3);
sc_def_luk2=100 - (3 + luk);
if(type==SC_STONE || type==SC_FREEZE)
sc_def=sc_def_mdef2;
else if(type==SC_STAN || type==SC_POISON || type==SC_SILENCE)
sc_def=sc_def_vit2;
else if(type==SC_SLEEP || type==SC_CONFUSION || type==SC_BLIND)
sc_def=sc_def_int2;
else if(type==SC_CURSE)
sc_def=sc_def_luk2;
rate=rate*sc_def/100;
push_val(st->stack,C_INT,rate);
return 0;
}
/*==========================================
*
*------------------------------------------
*/
int buildin_debugmes(struct script_state *st)
{
conv_str(st,& (st->stack->stack_data[st->start+2]));
printf("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;
}
/*==========================================
*�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;
}
/*==========================================
* �X�L�����Z�b�g
*------------------------------------------
*/
int buildin_resetskill(struct script_state *st)
{
struct map_session_data *sd;
sd=script_rid2sd(st);
pc_resetskill(sd);
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 == 22 && !battle_config.wedding_modifydisplay)
return 0;
// if(vclass==22) {
// pc_unequipitem(sd,sd->equip_index[9],0); // �����O
// }
sd->view_class = vclass;
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;
sd->sex = 1;
if (sd->status.class_ == 20 || sd->status.class_ == 4021)
sd->status.class_ -= 1;
} else if (sd->status.sex == 1) {
sd->status.sex = 0;
sd->sex = 0;
if(sd->status.class_ == 19 || sd->status.class_ == 4020)
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);
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,strlen(name)+1,ev);
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;
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++){
struct map_session_data *sd=cd->usersd[0]; // ���X�g�擪��PC�����X�ɁB
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,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;
}
/*==========================================
*
*------------------------------------------
*/
enum { MF_NOMEMO,MF_NOTELEPORT,MF_NOSAVE,MF_NOBRANCH,MF_NOPENALTY,MF_NOZENYPENALTY,
MF_PVP,MF_PVP_NOPARTY,MF_PVP_NOGUILD,MF_GVG,MF_GVG_NOPARTY,MF_NOTRADE,MF_NOSKILL,
MF_NOWARP,MF_NOPVP,MF_NOICEWALL,MF_SNOW,MF_FOG,MF_SAKURA,MF_LEAVES,MF_RAIN,MF_INDOORS,MF_NOGO };
int buildin_setmapflagnosave(struct script_state *st)
{
int m,x,y;
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);
if(m >= 0) {
map[m].flag.nosave=1;
memcpy(map[m].save.map,str2,16);
map[m].save.x=x;
map[m].save.y=y;
}
return 0;
}
int buildin_setmapflag(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=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.nopenalty=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_NOTRADE:
map[m].flag.notrade=1;
break;
case MF_NOSKILL:
map[m].flag.noskill=1;
break;
case MF_NOWARP:
map[m].flag.nowarp=1;
break;
case MF_NOPVP:
map[m].flag.nopvp=1;
break;
case MF_NOICEWALL: // [Valaris]
map[m].flag.noicewall=1;
break;
case MF_SNOW: // [Valaris]
map[m].flag.snow=1;
break;
case MF_FOG: // [Valaris]
map[m].flag.fog=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_NOGO: // celest
map[m].flag.nogo=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.nopenalty=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_NOZENYPENALTY:
map[m].flag.nozenypenalty=0;
break;
case MF_NOSKILL:
map[m].flag.noskill=0;
break;
case MF_NOWARP:
map[m].flag.nowarp=0;
break;
case MF_NOPVP:
map[m].flag.nopvp=0;
break;
case MF_NOICEWALL: // [Valaris]
map[m].flag.noicewall=0;
break;
case MF_SNOW: // [Valaris]
map[m].flag.snow=0;
break;
case MF_FOG: // [Valaris]
map[m].flag.fog=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_NOGO: // celest
map[m].flag.nogo=0;
break;
}
}
return 0;
}
int buildin_pvpon(struct script_state *st)
{
int m,i;
char *str;
struct map_session_data *pl_sd=NULL;
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.nopvp) {
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;
for(i=0;i<fd_max;i++){ //�l�������[�v
if(session[i] && (pl_sd=session[i]->session_data) && pl_sd->state.auth){
if(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;
}
}
}
}
return 0;
}
int buildin_pvpoff(struct script_state *st)
{
int m,i;
char *str;
struct map_session_data *pl_sd=NULL;
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.nopvp) {
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;
for(i=0;i<fd_max;i++){ //�l�������[�v
if(session[i] && (pl_sd=session[i]->session_data) && pl_sd->state.auth){
if(m == pl_sd->bl.m) {
clif_pvpset(pl_sd,0,0,2);
if(pl_sd->pvp_timer != -1) {
delete_timer(pl_sd->pvp_timer,pc_calc_pvprank_timer);
pl_sd->pvp_timer = -1;
}
}
}
}
}
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;
}
/*==========================================
* NPC�G���[�V����
*------------------------------------------
*/
int buildin_emotion(struct script_state *st)
{
int type;
type=conv_num(st,& (st->stack->stack_data[st->start+2]));
if(type < 0 || type > 100)
return 0;
clif_emotion(map_id2bl(st->oid),type);
return 0;
}
int buildin_maprespawnguildid_sub(struct block_list *bl,va_list ap)
{
int g_id=va_arg(ap,int);
int flag=va_arg(ap,int);
struct map_session_data *sd=NULL;
struct mob_data *md=NULL;
if(bl->type == BL_PC)
sd=(struct map_session_data*)bl;
if(bl->type == BL_MOB)
md=(struct mob_data *)bl;
if(sd){
if((sd->status.guild_id == g_id) && (flag&1))
pc_setpos(sd,sd->status.save_point.map,sd->status.save_point.x,sd->status.save_point.y,3);
else if((sd->status.guild_id != g_id) && (flag&2))
pc_setpos(sd,sd->status.save_point.map,sd->status.save_point.x,sd->status.save_point.y,3);
else if (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); // end addition [Valaris]
}
if(md && flag&4){
if(md->class_ < 1285 || md->class_ > 1288)
mob_delete(md);
}
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) map_foreachinarea(buildin_maprespawnguildid_sub,m,0,0,map[m].xs-1,map[m].ys-1,BL_NUL,g_id,flag);
return 0;
}
int buildin_agitstart(struct script_state *st)
{
if(agit_flag==1) return 1; // Agit already Start.
agit_flag=1;
guild_agit_start();
return 0;
}
int buildin_agitend(struct script_state *st)
{
if(agit_flag==0) return 1; // Agit already End.
agit_flag=0;
guild_agit_end();
return 0;
}
/*==========================================
* agitcheck 1; // choice script
* if(@agit_flag == 1) goto agit;
* if(agitcheck(0) == 1) goto agit;
*------------------------------------------
*/
int buildin_agitcheck(struct script_state *st)
{
struct map_session_data *sd;
int cond;
sd=script_rid2sd(st);
cond=conv_num(st,& (st->stack->stack_data[st->start+2]));
if(cond == 0) {
if (agit_flag==1) push_val(st->stack,C_INT,1);
if (agit_flag==0) push_val(st->stack,C_INT,0);
} else {
if (agit_flag==1) pc_setreg(sd,add_str("@agit_flag"),1);
if (agit_flag==0) pc_setreg(sd,add_str("@agit_flag"),0);
}
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 1;
}
int buildin_getcastlename(struct script_state *st)
{
char *mapname=conv_str(st,& (st->stack->stack_data[st->start+2]));
struct guild_castle *gc;
int i;
char *buf=NULL;
for(i=0;i<MAX_GUILDCASTLE;i++){
if( (gc=guild_castle_search(i)) != NULL ){
if(strcmp(mapname,gc->map_name)==0){
buf=(char *)aCallocA(24,sizeof(char));
strncpy(buf,gc->castle_name,24);
break;
}
}
}
if(buf)
push_str(st->stack,C_STR,buf);
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]));
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: push_val(st->stack,C_INT,gc->visibleG0); break;
case 11: push_val(st->stack,C_INT,gc->visibleG1); break;
case 12: push_val(st->stack,C_INT,gc->visibleG2); break;
case 13: push_val(st->stack,C_INT,gc->visibleG3); break;
case 14: push_val(st->stack,C_INT,gc->visibleG4); break;
case 15: push_val(st->stack,C_INT,gc->visibleG5); break;
case 16: push_val(st->stack,C_INT,gc->visibleG6); break;
case 17: push_val(st->stack,C_INT,gc->visibleG7); break;
case 18: push_val(st->stack,C_INT,gc->Ghp0); break;
case 19: push_val(st->stack,C_INT,gc->Ghp1); break;
case 20: push_val(st->stack,C_INT,gc->Ghp2); break;
case 21: push_val(st->stack,C_INT,gc->Ghp3); break;
case 22: push_val(st->stack,C_INT,gc->Ghp4); break;
case 23: push_val(st->stack,C_INT,gc->Ghp5); break;
case 24: push_val(st->stack,C_INT,gc->Ghp6); break;
case 25: push_val(st->stack,C_INT,gc->Ghp7); 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: gc->visibleG0 = value; break;
case 11: gc->visibleG1 = value; break;
case 12: gc->visibleG2 = value; break;
case 13: gc->visibleG3 = value; break;
case 14: gc->visibleG4 = value; break;
case 15: gc->visibleG5 = value; break;
case 16: gc->visibleG6 = value; break;
case 17: gc->visibleG7 = value; break;
case 18: gc->Ghp0 = value; break;
case 19: gc->Ghp1 = value; break;
case 20: gc->Ghp2 = value; break;
case 21: gc->Ghp3 = value; break;
case 22: gc->Ghp4 = value; break;
case 23: gc->Ghp5 = value; break;
case 24: gc->Ghp6 = value; break;
case 25: gc->Ghp7 = value; 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]));
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=4;
num=conv_num(st,& (st->stack->stack_data[st->start+2]));
sd=script_rid2sd(st);
i=pc_checkequip(sd,equip[num-1]);
if(sd->status.inventory[i].card[0] == 0x00ff){ // ��������̓J�[�h�Ȃ�
push_val(st->stack,C_INT,0);
return 0;
}
do{
if( (sd->status.inventory[i].card[c-1] > 4000 &&
sd->status.inventory[i].card[c-1] < 5000) ||
itemdb_type(sd->status.inventory[i].card[c-1]) == 6){ // [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,num,cardflag=0,flag;
struct map_session_data *sd;
struct item item_tmp;
int c=4;
num=conv_num(st,& (st->stack->stack_data[st->start+2]));
sd=script_rid2sd(st);
i=pc_checkequip(sd,equip[num-1]);
if(sd->status.inventory[i].card[0]==0x00ff){ // ��������͏������Ȃ�
return 0;
}
do{
if( (sd->status.inventory[i].card[c-1] > 4000 &&
sd->status.inventory[i].card[c-1] < 5000) ||
itemdb_type(sd->status.inventory[i].card[c-1]) == 6){ // [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;
item_tmp.card[0]=0,item_tmp.card[1]=0,item_tmp.card[2]=0,item_tmp.card[3]=0;
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;
item_tmp.card[0]=0,item_tmp.card[1]=0,item_tmp.card[2]=0,item_tmp.card[3]=0;
pc_delitem(sd,i,1,0);
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,num,cardflag=0,flag,typefail;
struct map_session_data *sd;
struct item item_tmp;
int c=4;
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(sd->status.inventory[i].card[0]==0x00ff){ // ��������͏������Ȃ�
return 0;
}
do{
if( (sd->status.inventory[i].card[c-1] > 4000 &&
sd->status.inventory[i].card[c-1] < 5000) ||
itemdb_type(sd->status.inventory[i].card[c-1]) == 6){ // [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;
item_tmp.card[0]=0,item_tmp.card[1]=0,item_tmp.card[2]=0,item_tmp.card[3]=0;
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){ // �����
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;
item_tmp.card[0]=0,item_tmp.card[1]=0,item_tmp.card[2]=0,item_tmp.card[3]=0;
pc_delitem(sd,i,1,0);
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;
}
int buildin_mapwarp(struct script_state *st) // Added by RoVeRT
{
int x,y,m;
char *str;
char *mapname;
int x0,y0,x1,y1;
mapname=conv_str(st,& (st->stack->stack_data[st->start+2]));
x0=0;
y0=0;
x1=map[map_mapname2mapid(mapname)].xs;
y1=map[map_mapname2mapid(mapname)].ys;
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( (m=map_mapname2mapid(mapname))< 0)
return 0;
map_foreachinarea(buildin_areawarp_sub,
m,x0,y0,x1,y1,BL_PC, str,x,y );
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, map_id2sd(st->rid), 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, map_id2sd(st->rid), 0);
return 0;
}
int buildin_mobcount_sub(struct block_list *bl,va_list ap) // Added by RoVeRT
{
char *event=va_arg(ap,char *);
int *c=va_arg(ap,int *);
if(strcmp(event,((struct mob_data *)bl)->npc_event)==0)
(*c)++;
return 0;
}
int buildin_mobcount(struct script_state *st) // Added by RoVeRT
{
char *mapname,*event;
int m,c=0;
mapname=conv_str(st,& (st->stack->stack_data[st->start+2]));
event=conv_str(st,& (st->stack->stack_data[st->start+3]));
if( (m=map_mapname2mapid(mapname))<0 ) {
push_val(st->stack,C_INT,-1);
return 0;
}
map_foreachinarea(buildin_mobcount_sub,
m,0,0,map[m].xs,map[m].ys,BL_MOB, event,&c );
push_val(st->stack,C_INT, (c - 1));
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_nick2sd(map_charid2nick(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_warppartner(struct script_state *st)
{
int x,y;
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_nick2sd(map_charid2nick(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]));
pc_setpos(p_sd,str,x,y,0);
push_val(st->stack,C_INT,1);
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(num<=0 || num>=8 || (class_>=0 && class_<=1000) || class_ >2000)
return 0;
if(num==1) {
char *buf;
buf=aCallocA(24, 1);
// buf=mob_db[class_].name;
// for string assignments you would need to go for c++ [Shinomori]
strcpy(buf,mob_db[class_].name);
push_str(st->stack,C_STR,buf);
return 0;
}
else if(num==2) {
char *buf;
buf=aCallocA(24, 1);
// buf=mob_db[class_].jname;
// for string assignments you would need to go for c++ [Shinomori]
strcpy(buf,mob_db[class_].jname);
push_str(st->stack,C_STR,buf);
return 0;
}
else if(num==3)
push_val(st->stack,C_INT,mob_db[class_].lv);
else if(num==4)
push_val(st->stack,C_INT,mob_db[class_].max_hp);
else if(num==5)
push_val(st->stack,C_INT,mob_db[class_].max_sp);
else if(num==6)
push_val(st->stack,C_INT,mob_db[class_].base_exp);
else if(num==7)
push_val(st->stack,C_INT,mob_db[class_].job_exp);
return 0;
}
/*==========================================
* Summon guardians [Valaris]
*------------------------------------------
*/
int buildin_guardian(struct script_state *st)
{
int class_=0,amount=1,x=0,y=0,guardian=0;
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]));
event=conv_str(st,& (st->stack->stack_data[st->start+8]));
if( st->end>st->start+9 )
guardian=conv_num(st,& (st->stack->stack_data[st->start+9]));
mob_spawn_guardian(map_id2sd(st->rid),map,x,y,str,class_,amount,event,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 && gc->visibleG0 == 1) push_val(st->stack,C_INT,gc->Ghp0);
if(guardian==1 && gc->visibleG1 == 1) push_val(st->stack,C_INT,gc->Ghp1);
if(guardian==2 && gc->visibleG2 == 1) push_val(st->stack,C_INT,gc->Ghp2);
if(guardian==3 && gc->visibleG3 == 1) push_val(st->stack,C_INT,gc->Ghp3);
if(guardian==4 && gc->visibleG4 == 1) push_val(st->stack,C_INT,gc->Ghp4);
if(guardian==5 && gc->visibleG5 == 1) push_val(st->stack,C_INT,gc->Ghp5);
if(guardian==6 && gc->visibleG6 == 1) push_val(st->stack,C_INT,gc->Ghp6);
if(guardian==7 && gc->visibleG7 == 1) push_val(st->stack,C_INT,gc->Ghp7);
else push_val(st->stack,C_INT,-1);
return 0;
}
/*==========================================
* ID����Item��
*------------------------------------------
*/
int buildin_getitemname(struct script_state *st)
{
int item_id;
struct item_data *i_data;
char *item_name;
item_id=conv_num(st,& (st->stack->stack_data[st->start+2]));
i_data = NULL;
i_data = itemdb_search(item_id);
item_name=(char *)aCallocA(24,sizeof(char));
strncpy(item_name,i_data->jname,23);
push_str(st->stack,C_STR,item_name);
return 0;
}
/*==========================================
* petskillbonus [Valaris]
*------------------------------------------
*/
int buildin_petskillbonus(struct script_state *st)
{
int type,val,duration,timer;
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==NULL)
return 0;
type=conv_num(st,& (st->stack->stack_data[st->start+2]));
val=conv_num(st,& (st->stack->stack_data[st->start+3]));
duration=conv_num(st,& (st->stack->stack_data[st->start+4]));
timer=conv_num(st,& (st->stack->stack_data[st->start+5]));
pd->skillbonusduration=-1;
pd->skillbonustimer=-1;
pet_skill_bonus(sd,pd,type,val,duration,timer,0);
return 0;
}
/*==========================================
* pet looting [Valaris]
*------------------------------------------
*/
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;
pd=sd->pd;
if(pd==NULL)
return 0;
max=conv_num(st,& (st->stack->stack_data[st->start+2]));
if(!max)
return 0;
pd->loot=1;
pd->lootmax=max;
return 0;
}
/*==========================================
* PC�̏����i���ǂݎ��
*------------------------------------------
*/
int buildin_getinventorylist(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_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);
pc_setreg(sd,add_str("@inventorylist_card1")+(j<<24),sd->status.inventory[i].card[0]);
pc_setreg(sd,add_str("@inventorylist_card2")+(j<<24),sd->status.inventory[i].card[1]);
pc_setreg(sd,add_str("@inventorylist_card3")+(j<<24),sd->status.inventory[i].card[2]);
pc_setreg(sd,add_str("@inventorylist_card4")+(j<<24),sd->status.inventory[i].card[3]);
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)
pc_delitem(sd, i, sd->status.inventory[i].amount, 0);
}
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)
clif_misceffect2(map_id2bl(st->oid),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)
{
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->oid)
clif_soundeffect(sd,map_id2bl(st->oid),name,type);
else{
clif_soundeffect(sd,&sd->bl,name,type);
}
}
return 0;
}
int buildin_soundeffectall(struct script_state *st)
{
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->oid)
clif_soundeffectall(map_id2bl(st->oid),name,type);
else
clif_soundeffectall(&sd->bl,name,type);
}
return 0;
}
/*==========================================
* pet status recovery [Valaris]
*------------------------------------------
*/
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==NULL)
return 0;
pd->skilltype=conv_num(st,& (st->stack->stack_data[st->start+2]));
pd->skilltimer=conv_num(st,& (st->stack->stack_data[st->start+3]));
pd->skillbonustimer=add_timer(gettick()+pd->skilltimer*1000,pet_recovery_timer,sd->bl.id,0);
return 0;
}
/*==========================================
* pet healing [Valaris]
*------------------------------------------
*/
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==NULL)
return 0;
pd->skilltype=conv_num(st,& (st->stack->stack_data[st->start+2]));
pd->skillval=conv_num(st,& (st->stack->stack_data[st->start+3]));
pd->skilltimer=conv_num(st,& (st->stack->stack_data[st->start+4]));
pd->skillbonustimer=add_timer(gettick()+pd->skilltimer*1000,pet_heal_timer,sd->bl.id,0);
return 0;
}
/*==========================================
* pet magnificat [Valaris]
*------------------------------------------
*/
int buildin_petmag(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==NULL)
return 0;
pd->skilltype=conv_num(st,& (st->stack->stack_data[st->start+2]));
pd->skillduration=conv_num(st,& (st->stack->stack_data[st->start+3]));
pd->skillval=conv_num(st,& (st->stack->stack_data[st->start+4]));
pd->skilltimer=conv_num(st,& (st->stack->stack_data[st->start+5]));
pd->skillbonustimer=add_timer(gettick()+pd->skilltimer*1000,pet_mag_timer,sd->bl.id,0);
return 0;
}
/*==========================================
* pet attack skills [Valaris]
*------------------------------------------
*/
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==NULL)
return 0;
pd->skilltype=conv_num(st,& (st->stack->stack_data[st->start+2]));
pd->skillval=conv_num(st,& (st->stack->stack_data[st->start+3]));
pd->skillduration=conv_num(st,& (st->stack->stack_data[st->start+4]));
pd->skilltimer=conv_num(st,& (st->stack->stack_data[st->start+5]));
pd->skillbonustimer=add_timer(gettick()+100,pet_skillattack_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])), 0);
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])), 0);
return 0;
}
/*==========================================
* Nude [Valaris]
*------------------------------------------
*/
int buildin_nude(struct script_state *st)
{
struct map_session_data *sd=script_rid2sd(st);
int i;
if(sd==NULL)
return 0;
for(i=0;i<11;i++)
if(sd->equip_index[i] >= 0)
pc_unequipitem(sd,sd->equip_index[i],2);
return 0;
}
/*==========================================
* gmcommand [MouseJstr]
*
* suggested on the forums...
*------------------------------------------
*/
int buildin_gmcommand(struct script_state *st)
{
struct map_session_data *sd;
char *cmd;
sd = script_rid2sd(st);
cmd = conv_str(st,& (st->stack->stack_data[st->start+2]));
is_atcommand(sd->fd, sd, cmd, 99);
return 0;
}
/*==========================================
* movenpc [MouseJstr]
*------------------------------------------
*/
int buildin_movenpc(struct script_state *st)
{
struct map_session_data *sd;
char *map,*npc;
int x,y;
sd = script_rid2sd(st);
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]));
npc = conv_str(st,& (st->stack->stack_data[st->start+5]));
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 1;
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,24);
strcat(message," : ");
strcat(message,str);
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) {
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) {
npc_walktoxy(nd,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) {
if(nd->state.state==MS_WALK)
npc_stop_walking(nd,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]));
mapname=aCallocA(24, 1);
x=sd->status.save_point.x;
y=sd->status.save_point.y;
strncpy(mapname,sd->status.save_point.map,24);
switch(type){
case 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;
}
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)
* 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 map_session_data *sd=NULL;
struct npc_data *nd;
struct pet_data *pd;
int num;
char *name;
char prefix;
int x,y,type;
char *mapname;
if( st->stack->stack_data[st->start+2].type!=C_NAME ){
printf("script: buildin_getmapxy: not mapname variable\n");
push_val(st->stack,C_INT,-1);
return 0;
}
if( st->stack->stack_data[st->start+3].type!=C_NAME ){
printf("script: buildin_getmapxy: not mapx variable\n");
push_val(st->stack,C_INT,-1);
return 0;
}
if( st->stack->stack_data[st->start+4].type!=C_NAME ){
printf("script: buildin_getmapxy: not mapy variable\n");
push_val(st->stack,C_INT,-1);
return 0;
}
//??????????? >>> Possible needly check function parameters on C_STR,C_INT,C_INT <<< ???????????//
type=conv_num(st,& (st->stack->stack_data[st->start+5]));
mapname=aCallocA(24, 1);
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==NULL ) { //wrong char name or char offline
push_val(st->stack,C_INT,-1);
return 0;
}
x=sd->bl.x;
y=sd->bl.y;
strncpy(mapname,sd->mapname,24);
printf(">>>>%s %d %d\n",mapname,x,y);
break;
case 1: //Get NPC Position
if( st->end > st->start+6 )
nd=npc_name2id(conv_str(st,& (st->stack->stack_data[st->start+6])));
else
nd=(struct npc_data *)map_id2bl(st->oid);
if ( nd==NULL ) { //wrong npc name or char offline
push_val(st->stack,C_INT,-1);
return 0;
}
x=nd->bl.x;
y=nd->bl.y;
strncpy(mapname,map[nd->bl.m].name,24);
printf(">>>>%s %d %d\n",mapname,x,y);
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==NULL ) { //wrong char name or char offline
push_val(st->stack,C_INT,-1);
return 0;
}
pd=sd->pd;
if(pd==NULL){ //ped data not found
push_val(st->stack,C_INT,-1);
return 0;
}
x=pd->bl.x;
y=pd->bl.y;
strncpy(mapname,map[pd->bl.m].name,24);
printf(">>>>%s %d %d\n",mapname,x,y);
break;
case 3: //Get Mob Position
push_val(st->stack,C_INT,-1);
return 0;
default: //Wrong type parameter
push_val(st->stack,C_INT,-1);
return 0;
}
//Set MapName$
num=st->stack->stack_data[st->start+2].u.num;
name=(char *)(str_buf+str_data[num&0x00ffffff].str);
prefix=*name;
if( prefix!='$' )
sd=script_rid2sd(st);
else
sd=NULL;
set_reg(sd,num,name,(void*)mapname);
//Set MapX
num=st->stack->stack_data[st->start+3].u.num;
name=(char *)(str_buf+str_data[num&0x00ffffff].str);
prefix=*name;
if( prefix!='$' )
sd=script_rid2sd(st);
else
sd=NULL;
set_reg(sd,num,name,(void*)x);
//Set MapY
num=st->stack->stack_data[st->start+4].u.num;
name=(char *)(str_buf+str_data[num&0x00ffffff].str);
prefix=*name;
if( prefix!='$' )
sd=script_rid2sd(st);
else
sd=NULL;
set_reg(sd,num,name,(void*)y);
//Return Success value
push_val(st->stack,C_INT,0);
return 0;
}
/*=====================================================
* Allows players to use a skill - by Qamera
*-----------------------------------------------------
*/
int buildin_skilluseid (struct script_state *st)
{
int skid,sklv;
struct map_session_data *sd;
skid=conv_num(st,& (st->stack->stack_data[st->start+2]));
sklv=conv_num(st,& (st->stack->stack_data[st->start+3]));
sd=script_rid2sd(st);
skill_use_id(sd,sd->status.account_id,skid,sklv);
return 0;
}
/*=====================================================
* Allows players to use a skill on a position [Celest]
*-----------------------------------------------------
*/
int buildin_skillusepos(struct script_state *st)
{
int skid,sklv,x,y;
struct map_session_data *sd;
skid=conv_num(st,& (st->stack->stack_data[st->start+2]));
sklv=conv_num(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]));
sd=script_rid2sd(st);
skill_use_pos(sd,x,y,skid,sklv);
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, id;
char *str,*event="";
struct map_session_data *sd;
struct mob_data *md;
sd=script_rid2sd(st);
if (sd) {
int tick = gettick();
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 )
event=conv_str(st,& (st->stack->stack_data[st->start+4]));
id=mob_once_spawn(sd, "this", 0, 0, str,_class,1,event);
if((md=(struct mob_data *)map_id2bl(id))){
md->master_id=sd->bl.id;
md->state.special_mob_ai=1;
md->mode=mob_db[md->class_].mode|0x04;
md->deletetimer=add_timer(tick+60000,mob_timer_delete,id,0);
clif_misceffect2(&md->bl,344);
}
clif_skill_poseffect(&sd->bl,AM_CALLHOMUN,1,sd->bl.x,sd->bl.y,tick);
}
return 0;
}
//
// ���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)
printf("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;
}
#define isstr(c) ((c).type==C_STR || (c).type==C_CONSTSTR)
/*==========================================
* ���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
st->stack->stack_data[st->stack->sp-1].u.num += st->stack->stack_data[st->stack->sp].u.num;
} else { // ss�̗\��
char *buf;
buf=(char *)aCallocA(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);
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-1].type=C_STR;
st->stack->stack_data[st->stack->sp-1].u.str=buf;
}
}
/*==========================================
* ���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:
printf("illegal string operater\n");
break;
}
push_val(st->stack,C_INT,a);
if(st->stack->stack_data[sp1].type==C_STR) aFree(s1);
if(st->stack->stack_data[sp2].type==C_STR) aFree(s2);
}
/*==========================================
* ���Z�q(���l)
*------------------------------------------
*/
void op_2num(struct script_state *st,int op,int i1,int i2)
{
switch(op){
case C_SUB:
i1-=i2;
break;
case C_MUL:
{
#ifndef _MSC_VER
long long res = i1 * i2;
#else
__int64 res = i1 * i2;
#endif
if (res > 2147483647 )
i1 = 2147483647;
else
i1*=i2;
}
break;
case C_DIV:
i1/=i2;
break;
case C_MOD:
i1%=i2;
break;
case C_AND:
i1&=i2;
break;
case C_OR:
i1|=i2;
break;
case C_XOR:
i1^=i2;
break;
case C_LAND:
i1=i1&&i2;
break;
case C_LOR:
i1=i1||i2;
break;
case C_EQ:
i1=i1==i2;
break;
case C_NE:
i1=i1!=i2;
break;
case C_GT:
i1=i1>i2;
break;
case C_GE:
i1=i1>=i2;
break;
case C_LT:
i1=i1<i2;
break;
case C_LE:
i1=i1<=i2;
break;
case C_R_SHIFT:
i1=i1>>i2;
break;
case C_L_SHIFT:
i1=i1<<i2;
break;
}
push_val(st->stack,C_INT,i1);
}
/*==========================================
* ���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
printf("script: op_2: int&str, str&int not allow.");
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){
if(battle_config.error_log)
printf("function not found\n");
// st->stack->sp=0;
st->state=END;
return 0;
}
start_sp=i-1;
st->start=i-1;
st->end=end_sp;
func=st->stack->stack_data[st->start].u.num;
if( st->stack->stack_data[st->start].type!=C_NAME || str_data[func].type!=C_FUNC ){
printf("run_func: not function and command! \n");
// st->stack->sp=0;
st->state=END;
return 0;
}
#ifdef DEBUG_RUN
if(battle_config.etc_log) {
printf("run_func : %s? (%d(%d))\n",str_buf+str_data[func].str,func,str_data[func].type);
printf("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].str);
break;
case C_ARG:
printf(" arg");
break;
case C_POS:
printf(" pos(%d)",st->stack->stack_data[i].u.num);
break;
default:
printf(" %d,%d",st->stack->stack_data[i].type,st->stack->stack_data[i].u.num);
}
}
printf("\n");
}
#endif
if(str_data[func].func){
str_data[func].func(st);
} else {
if(battle_config.error_log)
printf("run_func : %s? (%d(%d))\n",str_buf+str_data[func].str,func,str_data[func].type);
push_val(st->stack,C_INT,0);
}
pop_stack(st->stack,start_sp,end_sp);
if(st->state==RETFUNC){
// ���[�U�[��`������̕��A
int olddefsp=st->defsp;
int i;
pop_stack(st->stack,st->defsp,start_sp); // ���A�Ɏז��ȃX�^�b�N�폜
if(st->defsp<4 || st->stack->stack_data[st->defsp-1].type!=C_RETINFO){
printf("script:run_func(return) return without callfunc or callsub!\n");
st->state=END;
return 0;
}
i = conv_num(st,& (st->stack->stack_data[st->defsp-4])); // �����̐�����
st->pos=conv_num(st,& (st->stack->stack_data[st->defsp-1])); // �X�N���v�g�ʒu�̕���
st->script=(char*)conv_num(st,& (st->stack->stack_data[st->defsp-2])); // �X�N���v�g��
st->defsp=conv_num(st,& (st->stack->stack_data[st->defsp-3])); // ��X�^�b�N�|�C���^��
pop_stack(st->stack,olddefsp-4-i,olddefsp); // �v��Ȃ��Ȃ����X�^�b�N(�����ƕ��A�p�f�[�^)�폜
st->state=GOTO;
}
return 0;
}
/*==========================================
* �X�N���v�g�̎��s���C������
*------------------------------------------
*/
int run_script_main(unsigned char *script,int pos,int rid,int oid,struct script_state *st,unsigned char *rootscript)
{
int c,rerun_pos;
int cmdcount=script_config.check_cmdcount;
int gotocount=script_config.check_gotocount;
struct script_stack *stack=st->stack;
st->defsp=stack->sp;
st->script=script;
rerun_pos=st->pos;
for(st->state=0;st->state==0;){
switch(c=get_com(script,&st->pos)){
case C_EOL:
if(stack->sp!=st->defsp){
if(battle_config.error_log)
printf("stack.sp(%d) != default(%d)\n",stack->sp,st->defsp);
stack->sp=st->defsp;
}
rerun_pos=st->pos;
break;
case C_INT:
push_val(stack,C_INT,get_num(script,&st->pos));
break;
case C_POS:
case C_NAME:
push_val(stack,c,(*(int*)(script+st->pos))&0xffffff);
st->pos+=3;
break;
case C_ARG:
push_val(stack,c,0);
break;
case C_STR:
push_str(stack,C_CONSTSTR,script+st->pos);
while(script[st->pos++]);
break;
case C_FUNC:
run_func(st);
if(st->state==GOTO){
rerun_pos=st->pos;
script=st->script;
st->state=0;
if( gotocount>0 && (--gotocount)<=0 ){
printf("run_script: infinity loop !\n");
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_NOP:
st->state=END;
break;
default:
if(battle_config.error_log)
printf("unknown command : %d @ %d\n",c,pos);
st->state=END;
break;
}
if( cmdcount>0 && (--cmdcount)<=0 ){
printf("run_script: infinity loop !\n");
st->state=END;
}
}
switch(st->state){
case STOP:
break;
case END:
{
struct map_session_data *sd=map_id2sd(st->rid);
st->pos=-1;
if(sd && sd->npc_id==st->oid)
npc_event_dequeue(sd);
}
break;
case RERUNLINE:
{
st->pos=rerun_pos;
}
break;
}
if( st->state!=END){
// �ĊJ���邽�߂ɃX�^�b�N����ۑ�
struct map_session_data *sd=map_id2sd(st->rid);
if(sd/* && sd->npc_stackbuf==NULL*/){
if( sd->npc_stackbuf )
aFree( sd->npc_stackbuf );
sd->npc_stackbuf = (char *)aCalloc(sizeof(stack->stack_data[0])*stack->sp_max,sizeof(char));
memcpy(sd->npc_stackbuf, stack->stack_data, sizeof(stack->stack_data[0]) * stack->sp_max);
sd->npc_stack = stack->sp;
sd->npc_stackmax = stack->sp_max;
sd->npc_script=script;
sd->npc_scriptroot=rootscript;
}
}
return 0;
}
/*==========================================
* �X�N���v�g�̎��s
*------------------------------------------
*/
int run_script(unsigned char *script,int pos,int rid,int oid)
{
struct script_stack stack;
struct script_state st;
struct map_session_data *sd=map_id2sd(rid);
unsigned char *rootscript=script;
if(script==NULL || pos<0)
return -1;
if(sd && sd->npc_stackbuf && sd->npc_scriptroot==(char*)rootscript){
// �O��̃X�^�b�N�A
script=sd->npc_script;
stack.sp=sd->npc_stack;
stack.sp_max=sd->npc_stackmax;
stack.stack_data=(struct script_data *)aCalloc(stack.sp_max,sizeof(stack.stack_data[0]));
memcpy(stack.stack_data,sd->npc_stackbuf,sizeof(stack.stack_data[0])*stack.sp_max);
aFree(sd->npc_stackbuf);
sd->npc_stackbuf=NULL;
}else{
// �X�^�b�N������
stack.sp=0;
stack.sp_max=64;
stack.stack_data=(struct script_data *)aCalloc(stack.sp_max,sizeof(stack.stack_data[0]));
}
st.stack=&stack;
st.pos=pos;
st.rid=rid;
st.oid=oid;
run_script_main(script,pos,rid,oid,&st,rootscript);
aFree(stack.stack_data);
stack.stack_data=NULL;
return st.pos;
}
/*==========================================
* �}�b�v�ϐ��̕ύX
*------------------------------------------
*/
int mapreg_setreg(int num,int val)
{
if(val!=0)
numdb_insert(mapreg_db,num,val);
else
numdb_erase(mapreg_db,num);
mapreg_dirty=1;
return 0;
}
/*==========================================
* ������^�}�b�v�ϐ��̕ύX
*------------------------------------------
*/
int mapreg_setregstr(int num,const char *str)
{
char *p;
if( (p=numdb_search(mapregstr_db,num))!=NULL )
aFree(p);
if( str==NULL || *str==0 ){
numdb_erase(mapregstr_db,num);
mapreg_dirty=1;
return 0;
}
p=(char *)aCallocA(strlen(str)+1, sizeof(char));
strcpy(p,str);
numdb_insert(mapregstr_db,num,p);
mapreg_dirty=1;
return 0;
}
/*==========================================
* �i���I�}�b�v�ϐ��̓ǂݍ���
*------------------------------------------
*/
static int script_load_mapreg()
{
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 ){
printf("%s: %s broken data !\n",mapreg_txt,buf1);
continue;
}
p=(char *)aCallocA(strlen(buf2) + 1,sizeof(char));
strcpy(p,buf2);
s=add_str(buf1);
numdb_insert(mapregstr_db,(i<<24)|s,p);
}else{
if( sscanf(line+n,"%d",&v)!=1 ){
printf("%s: %s broken data !\n",mapreg_txt,buf1);
continue;
}
s=add_str(buf1);
numdb_insert(mapreg_db,(i<<24)|s,v);
}
}
fclose(fp);
mapreg_dirty=0;
return 0;
}
/*==========================================
* �i���I�}�b�v�ϐ��̏�������
*------------------------------------------
*/
static int script_save_mapreg_intsub(void *key,void *data,va_list ap)
{
FILE *fp=va_arg(ap,FILE*);
int num=((int)key)&0x00ffffff, i=((int)key)>>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;
}
static int script_save_mapreg_strsub(void *key,void *data,va_list ap)
{
FILE *fp=va_arg(ap,FILE*);
int num=((int)key)&0x00ffffff, i=((int)key)>>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;
}
static int script_save_mapreg()
{
FILE *fp;
int lock;
if( (fp=lock_fopen(mapreg_txt,&lock))==NULL )
return -1;
numdb_foreach(mapreg_db,script_save_mapreg_intsub,fp);
numdb_foreach(mapregstr_db,script_save_mapreg_strsub,fp);
lock_fclose(fp,mapreg_txt,&lock);
mapreg_dirty=0;
return 0;
}
static int script_autosave_mapreg(int tid,unsigned int tick,int id,int data)
{
if(mapreg_dirty)
script_save_mapreg();
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(char *cfgName)
{
int i;
char line[1024],w1[1024],w2[1024];
FILE *fp;
script_config.warn_func_no_comma=1;
script_config.warn_cmd_no_comma=1;
script_config.warn_func_mismatch_paramnum=1;
script_config.warn_cmd_mismatch_paramnum=1;
script_config.check_cmdcount=8192;
script_config.check_gotocount=512;
fp=fopen(cfgName,"r");
if(fp==NULL){
printf("file not found: %s\n",cfgName);
return 1;
}
while(fgets(line,1020,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,"warn_func_no_comma")==0) {
script_config.warn_func_no_comma = battle_config_switch(w2);
}
else if(strcmpi(w1,"warn_cmd_no_comma")==0) {
script_config.warn_cmd_no_comma = 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,"warn_cmd_mismatch_paramnum")==0) {
script_config.warn_cmd_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,"import")==0){
script_config_read(w2);
}
}
fclose(fp);
return 0;
}
/*==========================================
* �I��
*------------------------------------------
*/
static int mapreg_db_final(void *key,void *data,va_list ap)
{
return 0;
}
static int mapregstr_db_final(void *key,void *data,va_list ap)
{
aFree(data);
return 0;
}
static int scriptlabel_db_final(void *key,void *data,va_list ap)
{
return 0;
}
static int userfunc_db_final(void *key,void *data,va_list ap)
{
aFree(key);
aFree(data);
return 0;
}
int do_final_script()
{
if(mapreg_dirty>=0)
script_save_mapreg();
if(script_buf)
aFree(script_buf);
if(mapreg_db)
numdb_final(mapreg_db,mapreg_db_final);
if(mapregstr_db)
strdb_final(mapregstr_db,mapregstr_db_final);
if(scriptlabel_db)
strdb_final(scriptlabel_db,scriptlabel_db_final);
if(userfunc_db)
strdb_final(userfunc_db,userfunc_db_final);
if (str_data)
aFree(str_data);
if (str_buf)
aFree(str_buf);
return 0;
}
/*==========================================
* ������
*------------------------------------------
*/
int do_init_script()
{
mapreg_db=numdb_init();
mapregstr_db=numdb_init();
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);
scriptlabel_db=strdb_init(50);
return 0;
}