Did you know ... Search Documentation:
Packs (add-ons) for SWI-Prolog

Package "prologmud_samples"

Title:Online text adventure game - Sample
Rating:Not rated. Create the first rating!
Latest version:2.0.3
SHA1 sum:fd5e603f3e68afed7704fc19df2cdade8ba1bc54
Author:Douglas Miles http://www.linkedin.com/in/logicmoo
Douglas R. Miles <logicmoo@gmail.com>
Maintainer:TeamSPoon https://github.com/TeamSPoon/
Packager:TeamSPoon https://github.com/TeamSPoon/
Home page:https://github.com/TeamSPoon/prologmud_samples.git
Download URL:https://github.com/TeamSPoon/prologmud_samples/release/*.zip
Requires:prologmud
wam_common_lisp

Reviews

No reviews. Create the first review!.

Details by download location

VersionSHA1#DownloadsURL
1.1.1154b21cd91441cd7f959471a21c754e89879beeb3f1https://github.com/TeamSPoon/prologmud_samples.git
1.1.1171fd4071fa2dfb922179856d15c16fd7b6871e7911https://github.com/TeamSPoon/prologmud_samples.git
4791bbd336c320755f083fadc926ee95017f80dd1https://github.com/TeamSPoon/prologmud_samples.git
51adcf1baddf258dc6ebfed7b008ae8dbf74da4b1https://github.com/TeamSPoon/prologmud_samples.git
5cb4a2424cabe6acb6467c9c16021b860fd8e7cf3https://github.com/TeamSPoon/prologmud_samples.git
a854f9f9ac8a1c7ec68439bba2e029c58fb956102https://github.com/TeamSPoon/prologmud_samples.git
1.1.11812b43f969fea7ec4fa5f4ba9b654fb44a575f2f91https://github.com/TeamSPoon/prologmud_samples.git
35524f9b90f3ac906cdcded9a37da871d8a6e4982https://github.com/TeamSPoon/prologmud_samples.git
401614b9a29d6e5800e4e96e64f4f1d04aaccd832https://github.com/TeamSPoon/prologmud_samples.git
50d3598de89f0f87403b45d06064f3472c8bc95d1https://github.com/TeamSPoon/prologmud_samples.git
54e73a02c480167c20765dcd204ff2ebf528e7f51https://github.com/TeamSPoon/prologmud_samples.git
7f1c3d58f0e1e8199a688413be994cef22b97a191https://github.com/TeamSPoon/prologmud_samples.git
85cbfcdf628eed5cc4ad1990c5f4ed3bbf1ec98b1https://github.com/TeamSPoon/prologmud_samples.git
aa8041b61ad515dd39d2d46a8747ab39ef9510091https://github.com/TeamSPoon/prologmud_samples.git
ac61d613f41d43366006666a49a2c6ebc012fdb81https://github.com/TeamSPoon/prologmud_samples.git
bb3d2372c10f0a4087b1065f9032b980fd7f98621https://github.com/TeamSPoon/prologmud_samples.git
bd571bb5d04c4c73793b8897a0263756a1a199c41https://github.com/TeamSPoon/prologmud_samples.git
c9b9be17aea2ce603dcbe1a8a292420898e41eb31https://github.com/TeamSPoon/prologmud_samples.git
d09edd6d2e3f53856a50dffa842ef787f1f88d101https://github.com/TeamSPoon/prologmud_samples.git
dac0bbec2f7744843205c393f8254002ea7f05634https://github.com/TeamSPoon/prologmud_samples.git
dbc0dda79b601ba58da3a547484d91fcb4d1b4a61https://github.com/TeamSPoon/prologmud_samples.git
e12763f3b59720ba5bc92f5eceabb4d98d1d1d4b1https://github.com/TeamSPoon/prologmud_samples.git
ec2199eb33529259201fb799947731fde82d8da71https://github.com/TeamSPoon/prologmud_samples.git
f199f4c5346f0450c184d453d98ee47aa11a14141https://github.com/TeamSPoon/prologmud_samples.git
f7d4f425a2ae57e49e3e312ed44f847bf592fdeb1https://github.com/TeamSPoon/prologmud_samples.git
1.2.1114441b3186b8fb69a1e04742dbd92d4cabf8e27197https://github.com/TeamSPoon/prologmud_samples.git
4868543ec3577e6e416e4b6589cd8fe76e7b9c8d1https://github.com/TeamSPoon/prologmud_samples.git
50333b9a4f3d4400c7c4ae7058f1b4a4e0f535ad1https://github.com/TeamSPoon/prologmud_samples.git
1.4.11148ac281ca9899c769037bfdf28e11424605c99d11https://github.com/TeamSPoon/prologmud_samples.git
68ebd5cd4b6aec2d97af0cb678ef1551bc6c50fc1https://github.com/TeamSPoon/prologmud_samples.git
ca897364433ea1a9abe9e12fcb9321321b7b53b66https://github.com/TeamSPoon/prologmud_samples.git
2.0.117b15305e54a21b0660f6316a94a708d581cb9c05https://github.com/TeamSPoon/prologmud_samples.git
2.0.314ee60952c080db4686a263645df4f698654de4d15https://github.com/TeamSPoon/prologmud_samples.git
1a2386341d7c8a65cceb9dbc35a47763a8e681741https://github.com/TeamSPoon/prologmud_samples.git
4662cd565e33fd235cfc414ee9a1bc1d7be94a5b3https://github.com/TeamSPoon/prologmud_samples.git
58a5ec147d30689df263f7112ce3bcd303e54f101https://github.com/TeamSPoon/prologmud_samples.git
bdf5e1fdbeafa6376a5d6d477a4080364e9ebf512https://github.com/TeamSPoon/prologmud_samples.git
e7d4ca763b9fff493c2a3dd03b4b8f29917d10c21https://github.com/TeamSPoon/prologmud_samples.git
fd5e603f3e68afed7704fc19df2cdade8ba1bc542https://github.com/TeamSPoon/prologmud_samples.git

