DGStatistics

-- DGStatistics --
-- Program utworzono w ramach wspolpracy serwera Darkness Grounds i frakcji Microcraft --
local function s(...) return sleep(...) end
local function w(...) return write(...) end
local function p(...) return print(...) end
local function tw(...) return term.write(...) end
local function scp(...) return term.setCursorPos(...) end
local function sbc(...) return term.setBackgroundColor(...) end
local function stc(...) return term.setTextColor(...) end
local function tc(...) return term.clear(...) end
local function tcl(...) return term.clearLine(...) end
local function r(...) return shell.run(...) end
local function sp(...) return textutils.slowPrint(...) end
local function sw(...) return textutils.slowWrite(...) end
local function fse(...) return fs.exists(...) end
local function pul(...) return paintutils.loadImage(...) end
local function pud(...) return paintutils.drawImage(...) end
local function pfb(...) return paintutils.drawFilledBox(...) end
local function su(...) return os.shutdown(...) end
local function re(...) return os.reboot(...) end
local function pdp(...) return paintutils.drawPixel(...) end
local w, h = term.getSize()

function dgi()
pfb(1, 2, 20, 6, colors.white)
scp(1,2)
stc(colors.black)
p("DGStatistics Beta")
p("Wersja: 0.9B")
p("05.11.2019")
p("Aktualizuj aplikacje")
p("MicrocraftTM 2019")
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<21 and y == 5 then r("pastebin run bRYaxUvz") end
end

function katana1()
sbc(colors.black)
tc()
sbc(colors.black)
scp(w,1)
pdp(w, 1, colors.green)
scp(w,1)
stc(colors.white)
p("<")
scp(1,1)
sbc(colors.black)
p("Katana")
p("Perfekcyjna katana: Obrazenia: 7 Predkosc ataku: 1.8 Wytrzymalosc: 450")
p("Dobra katana: Obrazenia: 6.5 Predkosc ataku: 1.75 Wytrzymalosc: 400")
p("Slaba katana: Obrazenia: 6 Predkosc ataku: 1.7 Wytrzymalosc: 300")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then sys1() end
end

function katana2()
sbc(colors.black)
tc()
sbc(colors.black)
scp(w,1)
pdp(w, 1, colors.green)
scp(w,1)
stc(colors.white)
p("<")
scp(1,1)
sbc(colors.black)
p("Katana z palnikiem")
p("Perfekcyjna katana z palnikiem: Obrazenia: 7 Predkosc ataku: 1.8 Wytrzymalosc: 440")
p("Dobra katana z palnikiem: Obrazenia: 6.5 Predkosc ataku: 1.75 Wytrzymalosc: 371")
p("Slaba katana z palnikiem: Obrazenia: 6 Predkosc ataku: 1.7 Wytrzymalosc: 280")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then sys1() end
end

function basebat1()
sbc(colors.black)
tc()
sbc(colors.black)
scp(w,1)
pdp(w, 1, colors.green)
scp(w,1)
stc(colors.white)
p("<")
scp(1,1)
sbc(colors.black)
p("Kij baseballowy")
p("Perfekcyjny kij baseballowy: Obrazenia: 5 Predkosc ataku: 1.5 Wytrzymalosc: 100")
p("Dobry kij baseballowy: Obrazenia: 4.5 Predkosc ataku: 1.4 Wytrzymalosc: 75")
p("Slaby kij baseballowy: Obrazenia: 4.5 Predkosc ataku: 1.4 Wytrzymalosc: 60")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then sys1() end
end

function basebat2()
sbc(colors.black)
tc()
sbc(colors.black)
scp(w,1)
pdp(w, 1, colors.green)
scp(w,1)
stc(colors.white)
p("<")
scp(1,1)
sbc(colors.black)
p("Kij baseballowy z gwozdziami")
p("Perfekcyjny kij baseballowy z gwozdziami: Obrazenia: 6.5 Predkosc ataku: 1.5 Wytrzymalosc: 110")
p("Dobry kij baseballowy z gwozdziami: Obrazenia: 6 Predkosc ataku: 1.4 Wytrzymalosc: 80")
p("Slaby kij baseballowy z gwozdziami: Obrazenia: 5.5 Predkosc ataku: 1.4 Wytrzymalosc: 65")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then sys1() end
end

function planks()
sbc(colors.black)
tc()
sbc(colors.black)
scp(w,1)
pdp(w, 1, colors.green)
scp(w,1)
stc(colors.white)
p("<")
scp(1,1)
sbc(colors.black)
p("Deska z gwozdziami")
p("Perfekcyjna deska z gwozdziami: Obrazenia: 4.5 Predkosc ataku: 1.6 Wytrzymalosc: 60")
p("Dobra deska z gwozdziami: Obrazenia: 4 Predkosc ataku: 1.6 Wytrzymalosc: 50")
p("Slaba deska z gwozdziami: Obrazenia: 4 Predkosc ataku: 1.5 Wytrzymalosc: 40")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then sys1() end
end

function saxe()
sbc(colors.black)
tc()
sbc(colors.black)
scp(w,1)
pdp(w, 1, colors.green)
scp(w,1)
stc(colors.white)
p("<")
scp(1,1)
sbc(colors.black)
p("Siekierka")
p("Perfekcyjna siekierka: Obrazenia: 7.5 Wydajnosc: 6.5 Wytrzymalosc: 360")
p("Dobra siekierka: Obrazenia: 7.5 Wydajnosc: 6 Wytrzymalosc: 260")
p("Slaba siekierka: Obrazenia: 6.5 Wydajnosc: 5 Wytrzymalosc: 160")
local event, click, x, y = os.pullEvent("mouse_click")
if x == w and y == 1 then sys1() end
end



function start()
pfb(1, 17, 20, 18, colors.white)
scp(1,17)
stc(colors.white)
sbc(colors.blue)
p("NextAPI Shell       ")
scp(1,18)
sbc(colors.white)
stc(colors.black)
p("2048                ")
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<21 and y == 18 then r("/os/.2048") end
end

function sys1()
while true do
desk()
scp(1,2)
p("Katana")
p("Katana z palnikiem")
p("Kij baseballowy")
p("Kij baseballowy z gwozdziami")
p("Deska z gwozdziami")
p("Siekierka")
p("")
p("")
p("")
p("Wiecej statystyk w aktualizacjach aplikacji")
local event, click, x, y = os.pullEvent("mouse_click")
if x>0 and x<20 and y == 2 then katana1() end
if x>0 and x<20 and y == 3 then katana2() end
if x>0 and x<20 and y == 4 then basebat1() end
if x>0 and x<20 and y == 5 then basebat2() end
if x>0 and x<20 and y == 6 then planks() end
if x>0 and x<20 and y == 7 then saxe() end
if x>0 and x<6 and y == h then start() end
if x>0 and x<30 and y == 1 then dgi() end
if x == w and y == 1 then break end
if x == w-1 and y == h then su() end
if x == w and y == h then re() end
end
end

function desk()
sbc(colors.black)
tc()
sbc(colors.black)
pfb(6, h, w, h, colors.blue)
pdp(w, 1, colors.red)
scp(1,h)
sbc(colors.green)
write("Start")
pdp(w-1,h, colors.red)
pdp(w,h, colors.orange)
pfb(1, 1, w, 1, colors.blue)
pdp(w, 1, colors.red)
scp(1,1)
sbc(colors.blue)
stc(colors.white)
p("DGStatistics")
sbc(colors.black)
end

sys1()