aboutsummaryrefslogtreecommitdiffstats
path: root/Config.demo
blob: 7eb537e013e3a18fedfd34cc6d095a5391e999f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
#savefile-version 1
#("We use an old version number to force creation of sane default #binds")

#init ={#(@oldxp=0);mapend;#option +compact -info -echo}

#("Connect to MUME")
#host mume.pvv.org 4242

#("Some aliases to use labeled #actions")
#alias ac=#action $0
#alias <=#action <$0
#alias \==#action =$0
#alias >=#action >$0
#alias +=#action +$0
#alias -=#action -$0

#("Some variables")
#(@emergency = 1, @xp = -0)
#($E_col = "bold")
#($Elbereth = "Grima Slinket Crug Camaro")
#($S_col = "inverse")
#($Sauron = "Homie Aridhol Quigley Mournblade ")

#("Some useful binds -- they all are on numeric keypad")
#alias ?=#history 1
#alias ??=#history $0
#bind * ^[Oj=stat
#bind + ^[Ol=open honeycomb
#bind - ^[Om=close honeycomb
#bind . ^[On=sneak
#bind / ^[Oo=!
#bind 0 ^[Op=?
#bind 1 ^[Oq=hide
#bind 2 ^[Or=s
#bind 3 ^[Os=d
#bind 4 ^[Ot=w
#bind 5 ^[Ou=exits
#bind 6 ^[Ov=e
#bind 7 ^[Ow=look
#bind 8 ^[Ox=n
#bind 9 ^[Oy=u

#alias plusminus={#bind +=open $1;#bind -=close $1}
#action >+close The $1 is open={#print;plusminus $1}
#action >+open2 The $1 seems to be closed={#print;plusminus $1}
#action >+open1 The $1 is closed={#print;plusminus $1}

#("Bindings for function keys")
#alias HELP=#alias HELP={remove ring;narrate HELP! EMERGENCY TRANSFER! rings off!}
#bind F01 ^[OP=HELP
#alias wi=change wimpy $0
#alias wq=wi 100
#alias ww=wi 1000
#bind F02 ^[OQ=ww
#bind F03 ^[OR=wq
#bind F04 ^[OS=examine
#bind F05 ^[m=now
#bind F06 ^[[17~=#option compact
#bind F07 ^[[18~=listen all
#bind F08 ^[[19~=listen none
#alias ck=change mood berserk
#alias ca=change mood aggressive
#alias cb=change mood brave
#alias cn=change mood normal
#alias cp=chan mood prudent
#alias cw=change mood wimpy
#bind F09 ^[[20~=cw
#bind F10 ^[[21~=ca
#alias pi={remove sword;draw}
#alias sla={sheath;wield sword}
#bind F11 ^[[23~=pi
#bind F12 ^[[24~=sla

#("Two nice aliases")
#alias ,e=emote leaves east
#alias emsay=emote says '$0'

#("Teleporting")
#alias ll=cast 'locate life' $0
#alias tp=cast 'teleport' $0
#alias portal=cast 'portal' $0
#alias go={#if (!*\$0:>2) #(\$0+="tp"); #else #if (\$0:>2=="portal") #(\$0+=" u"); #exe (\$0:>2+" "+\$0:1)}

#alias loc={#var $talias=$1; #action +tkey; ll $2}
#action >tkey Key: '$1'={#print; #action -tkey; #alias ${talias}=go $1 \$0}

#alias zharlond=go whicewhile $0
#alias zmichdelv=go sillelega $0
#alias zbree=go dorwhimile $0
#alias 1=zHarlond
#alias 2=zMichDelv
#alias 3=zBree

#("An emote for enchanting weapons")
#alias ench=cast 'enchant weapon' $0
#alias enchant={, makes a swift gesture and the $0 starts floating in mid air...;EnchSet +;ench $0}
#alias EnchSet={#action $1EnchSucc;#action $1EnchFail;#action $1BackFire}
#action >-BackFire Your spell backfired!={#print;, starts swearing loudly;EnchSet -}
#action >-EnchFail You lost your concentration!={#print;, frowns and exclaims, 'This cannot be! I failed!';EnchSet -}
#action >-EnchSucc $1 glows blue.={#print;, gestures again, and arcane runes flare on the $1!;EnchSet -}