prologmud_samples

Online text adventure game - Samples

Installation

$ swipl
Welcome to SWI-Prolog (threaded, 64 bits, version 7.7.4-36-gc02793b-DIRTY-BIRDY)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
Please run ?- license. for legal details.

For online help and background, visit http://www.swi-prolog.org
For built-in help, use ?- help(Topic). or ?- apropos(Word).

?- pack_install(prologmud_samples).

% .....

Try it


?- use_module(library(prologmud_samples)).

....
% found(mpred_rem_support2(mudHealth(iWesley716, 90),  (\+ ~mudHealth(iWesley716, 90), nt(~mudHealth(iWesley716, 90), call_u_no_bc(~mudHealth(iWesley716, 90)), rhs([mudHealth(iWesley716, 90)]))))).

Welcome to the MUD iWesley716!

The stream <stream>(0x7479e0)!

% substs=[vHere=iArea1016, isSelf=xyzFn(iArea1016, 2, 3, 1), isSelfAgent=iWesley716].
this is blinking red!
 [] []          [] []
 [] -- -- -- -- -- []
    -- -- -- -- --
    -- es -- -- --
    -- -- -- -- --
 [] -- -- -- -- -- []
 [] []          [] []
text= nameStringsList(iArea1016,[s("A","Corridor")]).
s(A,Corridor)
s(You,find,yourself,in,the,middle,of,a,well,lit,corridor,on,the,Enterprise)
s(It,isn,'t,very,wide,,,and,the,light,beige,walls,have,been,rounded,,,making,the,corridor,an,oval,shape)
s(You,see,the,holodeck,'s,control,panel,beside,the,holodeck,door,,,and,it,has,some,information,on,it)
path(vSouth)= iArea1013.
path(vWest)= iArea1015.
path(vNorth)= iArea1019.
path(vEast)= iArea1017.
pathName(vNorth)= s("The","corridor","continues","North").
pathName(vEast)= s("Holodeck","4","is","East").
pathName(vSouth)= s("The","corridor","continues","South").
pathName(vWest)= s("Sick","Bay","is","West").
text= localityOfObject(iWesley716,iArea1016).
selfAgent= iWesley716.
text= mudAtLoc(iWesley716,xyzFn(iArea1016,2,3,1)).
text= mudFacing(iWesley716,vNorth).
text= mudStance(iWesley716,vStand).
text= mudMoveDist(iWesley716,1).
mudLastCmdSuccess= vTrue.
% substs=[vHere=iArea1016, isSelf=xyzFn(iArea1016, 2, 3, 1), isSelfAgent=iWesley716].
ftText= mudContains(iWesley716,[]).
ftText= mudPossess(iWesley716,[iBoots717,iCommBadge718,iRedUniform719,iFood_rez1]).
ftText= mudStowing(iWesley716,[iFood_rez1]).
ftText= mudWielding(iWesley716,[]).
ftText= wearsClothing(iWesley716,[iBoots717,iCommBadge718,iRedUniform719]).
% found(mpred_rem_support2(mudNeedsLook(iWesley716, vTrue),  ((mudAtLoc(iWesley716, xyzFn(iArea1016, 1, 2, 1)), pt(mudAtLoc(iWesley716, xyzFn(iArea1016, 1, 2, 1)), rhs([{ain(mudNeedsLook(iWesley716, vTrue))}]))), (inRegion(iWesley716, iArea1016), pt(inRegion(iWesley716, _5576),  (\+tPathway(iWesley716), \+lookup_u(mudAtLoc(iWesley716, xyzFn(_5576, _5608, _5610, _5612)))*->in_grid_rnd(_5576, _5624)*->rhs([mudAtLoc(iWesley716, _5624)])))), (spatialInRegion(iWesley716), pt(spatialInRegion(iWesley716), pt(inRegion(iWesley716, iArea1016),  (\+tPathway(iWesley716), \+lookup_u(mudAtLoc(iWesley716, xyzFn(iArea1016, _5696, _5698, _5700)))*->in_grid_rnd(iArea1016, xyzFn(iArea1016, 1, 2, 1))*->rhs([mudAtLoc(iWesley716, xyzFn(iArea1016, 1, 2, 1))]))))), (inRegion(iWesley716, iArea1016), pt(inRegion(iWesley716, iArea1016), rhs([{ain((spatialInRegion(iWesley716), tRegion(iArea1016)))}]))), (localityOfObject(iWesley716, iArea1016), pt(localityOfObject(iWesley716, iArea1016),  (tRegion(iArea1016)*->rhs([inRegion(iWesley716, iArea1016)])))), mfl(baseKB, '/opt/logicmoo_workspace/packs_sys/prologmud_samples/prolog/prologmud_sample_games/src_game_startrek/startrek.all.pfc.pl', 339)))).
iWesley716 [iWesley716,wants,to]>

e5 means east 5 cells

 [] [] [] [] [] [] []
 [] -- -- -- -- -- []
    -- -- -- -- -- []
    -- es -- -- -- []
    -- -- -- -- -- []
 [] -- -- -- -- -- []
 [] [] [] [] [] [] []
text= nameStringsList(iArea1017,[s("Holodeck","4","Entrance","A","Narrow","Alley")]).
s(Holodeck,4,Entrance,A,Narrow,Alley)
s(You,emerge,into,a,dark,narrow,alley)
s(Tall,dark,brick,buildings,block,your,way,north,and,south)
s(You,can,see,that,the,windows,on,the,buildings,are,fairly,high,,,and,some,have,been,boarded,up)
s(The,smell,from,the,rotting,tFood,and,garbage,mixing,with,the,foul,water,on,the,ground,is,unbearable)
s(You,can,hear,the,sounds,of,a,bustling,marketpace,to,the,east)
s(The,archway,leading,out,of,the,holodeck,is,west)
path(vWest)= iArea1016.
pathName(vWest)= s("A","corridor","is","West").
text= localityOfObject(iWesley716,iArea1017).
selfAgent= iWesley716.
text= mudAtLoc(iWesley716,xyzFn(iArea1017,2,3,1)).
text= mudFacing(iWesley716,vEast).
text= mudStance(iWesley716,vStand).
text= mudMoveDist(iWesley716,1).
mudLastCmdSuccess= vTrue.
% substs=[vHere=iArea1017, isSelf=xyzFn(iArea1017, 2, 3, 1), isSelfAgent=iWesley716].
ftText= mudContains(iWesley716,[]).
ftText= mudPossess(iWesley716,[iBoots717,iCommBadge718,iRedUniform719,iFood_rez1]).
ftText= mudStowing(iWesley716,[iFood_rez1]).
ftText= mudWielding(iWesley716,[]).
ftText= wearsClothing(iWesley716,[iBoots717,iCommBadge718,iRedUniform719]).
% found(mpred_rem_support2(mudNeedsLook(iWesley716, vTrue),  ((mudAtLoc(iWesley716, xyzFn(iArea1016, 3, 2, 1)), pt(mudAtLoc(iWesley716, xyzFn(iArea1016, 3, 2, 1)), rhs([{ain(mudNeedsLook(iWesley716, vTrue))}]))), (inRegion(iWesley716, iArea1016), pt(inRegion(iWesley716, _5594),  (\+tPathway(iWesley716), \+lookup_u(mudAtLoc(iWesley716, xyzFn(_5594, _5626, _5628, _5630)))*->in_grid_rnd(_5594, _5642)*->rhs([mudAtLoc(iWesley716, _5642)])))), (spatialInRegion(iWesley716), pt(spatialInRegion(iWesley716), pt(inRegion(iWesley716, iArea1016),  (\+tPathway(iWesley716), \+lookup_u(mudAtLoc(iWesley716, xyzFn(iArea1016, _5714, _5716, _5718)))*->in_grid_rnd(iArea1016, xyzFn(iArea1016, 3, 2, 1))*->rhs([mudAtLoc(iWesley716, xyzFn(iArea1016, 3, 2, 1))]))))), (inRegion(iWesley716, iArea1016), pt(inRegion(iWesley716, iArea1016), rhs([{ain((spatialInRegion(iWesley716), tRegion(iArea1016)))}]))), (localityOfObject(iWesley716, iArea1016), pt(localityOfObject(iWesley716, iArea1016),  (tRegion(iArea1016)*->rhs([inRegion(iWesley716, iArea1016)])))), mfl(baseKB, '/opt/logicmoo_workspace/packs_sys/prologmud_samples/prolog/prologmud_sample_games/src_game_startrek/startrek.all.pfc.pl', 339)))).
% found(mpred_rem_support1(mudNeedsLook(iWesley716, vFalse),  (mfl(baseKB, user_input, 4845), ax))).
% found(mpred_rem_support2(mudNeedsLook(iWesley716, vFalse),  (\+ ~mudNeedsLook(iWesley716, vFalse), nt(~mudNeedsLook(iWesley716, vFalse), call_u_no_bc(~mudNeedsLook(iWesley716, vFalse)), rhs([mudNeedsLook(iWesley716, vFalse)]))))).
iWesley716 [iWesley716,wants,to]>
 

Create a small world



Some TODOs

Document this pack! Write tests Untangle the 'pack' install deps Still in progress (Moving predicates over here from logicmoo_base)

BSD 2-Clause License

Copyright (c) 2017, Douglas Miles <logicmoo@gmail.com> and logicmoo All rights reserved.

Not obligated to maintain a git fork just to contribute

Dislike having tons of forks that are several commits behind the main git repo?

Be old school - Please ask to be added to logicmoo and Contribute directly ! Still, we wont stop you from doing it the Fork+PullRequest method

Contents of pack "prologmud_samples"

Pack contains 47 files holding a total of 1.1M bytes.