* [Fixed]

- Scripting system screwing up script position after mixing timers with menus. - NPC attached AI mobs display as alive when dead. - View data not updating after buildin_unitdeadsit. [Improved] - NPCE_LOADMAP to execute after all (area) objects are sent to the player. - Simplified scripting system. sd will now use pointer to the script state itself. git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@7388 54d463be-8e91-2dee-dedb-b68131a5f0ec
2006-06-29 08:47:14 +00:00
parent f8391db4ce
commit aa70823081
9 changed files with 193 additions and 152 deletions
--- a/src/map/script.c
+++ b/src/map/script.c
@@ -404,7 +404,7 @@ int buildin_setd(struct script_state *st);
 int buildin_petstat(struct script_state *st); // [Lance] Pet Stat Rq: Dubby
 int buildin_callshop(struct script_state *st); // [Skotlex]
 int buildin_npcshopitem(struct script_state *st); // [Lance]
-int buildin_npcshopadditem(struct script_state *st);
+int buildin_npcshopadditem(struct script_state *st);
 int buildin_npcshopdelitem(struct script_state *st);
 int buildin_equip(struct script_state *st);
 int buildin_autoequip(struct script_state *st);
@@ -741,7 +741,7 @@ struct {
 	{buildin_petstat,"petstat","i"},
 	{buildin_callshop,"callshop","si"}, // [Skotlex]
 	{buildin_npcshopitem,"npcshopitem","sii*"}, // [Lance]
-	{buildin_npcshopadditem,"npcshopadditem","sii*"},
+	{buildin_npcshopadditem,"npcshopadditem","sii*"},
 	{buildin_npcshopdelitem,"npcshopdelitem","si*"},
 	{buildin_equip,"equip","i"},
 	{buildin_autoequip,"autoequip","ii"},
@@ -8992,18 +8992,18 @@ int buildin_movenpc(struct script_state *st)
 	x = conv_num(st,& (st->stack->stack_data[st->start+3]));
 	y = conv_num(st,& (st->stack->stack_data[st->start+4]));

-	if ((nd = npc_name2id(npc)) == NULL)
-		return -1;
-
-	if ((m=nd->bl.m) < 0 || nd->bl.prev == NULL)
-		return -1;	//Not on a map.
-	
-	if (x < 0) x = 0;
-	else if (x >= map[m].xs) x = map[m].xs-1;
-	if (y < 0) y = 0;
-	else if (y >= map[m].ys) y = map[m].ys-1;
-	map_foreachinrange(clif_outsight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl);
-	map_moveblock(&nd->bl, x, y, gettick());
+	if ((nd = npc_name2id(npc)) == NULL)
+		return -1;
+
+	if ((m=nd->bl.m) < 0 || nd->bl.prev == NULL)
+		return -1;	//Not on a map.
+	
+	if (x < 0) x = 0;
+	else if (x >= map[m].xs) x = map[m].xs-1;
+	if (y < 0) y = 0;
+	else if (y >= map[m].ys) y = map[m].ys-1;
+	map_foreachinrange(clif_outsight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl);
+	map_moveblock(&nd->bl, x, y, gettick());
 	map_foreachinrange(clif_insight, &nd->bl, AREA_SIZE, BL_PC, &nd->bl);

 	return 0;
@@ -10134,83 +10134,83 @@ int buildin_npcshopitem(struct script_state *st)
 	return 0;
 }