#("Keep count of game time and also put it in the prompt")
    #mark Game time =underline
#("length of a game tick in milliseconds :")
    #(@tick = 61500)
#("this is to synchronize")
    #action >+clock ^The current time is $1:$2 $3.={#print;#if (\@0=$1*@tick+$2*@tick/60, \$3=="pm" ^^ $1==12) #(\@0+=12*@tick); #settimer (\@0);settick}
#("print time")
    #alias time={#if ((\@1=timer%@tick*60/@tick) < 10) #(\$1=":0"); #else #(\$1=":");#print ("Game time "+%(timer/@tick%24)+\$1+%\@1)}
#("manually set time")
    #alias now={#if (*\$1) #(\@0=$1*@tick+0$2*@tick/60); #else #if ((\@0=timer-(\@1=timer%@tick)), \@1 >= @tick/2) #(\@0+=@tick); #settimer (\@0)}
#("put time into the prompt. works for MUME.")
#("change to use appropriate patterns for other MUDs")
    #prompt %+empty ^[o\\*]>={#isprompt -1; timeprompt}
    #prompt %+full ^[o\\*] [^>]*>={#isprompt -1; timeprompt}
    #alias timeprompt={#if ((\@1=timer%@tick*60/@tick) < 10) #(\$1=":0"); #else #(\$1=":");#($prompt=$prompt.1+" "+%(timer/@tick%24)+\$1+%\@1+$prompt.>2)}
#("automatically print time at every tick. type `settick' to activate")
#("or change #alias `now' and #action `clock' to run it")
    #alias settick=set tick 0 time
    #alias set=#exe ("#in $1 ("+%((-timer-1)%@tick+2)+") {"+\$0:>3+";#in $1 ((-timer-1)%@tick+2)}")

#("Code to help mapping mazes -- keeps track of room number")
#("using binary numbers -- 1 copper == 1, 2 coppers == 0")
#("doesn't work anymore as you now get `six pile of coins' etc. tough luck.")
#alias d1=drop 1 copper
#alias d2=drop 2 copper
#alias m=#for (\@1=$1; \@1; \@1/=2) #if (\@1&1) d1; #else d2
#alias mapend={- copper-penny;- pile-of-coins;#(@map=0)}
#alias mapstart={+ copper-penny;+ pile-of-coins;#(@map=0);#in map-timeout (-1) {#print ("Room: "+%@map);#(@map=0)}}
#alias mapcount={#(@map*=2, @map+=$1);#in map-timeout (100)}
#action >-pile-of-coins ^A pile of coins=mapcount 0
#action >-copper-penny ^One miserable copper penny=mapcount 1

#("Spells and fight")
#($self = "Cosmos")
#alias self=#($self=$(0))
#alias k=kill $0
#alias f=flee
#alias ff=order followers assist ${self}
#alias fw=order followers assist waran
#alias of=order followers $0
#alias ol=of k lord
#alias on=of k noble
#alias he={#if (!*$(0)) #($(0)=$self);#send ("cast 'heal' "+$(0))}
#alias in={#if (!*$(0)) #($(0)=$self);#send ("cast 'invisibility' "+$(0))}
#alias rp={#if (!*$(0)) #($(0)=$self);#send ("cast 'remove poison' "+$(0))}
#alias sct={#if (!*$(0)) #($(0)=$self);#send ("cast 'sanctuary' "+$(0))}
#alias str={#if (!*$(0)) #($(0)=$self);#send ("cast 'strength' "+$(0))}
#alias ar={#if (!*$(0)) #($(0)=$self);#send ("cast 'armour' "+$(0))}
#alias sspell=#exe ("#alias $1={#if (!*$(0)) #($(0)=$self);#send (\\"cast '"+\$0:>2+"' \\"+$(0))}")
#alias sto=cast 'store' $0
#alias stb=sto fireball
#alias stl=sto call lightning
#alias stp=sto teleport
#alias stq=sto earthquake
#alias sty=sto colour spray
#alias bd=cast 'block door' $0
#alias bl=cast 'blindness' $0
#alias bob=cast 'breath of briskness'
#alias ch=cast 'charm' $0
#alias cwt=cast 'control weather' $0
#alias b=cast 'fireball' $0
#alias j=cast 'lightning bolt' $0
#alias li=cast 'call lightning' $0
#alias sl=cast 'sleep' $0
#alias sle=sl $0

