Очередной порт Kings Bounty (1990) под ВсеПлатформы

Собрал кучу графических ресурсов по теме и с этого сайта тоже!

Пишу под кроссплатформенным движком SWE_lua на скриптовом языке lua
сам проект AndreyBarmaley/SWE_lua

там куча примеров и бинарники, и документация.

Если нужно собрать под Linux сам проект SWE_lua это часть другого проекта и собирается тамже
AndreyBarmaley/sdl-window-engine

Преимуществ куча, там и автоматическое масштабирование и SDL1.2 или SDL2 по желанию, и вообще все просто делается. (наверно это реклама!

по теме Kings Bounty:
уже готов стартовый экран выбора персонажа

реально все интерфейсы делаются очень просто:
main.lua

-- require 'SWE'

-- scale to 640x480
local win = SWE.DisplayInit({ title = "OpenKB", window = {640, 480}, render = {320,240} })

if not win then
print("SWE init error")
os.exit(-1)
end

SWE.RegisterResourceDirectory(SWE.SystemConcatePath("data", "free"))

local function ShowLogo(win)
local logo = SWE.Texture.Image(SWE.SystemConcatePath("data", "kblogo.png"))

if logo ~= nil then
win.RenderWindow = function()
win:RenderClear(SWE.Color.Gold)
win:RenderTexture(logo, (win.width-logo.width)/2, (win.height-logo.height)/2)
return true
end

win.SystemTickEvent = function(ms)
if 1000 < ms then
win:SetVisible(false)
end
end

win:SetVisible(true)
SWE.MainLoop(win)

-- reset global func
win.RenderWindow = nil
win.SystemTickEvent = nil
end
end

math.randomseed(os.time())

-- logo
ShowLogo(win)

-- select person screen
require("charselect")
local sel = CharacterSelectOrLoadMap(win)

if not sel then
print("character select: break")
os.exit(1)
end

-- SWE.Dump(sel)

charselect.lua

-- chararter select window

local difficulties = {
{ type = "Easy", days = 900, score = 0.5 },
{ type = "Normal", days = 600, score = 1 },
{ type = "Hard", days = 400, score = 2 },
{ type = "Impossible?", days = 200, score = 4 }
}

local persons = {
{ key = SWE.Key.a, person = "Knight" },
{ key = SWE.Key.b, person = "Paladin" },
{ key = SWE.Key.c, person = "Sorceress" },
{ key = SWE.Key.d, person = "Barbarian" }
}

function CharacterSelectOrLoadMap(win)

local dlg = SWE.Window(30,50,260,140,win)
local frs = SWE.FontRender.System()

local file = "select-0.png"
local charsel = SWE.Texture.Image(file)

if not charsel then
print("not found:",file)
return nil
end

dlg:SetModality(true)
dlg.char = 0
dlg.tick = 0
dlg.name = ""
dlg.mode = 1
dlg.difficulty = 2

win.RenderWindow = function()
win:RenderClear(SWE.Color.Gold)
win:RenderRect(SWE.Color.MidnightBlue, 10, 10, win.width-20, win.height-20, true)
win:RenderTexture(charsel,16,40)
win:RenderText(frs, "Select Char A-D or L-Load saved game", SWE.Color.White, win.width/2, 16, SWE.Align.Center)
return true
end

win.KeyPressEvent = function(key)
if SWE.Key.ESCAPE == key then
win:SetVisible(false)
return true
end
for k,v in pairs(persons) do
if v.key == key then
dlg.person = v.person
dlg.mode = 1
dlg:SetVisible(true)
return true
end
end
if SWE.Key.l == key then
print("load not supported, sorry")
--win:SetResultCode(key)
--win:SetVisible(false)
return true
end

return false
end

dlg.RenderWindow = function()
dlg:RenderClear(SWE.Color.Gold)
dlg:RenderRect(SWE.Color.MidnightBlue, 8, 8, dlg.width-16, dlg.height-16, true)

local pos = dlg:RenderText(frs, dlg.person .. " Name:", SWE.Color.White, 32, 16, SWE.Align.Left)
if dlg.mode == 1 then
if 0 < string.len(dlg.name) then
pos = dlg:RenderText(frs, dlg.name, SWE.Color.Lime, pos.posx + pos.width + 10, 16, SWE.Align.Left)
dlg:RenderText(frs, string.char(string.byte("\\|/-",(dlg.char % 4) + 1)), SWE.Color.White, pos.posx + pos.width, 16, SWE.Align.Left)
else
dlg:RenderText(frs, string.char(string.byte("\\|/-",(dlg.char % 4) + 1)), SWE.Color.White, pos.posx + pos.width + 10, 16, SWE.Align.Left)
end
else
dlg:RenderText(frs, dlg.name, SWE.Color.Lime, pos.posx + pos.width + 10, 16, SWE.Align.Left)
end
dlg:RenderText(frs, "Diffuculty Days Score", SWE.Color.Yellow, 32, 45, SWE.Align.Left)
local posy = 65
for k,v in pairs(difficulties) do
local tcol = SWE.Color.White
if dlg.mode == 2 and dlg.difficulty == k then
tcol = SWE.Color.Lime
end
dlg:RenderText(frs, v.type, tcol, 32, posy, SWE.Align.Left)
dlg:RenderText(frs, tostring(v.days), tcol, 140, posy, SWE.Align.Left)
dlg:RenderText(frs, "x" .. tostring(v.score), tcol, 230, posy, SWE.Align.Right)
posy = posy + 15
end
return true
end

dlg.KeyPressEvent = function(key)
if SWE.Key.ESCAPE == key then
dlg:SetVisible(false)
return true
end

if dlg.mode == 1 then
if SWE.Key.BACKSPACE == key then
if 0 < string.len(dlg.name) then
dlg.name = string.sub(dlg.name,1,string.len(dlg.name)-1)
SWE.DisplayDirty()
end
return true
elseif SWE.Key.RETURN == key then
if 0 < string.len(dlg.name) then
dlg.mode = 2
end
return true
elseif 13 > string.len(dlg.name) and key < 255 then
dlg.name = dlg.name .. SWE.Key.ToChar(key)
SWE.DisplayDirty()
return true
end
end

if dlg.mode == 2 then
if SWE.Key.UP == key then
if dlg.difficulty == 1 then
dlg.difficulty = 4
else
dlg.difficulty = dlg.difficulty - 1
end
SWE.DisplayDirty()
return true
elseif SWE.Key.DOWN == key then
if dlg.difficulty == 4 then
dlg.difficulty = 1
else
dlg.difficulty = dlg.difficulty + 1
end
SWE.DisplayDirty()
return true
elseif SWE.Key.RETURN == key then
win:SetVisible(false)
return true
end
end

return false
end

dlg.SystemTickEvent = function(ms)
if dlg:IsVisible() and (dlg.tick == 0 or (ms - dlg.tick) > 100) then
dlg.char = dlg.char + 1
dlg.tick = ms
SWE.DisplayDirty()
end
end

win:SetVisible(true)
dlg:SetVisible(false)

SWE.MainLoop(win)

-- reset global win
win.RenderWindow = nil
win.KeyPressEvent = nil

if 0 < string.len(dlg.name) then
local res = difficulties[dlg.difficulty]
res.person = dlg.person
res.name = dlg.name
return res
end

return nil
end

сейчас ищу план карты континентов, у кого есть что?!
Как только отрисую карту и доделаю движение коней то опубликую там же.

 

Какие ресурсы есть у меня сейчас:
openkb - ну это понятно, там все печально пока
ageofmagic - умерший проект для нокия Age of Magic - 4PDA, есть арт и исходники от Beholder, могу его просто переписать
есть KB2 Neschur/KB2, арт и исходники под андроид (java)
есть еще арт от этого проекта King's Bounty mobile
забрал ресурсы и из этого проекта King's Bounty III: расширенный римейк оригинальной игры в браузере не ну а что публично все)

если есть у кого что еще кидайте ссылки, пока нужен план карт континентов оригинальных или самодельных.

собственно сама идея - показать возможности скриптового lua движка.
прошлый релиз был косячный, выложил 20210223 (проверил все, и андроид и версию wince на КПК).

 

вообщем остановился на последнем варианте, там и ресурсы и карты и код более менее понятный.
как что соображу покажу!

 

Когда-то писал выдиралку графики для оригинала. Если нужно, могу поискать.