quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*unified line ending.

Browse Source
This commit is contained in:
Wang Renxin 2016-12-26 16:38:01 +08:00
parent 390df0d992
commit 144d392851
17 changed files with 18621 additions and 18621 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.travis.yml
View File

@ -1,7 +1,7 @@
language: c
compiler:
- clang
- gcc
script: make
language: c
compiler:
- clang
- gcc
script: make

34198
core/my_basic.c
View File

File diff suppressed because it is too large Load Diff

1304
core/my_basic.h
View File

File diff suppressed because it is too large Load Diff

154
resource/my_basic.rc
View File

@ -1,77 +1,77 @@
#include "resource.h"
#define APSTUDIO_READONLY_SYMBOLS
#include "windows.h"
#undef APSTUDIO_READONLY_SYMBOLS
#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_CHS)
# ifdef _WIN32
LANGUAGE LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED
# pragma code_page(936)
# endif //_WIN32
# ifdef APSTUDIO_INVOKED
1 TEXTINCLUDE
BEGIN
"resource.h\0"
END
2 TEXTINCLUDE
BEGIN
"#include ""windows.h""\r\n"
"\0"
END
3 TEXTINCLUDE
BEGIN
"\r\n"
"\0"
END
# endif
IDI_ICON_MAIN ICON "icon.ico"
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,2,0,0
PRODUCTVERSION 1,2,0,0
FILEFLAGSMASK 0x17L
# ifdef _DEBUG
FILEFLAGS 0x1L
# else
FILEFLAGS 0x0L
# endif
FILEOS 0x4L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "080404b0"
BEGIN
VALUE "Comments", "For more information, see https://github.com/paladin-t/my_basic/."
VALUE "CompanyName", "Wang Renxin"
VALUE "FileDescription", "MY-BASIC Interpreter for Windows"
VALUE "FileVersion", "1, 2, 0, 0"
VALUE "InternalName", "my_basic"
VALUE "LegalCopyright", "Copyright (C) 2011 - 2016 Wang Renxin"
VALUE "LegalTrademarks", "MY-BASIC"
VALUE "OriginalFilename", "my_basic.exe"
VALUE "ProductName", "MY-BASIC"
VALUE "ProductVersion", "1, 2, 0, 0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x804, 1200
END
END
#endif
#ifndef APSTUDIO_INVOKED
#endif
#include "resource.h"
#define APSTUDIO_READONLY_SYMBOLS
#include "windows.h"
#undef APSTUDIO_READONLY_SYMBOLS
#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_CHS)
# ifdef _WIN32
LANGUAGE LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED
# pragma code_page(936)
# endif //_WIN32
# ifdef APSTUDIO_INVOKED
1 TEXTINCLUDE
BEGIN
"resource.h\0"
END
2 TEXTINCLUDE
BEGIN
"#include ""windows.h""\r\n"
"\0"
END
3 TEXTINCLUDE
BEGIN
"\r\n"
"\0"
END
# endif
IDI_ICON_MAIN ICON "icon.ico"
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,2,0,0
PRODUCTVERSION 1,2,0,0
FILEFLAGSMASK 0x17L
# ifdef _DEBUG
FILEFLAGS 0x1L
# else
FILEFLAGS 0x0L
# endif
FILEOS 0x4L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "080404b0"
BEGIN
VALUE "Comments", "For more information, see https://github.com/paladin-t/my_basic/."
VALUE "CompanyName", "Wang Renxin"
VALUE "FileDescription", "MY-BASIC Interpreter for Windows"
VALUE "FileVersion", "1, 2, 0, 0"
VALUE "InternalName", "my_basic"
VALUE "LegalCopyright", "Copyright (C) 2011 - 2016 Wang Renxin"
VALUE "LegalTrademarks", "MY-BASIC"
VALUE "OriginalFilename", "my_basic.exe"
VALUE "ProductName", "MY-BASIC"
VALUE "ProductVersion", "1, 2, 0, 0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x804, 1200
END
END
#endif
#ifndef APSTUDIO_INVOKED
#endif

80
sample/README.md
View File

@ -1,40 +1,40 @@
## Samples of MY-BASIC
**Copyright (C) 2011 - 2016 Wang Renxin. All rights reserved.**
This folder contains severial sample code of MY-BASIC.
### Contents
**Fundamental**
Including loop, condition, and other fundamental statements.
sample01.bas
sample02.bas
sample03.bas
sample04.bas
**Sub routine**
sample05.bas
**Prototype based class**
sample06.bas
**A Brainfuck interpreter in MY-BASIC**
sample07.bas
**A comprehensive simple game named YARD (Yet Another RPG Dungeon)**
yard/entity.bas
yard/goal.bas
yard/level.bas
yard/map.bas
yard/monster.bas
yard/npc.bas
yard/player.bas
yard/start.bas
yard/utils.bas
## Samples of MY-BASIC
**Copyright (C) 2011 - 2016 Wang Renxin. All rights reserved.**
This folder contains severial sample code of MY-BASIC.
### Contents
**Fundamental**
Including loop, condition, and other fundamental statements.
sample01.bas
sample02.bas
sample03.bas
sample04.bas
**Sub routine**
sample05.bas
**Prototype based class**
sample06.bas
**A Brainfuck interpreter in MY-BASIC**
sample07.bas
**A comprehensive simple game named YARD (Yet Another RPG Dungeon)**
yard/entity.bas
yard/goal.bas
yard/level.bas
yard/map.bas
yard/monster.bas
yard/npc.bas
yard/player.bas
yard/start.bas
yard/utils.bas

54
sample/sample06.bas
View File

@ -1,27 +1,27 @@
' This script is an example of MY-BASIC
' Copyright (c) 2011 - 2016 Wang Renxin. All rights reserved.
' For more information, see https://github.com/paladin-t/my_basic/
class animal
def speak(a)
print "Default" + a;
enddef
endclass
class cat(animal)
def speak(a)
print "Meow" + a;
enddef
endclass
class dog(animal)
def speak(a)
print "Woof" + a;
enddef
endclass
c = new(cat)
d = new(dog)
c.speak("!")
d.speak("!")
' This script is an example of MY-BASIC
' Copyright (c) 2011 - 2016 Wang Renxin. All rights reserved.
' For more information, see https://github.com/paladin-t/my_basic/
class animal
def speak(a)
print "Default" + a;
enddef
endclass
class cat(animal)
def speak(a)
print "Meow" + a;
enddef
endclass
class dog(animal)
def speak(a)
print "Woof" + a;
enddef
endclass
c = new(cat)
d = new(dog)
c.speak("!")
d.speak("!")

200
sample/sample07.bas
View File

@ -1,100 +1,100 @@
' This script is an example of MY-BASIC
' Copyright (c) 2011 - 2016 Wang Renxin. All rights reserved.
' For more information, see https://github.com/paladin-t/my_basic/
def reserve(m, n)
for j = len(m) to n + 2
push(m, 0)
next
enddef
def forward(cmd, i)
l = len(cmd)
k = 0
while i < l
h = mid(cmd, i, 1)
if h = "[" then
k = k + 1
elseif h = "]" then
k = k - 1
endif
if h = "]" and k = 0 then
return i
endif
i = i + 1
wend
return i
enddef
def backward(cmd, i)
k = 0
while i > 0
h = mid(cmd, i, 1)
if h = "]" then
k = k + 1
elseif h = "[" then
k = k - 1
endif
if h = "[" and k = 0 then
return i
endif
i = i - 1
wend
return i
enddef
def brainfuck(cmd)
m = list()
i = 0
cursor = 0
l = len(cmd)
while i < l
c = mid(cmd, i, 1)
if c = ">" then
cursor = cursor + 1
elseif c = "<" then
cursor = cursor - 1
elseif c = "+" then
reserve(m, cursor)
b = m(cursor)
m(cursor) = b + 1
elseif c = "-" then
reserve(m, cursor)
b = m(cursor)
m(cursor) = b - 1
elseif c = "." then
reserve(m, cursor)
print chr(m(cursor))
elseif c = "," then
reserve(m, cursor)
input ch$
m(cursor) = asc(ch$)
elseif c = "[" then
reserve(m, cursor)
b = m(cursor)
if b = 0 then
i = forward(cmd, i)
endif
elseif c = "]" then
reserve(m, cursor)
b = m(cursor)
if b <> 0 then
i = backward(cmd, i)
endif
endif
i = i + 1
wend
enddef
' This is a brainfuck interpreter written with MY-BASIC
input "Input: ", cmd$
' Use a sample code?
if cmd$ = "hello" then
cmd$ = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>."
endif
brainfuck(cmd$)
' This script is an example of MY-BASIC
' Copyright (c) 2011 - 2016 Wang Renxin. All rights reserved.
' For more information, see https://github.com/paladin-t/my_basic/
def reserve(m, n)
for j = len(m) to n + 2
push(m, 0)
next
enddef
def forward(cmd, i)
l = len(cmd)
k = 0
while i < l
h = mid(cmd, i, 1)
if h = "[" then
k = k + 1
elseif h = "]" then
k = k - 1
endif
if h = "]" and k = 0 then
return i
endif
i = i + 1
wend
return i
enddef
def backward(cmd, i)
k = 0
while i > 0
h = mid(cmd, i, 1)
if h = "]" then
k = k + 1
elseif h = "[" then
k = k - 1
endif
if h = "[" and k = 0 then
return i
endif
i = i - 1
wend
return i
enddef
def brainfuck(cmd)
m = list()
i = 0
cursor = 0
l = len(cmd)
while i < l
c = mid(cmd, i, 1)
if c = ">" then
cursor = cursor + 1
elseif c = "<" then
cursor = cursor - 1
elseif c = "+" then
reserve(m, cursor)
b = m(cursor)
m(cursor) = b + 1
elseif c = "-" then
reserve(m, cursor)
b = m(cursor)
m(cursor) = b - 1
elseif c = "." then
reserve(m, cursor)
print chr(m(cursor))
elseif c = "," then
reserve(m, cursor)
input ch$
m(cursor) = asc(ch$)
elseif c = "[" then
reserve(m, cursor)
b = m(cursor)
if b = 0 then
i = forward(cmd, i)
endif
elseif c = "]" then
reserve(m, cursor)
b = m(cursor)
if b <> 0 then
i = backward(cmd, i)
endif
endif
i = i + 1
wend
enddef
' This is a brainfuck interpreter written with MY-BASIC
input "Input: ", cmd$
' Use a sample code?
if cmd$ = "hello" then
cmd$ = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>."
endif
brainfuck(cmd$)

50
sample/yard/README.md
View File

@ -1,25 +1,25 @@
## YARD (Yet Another RPG Dungeon)
**Copyright (C) 2016 Wang Renxin. All rights reserved.**
"Yet Another RPG Dungeon" is a text based game. It's a simple comprehensive example and a tutorial which demonstrates lots of concepts of MY-BASIC.
### Usage
**Windows**
my_basic start.bas
**OS X**
my_basic_mac start.bas
**Others**
my_basic_bin start.bas
**Note**
It requires an importing directories information if the working directory of your interpreter is `my_basic/output/`:
my_basic -f ../sample/yard/ ../sample/yard/start.bas
## YARD (Yet Another RPG Dungeon)
**Copyright (C) 2016 Wang Renxin. All rights reserved.**
"Yet Another RPG Dungeon" is a text based game. It's a simple comprehensive example and a tutorial which demonstrates lots of concepts of MY-BASIC.
### Usage
**Windows**
my_basic start.bas
**OS X**
my_basic_mac start.bas
**Others**
my_basic_bin start.bas
**Note**
It requires an importing directories information if the working directory of your interpreter is `my_basic/output/`:
my_basic -f ../sample/yard/ ../sample/yard/start.bas

94
sample/yard/entity.bas
View File

@ -1,47 +1,47 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
class entity
var name = ""
var alive = true
var hp = 0
var atk = 0
var defence = 0
var dead_handler = nil
def tostring()
return "Entity [" + name + "]"
enddef
def init(_hp, _atk, _def)
hp = _hp
atk = _atk
defence = _def
enddef
def kill()
if dead_handler <> nil then
dead_handler(me)
endif
alive = false
enddef
def hurt_by(e)
p = e.atk / defence
if p <= 0 then
p = 1
endif
hp = hp - p
if hp < 0 then
hp = 0
endif
if hp = 0 then
kill()
endif
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
class entity
var name = ""
var alive = true
var hp = 0
var atk = 0
var defence = 0
var dead_handler = nil
def tostring()
return "Entity [" + name + "]"
enddef
def init(_hp, _atk, _def)
hp = _hp
atk = _atk
defence = _def
enddef
def kill()
if dead_handler <> nil then
dead_handler(me)
endif
alive = false
enddef
def hurt_by(e)
p = e.atk / defence
if p <= 0 then
p = 1
endif
hp = hp - p
if hp < 0 then
hp = 0
endif
if hp = 0 then
kill()
endif
enddef
endclass

40
sample/yard/goal.bas
View File

@ -1,20 +1,20 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
class goal(entity)
var take_handler = nil
def tostring()
return "Goal [" + name + "]"
enddef
def take(e)
if take_handler <> nil then
take_handler(me)
endif
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
class goal(entity)
var take_handler = nil
def tostring()
return "Goal [" + name + "]"
enddef
def take(e)
if take_handler <> nil then
take_handler(me)
endif
enddef
endclass

524
sample/yard/level.bas
View File

@ -1,262 +1,262 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "goal.bas"
import "map.bas"
import "monster.bas"
import "npc.bas"
class game_status
var invalid = 0
var playing = 1
var win = 2
var lose = 3
endclass
class level
var status = game_status.invalid
var roads = new(map)
var role = nil
def set_node(x, y, ...)
n = new(map_node)
roads.set_node(x, y, n)
n.set_valid_dirs(...)
return n
enddef
def get_node(x, y)
return roads.get_node(x, y)
enddef
def create()
roads.set_size(3, 3)
n = set_node(0, 0, dirs.right_dir)
n = set_node(1, 0, dirs.left_dir, dirs.right_dir, dirs.up_dir)
n = set_node(2, 0, dirs.left_dir, dirs.up_dir)
m = new(monster)
m.name = "Skeleton"
m.init(7, 1, 1)
m.dead_handler = lambda (_)
(
print "- " + _.name + " dead";
)
n.add_entity(m)
n = set_node(0, 1, dirs.right_dir)
n = set_node(1, 1, dirs.left_dir, dirs.up_dir, dirs.down_dir)
m = new(monster)
m.name = "Slime"
m.init(5, 1, 1)
m.dead_handler = lambda (_)
(
print "- " + _.name + " dead";
)
n.add_entity(m)
n = set_node(2, 1, dirs.up_dir, dirs.down_dir)
n = set_node(0, 2, dirs.right_dir)
g = new(goal)
g.name = "Goal"
n.add_entity(g)
n = set_node(1, 2, dirs.left_dir, dirs.right_dir, dirs.down_dir)
m = new(monster)
m.name = "Dragon"
m.init(10, 5, 1)
m.dead_handler = lambda (_)
(
print "- " + _.name + " dead";
)
n.add_entity(m)
n = set_node(2, 2, dirs.left_dir, dirs.down_dir)
c = new(npc)
c.name = "Therapist"
c.talk_handler = lambda (_)
(
print "- " + _.name + ": give you 23 HP";
_.alive = false
role.hp = role.hp + 23
)
n.add_entity(c)
enddef
def start(r)
status = game_status.playing
role = r
role.pos.x = 0
role.pos.y = 0
enddef
def format()
if status = game_status.win then
print "You Win";
elseif status = game_status.lose then
print "Game Over";
return
elseif status = game_status.playing then
print "<" + str(role.pos.x) + ", " + str(role.pos.y) + ">";
n = roads.get_node(role.pos.x, role.pos.y)
contains_goal = false
gl = n.get_entities(goal)
it = iterator(gl)
if move_next(it) then
contains_goal = true
ent = get(it)
print " ", ent;
it = nil
endif
contains_npc = false
np = n.get_entities(npc)
it = iterator(np)
if move_next(it) then
contains_npc = true
ent = get(it)
print " ", ent;
it = nil
endif
contains_monster = false
ms = n.get_entities(monster)
it = iterator(ms)
if move_next(it) then
contains_monster = true
ent = get(it)
print " ", ent;
it = nil
endif
print "[Operations]";
if contains_goal then
print " G: Accomplish goal";
endif
if contains_npc then
print " T: Talk to " + ent.name;
endif
if contains_monster then
print " A: Attack " + ent.name;
else
if bit_and(n.valid_dirs, dirs.left_dir) then
print " W: Go west";
endif
if bit_and(n.valid_dirs, dirs.right_dir) then
print " E: Go east";
endif
if bit_and(n.valid_dirs, dirs.up_dir) then
print " N: Go north";
endif
if bit_and(n.valid_dirs, dirs.down_dir) then
print " S: Go south";
endif
endif
endif
print " Q: Quit game";
enddef
def update(i)
if i = "" then
return false
endif
ipt = to_lower_case(i)
if ipt = "q" then print "Bye."; : end
if status <> game_status.playing then
return false
endif
n = roads.get_node(role.pos.x, role.pos.y)
gl = n.get_entities(goal)
it = iterator(gl)
if ipt = "g" and move_next(it) then
ent = get(it)
it = nil
status = game_status.win
return true
endif
np = n.get_entities(npc)
it = iterator(np)
if ipt = "t" and move_next(it) then
ent = get(it)
it = nil
ent.talk(role)
return true
endif
contains_monster = false
ms = n.get_entities(monster)
it = iterator(ms)
if move_next(it) then
contains_monster = true
if ipt = "a" then
ent = get(it)
it = nil
ent.hurt_by(role)
role.hurt_by(ent)
return true
endif
endif
if not contains_monster then
if ipt = "w" and bit_and(n.valid_dirs, dirs.left_dir) then
role.pos.x = role.pos.x - 1
return true
endif
if ipt = "e" and bit_and(n.valid_dirs, dirs.right_dir) then
role.pos.x = role.pos.x + 1
return true
endif
if ipt = "n" and bit_and(n.valid_dirs, dirs.up_dir) then
role.pos.y = role.pos.y + 1
return true
endif
if ipt = "s" and bit_and(n.valid_dirs, dirs.down_dir) then
role.pos.y = role.pos.y - 1
return true
endif
endif
print "Invalid input.";
return false
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "goal.bas"
import "map.bas"
import "monster.bas"
import "npc.bas"
class game_status
var invalid = 0
var playing = 1
var win = 2
var lose = 3
endclass
class level
var status = game_status.invalid
var roads = new(map)
var role = nil
def set_node(x, y, ...)
n = new(map_node)
roads.set_node(x, y, n)
n.set_valid_dirs(...)
return n
enddef
def get_node(x, y)
return roads.get_node(x, y)
enddef
def create()
roads.set_size(3, 3)
n = set_node(0, 0, dirs.right_dir)
n = set_node(1, 0, dirs.left_dir, dirs.right_dir, dirs.up_dir)
n = set_node(2, 0, dirs.left_dir, dirs.up_dir)
m = new(monster)
m.name = "Skeleton"
m.init(7, 1, 1)
m.dead_handler = lambda (_)
(
print "- " + _.name + " dead";
)
n.add_entity(m)
n = set_node(0, 1, dirs.right_dir)
n = set_node(1, 1, dirs.left_dir, dirs.up_dir, dirs.down_dir)
m = new(monster)
m.name = "Slime"
m.init(5, 1, 1)
m.dead_handler = lambda (_)
(
print "- " + _.name + " dead";
)
n.add_entity(m)
n = set_node(2, 1, dirs.up_dir, dirs.down_dir)
n = set_node(0, 2, dirs.right_dir)
g = new(goal)
g.name = "Goal"
n.add_entity(g)
n = set_node(1, 2, dirs.left_dir, dirs.right_dir, dirs.down_dir)
m = new(monster)
m.name = "Dragon"
m.init(10, 5, 1)
m.dead_handler = lambda (_)
(
print "- " + _.name + " dead";
)
n.add_entity(m)
n = set_node(2, 2, dirs.left_dir, dirs.down_dir)
c = new(npc)
c.name = "Therapist"
c.talk_handler = lambda (_)
(
print "- " + _.name + ": give you 23 HP";
_.alive = false
role.hp = role.hp + 23
)
n.add_entity(c)
enddef
def start(r)
status = game_status.playing
role = r
role.pos.x = 0
role.pos.y = 0
enddef
def format()
if status = game_status.win then
print "You Win";
elseif status = game_status.lose then
print "Game Over";
return
elseif status = game_status.playing then
print "<" + str(role.pos.x) + ", " + str(role.pos.y) + ">";
n = roads.get_node(role.pos.x, role.pos.y)
contains_goal = false
gl = n.get_entities(goal)
it = iterator(gl)
if move_next(it) then
contains_goal = true
ent = get(it)
print " ", ent;
it = nil
endif
contains_npc = false
np = n.get_entities(npc)
it = iterator(np)
if move_next(it) then
contains_npc = true
ent = get(it)
print " ", ent;
it = nil
endif
contains_monster = false
ms = n.get_entities(monster)
it = iterator(ms)
if move_next(it) then
contains_monster = true
ent = get(it)
print " ", ent;
it = nil
endif
print "[Operations]";
if contains_goal then
print " G: Accomplish goal";
endif
if contains_npc then
print " T: Talk to " + ent.name;
endif
if contains_monster then
print " A: Attack " + ent.name;
else
if bit_and(n.valid_dirs, dirs.left_dir) then
print " W: Go west";
endif
if bit_and(n.valid_dirs, dirs.right_dir) then
print " E: Go east";
endif
if bit_and(n.valid_dirs, dirs.up_dir) then
print " N: Go north";
endif
if bit_and(n.valid_dirs, dirs.down_dir) then
print " S: Go south";
endif
endif
endif
print " Q: Quit game";
enddef
def update(i)
if i = "" then
return false
endif
ipt = to_lower_case(i)
if ipt = "q" then print "Bye."; : end
if status <> game_status.playing then
return false
endif
n = roads.get_node(role.pos.x, role.pos.y)
gl = n.get_entities(goal)
it = iterator(gl)
if ipt = "g" and move_next(it) then
ent = get(it)
it = nil
status = game_status.win
return true
endif
np = n.get_entities(npc)
it = iterator(np)
if ipt = "t" and move_next(it) then
ent = get(it)
it = nil
ent.talk(role)
return true
endif
contains_monster = false
ms = n.get_entities(monster)
it = iterator(ms)
if move_next(it) then
contains_monster = true
if ipt = "a" then
ent = get(it)
it = nil
ent.hurt_by(role)
role.hurt_by(ent)
return true
endif
endif
if not contains_monster then
if ipt = "w" and bit_and(n.valid_dirs, dirs.left_dir) then
role.pos.x = role.pos.x - 1
return true
endif
if ipt = "e" and bit_and(n.valid_dirs, dirs.right_dir) then
role.pos.x = role.pos.x + 1
return true
endif
if ipt = "n" and bit_and(n.valid_dirs, dirs.up_dir) then
role.pos.y = role.pos.y + 1
return true
endif
if ipt = "s" and bit_and(n.valid_dirs, dirs.down_dir) then
role.pos.y = role.pos.y - 1
return true
endif
endif
print "Invalid input.";
return false
enddef
endclass

190
sample/yard/map.bas
View File

@ -1,95 +1,95 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "utils.bas"
class dirs
var none_dir = 0
var left_dir = 1
var right_dir = 2
var up_dir = 4
var down_dir = 8
endclass
class map_node
var pos = new(point)
var valid_dirs = dirs.none_dir
var entities = list()
def tostring()
s = pos.tostring()
return "Map Node " + s
enddef
def set_valid_dirs(...)
dir = 0
while len(...)
dir = bit_or(dir, ...)
wend
valid_dirs = dir
enddef
def add_entity(ent)
if exist(entities, ent) then
log.w("Already added " + ent.name)
return false
endif
push(entities, ent)
return true
enddef
def get_entities(y)
ret = list()
it = iterator(entities)
while move_next(it)
ent = get(it)
if ent is y and ent.alive then
push(ret, ent);
endif
wend
return ret
enddef
endclass
class map
var width = 0
var height = 0
var nodes = dict()
def tostring()
return "Map"
enddef
def hash_pos(x, y)
return x + y * width
enddef
def set_size(w, h)
width = w
height = h
clear(nodes)
enddef
def set_node(x, y, n)
h = hash_pos(x, y)
n.pos.x = x
n.pos.y = y
nodes(h) = n
return n
enddef
def get_node(x, y)
h = hash_pos(x, y)
return nodes(h)
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "utils.bas"
class dirs
var none_dir = 0
var left_dir = 1
var right_dir = 2
var up_dir = 4
var down_dir = 8
endclass
class map_node
var pos = new(point)
var valid_dirs = dirs.none_dir
var entities = list()
def tostring()
s = pos.tostring()
return "Map Node " + s
enddef
def set_valid_dirs(...)
dir = 0
while len(...)
dir = bit_or(dir, ...)
wend
valid_dirs = dir
enddef
def add_entity(ent)
if exist(entities, ent) then
log.w("Already added " + ent.name)
return false
endif
push(entities, ent)
return true
enddef
def get_entities(y)
ret = list()
it = iterator(entities)
while move_next(it)
ent = get(it)
if ent is y and ent.alive then
push(ret, ent);
endif
wend
return ret
enddef
endclass
class map
var width = 0
var height = 0
var nodes = dict()
def tostring()
return "Map"
enddef
def hash_pos(x, y)
return x + y * width
enddef
def set_size(w, h)
width = w
height = h
clear(nodes)
enddef
def set_node(x, y, n)
h = hash_pos(x, y)
n.pos.x = x
n.pos.y = y
nodes(h) = n
return n
enddef
def get_node(x, y)
h = hash_pos(x, y)
return nodes(h)
enddef
endclass

24
sample/yard/monster.bas
View File

@ -1,12 +1,12 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
class monster(entity)
def tostring()
return "Monster [" + name + "]"
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
class monster(entity)
def tostring()
return "Monster [" + name + "]"
enddef
endclass

40
sample/yard/npc.bas
View File

@ -1,20 +1,20 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
class npc(entity)
var talk_handler = nil
def tostring()
return "NPC [" + name + "]"
enddef
def talk(e)
if talk_handler <> nil then
talk_handler(me)
endif
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
class npc(entity)
var talk_handler = nil
def tostring()
return "NPC [" + name + "]"
enddef
def talk(e)
if talk_handler <> nil then
talk_handler(me)
endif
enddef
endclass

30
sample/yard/player.bas
View File

@ -1,15 +1,15 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
import "utils.bas"
class player(entity)
var pos = new(point)
def tostring()
return "Player [" + name + "]"
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "entity.bas"
import "utils.bas"
class player(entity)
var pos = new(point)
def tostring()
return "Player [" + name + "]"
enddef
endclass

62
sample/yard/start.bas
View File

@ -1,31 +1,31 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "level.bas"
import "player.bas"
cls()
print "Welcome to Yet Another RPG Dungeon!";
level.create()
_role = new(player)
_role.init(10, 2, 1)
_role.dead_handler = lambda (_)
(
print "- You are dead";
level.status = game_status.lose
)
level.start(_role)
_turn = 1
while _role.alive
print "[---- Turn ", _turn, ", HP ", _role.hp, ", ATK ", _role.atk, " ----]";
level.format()
input _i$
cls()
if level.update(_i$) then
_turn = _turn + 1
endif
wend
level.format()
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
import "level.bas"
import "player.bas"
cls()
print "Welcome to Yet Another RPG Dungeon!";
level.create()
_role = new(player)
_role.init(10, 2, 1)
_role.dead_handler = lambda (_)
(
print "- You are dead";
level.status = game_status.lose
)
level.start(_role)
_turn = 1
while _role.alive
print "[---- Turn ", _turn, ", HP ", _role.hp, ", ATK ", _role.atk, " ----]";
level.format()
input _i$
cls()
if level.update(_i$) then
_turn = _turn + 1
endif
wend
level.format()

