看板mud
标 题Re: [程式]可以一次做大量eq的指令
发信站中华大学 摩卡小筑 (Wed Sep 15 12:58:09 2004)
转信站ptt!ctu-reader!ctu-peer!news.nctu!news.csie.ncyu!news.cs.nthu!freebsd.
43
我写的另一个...
你是用write_file()方式写的...
我则是用储存变数的的方法储存在玩家身上....
就像玩家的资料是用dbase这个变数去储存一样:
好处唷, 就是随时可以改eq资料内容:
档案你只要自己写一个:
之後再载入之後再set就行了:
下列是最基本的eq code:
#include <armor.h>
inherit CLOTH;
void create()
{
set_name("EQ", ({ "cloth" }) );
set_weight(3000);
set("unit", "件");
set("material", "cloth");
set("value",1);
}
setup();
}
string autoload(){ return 1; }
如果你是wiz, 你想改eq的name:
call this_object()->set("name","衣服");
改它能力:
call this_object()->set("armor_prop/armor",1);
这里我还多给eq一个暂存档, 简单就是说让eq也有像玩家一样有set_temp个功能...
有耐心的自己看一下吧...
其实code还有很多地方可以修....
================以下是code=========================
/* /feature/save_random.c
* create by luk 2003/8/22
* 功能:储存玩家身上改变物件能力值
* modify by luk 2003/10/25
*/
mapping my_inv;
static string *str=({}); //str将档案排列...
void clean_up_value(){ my_inv = 0; }
void save_random_value()
{
int i,count;
object *all_inv;
string save_string;
mapping map;
all_inv = all_inventory();
my_inv = allocate_mapping(sizeof(all_inv));
for(i=0; i<sizeof(all_inv); i++){
//只让武器or防具可以有储存效果
if( !all_inv[i]->query("weapon_prop") && !all_inv[i]->query("armor_prop") ) continue;
save_string = explode(file_name(all_inv[i]), "#")[0];
while(!undefinedp(my_inv[save_string])){
save_string = base_name(all_inv[i]);
save_string = save_string + "#" + (++ count);
}
my_inv[save_string] = all_inv[i]->query_entire_dbase();
count = 0;
}
return;
}
void load_random_value()
{
mixed save_value;
int i,ii,j,jj,count,num = 0;
string load_string, value1, value2;
mapping map;
object *all_inv = all_inventory();
str = allocate(sizeof(all_inv));
if( !mapp(my_inv) || !my_inv ) return;
for(i=0; i<sizeof(all_inv); i++){
if( all_inv[i]->query_temp("load_string") ) continue;
load_string = base_name(all_inv[i]);
str[num] = load_string;
num++;
for(ii=i+1; ii<sizeof(all_inv); ii++){
if( base_name(all_inv[ii]) == base_name(all_inv[i]) ){
load_string = explode(file_name(all_inv[ii]), "#")[0];
load_string = load_string + "#" + (++count);
all_inv[ii]->set_temp("load_string",count); //设定标记, 只比较一次...
str[num] = load_string;
num++;
}
}
count = 0;
}
str -= ({ 0 });
for( j=0; j<sizeof(str); j++){
if(!undefinedp(my_inv[str[j]])){
map = my_inv[str[j]];
for( jj=0; jj<sizeof(all_inv); jj++ ){ //找寻相同档案, 载入!!
if( all_inv[jj]->query_temp("over_load") ) continue;
if( base_name(all_inv[jj]) == explode(str[j], "#")[0] ){
if(save_value = map["name"]) //允许改name...
all_inv[jj]->set("name", save_value);
if(save_value = map["long"]) //允许改long...
all_inv[jj]->set("long", save_value);
if(save_value = map["tmp"]) //给予一个暂存档....
all_inv[jj]->set("tmp", save_value);
if(save_value = map["weapon_prop"]){ //允许改武器属性...
//将原有的资料先载入, 让巫师使用call指令依然有效
all_inv[jj]->set("weapon_prop", copy(all_inv[jj]->query("weapon_prop")));
foreach( value1, value2 in save_value )
all_inv[jj]->set("weapon_prop/" + value1, value2);
}
if(save_value = map["armor_prop"]){ //允许改防具属性...
//将原有的资料先载入
all_inv[jj]->set("armor_prop", copy(all_inv[jj]->query("armor_prop")));
foreach( value1, value2 in save_value )
all_inv[jj]->set("armor_prop/" + value1, value2);
}
all_inv[jj]->set_temp("over_load",1); //表示被载入完毕...
break;
}
}
}
}
return;
clean_up_value();
--
※ Origin: 摩卡小筑 <moca.csie.chu.edu.tw>
◆ From: a145-23.me.chu.edu.tw