-int buildin_npcshopadditem(struct script_state *st) {
-	struct npc_data *nd=NULL;
-	int n = 0;
-	int i = 3;
-	int amount;
-
-	char* npcname = conv_str(st, & (st->stack->stack_data[st->start+2]));
-	nd = npc_name2id(npcname);
-
-	if (nd && nd->bl.subtype==SHOP){
-		amount = ((st->end-2)/2)+1;
-		while (nd->u.shop_item[n].nameid && n < MAX_SHOPITEM)
+int buildin_npcshopadditem(struct script_state *st) {
+	struct npc_data *nd=NULL;
+	int n = 0;
+	int i = 3;
+	int amount;
+
+	char* npcname = conv_str(st, & (st->stack->stack_data[st->start+2]));
+	nd = npc_name2id(npcname);
+
+	if (nd && nd->bl.subtype==SHOP){
+		amount = ((st->end-2)/2)+1;
+		while (nd->u.shop_item[n].nameid && n < MAX_SHOPITEM)
 			n++;

 		nd = (struct npc_data *)aRealloc(nd,sizeof(struct npc_data) +
-			sizeof(nd->u.shop_item[0]) * (amount+n));
-
-		while(st->end > st->start + i){
-			nd->u.shop_item[n].nameid = conv_num(st, & (st->stack->stack_data[st->start+i]));
-			i++;
-			nd->u.shop_item[n].value = conv_num(st, & (st->stack->stack_data[st->start+i]));
-			i++;
-			n++;
-		}
-
-		// Marks the last of our stuff..
-		nd->u.shop_item[n].value = 0;
-		nd->u.shop_item[n].nameid = 0;
-
-		map_addiddb(&nd->bl);
-		nd->master_nd = ((struct npc_data *)map_id2bl(st->oid));
-	} else {
-		ShowError("buildin_npcshopadditem: shop not found.\n");
-	}
-
-	return 0;
+			sizeof(nd->u.shop_item[0]) * (amount+n));
+
+		while(st->end > st->start + i){
+			nd->u.shop_item[n].nameid = conv_num(st, & (st->stack->stack_data[st->start+i]));
+			i++;
+			nd->u.shop_item[n].value = conv_num(st, & (st->stack->stack_data[st->start+i]));
+			i++;
+			n++;
+		}
+
+		// Marks the last of our stuff..
+		nd->u.shop_item[n].value = 0;
+		nd->u.shop_item[n].nameid = 0;
+
+		map_addiddb(&nd->bl);
+		nd->master_nd = ((struct npc_data *)map_id2bl(st->oid));
+	} else {
+		ShowError("buildin_npcshopadditem: shop not found.\n");
+	}
+
+	return 0;
 }

