Merge branch 'master' of https://gitea.sustancia.synology.me/JailDoctor/ascii

- Message system
- Tempo changing
- Save to clipboard

.gitignore

@@ -6,3 +6,4 @@ wiki/*
 scr_min.c
 tests.lua
 fake_editor.lua
+*.bin

Makefile

@@ -0,0 +1,4 @@
+executable = ascii
+
+macos:
+	g++ *.cpp ./lua/*.c -lSDL2 -o $(executable)

ascii.cpp

@@ -120,7 +120,7 @@ void reinit() {
             cursor_x = 0;
             cursor_y = 0;
             char_screen = &mem[0];
-            color_screen = &mem[1200];
+            color_screen = &mem[768];
             //SDL_RenderSetLogicalSize(mini_ren, 640, 480);
             mini_bak = SDL_CreateTexture(mini_ren, SDL_PIXELFORMAT_ARGB8888, SDL_TEXTUREACCESS_STREAMING, 256, 192);
             break;

demos/lorenrunner.lua

@@ -0,0 +1,114 @@
+score=0
+lives=5
+level=1
+tresors=0
+player = {x=0,y=0,oldtile=32,falling=false}
+malos = {
+    {x=0,y=0},
+    {x=0,y=0},
+    {x=0,y=0}
+}
+eixida={x=0,y=0}
+
+function init()
+    mode(2)
+    setchar(33,223,223,223,0,253,253,253,0)
+    setchar(34,255,255,255,255,255,255,255,0)
+    setchar(35,195,255,195,195,195,255,195,195)
+    setchar(36,195,243,195,195,195,207,195,195)
+    setchar(37,0,255,0,0,0,0,0,0)
+    setchar(38,0,0,0,126,66,66,126,0)
+
+    filein("level1.bin",0,600)
+
+    tresors=0
+    player.oldtile=32
+    local m=1
+    for i=0,299 do
+        if peek(i) == 248 then
+            poke(i,32)
+            player.x=i%20
+            player.y=flr(i/20)
+        elseif peek(i) == 249 then
+            poke(i,32)
+            poke(300+i, 0x0f)
+            malos[m].x=i%20 
+            malos[m].y=flr(i/20)
+        elseif peek(i) == 36 then
+            poke(i,32)
+            poke(300+i, 0x0f)
+            eixida.x=i%20 
+            eixida.y=flr(i/20)
+        elseif peek(i) == 38 then
+            tresors=tresors+1
+        end
+    end
+
+    ink(COLOR_YELLOW) print("000000",7,14)
+
+    -- anem a contar els tresors que hi ha, per a saber quan es deu activar l'escala de eixida
+end
+
+function update()
+    if not player.falling then
+        if btnp(KEY_LEFT) and player.x>0 and peek(player.x-1+player.y*20)~=33 then
+            poke(player.x+player.y*20, player.oldtile)
+            player.x=player.x-1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        elseif btnp(KEY_RIGHT) and player.x<19 and peek(player.x+1+player.y*20)~=33 then
+            poke(player.x+player.y*20, player.oldtile)
+            player.x=player.x+1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        elseif btnp(KEY_UP) and player.oldtile==35 then
+            if player.y>0 then 
+                poke(player.x+player.y*20, player.oldtile)
+                player.y=player.y-1
+                player.oldtile = peek(player.x+player.y*20)
+            else
+                -- endgame. Ja vorem, ara que faça el init de nou i au
+                init()
+            end
+        elseif btnp(KEY_DOWN) and (peek(player.x+(player.y+1)*20) == 35 or player.oldtile==37) then
+            poke(player.x+player.y*20, player.oldtile)
+            player.y=player.y+1
+            player.oldtile = peek(player.x+player.y*20)
+        end
+    end
+
+    if cnt()%5 == 0 then
+        if player.oldtile~=37 and (peek(player.x+(player.y+1)*20)==32 or peek(player.x+(player.y+1)*20)==38 or peek(player.x+(player.y+1)*20)==37) then
+            player.falling = true
+            poke(player.x+player.y*20, player.oldtile)
+            player.y=player.y+1
+            player.oldtile = peek(player.x+player.y*20)
+            check_tresors()
+        else
+            player.falling=false
+        end
+    end
+    poke(player.x+player.y*20, 248)
+
+end
+
+function check_tresors()
+    if player.oldtile==38 then
+        player.oldtile=32
+        update_score(100)
+        poke(300+player.x+player.y*20, 0x0f)
+        tresors=tresors-1
+        if tresors==0 then
+            for i=eixida.y,0,-1 do
+                poke(eixida.x+i*20,35)
+            end
+        end
+    end
+end
+
+function update_score(points)
+    score=score+points
+    local str= ""..score
+    while #str < 6 do str = "0"..str end
+    ink(COLOR_YELLOW) print(str,7,14)
+end

demos/old_sokoban.lua

@@ -0,0 +1,161 @@
+FLOOR = 0
+GOAL = 1
+BOX = 2
+PLAYER = 4
+WALL = 7
+
+function init()
+    mode(2)
+    level=1
+    player={}
+    menu.init()
+end
+
+-- ====================================================================================================
+-- MENU (game state)
+-- ====================================================================================================
+blink=0
+
+menu={
+    init = function()
+        update=menu.update
+    end,
+
+    update = function()
+        color(15,0) cls()
+        ink(1)  print("\x20\x20\x20\x87\x81\x87\x85\x85\x85\x87\x85\x87\x85\x87\x85\x87\x84\x20\x20\x20",0,2)
+        ink(9)  print("\x20\x20\x20\x83\x85\x85\x85\x8D\x81\x85\x85\x87\x84\x8D\x85\x85\x85\x20\x20\x20",0,3)
+        ink(11) print("\x20\x20\x20\x83\x81\x83\x81\x81\x81\x83\x81\x83\x81\x81\x81\x81\x81\x20\x20\x20",0,4)
+        ink(15*flr((blink%60)/30)) print("PRESS SPACE TO PLAY",1,9)
+        blink=blink+1
+
+        if btnp(KEY_SPACE) then
+            level=1
+            game.init()
+        end
+    end
+}
+
+-- ====================================================================================================
+-- GAME (game state)
+-- ====================================================================================================
+game={
+    init = function()
+        update=game.update
+        level.load_from_string("####|# .#|#  ###|#*@  #|#  $ #|#  ###|####")
+    end,
+    
+    update = function()
+        border(0)
+        color(1,0)
+        cls()
+        level.draw()
+    
+        if btnp(KEY_UP) then level.try_move(0,-1)
+        elseif btnp(KEY_DOWN) then level.try_move(0,1)
+        elseif btnp(KEY_LEFT) then level.try_move(-1,0)
+        elseif btnp(KEY_RIGHT) then level.try_move(1,0)
+        end
+    end
+}
+
+-- ====================================================================================================
+-- LOADING (game state)
+-- ====================================================================================================
+loading = {
+    init = function()
+        border(15)
+        update=loading.update
+        wait=120
+    end
+    
+    function inbetween_update()
+        color(15,0)
+        cls()
+        print("LEVEL "..level,6,6)
+        print("GOOD JOB!",4,8)
+        wait=wait-1
+        if wait==0 then
+            level=level+1
+            game_init()
+        end
+    end
+}
+
+function level_load_from_string(str)
+    map={}
+    local pos=0
+    local y,x=1,1
+    local maxx=0
+    map[y] = {}
+    while pos<#str do
+        local chr = ascii(str,pos)
+        if chr == 35 then map[y][x] = WALL end
+        if chr == 64 then player.x,player.y=x,y map[y][x] = FLOOR end
+        if chr == 43 then player.x,player.y=x,y map[y][x] = GOAL end
+        if chr == 36 then map[y][x] = BOX end
+        if chr == 42 then map[y][x] = GOAL+BOX end
+        if chr == 46 then map[y][x] = GOAL end
+        if chr == 32 then map[y][x] = FLOOR end
+        if chr == 124 then
+            y=y+1
+            map[y] = {}
+            if maxx < x then maxx=x end
+            x=0
+        end
+        pos=pos+1
+        x=x+1
+    end
+    ox = flr((20-maxx)/2)
+    oy = flr((15-y)/2)
+end
+
+function level_draw()
+    for y=1,#map do
+        for x=1,#map[y] do
+            if map[y][x] == WALL then color(4,15) print("\127",ox+x-1,oy+y-1)
+            elseif map[y][x] == BOX then color(0,6) print("\016",ox+x-1,oy+y-1)
+            elseif map[y][x] == BOX+GOAL then color(0,4) print("\016",ox+x-1,oy+y-1)
+            elseif map[y][x] == GOAL then color(4,0) print("\144",ox+x-1,oy+y-1)
+            end
+        end
+    end
+    color(15,0) print("\248",ox+player.x-1,oy+player.y-1)
+end
+
+function try_move(x,y)
+    if is_empty(x,y) then
+        move_player(x,y)
+    elseif is_box(x,y) and is_empty(x*2,y*2) then
+        move_box(x,y)
+    end
+end
+
+function is_empty(x,y)
+    return map[player.y+y][player.x+x] < 2
+end
+
+function is_box(x,y)
+    return map[player.y+y][player.x+x] < 4
+end
+
+function move_player(x,y)
+    player.x=player.x+x
+    player.y=player.y+y 
+end
+
+function move_box(x,y)
+    map[player.y+y*2][player.x+x*2] = map[player.y+y*2][player.x+x*2] + BOX
+    map[player.y+y][player.x+x] = map[player.y+y][player.x+x] - BOX
+    move_player(x,y)
+    check_finished()
+end
+
+function check_finished()
+    for y=1,#map do
+        for x=1,#map[y] do
+            if map[y][x] == GOAL then return end
+        end
+    end
+    inbetween_init()
+end

game.lua

@@ -1,9 +0,0 @@
-function init()
-    setmode(0)
-    cls()
-    play("o4v5l1crcl4dcferl1crcl4dcgfr")
-end
-
-function update()
-    
-end

game.lua

@@ -0,0 +1 @@
+/Users/sergio/Gitea/miniascii_jaildoc/miniascii/demos/ticker.lua

readme.md

@@ -0,0 +1 @@
+miniASCi!

scr.bin

@@ -0,0 +1 @@
+                                                                                                                                                                                                                                                                                                                                                                                Ö<><C396><EFBFBD><EFBFBD>ÔÖ<C394><C396><EFBFBD><EFBFBD>ÔÖ<C394><C396><EFBFBD><EFBFBD>ÔÖ<C394>ÔÖ<C394>Ô                <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ô<EFBFBD><C394><EFBFBD><EFBFBD><EFBFBD>Ô<EFBFBD><C394><EFBFBD><EFBFBD><EFBFBD><EFBFBD>                <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ô<EFBFBD><C394>Ô<EFBFBD><C394><EFBFBD>   <20><>Ô<EFBFBD><C394><EFBFBD>                <20><>Ô<EFBFBD><C394><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   <20><><EFBFBD><EFBFBD><EFBFBD>Ö                <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ö<EFBFBD><C396><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ô<EFBFBD><C394>Ô<EFBFBD><C394><EFBFBD><EFBFBD><EFBFBD><EFBFBD>                <20><>Ô<EFBFBD><C394>Ô<EFBFBD><C394><EFBFBD><EFBFBD><EFBFBD>Ô<EFBFBD><C394><EFBFBD><EFBFBD><EFBFBD>Ô<EFBFBD><C394>Ô<EFBFBD><C394>Ô                                                        G A M E     S Y S T E M                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ‡‡‡

‘‡x‹‹‰xxxx‡x‹‹‰xxxxxx„xxx‡x„				ð

tools/music.lua

@@ -5,12 +5,17 @@ function init()
         "\143\143\143\154\154", "     ", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^" }
     notes = {"C ", "C#", "D ", "D#", "E ", "F ", "F#", "G ", "G#", "A ", "A#", "B "}
     pnotes = {"c", "c#", "d", "d#", "e", "f", "f#", "g", "g#", "a", "a#", "b"}
+    vcolor = { 1, 9, 5, 4, 6, 12, 14, 15}
 
     piano_pos=18
     mousewait=0
     compas = 0
     compasos = {}
+    volumens = {}
+    volum = 4
+    tempo = 4
     for i=0,1279 do compasos[i] = 108 end
+    for i=0,1279 do volumens[i] = 4 end
     compasos[0] = 49
     compasos[1] = 49
     compasos[2] = 49
@@ -20,6 +25,8 @@ function init()
     compasos[10] = 50
 
     old_mouse_x,old_mouse_y = 0,0
+    message_count = 255
+    message_text = "                  HOLA"
 end
 
 function update()
@@ -72,7 +79,7 @@ function update()
                 color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
                 print("\003",7+i,10+11-(n-piano_pos))
             end
-            color(COLOR_BLACK,COLOR_LIGHT_RED)
+            color(COLOR_BLACK,vcolor[volumens[(compas*32)+i]])
             if i==31 or compasos[(compas*32)+i+1]~=n then
                 print("\003",8+i,10+11-(n-piano_pos))
             else
@@ -83,10 +90,11 @@ function update()
 
     if mousex()>=8 and  mousey()>=10 and mousey()<=21 then
         if mousebutton(1) then
+            volumens[(compas*32)+mousex()-8] = volum
             compasos[(compas*32)+mousex()-8] = piano_pos+11-(mousey()-10)
             if old_mouse_x ~= mousex() or old_mouse_y ~= mousey() then
                 local note = piano_pos+11-(mousey()-10)
-                play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+                play("l4v"..volum.."o"..tostr(note/12)..pnotes[(note%12)+1])
             end    
             old_mouse_x,old_mouse_y = mousex(),mousey()
         else
@@ -105,16 +113,64 @@ function update()
         end
     end
 
-    color(15,0)print("\143",0,0)
-    color(14,0)print("\143",1,0)
-    color(12,0)print("\143",2,0)
-    color(6,0)print("\143",3,0)
-    color(4,0)print("\143",4,0)
-    color(5,4)print("\143",5,0)
-    color(9,0)print("\143",6,0)
-    color(1,0)print("\143",7,0)
-    color(0,0)print("\143",8,0)
+    if btn(KEY_LCTRL) and btnp(KEY_S) then
+        local song = prepare_song(true)
+        toclipboard(song)
+        show_message("SAVED TO CLIPBOARD")
+    end
 
+--    if btn(KEY_LSHIFT) and btnp(KEY_L) then
+--        local song = prepare_song(true)
+--        toclipboard(song)
+--        show_message("SAVED TO CLIPBOARD")
+--    end
+
+    color(15,0)print("VOLUM:",0,0)
+    color(1,0)print("\143",0,1)
+    color(9,0)print("\143",1,1)
+    color(5,4)print("\143",2,1)
+    color(4,0)print("\143",3,1)
+    color(6,0)print("\143",4,1)
+    color(12,0)print("\143",5,1)
+    color(14,0)print("\143",6,1)
+    color(15,0)print("\143",7,1)
+    color(15,0)print("\244",volum-1,2)
+
+    if mousex()<8 and mousey()==1 and mousebutton(1) then
+        volum = mousex()+1
+    end
+
+    if not mousedown and mousex()==20 and mousey()==1 and mousebutton(1) and tempo > 0 then
+        tempo = tempo - 1
+        mousedown = true
+    end
+
+    if not mousedown and mousex()==24 and mousey()==1 and mousebutton(1) and tempo < 9 then
+        tempo = tempo + 1
+        mousedown = true
+    end
+
+    if mousedown and not mousebutton(1) then
+        mousedown = false
+    end
+
+    color(15,0)print("TEMPO",20,0)
+    print("\247 0 \246",20,1)
+    print(tostr(tempo),22,1)
+
+    if message_count > 0 then
+        message_color = 15
+        if message_count < 18 then
+            message_color = message_count>>1
+        end
+        color(message_color,0)print(message_text,0,26)
+        message_count = message_count - 1
+    end
+end
+
+function show_message(text)
+    message_count = 255
+    message_text = text
 end
 
 function search_song_end()
@@ -124,6 +180,12 @@ function search_song_end()
 end
 
 function play_song(entire_song)
+    local song = prepare_song(entire_song)
+    log(song)
+    play(song)
+end
+
+function prepare_song(entire_song)
     entire_song = entire_song or false
     local note_size = {1,2,3,4,6,8,12,16,24,32}
     local note_names = {"c","c#","d", "d#","e","f","f#","g","g#","a","a#","b"}
@@ -131,10 +193,15 @@ function play_song(entire_song)
 
     local current_note = 255
     local current_octave = 4
+    local current_volume = 4
 
     local p=compas*32
     local ends=32+compas*32
 
+    if tempo ~= 4 then
+        song = "t"..tostr(tempo)
+    end
+
     if entire_song then
         p=0
         ends=search_song_end()
@@ -142,8 +209,12 @@ function play_song(entire_song)
 
     while p<ends do
         current_note = compasos[p]
+        if volumens[p] ~= current_volume then
+            current_volume = volumens[p]
+            song=song.."v"..tostr(current_volume)
+        end
         local d=0
-        while d<32 and current_note == compasos[p] do d=d+1 p=p+1 end
+        while d<32 and current_note == compasos[p] and current_volume == volumens[p] do d=d+1 p=p+1 end
         local o = flr(current_note/12)
         if o<9 and current_octave~=o then
             current_octave=o
@@ -167,6 +238,6 @@ function play_song(entire_song)
             end
         end
     end
-    log(song)
-    play(song)
+
+    return song
 end