summaryrefslogtreecommitdiff
path: root/src/map
diff options
context:
space:
mode:
authorFlavioJS <FlavioJS@54d463be-8e91-2dee-dedb-b68131a5f0ec>2007-03-18 16:07:16 +0000
committerFlavioJS <FlavioJS@54d463be-8e91-2dee-dedb-b68131a5f0ec>2007-03-18 16:07:16 +0000
commit2c89cc9421cb3640750e90168b62e897f7444302 (patch)
tree126ad46731a32dbc017bb5db5ba3ba3e1b643f40 /src/map
parent7e7ac07deb778e314d2372736c6939a86dc6ca0c (diff)
downloadhercules-2c89cc9421cb3640750e90168b62e897f7444302.tar.gz
hercules-2c89cc9421cb3640750e90168b62e897f7444302.tar.bz2
hercules-2c89cc9421cb3640750e90168b62e897f7444302.tar.xz
hercules-2c89cc9421cb3640750e90168b62e897f7444302.zip
* Script engine:
- calling functions without using the return value doesn't generate warnings - more work on Ticket #41 * Took care of two warnings and a minor change to the makefile. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@10025 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'src/map')
-rw-r--r--src/map/script.c296
1 files changed, 179 insertions, 117 deletions
diff --git a/src/map/script.c b/src/map/script.c
index 1cd5b8feb..2e26b9cad 100644
--- a/src/map/script.c
+++ b/src/map/script.c
@@ -2850,19 +2850,15 @@ void run_script_main(struct script_state *st)
c= get_com(st->script->script_buf,&st->pos);
switch(c){
case C_EOL:
- if(stack->sp!=stack->defsp){
- if(stack->sp > stack->defsp)
+ if( stack->sp != stack->defsp )
+ {
+ if( stack->sp > stack->defsp )
{ //sp > defsp is valid in cases when you invoke functions and don't use the returned value. [Skotlex]
//Since sp is supposed to be defsp in these cases, we could assume the extra stack elements are unneeded.
- if (battle_config.etc_log)
- {
- ShowWarning("Clearing unused stack stack.sp(%d) -> default(%d)\n",stack->sp,stack->defsp);
- report_src(st);
- }
pop_stack(stack, stack->defsp, stack->sp); //Clear out the unused stack-section.
- } else if(battle_config.error_log)
- ShowError("stack.sp(%d) != default(%d)\n",stack->sp,stack->defsp);
- stack->sp=stack->defsp;
+ } else if( battle_config.error_log )
+ ShowError("script:run_script_main: unexpected stack position stack.sp(%d) != default(%d)\n", stack->sp, stack->defsp);
+ stack->sp = stack->defsp;
}
break;
case C_INT:
@@ -4175,8 +4171,8 @@ struct script_function buildin_func[] = {
BUILDIN_DEF(mobremove,"i"),
BUILDIN_DEF(getmobdata,"i*"),
BUILDIN_DEF(setmobdata,"iii"),
- BUILDIN_DEF(mobassist,"i*"),
- BUILDIN_DEF(mobattach,"i*"),
+ BUILDIN_DEF(mobassist,"i?"),
+ BUILDIN_DEF(mobattach,"i?"),
BUILDIN_DEF(unitwalk,"ii?"),
BUILDIN_DEF(unitkill,"i"),
BUILDIN_DEF(unitwarp,"isii"),
@@ -12511,6 +12507,8 @@ BUILDIN_FUNC(pcstopfollow)
}
// <--- [zBuffer] List of player cont commands
// [zBuffer] List of mob control commands --->
+//## TODO always return if the request/whatever was successfull [FlavioJS]
+
BUILDIN_FUNC(mobspawn)
{
int class_,x,y,id;
@@ -12589,156 +12587,193 @@ BUILDIN_FUNC(getmobdata)
return 0;
}
+/// Changes the data of a mob
+///
+/// setmobdata <mob unit id>,<type>,<value>;
BUILDIN_FUNC(setmobdata)
{
- int id, value, value2;
- struct mob_data *md = NULL;
- id = conv_num(st, & (st->stack->stack_data[st->start+2]));
- value = conv_num(st, & (st->stack->stack_data[st->start+3]));
- value2 = conv_num(st, & (st->stack->stack_data[st->start+4]));
- if(!(md = (struct mob_data *)map_id2bl(id)) || md->bl.type != BL_MOB){
- ShowWarning("buildin_setmobdata: Error in argument!\n");
- return -1;
- }
- switch(value){
+ struct block_list* mob_bl;
+
+ mob_bl = map_id2bl(conv_num(st, script_getdata(st, 2)));
+
+ if( mob_bl != NULL && mob_bl->type == BL_MOB )
+ {
+ TBL_MOB* md = (TBL_MOB*)mob_bl;
+ int type;
+ int value;
+
+ type = conv_num(st, script_getdata(st, 3));
+ value = conv_num(st, script_getdata(st, 4));
+
+ switch( type )
+ {
case 0:
- md->class_ = (short)value2;
+ md->class_ = (short)value;
break;
case 1:
- md->level = (unsigned short)value2;
+ md->level = (unsigned short)value;
break;
case 2:
- md->status.hp = (unsigned int)value2;
+ md->status.hp = (unsigned int)value;
break;
case 3:
- md->status.max_hp = (unsigned int)value2;
+ md->status.max_hp = (unsigned int)value;
break;
case 4:
- md->master_id = value2;
+ md->master_id = value;
break;
case 5:
- md->bl.m = (short)value2;
+ md->bl.m = (short)value;
break;
case 6:
- md->bl.x = (short)value2;
+ md->bl.x = (short)value;
break;
case 7:
- md->bl.y = (short)value2;
+ md->bl.y = (short)value;
break;
case 8:
- md->status.speed = (unsigned short)value2;
+ md->status.speed = (unsigned short)value;
break;
case 9:
- md->status.mode = (unsigned short)value2;
+ md->status.mode = (unsigned short)value;
break;
case 10:
- md->special_state.ai = (unsigned int)value2;
+ md->special_state.ai = (unsigned int)value;
break;
case 11:
- md->sc.option = (unsigned short)value2;
+ md->sc.option = (unsigned short)value;
break;
case 12:
- md->vd->sex = (char)value2;
+ md->vd->sex = (char)value;
break;
case 13:
- md->vd->class_ = (unsigned short)value2;
+ md->vd->class_ = (unsigned short)value;
break;
case 14:
- md->vd->hair_style = (unsigned short)value2;
+ md->vd->hair_style = (unsigned short)value;
break;
case 15:
- md->vd->hair_color = (unsigned short)value2;
+ md->vd->hair_color = (unsigned short)value;
break;
case 16:
- md->vd->head_bottom = (unsigned short)value2;
+ md->vd->head_bottom = (unsigned short)value;
break;
case 17:
- md->vd->head_mid = (unsigned short)value2;
+ md->vd->head_mid = (unsigned short)value;
break;
case 18:
- md->vd->head_top = (unsigned short)value2;
+ md->vd->head_top = (unsigned short)value;
break;
case 19:
- md->vd->cloth_color = (unsigned short)value2;
+ md->vd->cloth_color = (unsigned short)value;
break;
case 20:
- md->vd->shield = (unsigned short)value2;
+ md->vd->shield = (unsigned short)value;
break;
case 21:
- md->vd->weapon = (unsigned short)value2;
+ md->vd->weapon = (unsigned short)value;
break;
case 22:
- md->vd->shield = (unsigned short)value2;
+ md->vd->shield = (unsigned short)value;
break;
case 23:
- md->ud.dir = (unsigned char)value2;
+ md->ud.dir = (unsigned char)value;
break;
case 24:
- md->state.killer = value2>0?1:0;
+ md->state.killer = value > 0 ? 1 : 0;
break;
case 25:
- md->callback_flag = (short)value2;
+ md->callback_flag = (short)value;
break;
case 26:
- md->state.no_random_walk = value2>0?1:0;
+ md->state.no_random_walk = value > 0 ? 1 : 0;
break;
default:
- ShowError("buildin_setmobdata: argument id is not identified.");
- return -1;
+ ShowError("script:setmobdata: unknown data identifier %d\n", type);
+ return 1;
+ }
}
+
return 0;
}
+/// Makes the mob assist the target unit as a slave
+///
+/// mobassist <mob unit id>,"<player name>";
+/// mobassist <mob unit id>,<target id>;
BUILDIN_FUNC(mobassist)
{
- int id;
- const char *target;
- struct mob_data *md = NULL;
- struct block_list *bl = NULL;
- struct unit_data *ud;
-
- id = conv_num(st, & (st->stack->stack_data[st->start+2]));
- target = conv_str(st, & (st->stack->stack_data[st->start+3]));
+ struct block_list* mob_bl;
+
+ // get mob
+ mob_bl = map_id2bl(conv_num(st, script_getdata(st,2)));
+ if( mob_bl != NULL && mob_bl->type == BL_MOB )
+ {
+ TBL_MOB* md = (TBL_MOB*)mob_bl;
+ struct block_list* target_bl = NULL;
+ struct script_data* data;
- if((bl =&(map_nick2sd(target)->bl)) || (bl = map_id2bl(atoi(target)))) {
- md = (struct mob_data *)map_id2bl(id);
- if(md && md->bl.type == BL_MOB) {
- ud = unit_bl2ud(bl);
- md->master_id = bl->id;
+ // get target
+ data = script_getdata(st, 3);
+ get_val(st, data);
+ if( data_isstring(data) )
+ {
+ struct map_session_data* sd = map_nick2sd(conv_str(st, data));
+ if( sd != NULL )
+ target_bl = &sd->bl;
+ }
+ if( target_bl == NULL )
+ target_bl = map_id2bl(conv_num(st, data));
+
+ // set mob as slave
+ if( target_bl != NULL )
+ {
+ struct unit_data* ud;
+
+ md->master_id = target_bl->id;
md->state.killer = 1;
mob_convertslave(md);
- if (ud) {
- if (ud->target)
+ ud = unit_bl2ud(mob_bl);
+ if( ud != NULL )
+ {
+ if( ud->target != 0 )
md->target_id = ud->target;
- else if (ud->skilltarget)
+ else if( ud->skilltarget != 0 )
md->target_id = ud->skilltarget;
- if(md->target_id)
+ if( md->target_id != 0 )
unit_walktobl(&md->bl, map_id2bl(md->target_id), 65025, 2);
}
}
}
+
return 0;
}
+/// Attaches the current npc or the target npc to the mob unit
+///
+/// mobattach <mob unit id>{,"<npc name>"};
BUILDIN_FUNC(mobattach)
{
- int id;
- struct mob_data *md = NULL;
- struct npc_data *nd = NULL;
- const char *npcname = NULL;
- id = conv_num(st, & (st->stack->stack_data[st->start+2]));
- if(st->end > st->start + 3){
- npcname = conv_str(st, & (st->stack->stack_data[st->start+3]));
- }
+ struct block_list* mob_bl;
- if(npcname)
- nd = npc_name2id(npcname);
- else
- nd = (struct npc_data *)map_id2bl(st->oid);
+ mob_bl = map_id2bl(conv_num(st, script_getdata(st,2)));
+ if( mob_bl != NULL && mob_bl->type == BL_MOB )
+ {
+ TBL_MOB* md = (TBL_MOB*)mob_bl;
+ TBL_NPC* nd = NULL;
- if(nd)
- if((md = (struct mob_data *)map_id2bl(id)) && md->bl.type == BL_MOB)
+ if( script_hasdata(st,3) )
+ nd = npc_name2id(conv_str(st, script_getdata(st,3)));
+ else
+ {
+ struct block_list* npc_bl = map_id2bl(st->oid);
+ if( npc_bl != NULL && npc_bl->type == BL_NPC )
+ nd = (TBL_NPC*)npc_bl;
+ }
+
+ if( nd != NULL )
md->nd = nd;
+ }
return 0;
}
@@ -12746,8 +12781,8 @@ BUILDIN_FUNC(mobattach)
/// Makes the unit walk to target position or map
/// Returns if it was successfull
///
-/// unitwalk(<unit_id>,<x>,<y>) -> <bool>;
-/// unitwalk(<unit_id>,<map_id>) -> <bool>;
+/// unitwalk(<unit_id>,<x>,<y>) -> <bool>
+/// unitwalk(<unit_id>,<map_id>) -> <bool>
BUILDIN_FUNC(unitwalk)
{
struct block_list* bl;
@@ -12787,7 +12822,7 @@ BUILDIN_FUNC(unitkill)
/// Warps the unit to the target position in the target map
/// Returns if it was successfull
///
-/// unitwarp(<unit_id>,"<map name>",<x>,<y>) -> <bool>;
+/// unitwarp(<unit_id>,"<map name>",<x>,<y>) -> <bool>
BUILDIN_FUNC(unitwarp)
{
int unit_id;
@@ -12802,7 +12837,7 @@ BUILDIN_FUNC(unitwarp)
y = (short)conv_num(st, script_getdata(st,5));
bl = map_id2bl(unit_id);
- if( map != 0 && bl != NULL )
+ if( map > 0 && bl != NULL )
{
script_pushint(st, unit_warp(bl,map,x,y,0));
}
@@ -12814,48 +12849,71 @@ BUILDIN_FUNC(unitwarp)
return 0;
}
-/// TODO clean up
+/// Makes the unit attack the target.
+/// If the unit is a player and <action type> is not 0, it does a continuous
+/// attack instead of a single attack.
+/// Returns if the request was successfull.
///
-/// unitattack(<unit_id>,"<target name>",<action type>) -> <bool>;
-/// unitattack(<unit_id>,<target_id>,<action type>) -> <bool>;
-/// unitattack(<unit_id>,"<target name>") -> <bool>;
-/// unitattack(<unit_id>,<target_id>) -> <bool>;
+/// unitattack(<unit_id>,"<target name>"{,<action type>}) -> <bool>
+/// unitattack(<unit_id>,<target_id>{,<action type>}) -> <bool>
BUILDIN_FUNC(unitattack)
{
+ struct block_list* unit_bl;
+
int id = 0, actiontype = 0;
const char *target = NULL;
struct map_session_data *sd = NULL;
struct block_list *bl = NULL, *tbl = NULL;
-
- id = conv_num(st, & (st->stack->stack_data[st->start+2]));
- target = conv_str(st, & (st->stack->stack_data[st->start+3]));
- if(st->end > st->start + 4)
- actiontype = conv_num(st, & (st->stack->stack_data[st->start+4]));
- sd = map_nick2sd(target);
- if(!sd)
- tbl = map_id2bl(atoi(target));
- else
- tbl = &sd->bl;
+ // get unit
+ unit_bl = map_id2bl(conv_num(st, script_getdata(st, 2)));
+ if( unit_bl != NULL )
+ {
+ struct block_list* target_bl = NULL;
+ struct script_data* data;
+ int actiontype = 0;
- if((bl = map_id2bl(id))){
- switch (bl->type) {
- case BL_PC:
- clif_parse_ActionRequest_sub(((TBL_PC *)bl), actiontype > 0?0x07:0x00, tbl->id, gettick());
- push_val(st->stack,C_INT,1);
- return 0;
- case BL_MOB:
- ((TBL_MOB *)bl)->state.killer = 1;
- ((TBL_MOB *)bl)->target_id = tbl->id;
- break;
- case BL_PET:
- ((TBL_PET *)bl)->target_id = tbl->id;
- break;
+ // get target
+ data = script_getdata(st, 3);
+ get_val(st, data);
+ if( data_isstring(data) )
+ {
+ struct map_session_data* sd = map_nick2sd(conv_str(st, data));
+ if( sd != NULL )
+ target_bl = &sd->bl;
+ }
+ if( target_bl == NULL )
+ target_bl = map_id2bl(conv_num(st, data));
+
+ // get actiontype
+ if( script_hasdata(st,4) )
+ actiontype = conv_num(st, script_getdata(st, 4));
+
+ // request the attack
+ if( target_bl != NULL )
+ {
+ switch( unit_bl->type )
+ {
+ case BL_PC:
+ clif_parse_ActionRequest_sub(((TBL_PC *)unit_bl), actiontype > 0 ? 0x07 : 0x00, target_bl->id, gettick());
+ script_pushint(st, 1);
+ return 0;
+ case BL_MOB:
+ ((TBL_MOB *)unit_bl)->state.killer = 1;
+ ((TBL_MOB *)unit_bl)->target_id = target_bl->id;
+ break;
+ case BL_PET:
+ ((TBL_PET *)unit_bl)->target_id = target_bl->id;
+ break;
+ default:
+ ShowError("script:unitattack: unsupported source unit type %d\n", unit_bl->type);
+ script_pushint(st, 0);
+ return 0;
+ }
+ script_pushint(st, unit_walktobl(unit_bl, target_bl, 65025, 2));
}
- push_val(st->stack,C_INT,unit_walktobl(bl, tbl, 65025, 2));
- } else {
- push_val(st->stack,C_INT,0);
}
+ script_pushint(st, 0);
return 0;
}
@@ -12953,6 +13011,10 @@ BUILDIN_FUNC(unitdeadsit)
WBUFL(buf, 2) = bl->id;
WBUFB(buf,26) = (unsigned char)action;
clif_send(buf, 61, bl, AREA);
+ } else
+ {
+ ShowWarning("script:unitdeadsit: %d is not a valid action\n", action);
+ report_src(st);
}
}