Mercurial > love-experiments
annotate src/scripts/boot.lua @ 1189:2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
| author | Bart van Strien <bart.bes+projects@gmail.com> |
|---|---|
| date | Fri, 18 Jan 2013 00:55:28 +0100 |
| parents | ab6a48fbdd3c |
| children | fd3f318ee46a 5066394222c6 |
| rev | line source |
|---|---|
| 1096 | 1 --[[ |
| 2 Copyright (c) 2006-2012 LOVE Development Team | |
| 3 | |
| 4 This software is provided 'as-is', without any express or implied | |
| 5 warranty. In no event will the authors be held liable for any damages | |
| 6 arising from the use of this software. | |
| 7 | |
| 8 Permission is granted to anyone to use this software for any purpose, | |
| 9 including commercial applications, and to alter it and redistribute it | |
| 10 freely, subject to the following restrictions: | |
| 11 | |
| 12 1. The origin of this software must not be misrepresented; you must not | |
| 13 claim that you wrote the original software. If you use this software | |
| 14 in a product, an acknowledgment in the product documentation would be | |
| 15 appreciated but is not required. | |
| 16 2. Altered source versions must be plainly marked as such, and must not be | |
| 17 misrepresented as being the original software. | |
| 18 3. This notice may not be removed or altered from any source distribution. | |
| 19 --]] | |
| 20 | |
| 21 -- Make sure love table exists. | |
| 22 if not love then love = {} end | |
| 23 | |
| 24 -- Used for setup: | |
| 25 love.path = {} | |
| 26 love.arg = {} | |
| 27 | |
| 28 -- Unparsed arguments: | |
| 29 argv = {} | |
| 30 | |
| 31 -- Replace any \ with /. | |
| 32 function love.path.normalslashes(p) | |
| 33 return string.gsub(p, "\\", "/") | |
| 34 end | |
| 35 | |
| 36 -- Makes sure there is a slash at the end | |
| 37 -- of a path. | |
| 38 function love.path.endslash(p) | |
| 39 if string.sub(p, string.len(p)-1) ~= "/" then | |
| 40 return p .. "/" | |
| 41 else | |
| 42 return p | |
| 43 end | |
| 44 end | |
| 45 | |
| 46 -- Checks whether a path is absolute or not. | |
| 47 function love.path.abs(p) | |
| 48 | |
| 49 local tmp = love.path.normalslashes(p) | |
| 50 | |
| 51 -- Path is absolute if it starts with a "/". | |
| 52 if string.find(tmp, "/") == 1 then | |
| 53 return true | |
| 54 end | |
| 55 | |
| 56 -- Path is absolute if it starts with a | |
| 57 -- letter followed by a colon. | |
| 58 if string.find(tmp, "%a:") == 1 then | |
| 59 return true | |
| 60 end | |
| 61 | |
| 62 -- Relative. | |
| 63 return false | |
| 64 | |
| 65 end | |
| 66 | |
| 67 -- Converts any path into a full path. | |
| 68 function love.path.getfull(p) | |
| 69 | |
| 70 if love.path.abs(p) then | |
| 71 return love.path.normalslashes(p) | |
| 72 end | |
| 73 | |
| 74 local cwd = love.filesystem.getWorkingDirectory() | |
| 75 cwd = love.path.normalslashes(cwd) | |
| 76 cwd = love.path.endslash(cwd) | |
| 77 | |
| 78 -- Construct a full path. | |
| 79 local full = cwd .. love.path.normalslashes(p) | |
| 80 | |
| 81 -- Remove trailing /., if applicable | |
| 82 return full:match("(.-)/%.$") or full | |
| 83 end | |
| 84 | |
| 85 -- Returns the leaf of a full path. | |
| 86 function love.path.leaf(p) | |
| 87 local a = 1 | |
| 88 local last = p | |
| 89 | |
| 90 while a do | |
| 91 a = string.find(p, "/", a+1) | |
| 92 | |
| 93 if a then | |
| 94 last = string.sub(p, a+1) | |
| 95 end | |
| 96 end | |
| 97 | |
| 98 return last | |
| 99 end | |
| 100 | |
| 101 -- Finds the key in the table with the lowest integral index. The lowest | |
| 102 -- will typically the executable, for instance "lua5.1.exe". | |
| 103 function love.arg.getLow(a) | |
| 104 local m = math.huge | |
| 105 for k,v in pairs(a) do | |
| 106 if k < m then | |
| 107 m = k | |
| 108 end | |
| 109 end | |
| 110 return a[m] | |
| 111 end | |
| 112 | |
| 113 love.arg.options = { | |
| 114 console = { a = 0 }, | |
| 115 fused = {a = 0 }, | |
| 116 game = { a = 1 } | |
| 117 } | |
| 118 | |
| 119 function love.arg.parse_option(m, i) | |
| 120 m.set = true | |
| 121 | |
| 122 if m.a > 0 then | |
| 123 m.arg = {} | |
| 124 for j=i,i+m.a-1 do | |
| 125 table.insert(m.arg, arg[j]) | |
| 126 i = j | |
| 127 end | |
| 128 end | |
| 129 | |
| 130 return i | |
| 131 end | |
| 132 | |
| 133 function love.arg.parse_options() | |
| 134 | |
| 135 local game | |
| 136 local argc = #arg | |
| 137 | |
| 138 for i=1,argc do | |
| 139 -- Look for options. | |
| 140 local s, e, m = string.find(arg[i], "%-%-(.+)") | |
| 141 | |
| 142 if m and love.arg.options[m] then | |
| 143 i = love.arg.parse_option(love.arg.options[m], i+1) | |
| 144 elseif not game then | |
| 145 game = i | |
| 146 end | |
| 147 end | |
| 148 | |
| 149 if not love.arg.options.game.set then | |
| 150 love.arg.parse_option(love.arg.options.game, game or 0) | |
| 151 end | |
| 152 end | |
| 153 | |
| 154 function love.createhandlers() | |
| 155 | |
| 156 -- Standard callback handlers. | |
| 157 love.handlers = setmetatable({ | |
| 158 keypressed = function (b, u) | |
| 159 if love.keypressed then love.keypressed(b, u) end | |
| 160 end, | |
| 161 keyreleased = function (b) | |
| 162 if love.keyreleased then love.keyreleased(b) end | |
| 163 end, | |
| 164 mousepressed = function (x,y,b) | |
| 165 if love.mousepressed then love.mousepressed(x,y,b) end | |
| 166 end, | |
| 167 mousereleased = function (x,y,b) | |
| 168 if love.mousereleased then love.mousereleased(x,y,b) end | |
| 169 end, | |
| 170 joystickpressed = function (j,b) | |
| 171 if love.joystickpressed then love.joystickpressed(j,b) end | |
| 172 end, | |
| 173 joystickreleased = function (j,b) | |
| 174 if love.joystickreleased then love.joystickreleased(j,b) end | |
| 175 end, | |
| 176 focus = function (f) | |
| 177 if love.focus then love.focus(f) end | |
| 178 end, | |
| 179 quit = function () | |
| 180 return | |
| 181 end, | |
| 182 }, { | |
| 183 __index = function(self, name) | |
| 184 error("Unknown event: " .. name) | |
| 185 end, | |
| 186 }) | |
| 187 | |
| 188 end | |
| 189 | |
| 190 local is_fused_game = false | |
| 191 local no_game_code = false | |
| 192 | |
| 193 -- This can't be overriden. | |
| 194 function love.boot() | |
| 195 | |
| 196 -- This is absolutely needed. | |
| 197 require("love") | |
| 198 require("love.filesystem") | |
| 199 | |
| 200 love.arg.parse_options() | |
| 201 | |
| 202 local o = love.arg.options | |
| 203 | |
| 204 local arg0 = love.arg.getLow(arg) | |
| 205 love.filesystem.init(arg0) | |
| 206 | |
| 207 -- Is this one of those fancy "fused" games? | |
| 208 local can_has_game = pcall(love.filesystem.setSource, arg0) | |
| 209 is_fused_game = can_has_game | |
| 210 if love.arg.options.fused.set then | |
| 211 is_fused_game = true | |
| 212 end | |
| 213 | |
| 214 if not can_has_game and o.game.set and o.game.arg[1] then | |
| 215 local nouri = o.game.arg[1] | |
| 216 if nouri:sub(1, 7) == "file://" then | |
| 217 nouri = nouri:sub(8) | |
| 218 end | |
| 219 local full_source = love.path.getfull(nouri) | |
| 220 local leaf = love.path.leaf(full_source) | |
| 221 love.filesystem.setIdentity(leaf) | |
| 222 can_has_game = pcall(love.filesystem.setSource, full_source) | |
| 223 end | |
| 224 | |
| 225 if can_has_game and not (love.filesystem.exists("main.lua") or love.filesystem.exists("conf.lua")) then | |
| 226 no_game_code = true | |
| 227 end | |
| 228 | |
| 229 if not can_has_game then | |
| 230 love.nogame() | |
| 231 end | |
| 232 | |
| 233 end | |
| 234 | |
| 235 function love.init() | |
| 236 | |
| 237 -- Create default configuration settings. | |
| 238 -- NOTE: Adding a new module to the modules list | |
| 239 -- will NOT make it load, see below. | |
| 240 local c = { | |
| 241 title = "Untitled", | |
| 242 author = "Unnamed", | |
| 243 version = love._version, | |
| 244 screen = { | |
| 245 width = 800, | |
| 246 height = 600, | |
| 247 fullscreen = false, | |
| 248 vsync = true, | |
| 249 fsaa = 0, | |
| 250 }, | |
| 251 modules = { | |
| 252 event = true, | |
| 253 keyboard = true, | |
| 254 mouse = true, | |
| 255 timer = true, | |
| 256 joystick = true, | |
| 257 image = true, | |
| 258 graphics = true, | |
| 259 audio = true, | |
| 260 physics = true, | |
| 261 sound = true, | |
| 262 font = true, | |
| 263 thread = true, | |
| 264 }, | |
| 265 console = false, -- Only relevant for windows. | |
| 266 identity = false, | |
| 267 release = false, | |
| 268 } | |
| 269 | |
| 270 -- If config file exists, load it and allow it to update config table. | |
| 271 if not love.conf and love.filesystem and love.filesystem.exists("conf.lua") then | |
| 272 require("conf") | |
| 273 end | |
| 274 | |
| 275 -- Yes, conf.lua might not exist, but there are other ways of making | |
| 276 -- love.conf appear, so we should check for it anyway. | |
| 277 if love.conf then | |
| 278 local ok, err = pcall(love.conf, c) | |
| 279 if not ok then | |
| 280 print(err) | |
| 281 -- continue | |
| 282 end | |
| 283 end | |
| 284 | |
| 285 if c.release then | |
| 286 love._release = { | |
| 287 title = c.title ~= "Untitled" and c.title or nil, | |
| 288 author = c.author ~= "Unnamed" and c.author or nil, | |
| 289 url = c.url | |
| 290 } | |
| 291 end | |
| 292 | |
| 293 if love.arg.options.console.set then | |
| 294 c.console = true | |
| 295 end | |
| 296 | |
| 297 -- Gets desired modules. | |
| 298 for k,v in ipairs{ | |
| 299 "thread", | |
| 300 "timer", | |
| 301 "event", | |
| 302 "keyboard", | |
| 303 "joystick", | |
| 304 "mouse", | |
| 305 "sound", | |
| 306 "audio", | |
| 307 "image", | |
| 308 "font", | |
| 309 "graphics", | |
| 310 "physics", | |
| 311 } do | |
| 312 if c.modules[v] then | |
| 313 require("love." .. v) | |
| 314 end | |
| 315 end | |
| 316 | |
| 317 if love.event then | |
| 318 love.createhandlers() | |
| 319 end | |
| 320 | |
| 321 -- Setup screen here. | |
|
1144
ab6a48fbdd3c
Fix bug where the compat message crashed love.
vrld <vrld@vrld.org>
parents:
1133
diff
changeset
|
322 local has_window = false |
| 1096 | 323 if c.screen and c.modules.graphics then |
| 324 if love.graphics.checkMode(c.screen.width, c.screen.height, c.screen.fullscreen) or (c.screen.width == 0 and c.screen.height == 0) then | |
|
1144
ab6a48fbdd3c
Fix bug where the compat message crashed love.
vrld <vrld@vrld.org>
parents:
1133
diff
changeset
|
325 has_window = assert(love.graphics.setMode(c.screen.width, c.screen.height, c.screen.fullscreen, c.screen.vsync, c.screen.fsaa), "Could not set screen mode") |
| 1096 | 326 else |
| 327 error("Could not set screen mode") | |
| 328 end | |
| 329 love.graphics.setCaption(c.title) | |
| 330 end | |
| 331 | |
| 332 -- Our first timestep, because screen creation can take some time | |
| 333 if love.timer then | |
| 334 love.timer.step() | |
| 335 end | |
| 336 | |
| 337 if love.filesystem then | |
| 338 love.filesystem.setRelease(c.release and is_fused_game) | |
| 339 if c.identity then love.filesystem.setIdentity(c.identity) end | |
| 340 if love.filesystem.exists("main.lua") then require("main") end | |
| 341 end | |
| 342 | |
| 343 if no_game_code then | |
| 344 error("No code to run\nYour game might be packaged incorrectly\nMake sure main.lua is at the top level of the zip") | |
| 345 end | |
| 346 | |
| 347 -- Console hack | |
| 348 if c.console and love._openConsole then | |
| 349 love._openConsole() | |
| 350 end | |
| 351 | |
| 352 -- Check the version | |
| 353 local compat = false | |
| 354 c.version = tostring(c.version) | |
| 355 for i, v in ipairs(love._version_compat) do | |
| 356 if c.version == v then | |
| 357 compat = true | |
| 358 break | |
| 359 end | |
| 360 end | |
| 361 if not compat then | |
| 362 local major, minor, revision = c.version:match("^(%d+)%.(%d+)%.(%d+)$") | |
| 363 if (not major or not minor or not revision) or (major ~= love._version_major and minor ~= love._version_minor) then | |
| 364 local msg = "This game was made for a version that is probably incompatible.\n".. | |
| 365 "The game might still work, but it is not guaranteed.\n" .. | |
| 366 "Furthermore, this means one should not judge this game or the engine if not." | |
| 367 print(msg) | |
|
1144
ab6a48fbdd3c
Fix bug where the compat message crashed love.
vrld <vrld@vrld.org>
parents:
1133
diff
changeset
|
368 if has_window and love.timer and love.event then |
| 1096 | 369 love.event.pump() |
| 370 love.graphics.setBackgroundColor(89, 157, 220) | |
| 371 love.graphics.clear() | |
| 372 love.graphics.print(msg, 70, 70) | |
| 373 love.graphics.present() | |
| 374 love.graphics.setBackgroundColor(0, 0, 0) | |
| 375 love.timer.sleep(3) | |
| 376 end | |
| 377 end | |
| 378 end | |
| 379 | |
| 380 end | |
| 381 | |
| 382 function love.run() | |
| 383 | |
| 384 math.randomseed(os.time()) | |
| 385 math.random() math.random() | |
| 386 | |
| 387 if love.load then love.load(arg) end | |
| 388 | |
| 389 local dt = 0 | |
| 390 | |
| 391 -- Main loop time. | |
| 392 while true do | |
| 393 -- Process events. | |
| 394 if love.event then | |
| 395 love.event.pump() | |
| 396 for e,a,b,c,d in love.event.poll() do | |
| 397 if e == "quit" then | |
| 398 if not love.quit or not love.quit() then | |
| 399 if love.audio then | |
| 400 love.audio.stop() | |
| 401 end | |
| 402 return | |
| 403 end | |
| 404 end | |
| 405 love.handlers[e](a,b,c,d) | |
| 406 end | |
| 407 end | |
| 408 | |
| 409 -- Update dt, as we'll be passing it to update | |
| 410 if love.timer then | |
| 411 love.timer.step() | |
| 412 dt = love.timer.getDelta() | |
| 413 end | |
| 414 | |
| 415 -- Call update and draw | |
| 416 if love.update then love.update(dt) end -- will pass 0 if love.timer is disabled | |
| 417 if love.graphics then | |
| 418 love.graphics.clear() | |
| 419 if love.draw then love.draw() end | |
| 420 end | |
| 421 | |
|
1133
7338252337c9
love.run(): Sleep after presenting graphics buffer.
vrld <vrld@vrld.org>
parents:
1096
diff
changeset
|
422 if love.graphics then love.graphics.present() end |
| 1096 | 423 if love.timer then love.timer.sleep(0.001) end |
| 424 | |
| 425 end | |
| 426 | |
| 427 end | |
| 428 | |
| 429 ----------------------------------------------------------- | |
| 430 -- Default screen. | |
| 431 ----------------------------------------------------------- | |
| 432 | |
| 433 function love.nogame() | |
| 434 local pig_png = | |
| 435 "iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJ\ | |
| 436 bWFnZVJlYWR5ccllPAAAAyBpVFh0WE1MOmNvbS5hZG9iZS54bXAAAAAAADw/eHBhY2tldCBiZWdp\ | |
| 437 bj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1ldGEgeG1sbnM6\ | |
| 438 eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDUuMC1jMDYwIDYxLjEz\ | |
| 439 NDc3NywgMjAxMC8wMi8xMi0xNzozMjowMCAgICAgICAgIj4gPHJkZjpSREYgeG1sbnM6cmRmPSJo\ | |
| 440 dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4gPHJkZjpEZXNjcmlw\ | |
| 441 dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6eG1wPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAv\ | |
| 442 IiB4bWxuczp4bXBNTT0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wL21tLyIgeG1sbnM6c3RS\ | |
| 443 ZWY9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9zVHlwZS9SZXNvdXJjZVJlZiMiIHhtcDpD\ | |
| 444 cmVhdG9yVG9vbD0iQWRvYmUgUGhvdG9zaG9wIENTNSBXaW5kb3dzIiB4bXBNTTpJbnN0YW5jZUlE\ | |
| 445 PSJ4bXAuaWlkOjdCQTYxREYxOUQ5RDExRTBBNjY4RTc1NEVEQTU1MERDIiB4bXBNTTpEb2N1bWVu\ | |
| 446 dElEPSJ4bXAuZGlkOjdCQTYxREYyOUQ5RDExRTBBNjY4RTc1NEVEQTU1MERDIj4gPHhtcE1NOkRl\ | |
| 447 cml2ZWRGcm9tIHN0UmVmOmluc3RhbmNlSUQ9InhtcC5paWQ6N0JBNjFERUY5RDlEMTFFMEE2NjhF\ | |
| 448 NzU0RURBNTUwREMiIHN0UmVmOmRvY3VtZW50SUQ9InhtcC5kaWQ6N0JBNjFERjA5RDlEMTFFMEE2\ | |
| 449 NjhFNzU0RURBNTUwREMiLz4gPC9yZGY6RGVzY3JpcHRpb24+IDwvcmRmOlJERj4gPC94OnhtcG1l\ | |
| 450 dGE+IDw/eHBhY2tldCBlbmQ9InIiPz6gRGuzAAAYXklEQVR42uydX2hcV37Hz4xkeTdxNrITkpBk\ | |
| 451 0/EmgWxLbKlhyZZCPYJtSw3FUpe+FTzzsG9LLdFCH2W9FzwufeuDRtDX4tGLS0tBo0IpS1s8Tmk3\ | |
| 452 S9x4kniXeMnKk7/eWLLU87vzu9LV/L/3nnPv79z7/cBlFEcjjc45v+/5/s7fwsHBgQIA5JMiigAA\ | |
| 453 CAAAAAIAAIAAAAAgAAAACAAAAAIAAIAAAAAgAAAACAAAAAIAAIAAAAAgAAAACAAAAAIAAIAAAAAg\ | |
| 454 AAAACAAAAAIAAIAAAAAgAAAACAAAAAIAAIAAAAAgAAAACAAAAAIAADDBdNg3FAoFax+m89f/XNYv\ | |
| 455 9JzXz6x+5viVaPJrSz8f0OvsX/5BE1UIQD+T3vlZCHs5qGkB0EFPAb6sn8v6KYV9OwvDpn4aWhA6\ | |
| 456 qHoAHBEAHfwU+KuBXj4uDf1saCFooAkACIBQAeBe/wbbfRu09XNdP3W4AgABECQAHPxbnN/bpsNC\ | |
| 457 UIMQAAhAP4nOAiQc/IpTC0ox7urffRXNAoAUHYAOwi2Ltn/S1GAFYwQgLXimi2jZdKXiUgDugVeF\ | |
| 458 1ENTP1VdAW00SWAgqMnRltjZPh1wuMFp7HG0OGX1p7mbun22MiEArHpbAutuTRcyUgMQJoWdU0dr\ | |
| 459 VUqW09nI09zSBOBWgnl/WFrsBlpo4qCn3ZY42C9w+02zDVPwN7jTajsjALoQK/pl3YH6hhtAwFMP\ | |
| 460 v8gBX1bhF6YlRY3ba8cFAbgruCAHuYEll8cGdi7WZgf0VOWYPU/QHXXO3FxuZSjo5zjoLwl2qYNo\ | |
| 461 s3NtihUAh3r/3gZflThToIPbH1TyX/09E7MpNd6gONDrpyowmKWFoiM46C9z4JeU21BbrUsVgLsO\ | |
| 462 FzAtHlpJKdB9+1liO1pyuBybLAi3WRxIGNoIersikLoACB75D5sSLNicr+Vgn+PePO2BpqSFoeUL\ | |
| 463 g420ggfxrmQ06HuZDw5kSxAAsv6VLKSJLAItA8E+q45Glcs5CvYw6cQ2iYMWhGbEoPcH8q7krHzb\ | |
| 464 uo2elSQAD5S5XX4SGufKoFwLAW/dJWyyILQmDH6bm8ykcziTlaoA6IpY5IrIVGPUhbswQdD7C0Uu\ | |
| 465 5bgh2hLhBjuExqgBxoD1r2SoE5qojHQbPS1BALJi/4m6GrP4goM+qwNMUmkE3EF7RFuscN3kRYy9\ | |
| 466 AcG0BcB1++9vI64PC3wEvbhUYWOUM+BZgCsZ6piGCqNus0upCQAX9C3HA3/g+QE66EvqaIAJQS/X\ | |
| 467 GWxoIWiMSA8qXIeZTA902y2kKQB0zNe1jAX+YqC3B+7UKaVv1welCDHPopTOwtN/8fvNtATApfx/\ | |
| 468 aOBzb1/JaAPJZYqghaA+YpxgNUP1vKIFoJaWAEje+TdJ4Jc56CuIm8zR5rGC2qCxggwJQU0LwEpa\ | |
| 469 AnDgcOBT5ZcRJ7lID7yttUPSgwqnsa6OETS1ACwkLgDCl/8O3EKpAz9r9g+Eoz5ICAJjBC4OFqYm\ | |
| 470 ABRM6xIruHc6D4EPQgrBahYFYNrwL5YUTE3VXb7bGmD1ryksywXHoQ6hotvHMSFgx3hVC0GdRaCS\ | |
| 471 pT/atANI+9Rfgiqu76AE5PggJGtqwGAhp7nSO5CJHUCWbgf2N+ycDQY/TefpZ53HJhD8YFK8+yQ4\ | |
| 472 VTyE2pZ+5qmT4TbnNKYFIK0AI3tGgV/r6fWvqu6qxAraM4gA5f/ruh3dYgcZFAKvzanu4LKzTDte\ | |
| 473 QaPs/rrCAB8wA9n9LR4fWPHTAh4fWNFpwaawtKCduAPgNdZJUhtg92f1c43tPoIfmKbCacHikLRg\ | |
| 474 Tcjn/CCNFCCpgPNP6Fnp6fWpUugMwmW0U2A5Lbih29sNPvAlKASUcs6H6YEz4wASgqb05of0+jdU\ | |
| 475 vg5/AOmyOMQNtFgEGhAAs9S552/35Pq30OsDSW6AxgZoT35aKcGwuwJsC0DZ4t9E03vV4DJeHuFH\ | |
| 476 rg+kuIFbfEhMb0qQ9HRhqPRDugPw8/1aj+WnwF9FuwOCKLEILPeIgOdcExSBVlYEwD+TP5jvk8Le\ | |
| 477 VVjQA+RyjRae9aQELRaBdgK/fzsLAuAHfysQ/BXO9zHQB6RDbXWLD5UJisB82B46Ak3XBYAO4pzv\ | |
| 478 yfdpUc862hVwiDlOCcoBEeiwE7AlAp2wF9gUBQZ/tSffv6GwlBe4ySw7gUpCItAM+wZJArDWG/yq\ | |
| 479 O8qPgziB66zzrJVtEdh2VQCq/pVGHPxzHPzYsw+ywiqnsjZFoOGiABy72hjBDzJMxaIItEbdXiVV\ | |
| 480 AIYFP0b6AUQgHBtR3lRE8AOQCRFouCQAdQQ/gAgYE4FI9j8tAeid6kPwA4jAkQjQJqKwy4Y3on6A\ | |
| 481 pAWgOWCqD9t4AUTgSATaKvzegYYEARhnQVqsbsHgx24+ALoisBwQgWOxMi74o9r/JAWA1KzacysP\ | |
| 482 9fyY6gOgy7WeFYNN1d1KbM3+J5kCVHs29pDlKaPOAegTgbmACNTV6FOH2/p7GtIFoBb8kKxyFdQ1\ | |
| 483 AH34eweCW4np7Mumjd4/iRSgFTy8k9UNu/oAGCMCPf+2NCS+amIEYMBARCeYwwRG/AEAo5njg279\ | |
| 484 2PKnB4PUe2+6lpYCrPXsTcZFHQBMznLwxGGOpeBR+EYOHDUtAO2A9Q+e40dTHNjWC0A4eo8Wq/F4\ | |
| 485 QD3O1F+QaQsCUAoqFR+LhAM8AYg2HkBpc/Cm36rJX2DaAXRYnZqBf8NKPwCiU+5ZJNQ21fvbEIDb\ | |
| 486 wdyEPzgW+wAQj9XgAaMmKRwcHIR7Q6Ew0ffxB8YpvgCYoXHm5vKky4PVpHFtcxbgGoIfAGMsBk8Y\ | |
| 487 lpoC+L0/fVCM+gNglnUnBEBhtR8ANigFTxcWKQC81r+EugLACleCawMkOgDM+QNgDwr+ZZECgN4f\ | |
| 488 ALdcgGkHgN4fAIdcgDEBQO8PgHsuwKQDQO8PQLIuoCJCAHjeH70/AAm7ACkO4ArqAoDEKQXPDEhF\ | |
| 489 AHjNP1b9AZAOl9N2AAh+ANJjMc5goAkBuIw6ACBVKqkIANt/7PcHwNE0IK4DgP0HIH3moh4YElcA\ | |
| 490 YP8BkEE5UQHggQfYfwBkcClpBwD7D0BeHYDmAsocADHMRjkyLI4AlFHmALjtAiIJAOf/JZQ3AKI4\ | |
| 491 n5QDwOAfAPKYS0oAYP8BkEcp7LLgqAJwHmUNgPsuIKoA4MIPAHIsAEgBAJCJ3RTA5JnkAADjXLAq\ | |
| 492 AAozAABkhiKKAACMAYShhDIGIKdjABAAAJACAAAgAAAACAAAQAxhtgVDAACAAwAAZIgWBACAnHLm\ | |
| 493 5nIHAgAAsCIAHRQbAPkVgBaKDYD8CgAAQC5N2wLQRhkDkFMHcObmMgQAALmEStGnI/4SEoESytod\ | |
| 494 CqefUIWZqeP/9uRJVTh1cuh79u9/1v9vD75S6tFjFKhcPoUA5M3GPf+UUiemVfHME/p1ygt279/p\ | |
| 495 tSfowzD15osj//+BFoMDEoPdPf31Q/31XvffvnikDr78GhXjwBhAVAHYVjgXMJVA93pt6s31EzfA\ | |
| 496 jbgK/z9ePj1YILQQkDiQm4B7SIR2EgKAcQDbwcWB7gU9vzqZdpBIaXHw3URXEL7SgvC599DXwBxh\ | |
| 497 x+iiCgDWAtjo4XWgUKD7QZ9ZYdNP0XcM2hHs//KzriB81EHqkKD9jywAWmVaOxdrtCLQ6gnBD/cf\ | |
| 498 qZ98eUc//6fuPdo5/hmmT6lz33xFvf3kq+rlmTNuVpe271MU9N+ePQqIvKHLwBM++vvfesUTABKC\ | |
| 499 x+9/4qQ7oDb7zsMPvTb73q8/7muzr598Qb196lXv1QLbiQhAQG0WbRXkP356W219/r9egQ5iZ+8L\ | |
| 500 1dT/n563n3xN/fD099Q3izMI+gw4hKk3nveeQzF4974TzoAC/+9/9W8j2+xP9u54ndrr33hB/cns\ | |
| 501 90x3Xq0kBWDbhgBQ4f3NL/+pr8cfBRUoFf6fP/eHYt0AWXqvYVPQpzhw56wYaDdAQkDOQCIU+NQO\ | |
| 502 J4XcAbVz6rioA0srBSgm+csmIWzw9woHqawkpr7zrDrxgzfUzMXf8r5G8EcX0OnfOatO/ulvq+lz\ | |
| 503 L3ni4GrwB9ssvZc6LxO9f5htwLEFgMYBlOHZgH948B+Rgj9YoH/3yZaYwJ9ZPOc1WhdH8EWnUG++\ | |
| 504 eFi2aQtBN9+/E1tAhqUNIdiM8qa4m4GMuQA/p48LCUjcCjEV+JJ6qSwSLOu0nBV1WibSXgM/p5GG\ | |
| 505 AGyaKsitz39qrFKaBn9WGItKVh+Bn44QnLx03ksNkoQ6GlMpJ/2sGC6gzY48WQHQv5RUx8gBIYby\ | |
| 506 oEMXkNhYgO55pt96xcvxYfVlpAZJ1cN7v75vPJ1Isvc34QCIuqkUwCT3dnesNwBqaN7g3hvPIwCF\ | |
| 507 QO7Lc2JalK0LwNcfG/15O3tfRn3rRpoCsCGtIImfP3pgtfLJblJDg90XmhZoUSZxtlk/xjutaAPg\ | |
| 508 raj234gA8C/Pz9JgbTVPXHht7E45IMANnH7CqdTs4UGkMYDrsVysoc8e60O8fML84p0z009aCf4Z\ | |
| 509 3etjBZ9jgq3rzFuDYbyNnTL68yIsD+7Eyf9NCkCswUBawmt6Ge9LpkWFgz+rm3SyDs3OmBYB0x1X\ | |
| 510 hE6rEWXxj3EB4A8RywXQxh6Tymx0STCCHyIwqMf+htnB3wgOYC3u7zR5KnA9zptph5Qpvm9ubbXH\ | |
| 511 CZrbR/BnQwTeesVYXdIaflPOlTYHhUwp6ibO5zQmAPxhIosAqZ8JF0CFWH7qu+YazLmXkPNnbUzg\ | |
| 512 wmtGVg5S8C889ZtGPhbtDAzJhonfa/pegFiW5M+e+d3YimriZ/h4O/gw2p85aGpw+k0zqwb/6Onz\ | |
| 513 Xu8dB9oRGDJlpdy/KU4A2AXU4igqbemNGsAU/CYPWkhiMQlIB1onYGp68EfPLkQec6I0ohzeRayY\ | |
| 514 KgcbNwORC4g8MkkFufbiD0OpKtn+v3rhj03uqz48mgtkWAQMuQC/4woTyPQe6rDoCUnd5N0chYOD\ | |
| 515 g3BvKBTGfs/OxdpV/bIa98PRCsHmZz8dukaaxILy/bcND/oRlCci988+jxrvGD1tiFYH3vz0ttdm\ | |
| 516 B23uoc7q+16v/90oTpc61vlJBGDSuLYiACwCd5XBuwN6lwvTHKy1I8BmpryDJ0D2oVOG9v7rQys/\ | |
| 517 m5b2Blf3PTN1Ku7ioTUd/Fcn+cZJ43raYtlW9WPsdA5LhygOtobo+XODzTTP8PF07UmDP+0xgK7V\ | |
| 518 6Y5SNlxsFJjzzw8O1XXVigAm8KE7aBQgry7AEDVT036JCgAvEa6iiQEQ3forA0t+03IA/qlBDdRj\ | |
| 519 91os72jr//6F99BtOGAy6Dhwv9y8o8Hzc8dgNe6Gn1FMJ/VH6GdO5fhGYWq4e+/8fKD9PPF7r+O4\ | |
| 520 8GGi+eArtbt9p2+qbm/mQ6/cMr5Ww5r1T8wBBFKBJWeKfXcvkeAnyAU8+pd3EelDHBOVzcB5eu0A\ | |
| 521 dun/Gbg+jK4zFwid9LNi+5cUk/pr+OSgFSca3oOHRhvxsOAP9nJSb7xJk73//Gis1Y89h69/vsBr\ | |
| 522 xxLrMItJ/lVaBGifQF28Xf/I3HmCdLfdRN8HAegvk3vj68G7YjxGANPNxAJZMrncV4wAMOQCRJ8h\ | |
| 523 SD2ysV5h9zEiOUpghhggjWPhJxXoJOPDdt6fqgDweMCCEr4+YP/9X5n5QScwuBepYYZYi1E4FXFJ\ | |
| 524 uLb/j+89kPRn19klq8wKgCsisPfux0ammuga8Im+D8uPjzMzNdEIPy3ainr09+Of3Zc0ndjUcZH4\ | |
| 525 mpliWn8tDwrKXSREvcPP4t/84l9xPa4R43KRfrzzGMZMj0Y9s8EbnH33Yyl/KsVCKrNkxTT/al4k\ | |
| 526 JFYEaPTexDQTNdJhAe6dXf+DNxDtQ8pm6BoJupItxs3Lk8wwJBj8CzYX+4wsY1vbgcOwc7FW0S/r\ | |
| 527 UhuhF6AGFuqQmOzf66j9+595zqCgG6+N8+ozB7mx9z85HBgs+uUWsU5sbgEOSYeD3/igeOrnAWRJ\ | |
| 528 BCg/9w6SBM5DIrIrY+GVteAPIwBFKRWjC6IuNR2g+ei9f7+L6HEcb1nxv76X+eB3ZgzAJREgCwoR\ | |
| 529 cDv4vSXX6ef9YoJfnABABIAt2y8k+Cnoz0oJfpECEBCBJSVwnQCJwKOb/5On7ahOQwN+u3KCP7XR\ | |
| 530 fqcEgEWApghFLhYiO/n15m3s55cM7RbcviNltL8uMfgJMbMAw9i5WCvplxuqe56AOGh+37tlBvv5\ | |
| 531 RVl+StWE7PKrJbGtt6+Tcm0acIwI0HpamiJclNjgvKumYixKAeZ6ferxBW2trnI6qyAAZoTgqjJw\ | |
| 532 4Yi1fEoLAAlB1LXpIEauT4euGNq/YYDUR/ozKQAsAovsBmalNkZapTZ17kUIQRKBT2cFvvMLSYd6\ | |
| 533 NFV3P3+q+X5mBcCFcQEIgX2rT9t4hQU+sWbj8g4IwHAhuKZflqW3V2/tOt1Giy2/8Rq1DnY6p0GQ\ | |
| 534 1Q9a/qUkD/KAAByJQJlTgpL0BuxtDX71WVX8zjNwBSFtPp3csy/r8A4fb0ertCm+3AgAiwCNB6y6\ | |
| 535 4AYOy5HOANApAh0YAjHoh4Kdgt47sUfmoqsOB77IOy9yJQAuuoE+Mfj2aZ0izOb3WjLO6w/ufy45\ | |
| 536 6EX3+rkXAFfdwDFmprzbiemsABo7yKw70AFOJ/LSoh3vZF8DB68kQFt1D+0Uf9NVbgUgIAQ0Q0CD\ | |
| 537 hGWnA4XOxnvuW6p45glVeO6p7mGZDq469I/vph5+n05ddiPgg9D9fDXJvT4EYLAQVFgIZlVWIFGg\ | |
| 538 wzD5QEzv9dRM+m6BenUK7N0973KV/Z3u8eoOBnuQJtv99jEr8LdNak/l0o/LGANwQARmOSW4kikh\ | |
| 539 GCEORPH5bx3V23P9y5THLV327kfoycW9YOa7Dg6++Lob4HS7jttBPszuVwdN7engr3CaWdLPvBaB\ | |
| 540 FgTADSEoccVVFADDA39t0Br+nsA/dAhaABYgABAC4DaU218flOfrwC9zeykPee+CFoEmBABCAPIV\ | |
| 541 +GJdAAQAQgAmsPr6acQI/CCixgIgAP35Gw0CtkZZNRYCEoHsDxbmFwrS60Ny/CiB71PXbasKAZAr\ | |
| 542 AA84qEkANnRl1UcIAX3fouof8AHuQvW9MWRUP07gB1OJs7pddSAAMgXgYJgFHFVpvLz4MtIDZ23+\ | |
| 543 hureutse0CZ8t2dqW3l1VMcCAZAlAEHlpkq7riuvPYErMNlgQPK9vb8m5LIFd0edyRIEwC0BOFaB\ | |
| 544 LATNUd/EYwVXWBCQIsiA6m5TDRjU4/qf4zqz6eQ6uu2chgDIC36y8VshrePY9IDFYI57E4iBvKCf\ | |
| 545 VUeDuknVjYjZAAhAv/rfiqLoAVcwtlJZDPwxA6QJFnpY1R3EHRr0XN+LAVFOGhHjABCAaCnAKLzp\ | |
| 546 o0lcQc+YwQUWBbiD6OXuBf2oI7dY5P3B2jSncNd0+7gKAcieAAy0npNO+wTcwQV2BxCE0QG/Ta+j\ | |
| 547 tt8Ggl5S+gUByIEABPEbayNM7scDiSQI51kQyjkM9jYH/G0O9uYE9VjigJeaZkEAhArA3QR6CT9H\ | |
| 548 9Rp02A0i7BJ8d3CBX7PiFJoc8B/w162wh2voOtxyQCidEoDpnPU2toPJz/u9VYS6wQYdQotFYWij\ | |
| 549 55tkWgOEocw/m8ThaX6dFdYDdgKffTvw3+1Bi3Aisp1Tp2SNPDkAKXcItAMuoWViGykLhE/w698Y\ | |
| 550 IXqDBKQ5JvgGBbvJAJfi5OLg1CxAnhzAB0I+BzXeSqBB+4G3qRtOLcoP7MmdmxmvR9pwsyX487Vc\ | |
| 551 KsxijgRAcmD4Fh+MU8+uY6oJ/XhticeDQQC6DafF1hUC5X5drgjtaTdcK8tiztpOQ3CjhgCEY0mY\ | |
| 552 oHcEOxMIALOJ3j8zLqCtXxYEicCalLMAIADDG01DaBqwiZCOnNatSHCWUQdwIQDJcx2pSaZEoK66\ | |
| 553 MwNp0Ur590MAQlIT5gJaow4iAROLwHwK9Uqp24KL1j+3AsCVJckFXEcIG0sHFlRyswM1Ogrc5eDP\ | |
| 554 qwPwXYCEXrcD+29FBGzm4y3u9VeyUGa5vRcgwilBNhCxcSSLGDrp99iP5Pqqu/D3YzfgZI3kKjeS\ | |
| 555 tHr/s65bSEeEwD+/MQrk0Dak3gIMAYjfQNZVOkd+V13pTTJSzyV2A5dUdz/GsJ2UTbb53oEkrgo0\ | |
| 556 BEC2CIg5Phpkk0njuoii8gaPaB43qd6YcskqSh1IAAJwXASqyu5cMv3sJeT9AAIgUwTIBdCCEhsD\ | |
| 557 PtTzL7i2XRRkG4wBDB8XKCtz00gkKFX0/EDaGAAEYLwQlFT0a8Cot19zbQoJQAAgAIPFwD+++zyL\ | |
| 558 QXlAju9PITVg90HmBAAAkB0wCAgABAAAAAEAAEAAAAAQAAAABAAAAAEAAEAAAAAQAAAABAAAAAEA\ | |
| 559 AEAAAAAQAAAABAAAAAEAAEAAAAAQAAAABAAAAAEAAEAAAAAQAAAABAAAAAEAAEAAAAD2+H8BBgCz\ | |
| 560 4xkvbY9d6gAAAABJRU5ErkJggg==" | |
| 561 local heart_png = | |
| 562 "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJ\ | |
| 563 bWFnZVJlYWR5ccllPAAAAyBpVFh0WE1MOmNvbS5hZG9iZS54bXAAAAAAADw/eHBhY2tldCBiZWdp\ | |
| 564 bj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1ldGEgeG1sbnM6\ | |
| 565 eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDUuMC1jMDYwIDYxLjEz\ | |
| 566 NDc3NywgMjAxMC8wMi8xMi0xNzozMjowMCAgICAgICAgIj4gPHJkZjpSREYgeG1sbnM6cmRmPSJo\ | |
| 567 dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4gPHJkZjpEZXNjcmlw\ | |
| 568 dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6eG1wPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAv\ | |
| 569 IiB4bWxuczp4bXBNTT0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wL21tLyIgeG1sbnM6c3RS\ | |
| 570 ZWY9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9zVHlwZS9SZXNvdXJjZVJlZiMiIHhtcDpD\ | |
| 571 cmVhdG9yVG9vbD0iQWRvYmUgUGhvdG9zaG9wIENTNSBXaW5kb3dzIiB4bXBNTTpJbnN0YW5jZUlE\ | |
| 572 PSJ4bXAuaWlkOjk3NUYxN0NGOUQ5RDExRTA5MTgyQjc4MkNEQkY5RkI1IiB4bXBNTTpEb2N1bWVu\ | |
| 573 dElEPSJ4bXAuZGlkOjk3NUYxN0QwOUQ5RDExRTA5MTgyQjc4MkNEQkY5RkI1Ij4gPHhtcE1NOkRl\ | |
| 574 cml2ZWRGcm9tIHN0UmVmOmluc3RhbmNlSUQ9InhtcC5paWQ6OTc1RjE3Q0Q5RDlEMTFFMDkxODJC\ | |
| 575 NzgyQ0RCRjlGQjUiIHN0UmVmOmRvY3VtZW50SUQ9InhtcC5kaWQ6OTc1RjE3Q0U5RDlEMTFFMDkx\ | |
| 576 ODJCNzgyQ0RCRjlGQjUiLz4gPC9yZGY6RGVzY3JpcHRpb24+IDwvcmRmOlJERj4gPC94OnhtcG1l\ | |
| 577 dGE+IDw/eHBhY2tldCBlbmQ9InIiPz7MtgYTAAACd0lEQVR42uyajW2CUBDHH8YBWKBJR8AJChvY\ | |
| 578 AZriBNYJrBOIE9imA6gTyAZlg9p0ATaw99IzfSEgvI9DlLvk5UUUuPu9/71PvePxKPpsA9FzYwAM\ | |
| 579 gAEwAAbAABgAA2AADIABMAAG0EcbmtzkeV7p9Z+nVQhViB8PUNK7j+nBxkF4ZgzVHMp9ydeZfAeU\ | |
| 580 d3hPVnZ/3X6HZ7IhUgQATgZQraEEJT+XDi7AwVQzcB+qjQK0zuTzJ0Xg5ACw1aWjfs1tCTg30wh+\ | |
| 581 XwH0nOVQIlUNpACw5fcNglclKx3MCYJXIYxOSqiLb2CRm75m8AKD+kJwVba2CF6gP+s2RoGlZvCq\ | |
| 582 g/syCHDtFaqxg849hGeNyQDAw2WPHFu20gZVpKbT3OEI90ypgKkDB+9RCScIG8dDfCMFDE0l5shJ\ | |
| 583 2epLgPBdMc5bGaoqowAQOPQzFnTmU6XAVViTydctA2g0Bb9lAGnfAewoAaQdDz6H/N9SAth1HMCK\ | |
| 584 eiq87XLry5UnKQBcaXUVwurcatNlJzi79ta3AoAqSDoGYKHT+tYbIjjf/nQ8NTa1DIIfFS+SbYgo\ | |
| 585 9ojSu7RNTG6yBoCpEF0YwqJqV5g8BQpLT90tMjLpt5kCJyVkqIRDi8HnptInWQsghFHdJoRDm5lK\ | |
| 586 n2wxhMOQVMIbcfDynMH6Hc76gDKDfuFF/O0eO1/qQvBRkx+21gdUqCHBlHDZL2Q49Dox8v0ApV9I\ | |
| 587 HAUf6c72LpYCJSkRYkoEbQXfyumwAYhYVB95O235TgIogJjWKCKVOW8q+04DKMwi5UnOg/g/dMlx\ | |
| 588 imvVd5AAuCXjP0kxAAbAABgAA2AADIABMAAGwAB6ab8CDACjlPepVvE3rwAAAABJRU5ErkJggg==" | |
| 589 | |
| 590 local hearts = {} | |
| 591 local rings = {} | |
| 592 | |
| 593 local cx = 400 | |
| 594 local cy = 300 | |
| 595 | |
| 596 local pig | |
| 597 local heart_image | |
| 598 | |
| 599 local function add_heart_ring(radius, number, speed) | |
| 600 local step = math.pi*2/number | |
| 601 for i = 1,number do | |
| 602 local heart = { | |
| 603 radius = radius, | |
| 604 position = step*i, | |
| 605 speed = speed, | |
| 606 opacity = radius/450 | |
| 607 } | |
| 608 table.insert(hearts, heart) | |
| 609 end | |
| 610 table.insert(rings, radius) | |
| 611 end | |
| 612 | |
| 613 local function update_hearts(dt) | |
| 614 for i,v in ipairs(hearts) do | |
| 615 v.position = v.position + v.speed*dt*0.6 | |
| 616 end | |
| 617 end | |
| 618 | |
| 619 local function draw_hearts() | |
| 620 for i,v in ipairs(hearts) do | |
| 621 local x = math.cos(v.position) * v.radius + cx | |
| 622 local y = math.sin(v.position) * v.radius + cy | |
| 623 love.graphics.setColor(255, 255, 255, v.opacity*255) | |
| 624 love.graphics.draw(heart_image, x, y, v.position+0.4, 1, 1, 32, 32) | |
| 625 end | |
| 626 end | |
| 627 | |
| 628 local function draw_pig(p) | |
| 629 love.graphics.setColor(255, 255, 255, 255) | |
| 630 love.graphics.draw(p.img, p.x, p.y, 0, 1, 1, 128, 128) | |
| 631 end | |
| 632 | |
| 633 local function loadimage(file, name) | |
| 634 return love.graphics.newImage(love.image.newImageData(love.filesystem.newFileData(file, name:gsub("_", "."), "base64"))) | |
| 635 end | |
| 636 | |
| 637 function love.load() | |
| 638 math.randomseed(os.time()) | |
| 639 pig = { | |
| 640 x = cx, | |
| 641 y = cy, | |
| 642 img = loadimage(pig_png, "pig.png") | |
| 643 } | |
| 644 heart_image = loadimage(heart_png, "heart.png") | |
| 645 | |
| 646 add_heart_ring(100, 10, 2.4) | |
| 647 add_heart_ring(150, 20, 2.2) | |
| 648 add_heart_ring(200, 25, 2.0) | |
| 649 add_heart_ring(250, 35, 1.8) | |
| 650 add_heart_ring(300, 40, 1.6) | |
| 651 add_heart_ring(350, 50, 1.4) | |
| 652 add_heart_ring(400, 60, 1.2) | |
| 653 add_heart_ring(450, 70, 1) | |
| 654 end | |
| 655 | |
| 656 function love.update(dt) | |
| 657 update_hearts(dt) | |
| 658 end | |
| 659 | |
| 660 function love.draw() | |
| 661 love.graphics.setBackgroundColor(254, 224, 238) | |
| 662 draw_hearts() | |
| 663 draw_pig(pig) | |
| 664 end | |
| 665 | |
| 666 function love.keyreleased(key) | |
| 667 if key == "escape" then | |
| 668 love.event.quit() | |
| 669 end | |
| 670 end | |
| 671 | |
| 672 function love.conf(t) | |
| 673 t.title = "L\195\150VE " .. love._version .. " (" .. love._version_codename .. ")" | |
| 674 t.modules.audio = false | |
| 675 t.modules.sound = false | |
| 676 t.modules.physics = false | |
| 677 t.modules.joystick = false | |
| 678 end | |
| 679 end | |
| 680 | |
| 681 ----------------------------------------------------------- | |
| 682 -- Error screen. | |
| 683 ----------------------------------------------------------- | |
| 684 | |
|
1189
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
685 local debug, print = debug, print |
| 1096 | 686 |
| 687 local function error_printer(msg, layer) | |
| 688 print((debug.traceback("Error: " .. tostring(msg), 1+(layer or 1)):gsub("\n[^\n]+$", ""))) | |
| 689 end | |
| 690 | |
| 691 function love.errhand(msg) | |
| 692 msg = tostring(msg) | |
| 693 | |
| 694 error_printer(msg, 2) | |
| 695 | |
| 696 if not love.graphics or not love.event or not love.graphics.isCreated() then | |
| 697 return | |
| 698 end | |
| 699 | |
| 700 -- Load. | |
| 701 if love.audio then love.audio.stop() end | |
| 702 love.graphics.reset() | |
| 703 love.graphics.setBackgroundColor(89, 157, 220) | |
| 704 local font = love.graphics.newFont(14) | |
| 705 love.graphics.setFont(font) | |
| 706 | |
| 707 love.graphics.setColor(255, 255, 255, 255) | |
| 708 | |
| 709 local trace = debug.traceback() | |
| 710 | |
| 711 love.graphics.clear() | |
| 712 | |
| 713 local err = {} | |
| 714 | |
| 715 table.insert(err, "Error\n") | |
| 716 table.insert(err, msg.."\n\n") | |
| 717 | |
| 718 for l in string.gmatch(trace, "(.-)\n") do | |
| 719 if not string.match(l, "boot.lua") then | |
| 720 l = string.gsub(l, "stack traceback:", "Traceback\n") | |
| 721 table.insert(err, l) | |
| 722 end | |
| 723 end | |
| 724 | |
| 725 local p = table.concat(err, "\n") | |
| 726 | |
| 727 p = string.gsub(p, "\t", "") | |
| 728 p = string.gsub(p, "%[string \"(.-)\"%]", "%1") | |
| 729 | |
| 730 local function draw() | |
| 731 love.graphics.clear() | |
| 732 love.graphics.printf(p, 70, 70, love.graphics.getWidth() - 70) | |
| 733 love.graphics.present() | |
| 734 end | |
| 735 | |
| 736 draw() | |
| 737 | |
| 738 local e, a, b, c | |
| 739 while true do | |
| 740 e, a, b, c = love.event.wait() | |
| 741 | |
| 742 if e == "quit" then | |
| 743 return | |
| 744 end | |
| 745 if e == "keypressed" and a == "escape" then | |
| 746 return | |
| 747 end | |
| 748 | |
| 749 draw() | |
| 750 | |
| 751 end | |
| 752 | |
| 753 end | |
| 754 | |
| 755 function love.releaseerrhand(msg) | |
| 756 print("An error has occured, the game has been stopped.") | |
| 757 | |
| 758 if not love.graphics or not love.event or not love.graphics.isCreated() then | |
| 759 return | |
| 760 end | |
| 761 | |
| 762 love.graphics.setCanvas() | |
| 763 love.graphics.setPixelEffect() | |
| 764 | |
| 765 -- Load. | |
| 766 if love.audio then love.audio.stop() end | |
| 767 love.graphics.reset() | |
| 768 love.graphics.setBackgroundColor(89, 157, 220) | |
| 769 local font = love.graphics.newFont(14) | |
| 770 love.graphics.setFont(font) | |
| 771 | |
| 772 love.graphics.setColor(255, 255, 255, 255) | |
| 773 | |
| 774 love.graphics.clear() | |
| 775 | |
| 776 local err = {} | |
| 777 | |
| 778 p = string.format("An error has occured that caused %s to stop.\nYou can notify %s about this%s.", love._release.title or "this game", love._release.author or "the author", love._release.url and " at " .. love._release.url or "") | |
| 779 | |
| 780 local function draw() | |
| 781 love.graphics.clear() | |
| 782 love.graphics.printf(p, 70, 70, love.graphics.getWidth() - 70) | |
| 783 love.graphics.present() | |
| 784 end | |
| 785 | |
| 786 draw() | |
| 787 | |
| 788 local e, a, b, c | |
| 789 while true do | |
| 790 e, a, b, c = love.event.wait() | |
| 791 | |
| 792 if e == "quit" then | |
| 793 return | |
| 794 end | |
| 795 if e == "keypressed" and a == "escape" then | |
| 796 return | |
| 797 end | |
| 798 | |
| 799 draw() | |
| 800 | |
| 801 end | |
| 802 end | |
| 803 | |
|
1189
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
804 local function deferErrhand(...) |
|
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
805 local handler = ((love._release and love.releaseerrhand) or love.errhand or error_printer) |
|
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
806 return handler(...) |
|
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
807 end |
|
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
808 |
| 1096 | 809 |
| 810 ----------------------------------------------------------- | |
| 811 -- The root of all calls. | |
| 812 ----------------------------------------------------------- | |
| 813 | |
| 814 return function() | |
| 815 local result = xpcall(love.boot, error_printer) | |
| 816 if not result then return 1 end | |
|
1189
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
817 local result = xpcall(love.init, deferErrhand) |
| 1096 | 818 if not result then return 1 end |
|
1189
2e57cc4b8749
Make sure love.errhand gets a local reference to print as well, and find the error handler at errortime (partial #390)
Bart van Strien <bart.bes+projects@gmail.com>
parents:
1144
diff
changeset
|
819 local result, retval = xpcall(love.run, deferErrhand) |
| 1096 | 820 if not result then return 1 end |
| 821 | |
| 822 return tonumber(retval) or 0 | |
| 823 end |