1 object next;
2 object monster;
3 string chat_str;
4 
5 /*
6 short() { return chat_str; }
7 */
8 
link(ob)9 link(ob) {
10     next = ob;
11 }
12 
load_chat(str)13 load_chat(str) {
14     chat_str = str;
15 }
16 
set_monster(m)17 set_monster(m) {
18     monster = m;
19 }
20 
chat(nr)21 chat(nr) {
22     object room;
23 
24     if (nr == 0){
25 	room = environment(monster);
26 	if(room)
27 	    return tell_room(room,chat_str);
28     }
29     nr -= 1;
30     if (next)
31 	return call_other(next, "chat", nr);
32     else
33 	return 0;
34 }
35 
remove_chat(str)36 remove_chat(str) {
37     if (str == chat_str) {
38 	destruct(this_object());
39 	return next;
40     }
41     if (next)
42 	next = call_other(next, "remove_chat", str);
43     return this_object();
44 }
45 
collaps()46 collaps()
47 {
48     if(next)
49 	call_other(next, "collaps");
50     destruct(this_object());
51 }
52 
drop()53 drop() { return 1; }
54