#($target = "assassin")
#alias .=$0 ${target}
#alias bl.=bl ${target}
#alias b.=b ${target}
#alias j.=j ${target}
#alias k.=k ${target}
#alias li.=li ${target}
#alias sl.=sl ${target}
#alias blo=bl orc
#alias blt=bl troll
#alias jo=j orc
#alias jt=j troll
#alias ka=k assassin
#alias kw=k wolf

#alias tr=track $0
#alias to=tr orc
#alias tt=tr troll
#alias tr.=tr ${target}

#alias bs=backstab $0
#alias bs.=bs ${target}
#alias nn=$0 Necromancer

#("Misc stuff")
#($water = "skin")
#alias dw=drink water
#alias dk=drink ${water}
#alias lk=look in ${water}
#alias po=pour water ${water}
#alias sk=sip ${water}
#alias cv=cast 'create water' $0
#alias cvk=cv ${water}

#($pack = "backpack")
#alias gp=get $0 ${pack}
#alias pp=put $0 ${pack}
#alias lp=look in ${pack}

#($light = "lantern")
#alias hl=wear ${light}
#alias rl=remove ${light}
#alias vl=cover ${light}
#alias ul=uncover ${light}
#alias cl=cast 'create light' $0
#alias cll=cl ${light}

#alias lg=look in moneybag
#alias gg=get $1 gold moneybag
#alias pg=put $1 gold moneybag
#alias ggj=get ruby moneybag
#alias pgj=put ruby moneybag

#alias cf=cast 'create food'
#alias gf=get food
#alias ef=eat food
#alias food={cf;gf;ef}

#alias bc=#if (*$(1)) butcher $1.corpse; #else butcher corpse
#alias lc=#if (*$(1)) look in $1.corpse; #else look in corpse
#alias ga=#if (*$(1)) get all $1.corpse; #else get all corpse
#alias gc=#if (*$(1)) get coins $1.corpse; #else get coins corpse
#alias gx=#if (*$(2)) get $1 $2.corpse; #else get $1 corpse
#alias xc={hl;gc $0;rl}
#alias gl=get all
#alias glc={get all.coins;get all.copper}
#action >-greed is dead! R.I.P.={#print;gc}

#alias ldh=#if (*($1)) lead $1.horse; #else lead horse
#alias rdh=#if (*$(1)) ride $0.horse; #else ride horse
#alias ldp=#if (*($1)) lead $1.pony; #else lead pony
#alias rdp=#if (*$(1)) ride $1.pony; #else ride pony
#alias ds=dismount
#action >-Ct ^Clip-clop...the riding horse=
#action >-Cp ^Clip-clop...a pony=
#action >-Cb ^The Horse=
#action >-At ^A riding horse=
#action >-Ap ^A cute and docile pony=
#action >-Ab ^A beautiful horse=

#alias re=t Alsbreth $0
#action >+reply ^$1 tells you '={#print;#alias re=t $1 \$0}
#action >-xeval ^$1 tells you 'calc &2'={#print;#alias re=t $1 \$0;if (\$2?";" || \$2?"$" || \$2?"@") {tell $1 *grin*;#()}; #else #send ("t $1 "+%($2))}

#alias rep={+ report;score}
#action >-report $1 hit, $2 mana and $3 moves.={#print;, has $1 hit, $2 mana and $3 moves.;- report}
#alias rd={#opt +speedwalk;4ensenwdnenne;#opt -speedwalk}
#alias fd={#opt +speedwalk;wsswsuwwdww;#opt -speedwalk}