-int buildin_npcshopdelitem(struct script_state *st)
-{
-	struct npc_data *nd=NULL;
-	int n=0;
-	int i=3;
-	int size = 0;
-
-	char* npcname = conv_str(st, & (st->stack->stack_data[st->start+2]));
-	nd = npc_name2id(npcname);
-
-	if (nd && nd->bl.subtype==SHOP) {
-		while (nd->u.shop_item[size].nameid)
-			size++;
-
-		while (st->end > st->start+i) {
-			for(n=0;nd->u.shop_item[n].nameid && n < MAX_SHOPITEM;n++) {
-				if (nd->u.shop_item[n].nameid == conv_num(st, & (st->stack->stack_data[st->start+i]))) {
-					// We're moving 1 extra empty block. Junk data is eliminated later.
-					memmove(&nd->u.shop_item[n], &nd->u.shop_item[n+1], sizeof(nd->u.shop_item[0])*(size-n));
-				}
-			}
-			i++;
-		}
-
-		size = 0;
-
-		while (nd->u.shop_item[size].nameid)
-			size++;
-
-		nd = (struct npc_data *)aRealloc(nd,sizeof(struct npc_data) +
-			sizeof(nd->u.shop_item[0]) * (size+1));
-
-		map_addiddb(&nd->bl);
-		nd->master_nd = ((struct npc_data *)map_id2bl(st->oid));
-	} else {
-		ShowError("buildin_npcshopdelitem: shop not found.\n");
-	}
-
-	return 0;
+int buildin_npcshopdelitem(struct script_state *st)
+{
+	struct npc_data *nd=NULL;
+	int n=0;
+	int i=3;
+	int size = 0;
+
+	char* npcname = conv_str(st, & (st->stack->stack_data[st->start+2]));
+	nd = npc_name2id(npcname);
+
+	if (nd && nd->bl.subtype==SHOP) {
+		while (nd->u.shop_item[size].nameid)
+			size++;
+
+		while (st->end > st->start+i) {
+			for(n=0;nd->u.shop_item[n].nameid && n < MAX_SHOPITEM;n++) {
+				if (nd->u.shop_item[n].nameid == conv_num(st, & (st->stack->stack_data[st->start+i]))) {
+					// We're moving 1 extra empty block. Junk data is eliminated later.
+					memmove(&nd->u.shop_item[n], &nd->u.shop_item[n+1], sizeof(nd->u.shop_item[0])*(size-n));
+				}
+			}
+			i++;
+		}
+
+		size = 0;
+
+		while (nd->u.shop_item[size].nameid)
+			size++;
+
+		nd = (struct npc_data *)aRealloc(nd,sizeof(struct npc_data) +
+			sizeof(nd->u.shop_item[0]) * (size+1));
+
+		map_addiddb(&nd->bl);
+		nd->master_nd = ((struct npc_data *)map_id2bl(st->oid));
+	} else {
+		ShowError("buildin_npcshopdelitem: shop not found.\n");
+	}
+
+	return 0;
 }

 /*==========================================
@@ -10709,7 +10709,7 @@ int buildin_unitwarp(struct script_state *st){
 	y = conv_num(st, & (st->stack->stack_data[st->start+5]));

 	bl = map_id2bl(id);
-	m = mapindex_name2id(map);
+	m = map_mapname2mapid(map);
 	if(m && bl){
 		push_val(st->stack,C_INT,unit_warp(bl, m, (short)x, (short)y, 0));
 	} else {
@@ -10831,7 +10831,8 @@ int buildin_unitdeadsit(struct script_state *st){
 	id = conv_num(st, & (st->stack->stack_data[st->start+2]));
 	action = conv_num(st, & (st->stack->stack_data[st->start+3]));
 	if((bl = map_id2bl(id))){
-		if(action > -1 && action < 3){
+		if(action > -1 && action < 4){
+			unsigned char *buf = NULL;
 			switch(bl->type){
 				case BL_MOB:
 					((TBL_MOB *)bl)->vd->dead_sit = action;
@@ -10848,6 +10849,10 @@ int buildin_unitdeadsit(struct script_state *st){
 				case BL_PET:
 					((TBL_PET *)bl)->vd.dead_sit = action;
 					break;
+				WBUFW(buf, 0) = 0x8a;
+				WBUFL(buf, 2) = bl->id;
+				WBUFB(buf,26) = (unsigned char)action;
+				clif_send(buf, 61, bl, AREA);
 			}
 		}else {
 			ShowError("buildin_unitdeadsit: Invalid action.\n");
@@ -11391,12 +11396,24 @@ int run_func(struct script_state *st)
 * スクリプトの実行メイン部分
 *------------------------------------------
 */
-int run_script_main(struct script_state *st)
+void run_script_main(struct script_state *st)
 {
 	int c/*,rerun_pos*/;
 	int cmdcount=script_config.check_cmdcount;
 	int gotocount=script_config.check_gotocount;
 	struct script_stack *stack=st->stack;
+	TBL_PC *sd = (TBL_PC *)map_id2bl(st->rid);
+	struct script_state *bk_st = NULL;
+	int bk_npcid = 0;
+
+	if(sd){
+		if(sd->st != st){
+			bk_st = sd->st;
+			bk_npcid = sd->npc_id;
+		}
+		sd->st = st;
+		sd->npc_id = st->oid;
+	}

 	if(st->state == RERUNLINE) {
 		st->state = RUN;
@@ -11404,7 +11421,7 @@ int run_script_main(struct script_state *st)
 		if(st->state == GOTO){
 			st->state = RUN;
 		}
-	} else {
+	} else if(st->state != END){
 		st->state = RUN;
 	}
 	while( st->state == RUN) {
@@ -11501,9 +11518,8 @@ int run_script_main(struct script_state *st)
 			break;
 		case END:
 			{
-				struct map_session_data *sd=st->rid?map_id2sd(st->rid):NULL;
 				st->pos=-1;
-				if(sd && (sd->npc_id==st->oid || sd->state.using_fake_npc)){
+				if(sd){
 					if(sd->state.using_fake_npc){
 						clif_clearchar_id(sd->npc_id, 0, sd->fd);
 						sd->state.using_fake_npc = 0;
@@ -11513,6 +11529,21 @@ int run_script_main(struct script_state *st)
 			}
 			break;
 		case RERUNLINE:
+			if(bk_st && sd->st != bk_st && st->sleep.tick <= 0){
+				ShowWarning("Unable to restore stack! Double continuation!\n");
+				script_free_stack(bk_st->stack);
+				aFree(bk_st);
+			}
+			if(st->sleep.tick > 0)
+	  		{	//Delay execution
+				if(sd)
+					st->sleep.charid = sd->char_id;
+				else
+					st->sleep.charid = 0;
+				st->sleep.timer  = add_timer(gettick()+st->sleep.tick,
+					run_script_timer, st->sleep.charid, (int)st);
+				linkdb_insert(&sleep_db, (void*)st->oid, st);
+			}
 			// Do not call function of commands two time! [ Eoe / jA 1094 ]
 			// For example: select "1", "2", callsub(...);
 			// If current script position is changed, callsub will be called two time.
@@ -11524,12 +11555,20 @@ int run_script_main(struct script_state *st)
 	}

 	if(st->state == END) {
-		script_free_stack (st->stack);
-		st->stack = NULL;
-		aFree(st);
-		st = NULL;
-		return 0;
-	}else{ 
+		if(sd){
+			script_free_stack(sd->st->stack);
+			aFree(sd->st);
+			sd->st = bk_st;
+			sd->npc_id = bk_npcid;
+			if (sd->state.reg_dirty&2)
+				intif_saveregistry(sd,2);
+			if (sd->state.reg_dirty&1)
+				intif_saveregistry(sd,1);
+		} else {
+			script_free_stack (st->stack);
+			aFree(st);
+		}
+	}/*else{ 
 		if(st->sleep.tick > 0)
 	  	{	//Delay execution
 			TBL_PC *sd = (TBL_PC *)map_id2bl(st->rid);
@@ -11538,41 +11577,33 @@ int run_script_main(struct script_state *st)
 				run_script_timer, st->sleep.charid, (int)st);
 			linkdb_insert(&sleep_db, (void*)st->oid, st);
 		} 
-	}
+	}*/

-	return 1;
+	return;
 }

 /*==========================================
 * スクリプトの実行
 *------------------------------------------
 */
-int run_script(struct script_code *rootscript,int pos,int rid,int oid)
+void run_script(struct script_code *rootscript,int pos,int rid,int oid)
 {
 	struct script_state *st;
 	struct map_session_data *sd=NULL;

 	//Variables for backing up the previous script and restore it if needed. [Skotlex]
-	struct script_code *bck_script = NULL;
-	struct script_code *bck_scriptroot = NULL;
-	int bck_scriptstate = 0,bck_npcid = 0;
+	//struct script_code *bck_script = NULL;
+	//struct script_code *bck_scriptroot = NULL;
+	//int bck_scriptstate = 0,bck_npcid = 0;
 	struct script_stack *bck_stack = NULL;
 	
 	if (rootscript == NULL || pos < 0)
-		return -1;
+		return;

 	st = aCalloc(sizeof(struct script_state), 1);

-	if ((sd = map_id2sd(rid)) && sd->stack && sd->npc_scriptroot == rootscript){
-		// we have a stack for the same script, should continue exec.
-		st->script = sd->npc_script;
-		st->stack = sd->stack;
-		st->state  = sd->npc_scriptstate;
-		// and clear vars
-		sd->stack           = NULL;
-		sd->npc_script      = NULL;
-		sd->npc_scriptroot  = NULL;
-		sd->npc_scriptstate = 0;
+	if ((sd = map_id2sd(rid)) && sd->st && sd->st->scriptroot == rootscript && sd->st->pos == pos){
+		st = sd->st;
 	} else {
 		// the script is different, make new script_state and stack
 		st->stack = aMalloc (sizeof(struct script_stack));
@@ -11584,7 +11615,7 @@ int run_script(struct script_code *rootscript,int pos,int rid,int oid)
 		st->state  = RUN;
 		st->script = rootscript;
 	
-		if (sd){
+		/*if (sd){
 			if(sd->stack) {
 				// if there's a sd and a stack - back it up and restore it if possible.
 				bck_script      = sd->npc_script;
@@ -11595,15 +11626,15 @@ int run_script(struct script_code *rootscript,int pos,int rid,int oid)
 			}
 			bck_npcid = sd->npc_id;
 			sd->npc_id = oid;
-		}
+		}*/
 	}
 	st->pos = pos;
 	st->rid = rid;
 	st->oid = oid;
 	st->sleep.timer = -1;

-	if(run_script_main(st)){
-		if (st->state != END){
+	run_script_main(st);
+	/*	if (st->state != END){
 			pos = st->pos;
 			if(!st->sleep.tick && sd) {
 				// script is not finished, store data in sd.
@@ -11636,8 +11667,8 @@ int run_script(struct script_code *rootscript,int pos,int rid,int oid)
 			if (sd->state.reg_dirty&1)
 				intif_saveregistry(sd,1);
 		}
-	}
-	return 0;
+	}*/
+	return;
 }

 /*==========================================
@@ -11683,6 +11714,9 @@ int run_script_timer(int tid, unsigned int tick, int id, int data)
 		}
 		node = node->next;
 	}
+	if(st->rid && !sd)
+		st->state = END;
+
 	run_script_main(st);
 	return 0;
 }