-- Start log: Tuesday, March 3, 1998 11:26:45 am CALLMOO time --
CarstenWizard geht. Er winkt.
CarstenWizard kommt herueber. Er laechelt freundlich.
______________________
| |
CarstenWizard zeigt ein Plakat: | @knock @invite @busy |
|______________________|
CarstenWizard sagt: "knock ==> anklopfen bei "
__________________________
| |
CarstenWizard zeigt ein Plakat: | knock ==> anklopfen bei |
|__________________________|
__________________________
| |
CarstenWizard zeigt ein Plakat: | invite ==> Einladung an |
|__________________________|
_____________________
| |
CarstenWizard zeigt ein Plakat: | busy ==> KeineZeit |
|_____________________|
CarstenWizard sagt: "@rename $player:@knock to "anklopfen Einladung KeineZeit""
___________________________________
| |
CarstenWizard zeigt ein Plakat: | anklopfen - Einladung - KeineZeit |
|___________________________________|
-------------------------------CarstenWizard-------------------------------
"Copyright (C) 1998 Jan Rune Holmevik";
"Jan's version of the popular @knock, @invite and @busy verbs.";
if (!args)
return player:tell("Versuch es besser mit: ", verb, " Person");
endif
who = $string_utils:match_player(args[1]);
if (who == $failed_match)
player:tell("Es tut mir leid, ich kenne niemanden mit dem Namen ", dobjstr, ".");
elseif (!(who in connected_players()))
player:tell(who:titlec(), " ist momentan nicht online.");
else
loc = tostr("(From ", player.location.name, ") ");
if (verb == "anklopfen" || verb == "ank")
player:tell("Du klopfst hoeflich bei ", who:titlec(), " an und fragst, ob Du zu ", who.po, " herueberkommen kannst.");
who:tell(loc, player.name, " klopft hoeflich an und fragt, ob ", player.ps, " zu Dir herueberkommen kann. Schreib 'Einladung ", player.name, "', um ", player.ps, " zu Dir einzuladen. Falls Du im Moment keine Zeit hast, schreib 'KeineZeit ", player.name, "'. Dann richte ich ", player.name, " das aus.");
elseif (verb == "Einladung" || verb == "Einl")
player:tell("Du laedst ", who:titlec(), " ein, Dich zu besuchen.");
who:tell(loc, player.name, " laedt Dich ein, ihn zu besuchen. Schreib 'besuche ", player.name, "', um zu ", player.po, " zu kommen.");
else
player:tell("Du richtest ", who:titlec(), " aus, dass du im Moment leider keine Zeit hast, dich aber spaeter ueber einen Anruf oder einen Besuch freuen wuerdest.");
who:tell(loc, player.name, " laesst Dir ausrichten, dass ", player.ps, " im Moment leider keine Zeit hat, sich aber freuen wuerde, wenn Du es spaeter noch einmal versuchen koenntest.");
endif
endif
"Last modified Sat Feb 7 19:11:07 1998 MET by Jan (#2).";
"Player output translated Tue Feb 24 by CarstenWizard.";
---------------------------------finished----------------------------------
________________
| |
CarstenWizard zeigt ein Plakat: | tested version |
|________________|
-------------------------------CarstenWizard-------------------------------
"Copyright (C) 1998 Jan Rune Holmevik";
"Jan's version of the popular @knock, @invite and @busy verbs.";
if (!args)
return player:tell("Versuch es besser mit: ", verb, " Person");
endif
who = $string_utils:match_player(args[1]);
if (who == $failed_match)
player:tell("Es tut mir leid, ich kenne niemanden mit dem Namen ", dobjstr, ".");
elseif (!(who in connected_players()))
player:tell(who:titlec(), " ist momentan nicht online.");
else
loc = tostr("(Standort: ", player.location.name, ") ");
if (verb == "anklopfen" || verb == "ank")
player:tell("Du klopfst hoeflich bei ", who:titlec(), " an und fragst, ob Du zu ", who.po, " herueberkommen kannst.");
who:tell(player.name," ",loc, "klopft hoeflich bei Dir an und fragt, ob ", player.ps, " herueberkommen kann. Schreib 'Einladung ", player.name, "', um ", player.ps, " zu Dir einzuladen. Falls Du im Moment keine Zeit hast, schreib 'KeineZeit ", player.name, "'. Dann richte ich ", player.name, " das aus.");
elseif (verb == "Einladung" || verb == "Einl")
player:tell("Du laedst ", who:titlec(), " ein, Dich zu besuchen.");
who:tell(player.name," ",loc, "laedt Dich auf einen Besuch ein. Schreib 'besuche ", player.name, "', um zu ", player.po, " zu kommen.");
else
player:tell("Du richtest ", who:titlec(), " aus, dass du im Moment leider keine Zeit hast, dich aber spaeter ueber einen Anruf oder einen Besuch freuen wuerdest.");
who:tell(player.name," ",loc, "laesst Dir ausrichten, dass ", player.ps, " im Moment leider keine Zeit hat, sich aber freuen wuerde, wenn Du es spaeter noch einmal versuchen koenntest.");
endif
endif
"Last modified Sat Feb 7 19:11:07 1998 MET by Jan (#2).";
"Player output translated Tue Feb 24 by CarstenWizard.";
---------------------------------finished----------------------------------
_________
| |
CarstenWizard zeigt ein Plakat: | besuche |
|_________|
CarstenWizard sagt: "@rename $player:@join to "besuch*e @join""
CarstenWizard geht. Er winkt.
CarstenWizard kommt herueber. Er laechelt freundlich.
____________________
| |
CarstenWizard zeigt ein Plakat: | besuche tested ok! |
|____________________|
____
| |
CarstenWizard zeigt ein Plakat: | GO |
|____|
CarstenWizard geht. Er winkt.
CarstenWizard kommt herueber. Er laechelt freundlich.
Sissel kommt herueber. Sie laechelt freundlich.
Sissel geht. Sie winkt.
-------------------------------CarstenWizard-------------------------------
@go Carstens Atelier
---------------------------------finished----------------------------------
-------------------------------CarstenWizard-------------------------------
@list $room:@go
That object does not define that verb.
@list $player:@go
That object does not define that verb.
@go Carstens Atelier
You're already here!
---------------------------------finished----------------------------------
CarstenWizard sagt: "Wo ist @go?"
-------------------------------CarstenWizard-------------------------------
if (dobjstr)
destname = dobjstr;
else
if (length(args) < 1)
return player:tell(tostr("Try this instead: ", verb, "
else
destname = args[1];
endif
endif
numeric = toobj(destname);
if (valid(numeric) && numeric != #0)
dest = numeric;
else
if ($string_utils:find_prefix("The", {destname}))
dest1 = destname;
dest2 = destname[5..length(destname)];
else
dest1 = "The " + destname;
dest2 = destname;
endif
match = $room_db:find_exact(destname);
if (valid(match))
match = {match};
endif
if (!match)
match = {@$room_db:find_all(dest1), @$room_db:find_all(dest2)};
endif
if (match)
if (length(match) == 1)
"Mickey wanted @go home to work, thus the next 5 lines. al 3/7/94";
if (destname == "home")
dest = this.home;
else
dest = match[1];
endif
else
player:tell("\"", dobjstr, "\" is ambiguous.");
player:tell("Matches: ", $string_utils:english_list($list_utils:map_prop(match, "name")));
return match;
endif
else
if (destname == "home")
dest = this.home;
else
player:tell("\"", dobjstr, "\" not found in room database.");
if ($room_db.updating)
player:tell("Note that the room database is presently being updated, so the room may exist. Please try again later.");
endif
if (time() - $room_db.last_update > 60 * 60 * 24)
fork (0)
$room_db.last_update = time();
$room_db:update();
endfork
endif
return 0;
endif
endif
endif
if (player != this)
return;
endif
set_task_perms(player);
if (dest == this.location)
player:tell("You're already here!");
else
oldroom = player.location;
player:moveto(dest);
if (player.location == oldroom)
player:tell(dest, " (", dest.name, ") won't allow you in.");
else
newroom = player.location;
oldroom:announce($string_utils:pronoun_sub(player.odepart_msg, player));
newroom:announce($string_utils:pronoun_sub(player.oarrive_msg, player));
endif
endif
"Last modified Tue Nov 4 12:03:19 1997 CST by Wizard (#2).";
---------------------------------finished----------------------------------
CarstenWizard posts a note on Arbeitsnotizen.
-------------------------------CarstenWizard-------------------------------
help a
Sorry, but the topic-name `a' is ambiguous. I don't know which of the following topics you mean:
@abort-shutdown @add-feature @addfeature @args
abs() @add-notify adding-help-text @args#
acos() @add-owned advertised asin()
@add-alias add_property() @age atan()
@add-alias# add_verb() alias @audit
@add-entrance @addalias aliases
@add-exit @addalias# @answer
help b
Sorry, but the topic-name `b' is ambiguous. I don't know which of the following topics you mean:
backspace buffered_output_length() @builderoptions
binary_hash() @bug building
blacklist @build-options @buildoptions
@blacklist builder-index builtin-index
boot_player() @builder-options burn
help c
Sorry, but the topic-name `c' is ambiguous. I don't know which of the following topics you mean:
call_function() chparent() containers
caller_perms() @classes @contents
callers() clear_property() @copy
ceil() @clearproperty @copymail
@check commands core-index
@check-chparent @comment cos()
@check-full common_quota cosh()
@check-property communication @count
children() connected_players() @create
@chmod connected_seconds() create()
@chmod# connection_name() creation
@chown connection_option() crypt()
@chown# connection_options() ctime()
@chparent container-messages
help d
Sorry, but the topic-name `d' is ambiguous. I don't know which of the following topics you mean:
db_disk_size() delete_verb() @dig @displayoptions
@dbsize @denewt disassemble() drop
decode_binary() @deprogrammer @disinherit @dump
decrypt @describe @disown @dump-database
delete descriptions @display dump_database()
delete_property() @detoad @display-options
help e
Sorry, but the topic-name `e' is ambiguous. I don't know which of the following topics you mean:
@edit @eject! erase exit-messages
@edit-options emote errors @exits
@editoptions encode_binary() eval exp()
editors encrypt eval() expressions
@egrep @entrances examine
@eject equal() @examine
help f
Sorry, but the topic-name `f' is ambiguous. I don't know which of the following topics you mean:
features flush_input() @forward further-reading
@features force_input() full-index
floatstr() @forked function_info()
floor() forked-tasks functions
help g
Sorry, but the topic-name `g' is ambiguous. I don't know which of the following topics you mean:
@gag @gender gopher @grep
gagging get @grant @grepcore
@gaglist give graylist @gripe
gen-index go @graylist @guests
help h
Sorry, but the topic-name `h' is ambiguous. I don't know which of the following topics you mean:
hand help home
help i
Sorry, but the topic-name `i' is ambiguous. I don't know which of the following topics you mean:
@idea index() introduction is_member()
idle_seconds() information inventory is_player()
index insert is_clear_property()
help j
Sorry, but no help is available on `j'.
help k
Sorry, but the topic-name `k' is ambiguous. I don't know which of the following topics you mean:
@keep-mail key-representation @kids kill_task()
@keepmail keys @kill @killquiet
help l
Sorry, but the topic-name `l' is ambiguous. I don't know which of the following topics you mean:
language @list# listinsert() @log
@lastlog listappend() listset() log()
length() listdelete() @locations log10()
letters listen() @lock look
@linelength listeners() @lock_for_open
@list @listgag locking
help m
Sorry, but the topic-name `m' is ambiguous. I don't know which of the following topics you mean:
mail mail-system @measure move()
@mail @mailoptions @memory movement
@mail-all-new-mail make-core-database memory_usage() MR-access
mail-expiration @make-guest message-sequences MR-expiration
mail-format @make-player messages MR-naming
mail-forwarding manipulation @messages MR-reading
mail-index manners min() MR-searching
mail-lists match() miscellaneous MR-sequences
@mail-options matching @mode MR-subscribing
mail-resolution max() @more MR-writing
mail-resolve max_object() @move
help n
Sorry, but the topic-name `n' is ambiguous. I don't know which of the following topics you mean:
name @new-password @newt @notedit
@net-who news @next notes
@netforward news-items @nn notify()
help o
Sorry, but the topic-name `o' is ambiguous. I don't know which of the following topics you mean:
object-matching objects options
object-quota @opacity output
object_bytes() open_network_connection() output_delimiters()
help p
Sorry, but the topic-name `p' is ambiguous. I don't know which of the following topics you mean:
page player-names prog-index programming
@pagelength players @prog-options pronouns
@paranoid @players @progoptions properties()
parent() players() @program @property
@parents precedence @program# property_info()
pass() prepositions @programmer @prospectus
@password @prev @programmer-options put
@peek privacy @programmeroptions
help q
Sorry, but the topic-name `q' is ambiguous. I don't know which of the following topics you mean:
@qreply queue_info() @quickreply @quit
@qsend queued_tasks() @quicksend @quota
help r
Sorry, but the topic-name `r' is ambiguous. I don't know which of the following topics you mean:
raise() redlist @rename# @rmalias
random() @redlist @renumber @rmalias#
read @refile renumber() rmatch()
@read @register @reply @rmmail
read() @registerme @request-character @rmproperty
@read-all-new-mail regular-expressions @resend @rmverb
receiving-mail remove reset_max_object() @rmverb#
@recreate @remove-entrance @resident @rn
@recycle @remove-exit resume() room-messages
recycle() @remove-feature rindex() rooms
recycling-players @rename @rm-alias# routine_tasks
help s
Sorry, but the topic-name `s' is ambiguous. I don't know which of the following topics you mean:
say setadd() spooflist
scattering @setenv @spooflist
seconds_left() @sethome sqrt()
security @setprop statements
@send setremove() strcmp()
sending-mail @shout string_hash()
server_log() @show strsub()
server_version() @shutdown @subscribe
@set shutdown() @subscribed
set_connection_option() sin() substitute()
set_player_flag() sinh() @suggest
set_property_info() site-info summary
set_task_perms() @skip suspend()
set_verb_args() @sort-owned @sweep
set_verb_code() spivak
set_verb_info() spoofing
help t
Sorry, but the topic-name `t' is ambiguous. I don't know which of the following topics you mean:
take @temp-newt @toad topology
tan() thing-messages tofloat() tostr()
tanh() throw toint() trunc()
task_id() ticks_left() toliteral() truth
task_stack() time() tonum() typeof()
tasks tinymud toobj() @typo
help u
Sorry, but the topic-name `u' is ambiguous. I don't know which of the following topics you mean:
@ungag @unlock_for_open @unsubscribe @users
unlisten() @unnewt @untoad utilities
@unlock @unrmmail @uptime utils
help v
Sorry, but the topic-name `v' is ambiguous. I don't know which of the following topics you mean:
valid() @verb verb_info() @version
value_bytes() verb_args() verbs()
value_hash() verb_code() @verify-owned
help w
Sorry, but the topic-name `w' is ambiguous. I don't know which of the following topics you mean:
whereis @who-calls wizard-names
whisper wiz-index @wrap
@who wizard-list write
help x
Sorry, but no help is available on `x'.
help y
Sorry, but no help is available on `y'.
help z
Showing help on `zombie-messages':
----
---------------------------------finished----------------------------------
CarstenWizard sagt: "hallo"
CarstenWizard drops Eisenschrank.
CarstenWizard puts Hilfeindex in Eisenschrank.
CarstenWizard removes Hilfeindex from Eisenschrank.
CarstenWizard geht. Er winkt.
CarstenWizard kommt herueber. Er laechelt freundlich.
-- End log: Tuesday, March 3, 1998 4:52:12 pm CALLMOO time --