#alias lr={look n;look s;look e;look w;look u;look d}
#alias x=#alias $0
#alias kk=#bind $0
#alias l=examine $0
#alias gr=group $0
#alias le=group ${self}
#alias mm=#mark $0
#alias sa=#save
#alias se=search $0
#alias mo=help month
#alias ng=, nods gravely.
#alias nh=, nods happily.
#alias ns=, nods sadly.
#alias p=' open
#alias rf=rem staff
#alias rn=read next
#alias rs=rem stone
#alias rt=rem ticket
#alias sms=, smiles sadly.
#alias ss=spam
#alias fade=emote quickly wraps in his cloak and vanishes.
#alias matz=emote unwraps his cloak and materializes.
#alias fun={fade;$0;matz}
#alias tele={fade;tp $0;matz}
#alias title=chan title the Hungry
#alias tm=t Meryaten $0
#alias wavall=, waves good-bye to you.
#alias wf=weather fog
#alias wg=weather global
#alias wh=where human
#alias wk={wake;st}
#alias wl=weather local
#alias wr={wake;rest}
#alias grz=na --- === *** C O N G R A T U L A T I O N S !! *** === ---
#alias lin={#lines $0;chan height $0}
#alias lv=na --- === *** L  E  V  E  L  !! *** === ---
#alias macintosh={#bind ~home ^[OH=eq;#bind ~~home ^[O@=eq;#bind ~F01 ^[OP=#key F01;#bind ~F02 ^[OQ=ww;#bind ~F03 ^[OR=wq;#bind ~F04 ^[OS=examine;#bind ~F05 ^[m=now;#bind ~+ ^[Ok=open patch;#bind ~~F05 ^[[16~=now}


#alias listadd=#for (\@0=1; *$$1:\@0 && $$1:\@0!=*13; \@0++) #exe ("#mark "+$$1:\\@0+"="+$$2)}
#alias listclear={#for (\@0=1; *$$1:\@0 && $$1:\@0!=*13; \@0++) #exe ("#mark "+$$1:\\@0+"=");#($$1="")}
#alias elb={listclear Elbereth;#ac +elbereth;t elbereth list}
#alias elblist=#print ("Elf Enemies: "+$Elbereth)
#alias sauronclean={#for (\@0=1; *\$-1:\@0; \@0++) #($-1=$-1:<\\@0<.2+" "+$-1:>(\\@0+1))}
#alias pk={listclear Sauron;#ac +sauron0;#ac +sauron1;t sauron list}
#alias pklist=#print ("PKillers: "+$Sauron)
#action >-elbereth ^Elbereth Gilthoniel tells you 'Elf Enemies: &1'={#($Elbereth=\$1);listadd -5 -6;#ac -elbereth;#print}
#action >-sauron2 ^                             &1more to come.'={#($Sauron+=$-1=\$1<.3+",");sauronclean;#ac -sauron2;listadd -3 -4;#($Sauron+=$-1, $-1="");#print}
#action >-sauron1 ^Sauron tells you 'My Envoys: &1={#($Sauron=$-1=\$1<.2+",");sauronclean;#ac -sauron0;#ac -sauron1;#ac +sauron2;listadd -3 -4;#($Sauron=$-1);#print}
#action >-sauron0 ^Sauron tells you 'My Envoys: &1more to come.'={#($-1=\$1<.3+",");sauronclean;#ac -sauron0;#ac -sauron1;listadd -3 -4;#($Sauron=$-1);#print}

#action >+disappear disappears into nothing.=
#action >+exp ^Needed: $1 xp={#print;#if (\@1=-$1, !@oldxp) #(@oldxp=@xp=\@1);#print ("Exp: "+%(\@1-@xp)+" from last score, "+%(\@1-@oldxp)+" from start of session");#(@xp=\@1)}
#action >+hunt *&1* leaves $2={#mark $2=bold;#print;#mark $2=}
#action >+save Saving=#print ("---> "+\$0+" <---")
#action >-someone ^Your blood freezes as you hear $1 =#if (\$1!="The" && \$1!="the" && \$1!="A" && \$1!="a" && \$1!="An" && \$1!="an") #print
#action >+Willow A sudden drowsiness overcomes you, you yawn and...={#print;wk}

#mark sitting=bold
#mark resting=bold
#mark sleeping=bold
#mark Room: =bold
#mark tells you=underline
#mark  YOU=bold red
#mark is dead! R.I.P.=bold
#mark glows with a bright light!=bold
#mark victim shocked=bold
#mark You feel a watchful eye=bold

