Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commitb17cf29

Browse files
Add source
1 parent07e8b60 commitb17cf29

File tree

12,698 files changed

+7806447
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

12,698 files changed

+7806447
-0
lines changed
Lines changed: 24 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,24 @@
1+
*.o
2+
*.a
3+
*.exe
4+
*.dll
5+
*.so
6+
/fbc
7+
/fbc-new
8+
/bin/*
9+
/lib/*/i386go32.x
10+
/lib/*/fbextra.x
11+
/lib/*/fb_rtlib.js
12+
/lib/*/termlib_min.js
13+
/lib/*/fb_shell.html
14+
/lib/freebas/*
15+
/lib/freebasic/*
16+
/lib64/freebasic/*
17+
/config.mk
18+
/config-post.mk
19+
20+
/doc/fbdoc/fbdoc
21+
/doc/makefbhelp/makefbhelp
22+
/doc/fbchkdoc/fbchkdoc.ini
23+
24+
.vscode
Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
language:c
2+
compiler:gcc
3+
4+
env:
5+
-FBTRAVIS_TARGET_BITS=32 FBTRAVIS_COMPILER_DEBUG=0 FBTRAVIS_TESTS_DEBUG=0
6+
-FBTRAVIS_TARGET_BITS=32 FBTRAVIS_COMPILER_DEBUG=0 FBTRAVIS_TESTS_DEBUG=1
7+
-FBTRAVIS_TARGET_BITS=32 FBTRAVIS_COMPILER_DEBUG=1 FBTRAVIS_TESTS_DEBUG=0
8+
-FBTRAVIS_TARGET_BITS=32 FBTRAVIS_COMPILER_DEBUG=1 FBTRAVIS_TESTS_DEBUG=1
9+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=0 FBTRAVIS_TESTS_DEBUG=0
10+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=0 FBTRAVIS_TESTS_DEBUG=1
11+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=1 FBTRAVIS_TESTS_DEBUG=0
12+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=1 FBTRAVIS_TESTS_DEBUG=1
13+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=0 FBTRAVIS_TESTS_DEBUG=0 FBTRAVIS_FBC_BACKEND=gas64
14+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=0 FBTRAVIS_TESTS_DEBUG=1 FBTRAVIS_FBC_BACKEND=gas64
15+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=1 FBTRAVIS_TESTS_DEBUG=0 FBTRAVIS_FBC_BACKEND=gas64
16+
-FBTRAVIS_TARGET_BITS=64 FBTRAVIS_COMPILER_DEBUG=1 FBTRAVIS_TESTS_DEBUG=1 FBTRAVIS_FBC_BACKEND=gas64
17+
18+
before_install:sudo apt-get -qq update
19+
install:"contrib/travis/bootstrap.sh"
20+
script:"contrib/travis/build-and-test.sh"
Binary file not shown.
Binary file not shown.
Lines changed: 83 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,83 @@
1+
DECLARE FUNCTIONCHECK! (NCOL!, NROW!)
2+
DIMPLACES(3,3) AS STRING
3+
COL =2
4+
ROW =2
5+
I$ =""
6+
PLACES(1,1) ="AS YOU ENTER THE GRASSY MEADOW, YOU SEE WILDFLOWERS GROWING AMONG THE GRASS, AND YOU HEAR BIRDS SINGING. THEN THE BIRDSONG COMES TO A ABRUPT HALT."
7+
PLACES(1,2) ="AS YOU WALK THROUGH THE WOODS, YOU CHANCE UPON A SMALL COTTAGE ALMOST HIDDEN AMONG THE TREES. THE SMOKE COMING FROM THE CHIMNEY IS GREEN! YOU DECIDE NOT TO ENTER FOR THE MOMENT."
8+
PLACES(1,3) ="AS YOU ENTER THE THICK FOREST, YOU SEE A LARGE TREE SOMEHOW DIFFERENT FROM THE REST. AS YOU CRANE YOUR NECK TO INSPECT IT, YOU SEE A MYSTERIOUS GLOW IN THE HIGH BRANCHES!"
9+
PLACES(2,1) ="AS YOU WALK UP THE GENTLE HILL, YOU NOTICE A HOLE NEAR THE BASE OF THE STANDING STONE THAT HAS BEEN THERE AS LONG AS ANYBODY CAN REMEMBER. AS YOU LOOK MORE CLOSELY YOU FIND A PASSAGE LEADING DOWN BENEATH THE STONE. THE DARKNESS SEEMS OMINOUS, AND YOU DECIDE TO KEEP AWAY FOR NOW."
10+
PLACES(2,2) ="AS YOU WALK INTO THE VILLAGE, YOU SEE A BAKERY, A SMALL BLACKSMITHS SHOP, A GENERAL STORE, AND A BUTCHER, AMONG OTHERS."
11+
PLACES(2,3) ="AS YOU GAZE AT THE MIGHTY MOUNT DAMARIN, SOMETHING ABOUT IT TUGS AT THE CORNER OF YOUR MIND. AS YOU LOOK CLOSER, YOU REALISE THE GATES TO THE COPPER MINES ARE CLOSED, AND TODAY IS A REGULAR WORKDAY! THE VILLAGE IS TO THE WEST."
12+
PLACES(3,1) ="AS YOU STROLL BESIDE THE RIVER, YOU THE SEE FISH DARTING ABOUT IN THE CLEAR WATER, APPARENTLY AGITATED. YOU IDLY WONDER WHAT HAD CAUSED THEIR AGITATION."
13+
PLACES(3,2) ="YOU CAN SEE THE RIVER FLOWING THROUGH THE VALLEY, STRADDLED BY A SIMPLE BRIDGE."
14+
PLACES(3,3) ="AS YOU ENTER THE CORNFIELD, YOU GRADUALLY RELAX AS YOU LISTEN TO THE SOOTHING SOUND OF THE RUSTLING CORNSTALKS. THEN YOU REALISE THE RUSTLING SOUNDS ARE COMING IN YOUR DIRECTION. YOU ARE NO LONGER RELAXED. MOUNT DAMARIN LOOMS TO THE NORTH"
15+
SORRY$ ="YOU TRY, BUT YOU ARE THROWN BACK BY AN INVISIBLE FORCE."
16+
17+
GOSUB300
18+
100REM MAINLOOP
19+
INPUT"TYPE N, S, E OR W:", I$
20+
I$ = UCASE$(I$)
21+
IF I$ ="EXIT"THEN
22+
GOTO200
23+
ELSEIF I$ ="N"THEN
24+
IFCHECK(COL, ROW -1)THEN
25+
ROW = ROW -1
26+
GOSUB300
27+
ELSE
28+
PRINTSORRY$
29+
END IF
30+
ELSEIF I$ ="S"THEN
31+
IFCHECK(COL, ROW +1)THEN
32+
ROW = ROW +1
33+
GOSUB300
34+
ELSE
35+
PRINTSORRY$
36+
END IF
37+
ELSEIF I$ ="E"THEN
38+
IFCHECK(COL +1, ROW)THEN
39+
COL = COL +1
40+
GOSUB300
41+
ELSE
42+
PRINTSORRY$
43+
END IF
44+
ELSEIF I$ ="W"THEN
45+
IFCHECK(COL -1, ROW)THEN
46+
COL = COL -1
47+
GOSUB300
48+
ELSE
49+
PRINTSORRY$
50+
END IF
51+
END IF
52+
GOTO100
53+
54+
200REM END
55+
PRINT"NO ONE IS WATCHING AS YOU FADE FROM SIGHT, AND GRADUALLY DISAPPEAR."
56+
END
57+
58+
REM SUBS
59+
60+
300REM PRINTLOC
61+
CLS
62+
PRINT CHR$(9);"-------"
63+
FORY =1TO3
64+
IFROW = YTHEN
65+
A$ ="|* * *|"
66+
MID$(A$, COL *2) ="@"
67+
PRINT CHR$(9); A$
68+
ELSE
69+
PRINT CHR$(9);"|* * *|"
70+
END IF
71+
NEXT Y
72+
PRINT CHR$(9);"-------"
73+
PRINTPLACES(ROW, COL)
74+
RETURN
75+
76+
FUNCTIONCHECK (NCOL, NROW)
77+
IF (NCOL >3ORNCOL <1)OR (NROW >3ORNROW <1)THEN
78+
CHECK =0
79+
ELSE
80+
CHECK =-1
81+
END IF
82+
END FUNCTION
83+

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp