summaryrefslogtreecommitdiff
path: root/lib/scpt/test.lua
diff options
context:
space:
mode:
Diffstat (limited to 'lib/scpt/test.lua')
-rw-r--r--lib/scpt/test.lua364
1 files changed, 0 insertions, 364 deletions
diff --git a/lib/scpt/test.lua b/lib/scpt/test.lua
deleted file mode 100644
index 81dd5c03..00000000
--- a/lib/scpt/test.lua
+++ /dev/null
@@ -1,364 +0,0 @@
---
--- This file takes care of providing the Shiny-Test class
--- with .. erm .. powerful spells
---
-
------------------------------- MAGICTYPE -- M KEY ---------------------------------
-
-zog_magic = add_magic
-{
- ["fail"] = function(chance)
- msg_print("So bad, we had "..chance.." chances to succeed.")
- msg_print("Hooo bad luck the spell backfires !.")
- take_hit("stupidity", 5)
- end,
- ["stat"] = A_CON,
- -- Must return a number between 0 and 50 representing a level
- ["get_level"] = function()
- return get_skill_scale(SKILL_MAGIC, 25) + get_skill_scale(SKILL_SPIRITUALITY, 25)
- end,
- ["spell_list"] =
- {
- {
- ["name"] = "Zog1",
- ["desc"] = "dessssc zog1",
- ["mana"] = 1,
- ["level"] = 1,
- ["fail"] = 10,
- ["spell"] = function()
- local ret, dir
- -- Get a direction
- ret, dir = get_aim_dir();
- if (ret == FALSE) then return end
- fire_ball(GF_MANA, dir, 2000, 10)
- end,
- ["info"] = function()
- return " dam 2000"
- end,
- },
- {
- ["name"] = "Zog2",
- ["desc"] = "dessssc zog2",
- ["mana"] = 3,
- ["level"] = 3,
- ["fail"] = 30,
- ["spell"] = function()
- local ret, item, obj, o_name
-
- -- Ask for an item
- ret, item = get_item("What to uber-ize?",
- "You have nothing you can uber-ize",
- bor(USE_INVEN, USE_EQUIP),
- function (obj)
- if (obj.tval == TV_HAFTED) or (obj.tval == TV_SWORD) or (obj.tval == TV_POLEARM) or (obj.tval == TV_AXE) then
- return TRUE
- end
- return FALSE
- end
- )
-
- if ret == TRUE then
- -- get the item
- obj = get_object(item)
- -- modify it
- obj.dd = 255
- obj.ds = 255
- obj.to_d = 1000
- obj.to_h = 1000
-
- -- get the name
- o_name = object_desc(obj, FALSE, 0);
- msg_print("Your "..o_name.." is hit by a pure wave of uber-ification!")
- end
- end,
- ["info"] = function()
- return " cooool"
- end,
- },
- {
- ["name"] = "Zog3",
- ["desc"] = "dessssc zog3",
- ["mana"] = 4,
- ["level"] = 5,
- ["fail"] = 50,
- ["spell"] = function()
- local list = {[1] = "Novice Warrior", [2] = "Novice Mage"}
- local x, y, num, max
-
- num = rand_range(1, 2)
- max = damroll(1, 2)
- while (max > 0) do
- y, x = find_position(player.py, player.px)
- place_monster_one(y, x, test_monster_name(list[num]), 0, FALSE, MSTATUS_FRIEND)
- max = max - 1
- end
- end,
- ["info"] = function()
- return " summons 1d2 monsters"
- end,
- },
- },
-}
-
--- Register a new magic type
-MKEY_SHINY_TEST = 1000
-add_mkey
-{
- ["mkey"] = MKEY_SHINY_TEST,
- ["fct"] = function()
- execute_magic(zog_magic)
-
- -- use up some energy
- energy_use = energy_use + 100;
- end
-}
-
-
------------------------------- EXTRA POWERS ---------------------------------
-
-
--- Register a new power (the 'U' menu)
-POWER_TEST = add_power
-{
- ["name"] = "Test power",
- ["desc"] = "You are a shinny test",
- ["desc_get"] = "You become a shinny test",
- ["desc_lose"] = "You are no more a shinny test",
- ["level"] = 1,
- ["cost"] = 5,
- ["stat"] = A_CON,
- ["fail"] = 6,
- ["power"] = function()
- msg_print("Zogzog !")
- end,
-}
-
-
----- tests
-
-function test_write()
- local conn = zsock:new_connection()
- zsock:setup(conn, "192.168.0.200", 2262, ZSOCK_TYPE_TCP, FALSE)
- zsock:open(conn)
-
- local res, len = zsock:write(conn, "footest", FALSE)
- msg_print("res "..res.." :: len "..len)
-
- zsock:close(conn)
- zsock:unsetup(conn)
- zsock:free_connection(conn);
-end
-
-function test_read()
- local conn = zsock:new_connection()
- zsock:setup(conn, "192.168.0.200", 2262, ZSOCK_TYPE_TCP, FALSE)
- zsock:open(conn)
-
-
- zsock:wait(conn, 50)
- local res, str, len = zsock:read(conn, 9, TRUE)
- msg_print("res "..res.." :: len "..len.." '"..str.."'")
-
- zsock:close(conn)
- zsock:unsetup(conn)
- zsock:free_connection(conn);
-end
-
-
--- A level generator being tested
-
-CORRIDOR = 1
-ROOM = 2
-
-possible_walls = {}
-
-function level_generator_dungeon2_room(feat, y, x, h, w)
- if feat == CORRIDOR then
- -- Add the possible walls
- for i = x, x + w - 1 do
- tinsert(possible_walls, {y, i})
- tinsert(possible_walls, {y + h - 1, i})
- end
- for i = x, x + w - 1 do
- tinsert(possible_walls, {x, i})
- tinsert(possible_walls, {x, i + h - 1})
- end
-
- for i = x + 1, x + w - 2 do
- for j = y + 1, y + h - 2 do
- place_floor(j, i)
- end
- end
- else
- -- Add the possible walls
- for i = x, x + w - 1 do
- tinsert(possible_walls, {y, i})
- tinsert(possible_walls, {y + h - 1, i})
- end
- for i = x, x + w - 1 do
- tinsert(possible_walls, {x, i})
- tinsert(possible_walls, {x, i + h - 1})
- end
-
- for i = x, x + w - 1 do
- for j = y, y + h - 1 do
- cave(j, i).feat = 56
- end
- end
- for i = x + 1, x + w - 2 do
- for j = y + 1, y + h - 2 do
- place_floor(j, i)
- end
- end
- end
-end
-
-function select_feature(dir)
- if magik(30) == TRUE then
- return ROOM, rand_range(5, 12), rand_range(7, 17)
-
- -- Corridor selection
- elseif dir == "up" or dir == "down" then
- return CORRIDOR, rand_range(5, 17), 3
- else
- return CORRIDOR, 3, rand_range(3, 15)
- end
-end
-
-function put_feature(feat, y, x, h, w)
- level_generator_dungeon2_room(feat, y, x, h, w)
-end
-
-function can_feature(y, x, h, w)
- for i = x, x + w - 1 do
- for j = y, y + h - 1 do
- if j <= 0 or i <= 0 or i >= cur_wid - 1 or j >= cur_hgt - 1 then return nil end
-
- if cave_is(cave(j, i), FF1_WALL) == FALSE then return nil end
- end
- end
- return not nil
-end
-
-function is_near_wall(y, x)
- if y <= 0 or x <= 0 or x >= cur_wid - 1 or y >= cur_hgt - 1 then return nil end
-
- if cave_is(cave(y, x), FF1_WALL) == FALSE then return nil end
- if cave_is(cave(y - 1, x), FF1_FLOOR) == TRUE then return "down" end
- if cave_is(cave(y + 1, x), FF1_FLOOR) == TRUE then return "up" end
- if cave_is(cave(y, x - 1), FF1_FLOOR) == TRUE then return "right" end
- if cave_is(cave(y, x + 1), FF1_FLOOR) == TRUE then return "left" end
- return nil
-end
-
-function find_spot()
---[[ local y, x = 1, 1
-
- while not is_near_wall(y, x) do
- y, x = rand_range(1, cur_hgt - 2), rand_range(1, cur_wid - 2)
- end]]
- local i = rand_range(1, getn(possible_walls))
- local y, x = possible_walls[i][1], possible_walls[i][2]
-
- while not is_near_wall(y, x) do
- i = rand_range(1, getn(possible_walls))
- y, x = possible_walls[i][1], possible_walls[i][2]
- end
-
- tremove(possible_walls, i)
- return is_near_wall(y, x), y, x
-end
-
-function adjust_dir(dir, y, x, h, w)
- if dir == "up" then
- y = y - (h - 1)
- x = x - (w / 2)
- elseif dir == "down" then
- x = x - (w / 2)
- elseif dir == "left" then
- y = y - (h / 2)
- x = x - (w - 1)
- elseif dir == "up" then
- y = y - (h / 2)
- end
- return y, x
-end
-
-level_generator
-{
- ["name"] = "dungeon2",
- ["stairs"] = FALSE,
- ["monsters"] = FALSE,
- ["objects"] = FALSE,
- ["miscs"] = FALSE,
- ["gen"] = function()
- for i = 1, cur_wid - 1 do
- for j = 1, cur_hgt - 1 do
- place_filler(j, i)
- end
- end
-
-
- -- the first room
- level_generator_dungeon2_room(ROOM, cur_hgt / 2, cur_wid / 2, rand_range(3, 10), rand_range(5, 15))
-
-
- -- Place 10 features
- for nb = 1, 0 do
- -- Find a spot near an empty space
- local dir, y, x = find_spot()
-
- local feat, h, w = select_feature(dir)
-
- local sy, sx = adjust_dir(dir, y, x, h, w)
-
- if can_feature(sy, sx, h, w) then
- put_feature(feat, sy, sx, h, w)
- cave(y, x).feat = 32
- end
- end
-
- player.py = cur_hgt / 2
- player.px = cur_wid / 2
- return TRUE
- end,
-}
-
-
--- exmaple of display_list
-function input_list_example()
- local list = { "a", "b", "c", "d", "e", "f", "h", "g" }
- local sel = 1
- local begin = 1
- local res = nil
-
- screen_save()
-
- while not nil do
- display_list(1, 0, 5, 9, "select", list, begin, sel, TERM_L_BLUE)
-
- local key = inkey()
-
- if key == ESCAPE then break
- elseif key == strbyte("8") then
- sel = sel - 1
- if sel < 1 then sel = 1 end
- if sel < begin then
- begin = begin - 1
- end
- elseif key == strbyte("2") then
- sel = sel + 1
- if sel > getn(list) then sel = getn(list) end
- if sel >= begin + 4 then
- begin = begin + 1
- end
- elseif key == strbyte("\r") then
- res = list[sel]
- break
- end
- end
-
- screen_load()
-
- if res then msg_print("Selected: " .. res) end
-end
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-19 20:05:19 +0000