184
sample/yard/utils.bas
View File

@ -1,92 +1,92 @@
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
def cls()
if os() = "WIN" then
sys("cls")
else
sys("clear")
endif
enddef
def to_lower_case(c)
_asc = asc(c)
if _asc >= asc("A") and _asc <= asc("Z") then
_asc = _asc + asc("a") - asc("A")
endif
return chr(_asc)
enddef
def bit_and(a, b)
c = 0
for i = 0 to 31
if (a mod 2) and (b mod 2) then
t = 1
else
t = 0
endif
c = c + t * (2 ^ i)
a = fix(a / 2)
b = fix(b / 2)
next
return c
enddef
def bit_or(a, b)
c = 0
for i = 0 to 31
if (a mod 2) or (b mod 2) then
t = 1
else
t = 0
endif
c = c + t * (2 ^ i)
a = fix(a / 2)
b = fix(b / 2)
next
return c
enddef
def bit_xor(a, b)
c = 0
for i = 0 to 31
if (a mod 2) <> (b mod 2) then
t = 1
else
t = 0
endif
c = c + t * (2 ^ i)
a = fix(a / 2)
b = fix(b / 2)
next
return c
enddef
class point
var x = 0
var y = 0
def tostring()
return "[" + str(x) + ", " + str(y) + "]"
enddef
endclass
class log
def m(msg)
print "Message: " + msg;
enddef
def w(msg)
print "Warning: " + msg;
enddef
def e(msg)
print "Error: " + msg;
enddef
endclass
' Yet Another RPG Dungeon is a text based game.
' It's aimed to be a comprehensive example and or a tutorial of MY-BASIC.
' Copyright (C) 2016 Wang Renxin. All rights reserved.
' For more information about MY-BASIC, see https://github.com/paladin-t/my_basic/
def cls()
if os() = "WIN" then
sys("cls")
else
sys("clear")
endif
enddef
def to_lower_case(c)
_asc = asc(c)
if _asc >= asc("A") and _asc <= asc("Z") then
_asc = _asc + asc("a") - asc("A")
endif
return chr(_asc)
enddef
def bit_and(a, b)
c = 0
for i = 0 to 31
if (a mod 2) and (b mod 2) then
t = 1
else
t = 0
endif
c = c + t * (2 ^ i)
a = fix(a / 2)
b = fix(b / 2)
next
return c
enddef
def bit_or(a, b)
c = 0
for i = 0 to 31
if (a mod 2) or (b mod 2) then
t = 1
else
t = 0
endif
c = c + t * (2 ^ i)
a = fix(a / 2)
b = fix(b / 2)
next
return c
enddef
def bit_xor(a, b)
c = 0
for i = 0 to 31
if (a mod 2) <> (b mod 2) then
t = 1
else
t = 0
endif
c = c + t * (2 ^ i)
a = fix(a / 2)
b = fix(b / 2)
next
return c
enddef
class point
var x = 0
var y = 0
def tostring()
return "[" + str(x) + ", " + str(y) + "]"
enddef
endclass
class log
def m(msg)
print "Message: " + msg;
enddef
def w(msg)
print "Warning: " + msg;
enddef
def e(msg)
print "Error: " + msg;
enddef
endclass