#mark The corpse of *&*=bold 
#mark *an Orc*=bold yellow on red
#mark *$ the Orc*=bold yellow on red
#mark *a Troll*=bold cyan on yellow
#mark *$ the Troll*=bold cyan on yellow
#mark *a Human*=blue on cyan
#mark *$ the Human*=blue on cyan
#mark *$ the Numenorean*=blue on cyan
#mark *$ the Black Numenorean*=blue on cyan
#mark *a Dwarf*=bold cyan on magenta
#mark *$ the Dwarf*=bold cyan on magenta
#mark *an Elf*=blue on green
#mark *$ the Elf*=blue on green
#mark *a Hobbit*=bold yellow on blue
#mark *$ the Hobbit*=bold yellow on blue
#alias mumecolor={change col all default;change col shout bold yellow;change col damage bold red;change col hit bold blue}
#alias nocolors={#mark *an Orc*=inverse;#mark *$ the Orc*=inverse;#mark *a Troll*=inverse;#mark *$ the Troll*=inverse;#mark *a Human*=inverse;#mark *$ the Human*=inverse;#mark *$ the Numenorean*=inverse;#mark *$ the Black Numenorean*=inverse;#mark *a Dwarf*=inverse;#mark *$ the Dwarf*=inverse;#mark *an Elf*=inverse;#mark *$ the Elf*=inverse;#mark *a Hobbit*=inverse;#mark *$ the Hobbit*=inverse}
#alias colors={#mark *an Orc*=bold yellow on red;#mark *$ the Orc*=bold yellow on red;#mark *a Troll*=bold cyan on yellow;#mark *$ the Troll*=bold cyan on yellow;#mark *a Human*=blue on cyan;#mark *$ the Human*=blue on cyan;#mark *$ the Numenorean*=blue on cyan;#mark *$ the Black Numenorean*=blue on cyan;#mark *a Dwarf*=bold cyan on magenta;#mark *$ the Dwarf*=bold cyan on magenta;#mark *an Elf*=blue on green;#mark *$ the Elf*=blue on green;#mark *a Hobbit*=bold yellow on blue;#mark *$ the Hobbit*=bold yellow on blue}

#bind >del ^[[P=&del-char-right
#bind A-bs ^[[071q=&clear-line
#bind A-del ^[[M=&kill-to-eol
#bind A-left ^[[160q=&begin-of-line
#bind A-return ^[[100q=&to-history
#bind A-right ^[[169q=&end-of-line
#bind M-B ^[b=&prev-word
#bind M-D ^[d=&del-word-right
#bind M-F ^[f=&next-word
#bind M-backsp ^[=&del-word-left
#bind M-bs ^[^H=&del-word-left
#bind M-tab ^[^I=&complete-line
#bind ^2 ^[[186q={s;hide}
#bind ^3 ^[[194q={d;hide}
#bind ^4 ^[[174q={w;hide}
#bind ^6 ^[[192q={e;hide}
#bind ^8 ^[[182q={n;hide}
#bind ^9 ^[[190q={u;hide}
#bind ^A ^A=&begin-of-line
#bind ^B ^B=&prev-char
#bind ^D ^D=&del-char-right
#bind ^E ^E=&end-of-line
#bind ^F ^F=&next-char
#bind ^K ^K=&kill-to-eol
#bind ^L ^L=&redraw-line
#bind ^N ^N=&next-line
#bind ^P ^P=&prev-line
#bind ^Q ^Q=&clear-line
#bind ^S ^S=#capture
#bind ^T ^T=&transpose
#bind ^V ^V=#stop
#bind ^W ^W=&to-history
#bind ^X ^X=#exe ("#capture emergency"+%@emergency++)
#bind ^Z ^Z=&suspend
#bind ^bs ^[[085q=&del-word-left
#bind ^del ^[[142q=&del-word-right
#bind ^left ^[[159q=&prev-word
#bind ^right ^[[168q=&next-word
#bind ^tab ^[[072q=&complete-line
#bind backsp =&del-char-left
#bind bs ^H=&del-char-left
#bind del ^[[3~=jo
#bind down ^[OB=&next-line
#bind end ^[[4~=jt
#bind enter ^[OM=flee
#bind home ^[[1~=stat
#bind ins ^[[2~=time
#bind left ^[OD=&prev-char
#bind lf ^J=&enter-line
#bind pgdwn ^[[6~=jh
#bind pgup ^[[5~=score
#bind return ^M=&enter-line
#bind right ^[OC=&next-char
#bind tab ^I=&complete-word
#bind up ^[OA=&prev-line
#bind ~^Q ^[~q=&clear-line
#bind ~^S ^[~s=#capture