Commit: 7337d5b015d2461714203001c68fc134dfea9645 - ikemen_go (git)

Go で書き直した Ikemen

Commit MetaInfo

• Revisão: 7337d5b015d2461714203001c68fc134dfea9645 (tree)
• Hora: 2016-11-25 00:12:33
• Autor: SUEHIRO <supersuehiro@user...>
• Commiter: SUEHIRO

Mensagem de Log

エラーが出たところから順番に実装していくことにした

Mudança Sumário

• modified: .gitignore
• add: script/debug.lua
• modified: script/main.lua
• add: script/randomtest.lua
• add: script/system.sff
• add: script/system.snd
• modified: src/anim.go
• modified: src/common.go
• modified: src/input.go
• add: src/lifebar.go
• modified: src/main.go
• modified: src/script.go

Diff

--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,5 @@
+/chars
 /data
 /go
 /sound
+/stages

--- /dev/null
+++ b/script/debug.lua
@@ -0,0 +1,108 @@
+
+addHotkey('c', true, false, false, 'toggleClsnDraw()')
+addHotkey('d', true, false, false, 'toggleDebugDraw()')
+addHotkey('s', true, false, false, 'changeSpeed()')
+addHotkey('l', true, false, false, 'toggleStatusDraw()')
+addHotkey('1', true, false, false, 'toggleAI(1)')
+addHotkey('2', true, false, false, 'toggleAI(2)')
+addHotkey('3', true, false, false, 'toggleAI(3)')
+addHotkey('4', true, false, false, 'toggleAI(4)')
+addHotkey('F1', false, false, false, 'kill(2);kill(4)')
+addHotkey('F1', true, false, false, 'kill(1);kill(3)')
+addHotkey('F2', false, false, false, 'kill(1,1);kill(2,1);kill(3,1);kill(4,1)')
+addHotkey('F2', true, false, false, 'kill(1,1);kill(3,1)')
+addHotkey('F2', false, false, true, 'kill(2,1);kill(4,1)')
+addHotkey('F3', false, false, false, 'powMax(1);powMax(2)')
+addHotkey('F4', false, false, false, 'roundReset()')
+addHotkey('F4', false, false, true, 'reload()')
+addHotkey('F5', false, false, false, 'setTime(0)')
+addHotkey(
+  'SPACE', false, false, false,
+  'full(1);full(2);full(3);full(4);setTime(getRoundTime())')
+addHotkey('PAUSE', false, false, false, 'togglePause()')
+addHotkey('SCROLLLOCK', false, false, false, 'step()')
+addHotkey('i', true, false, false, 'stand(1);stand(2);stand(3);stand(4)')
+
+
+speed = 1.0
+
+function changeSpeed()
+  if speed >= 4 then
+    speed = 0.25
+  else
+    speed = speed*2.0
+  end
+  setAccel(speed)
+end
+
+function toggleAI(p)
+  local oldid = id()
+  if player(p) then
+    if ailevel() > 0 then
+      setAILevel(0)
+    else
+      setAILevel(8)
+    end
+    playerid(oldid)
+  end
+end
+
+function kill(p, ...)
+  local oldid = id()
+  if player(p) then
+    local n = ...
+    if not n then n = 0 end
+    setLife(n)
+    playerid(oldid)
+  end
+end
+
+function powMax(p)
+  local oldid = id()
+  if player(p) then
+    setPower(powermax())
+    playerid(oldid)
+  end
+end
+
+function full(p)
+  local oldid = id()
+  if player(p) then
+    setLife(lifemax())
+    setPower(powermax())
+    playerid(oldid)
+  end
+end
+
+function stand(p)
+  local oldid = id()
+  if player(p) then
+    selfState(0)
+    playerid(oldid)
+  end
+end
+
+function info()
+  puts(
+    string.format(
+      'name:%s state:%d>%d %s move:%s physics:%s',
+      name(), prevstateno(), stateno(), statetype(), movetype(), physics()))
+  puts(
+    string.format(
+      'anim:%d %d elem:%d %d pos:%.3f,%.3f vel:%.3f,%.3f',
+      anim(), animtime(), animelemno(0), animelemtime(animelemno(0)),
+      posX(), posY(), velX(), velY()))
+end
+
+function status(p)
+  local oldid = id()
+  if not player(p) then return false end
+  ret =
+    string.format(
+      'STA:%s%s%s%6d(%d) ANI:%6d(%d)%2d LIF:%5d POW:%5d TIM:%d',
+      statetype(), movetype(), physics(), stateno(), stateOwner(),
+      anim(), animOwner(), animelemno(0), life(), power(), time())
+  playerid(oldid)
+  return ret;
+end
+

--- a/script/main.lua
+++ b/script/main.lua
@@ -1,44 +1,687 @@
-snd=sndNew('data/test.snd')
-playBGM('sound/test.ogg')
-sndPlay(snd,2,0)
-sndPlay(snd,0,1)
-sndPlay(snd,1,0)
-sff=sffNew('data/test.sff')
-sffv2=sffNew('data/testv2.sff')
-anim=animNew(sffv2,[[
-Clsn2Default: 2
- Clsn2[0] = -52,0,64,-316
- Clsn2[1] =   20,-316,-28,-372
-0,0,0,0, 10
-0,1,0,0, 7
-0,2,0,0, 7
-0,3,0,0, 7
-0,4,0,0, 7
-0,5,0,0, 45
-0,4,0,0, 7
-0,3,0,0, 7
-0,2,0,0, 7
-0,1,0,0, 7
-0,0,0,0, 40,,,-0.5,0.5,90
-]])
-animSetPos(anim,80,60)
-animAddPos(anim,80,60)
-animSetTile(anim,1,1)
-animSetColorKey(anim,-1)
-animSetAlpha(anim,128,128)
-animSetScale(anim,0.5,0.5)
-animSetWindow(anim,10,10,300,220)
-fnt=fontNew('data/test.fnt')
-txt=textImgNew()
-textImgSetFont(txt,fnt)
-textImgSetBank(txt,1)
-textImgSetAlign(txt,0)
-textImgSetText(txt,'Test')
-textImgSetPos(txt,160,120)
-textImgSetScale(txt,5,2)
-while true do
-  animUpdate(anim)
-  animDraw(anim)
-  textImgDraw(txt)
-  refresh()
-end
+
+setRoundTime(999 * 6)--frames
+setLifeMul(1.0)
+setTeam1VS2Life(1.0)
+setTurnsRecoveryRate(1.0 / 300.0)
+
+setZoom(false)
+setZoomMin(0.25)
+setZoomMax(1.0)
+setZoomSpeed(1.0)
+
+loadLifebar('data/gms_lifebar/fight.def')
+loadDebugFont('data/gms_lifebar/font2.fnt')
+setDebugScript('script/debug.lua')
+
+selectColumns = 10
+
+
+require('script.randomtest')
+
+function addWithRefresh(addFn, text)
+  local nextRefresh = os.clock() + 0.02
+  for i, c
+    in ipairs(script.randomtest.strsplit('\n',
+                                         text:gsub('^%s*(.-)%s*$', '%1')))
+  do
+    addFn(c)
+    if os.clock() >= nextRefresh then
+      refresh()
+      nextRefresh = os.clock() + 0.02
+    end
+  end
+end
+
+orgAddChar = addChar
+orgAddStage = addStage
+
+function addChar(text)
+  addWithRefresh(orgAddChar, text)
+end
+
+function addStage(text)
+  addWithRefresh(orgAddStage, text)
+end
+
+assert(loadfile('script/select.lua'))()
+
+
+math.randomseed(os.time())
+
+------------------------------------------------------------
+sysSff = sffNew('script/system.sff')
+sysSnd = sndNew('script/system.snd')
+jgFnt = fontNew('data/gms_lifebar/font2.fnt')
+
+bgm = ''
+playBGM(bgm)
+
+------------------------------------------------------------
+function setCommand(c)
+  commandAdd(c, 'u', '$U')
+  commandAdd(c, 'd', '$D')
+  commandAdd(c, 'l', '$B')
+  commandAdd(c, 'r', '$F')
+  commandAdd(c, 'a', 'a')
+  commandAdd(c, 'b', 'b')
+  commandAdd(c, 'c', 'c')
+  commandAdd(c, 'x', 'x')
+  commandAdd(c, 'y', 'y')
+  commandAdd(c, 'z', 'z')
+  commandAdd(c, 's', 's')
+  commandAdd(c, 'holds', '/s')
+  commandAdd(c, 'su', '/s, U')
+  commandAdd(c, 'sd', '/s, D')
+end
+
+p1Cmd = commandNew()
+setCommand(p1Cmd)
+
+p2Cmd = commandNew()
+setCommand(p2Cmd)
+
+------------------------------------------------------------
+selectRows = math.floor(selectColumns * 2 / 5.0)
+
+setRandomSpr(sysSff, 151, 0, 5.0/selectColumns, 5.0/selectColumns)
+setSelColRow(selectColumns, selectRows)
+setSelCellSize(29*5.0/selectColumns, 29*5.0/selectColumns)
+setSelCellScale(5.0/selectColumns, 5.0/selectColumns)
+
+function init()
+  p1TeamMode = 0
+  p1NumTurns  = 2
+  p1SelOffset = 0
+  p1SelX = 0
+  p1SelY = 0
+  p1Portrait = nil
+
+  p2TeamMode = 0
+  p2NumTurns  = 2
+  p2SelOffset = 0
+  p2SelX = 0
+  p2SelY = 0
+  p2Portrait = nil
+
+  stageNo = 0
+  setStage(0)
+end
+
+init()
+
+function noTask()
+end
+
+
+function animPosDraw(a, x, y)
+  animSetPos(a, x, y)
+  animDraw(a)
+end
+
+function textImgPosDraw(ti, x, y)
+  textImgSetPos(ti, x, y)
+  textImgDraw(ti)
+end
+
+function createTextImg(font, bank, aline, text, x, y)
+  local ti = textImgNew()
+  textImgSetFont(ti, font)
+  textImgSetBank(ti, bank)
+  textImgSetAlign(ti, aline)
+  textImgSetText(ti, text)
+  textImgSetPos(ti, x, y)
+  return ti
+end
+
+function btnPalNo(cmd)
+  local s = 0
+  if commandGetState(cmd, 'holds') then s = 6 end
+  if commandGetState(cmd, 'a') then return 1 + s end
+  if commandGetState(cmd, 'b') then return 2 + s end
+  if commandGetState(cmd, 'c') then return 3 + s end
+  if commandGetState(cmd, 'x') then return 4 + s end
+  if commandGetState(cmd, 'y') then return 5 + s end
+  if commandGetState(cmd, 'z') then return 6 + s end
+  return 0
+end
+
+------------------------------------------------------------
+p1SelTmTxt = createTextImg(jgFnt, 0, 1, 'Team Mode', 20, 30)
+p1SingleTxt = createTextImg(jgFnt, 0, 1, 'Single', 20, 50)
+p1SimulTxt = createTextImg(jgFnt, 0, 1, 'Simul', 20, 65)
+p1TurnsTxt = createTextImg(jgFnt, 0, 1, 'Turns', 20, 80)
+
+p1TmCursor = animNew(sysSff, [[
+180,0, 0,0, -1
+]])
+
+p1TmIcon = animNew(sysSff, [[
+181,0, 0,0, -1
+]])
+
+function p1TmSub()
+  if commandGetState(p1Cmd, 'u') then
+    sndPlay(sysSnd, 100, 0)
+    p1TeamMode = p1TeamMode - 1
+    if p1TeamMode < 0 then p1TeamMode = 2 end
+  elseif commandGetState(p1Cmd, 'd') then
+    sndPlay(sysSnd, 100, 0)
+    p1TeamMode = p1TeamMode + 1
+    if p1TeamMode > 2 then p1TeamMode = 0 end
+  elseif p1TeamMode == 2 then
+    if commandGetState(p1Cmd, 'l') then
+      sndPlay(sysSnd, 100, 0)
+      p1NumTurns = p1NumTurns - 1
+      if p1NumTurns < 1 then p1NumTurns = 1 end
+    elseif commandGetState(p1Cmd, 'r') then
+      sndPlay(sysSnd, 100, 0)
+      p1NumTurns = p1NumTurns + 1
+      if p1NumTurns > 4 then p1NumTurns = 4 end
+    end
+  end
+  textImgDraw(p1SelTmTxt)
+  textImgDraw(p1SingleTxt)
+  textImgDraw(p1SimulTxt)
+  textImgDraw(p1TurnsTxt)
+  animUpdate(p1TmIcon)
+  animPosDraw(p1TmIcon, 80, 66)
+  animPosDraw(p1TmIcon, 86, 66)
+  for i = 1, p1NumTurns do
+    animPosDraw(p1TmIcon, 74 + i*6, 81)
+  end
+  animUpdate(p1TmCursor)
+  animPosDraw(p1TmCursor, 10, 47 + p1TeamMode*15)
+  if btnPalNo(p1Cmd) > 0 then
+    sndPlay(sysSnd, 100, 1)
+    setTeamMode(1, p1TeamMode, p1NumTurns)
+    p1Selected = {}
+    p1SelEnd = false
+    p1Task = p1SelSub
+  end
+end
+
+
+------------------------------------------------------------
+p2SelTmTxt = createTextImg(jgFnt, 0, -1, 'Team Mode', 300, 30)
+p2SingleTxt = createTextImg(jgFnt, 0, -1, 'Single', 300, 50)
+p2SimulTxt = createTextImg(jgFnt, 0, -1, 'Simul', 300, 65)
+p2TurnsTxt = createTextImg(jgFnt, 0, -1, 'Turns', 300, 80)
+
+p2TmCursor = animNew(sysSff, [[
+190,0, 0,0, -1
+]])
+
+p2TmIcon = animNew(sysSff, [[
+191,0, 0,0, -1
+]])
+
+function p2TmSub()
+  if commandGetState(p2Cmd, 'u') then
+    sndPlay(sysSnd, 100, 0)
+    p2TeamMode = p2TeamMode - 1
+    if p2TeamMode < 0 then p2TeamMode = 2 end
+  elseif commandGetState(p2Cmd, 'd') then
+    sndPlay(sysSnd, 100, 0)
+    p2TeamMode = p2TeamMode + 1
+    if p2TeamMode > 2 then p2TeamMode = 0 end
+  elseif p2TeamMode == 2 then
+    if commandGetState(p2Cmd, 'r') then
+      sndPlay(sysSnd, 100, 0)
+      p2NumTurns = p2NumTurns - 1
+      if p2NumTurns < 1 then p2NumTurns = 1 end
+    elseif commandGetState(p2Cmd, 'l') then
+      sndPlay(sysSnd, 100, 0)
+      p2NumTurns = p2NumTurns + 1
+      if p2NumTurns > 4 then p2NumTurns = 4 end
+    end
+  end
+  textImgDraw(p2SelTmTxt)
+  textImgDraw(p2SingleTxt)
+  textImgDraw(p2SimulTxt)
+  textImgDraw(p2TurnsTxt)
+  animUpdate(p2TmIcon)
+  animPosDraw(p2TmIcon, 240, 66)
+  animPosDraw(p2TmIcon, 234, 66)
+  for i = 1, p2NumTurns do
+    animPosDraw(p2TmIcon, 246 - i*6, 81)
+  end
+  animUpdate(p2TmCursor)
+  animPosDraw(p2TmCursor, 310, 47 + p2TeamMode*15)
+  if btnPalNo(p2Cmd) > 0 then
+    sndPlay(sysSnd, 100, 1)
+    setTeamMode(2, p2TeamMode, p2NumTurns)
+    p2Selected = {}
+    p2SelEnd = false
+    p2Task = p2SelSub
+  end
+end
+
+
+------------------------------------------------------------
+p1Cursor = animNew(sysSff, [[
+160,0, 0,0, -1
+]])
+animSetScale(p1Cursor, 5.0/selectColumns, 5.0/selectColumns)
+
+p1NameTxt = createTextImg(jgFnt, 0, 1, '', 0, 0)
+textImgSetScale(p1NameTxt, 0.5, 0.5)
+
+function p1DrawSelectName()
+  local y = 162
+  for i = 1, #p1Selected do
+    textImgSetText(p1NameTxt, getCharName(p1Selected[i]))
+    textImgPosDraw(p1NameTxt, 10, y)
+    y = y + 7
+  end
+  return y
+end
+
+function p1SelSub()
+  local n = p1SelOffset + p1SelX + selectColumns*p1SelY
+  p1Portrait = n
+  local y = p1DrawSelectName()
+  if not p1SelEnd then
+    if commandGetState(p1Cmd, 'su') then
+      sndPlay(sysSnd, 100, 0)
+      p1SelY = p1SelY - 20
+    elseif commandGetState(p1Cmd, 'sd') then
+      sndPlay(sysSnd, 100, 0)
+      p1SelY = p1SelY + 20
+    elseif commandGetState(p1Cmd, 'u') then
+      sndPlay(sysSnd, 100, 0)
+      p1SelY = p1SelY - 1
+    elseif commandGetState(p1Cmd, 'd') then
+      sndPlay(sysSnd, 100, 0)
+      p1SelY = p1SelY + 1
+    elseif commandGetState(p1Cmd, 'l') then
+      sndPlay(sysSnd, 100, 0)
+      p1SelX = p1SelX - 1
+    elseif commandGetState(p1Cmd, 'r') then
+      sndPlay(sysSnd, 100, 0)
+      p1SelX = p1SelX + 1
+    end
+    if p1SelY < 0 then
+      p1SelOffset = p1SelOffset + selectColumns*p1SelY
+      p1SelY = 0
+    elseif p1SelY >= selectRows then
+      p1SelOffset = p1SelOffset + selectColumns*(p1SelY - (selectRows - 1))
+      p1SelY = selectRows - 1
+    end
+    if p1SelX < 0 then
+      p1SelX = selectColumns - 1
+    elseif p1SelX >= selectColumns then
+      p1SelX = 0
+    end
+    animUpdate(p1Cursor)
+    animPosDraw(
+      p1Cursor, 10 + 29*p1SelX*5.0/selectColumns,
+      170 + 29*p1SelY*5.0/selectColumns)
+    textImgSetText(p1NameTxt, getCharName(n))
+    textImgPosDraw(p1NameTxt, 10, y)
+    local selval = selectChar(1, n, btnPalNo(p1Cmd))
+    if selval > 0 then
+      sndPlay(sysSnd, 100, 1)
+      p1Selected[#p1Selected+1] = n
+    end
+    if selval == 2 then
+      p1SelEnd = true
+      if p2In == 1 then
+        p2Task = p2TmSub
+        commandBufReset(p2Cmd, p2In)
+      end
+    end
+  end
+end
+
+
+------------------------------------------------------------
+p2Cursor = animNew(sysSff, [[
+170,0, 0,0, -1
+]])
+animSetScale(p2Cursor, 5.0/selectColumns, 5.0/selectColumns)
+
+p2NameTxt = createTextImg(jgFnt, 0, -1, '', 0, 0)
+textImgSetScale(p2NameTxt, 0.5, 0.5)
+
+function p2DrawSelectName()
+  local y = 162
+  for i = 1, #p2Selected do
+    textImgSetText(p2NameTxt, getCharName(p2Selected[i]))
+    textImgPosDraw(p2NameTxt, 310, y)
+    y = y + 7
+  end
+  return y
+end
+
+function p2SelSub()
+  local n = p2SelOffset + p2SelX + selectColumns*p2SelY
+  p2Portrait = n
+  local y = p2DrawSelectName()
+  if not p2SelEnd then
+    if commandGetState(p2Cmd, 'su') then
+      sndPlay(sysSnd, 100, 0)
+      p2SelY = p2SelY - 20
+    elseif commandGetState(p2Cmd, 'sd') then
+      sndPlay(sysSnd, 100, 0)
+      p2SelY = p2SelY + 20
+    elseif commandGetState(p2Cmd, 'u') then
+      sndPlay(sysSnd, 100, 0)
+      p2SelY = p2SelY - 1
+    elseif commandGetState(p2Cmd, 'd') then
+      sndPlay(sysSnd, 100, 0)
+      p2SelY = p2SelY + 1
+    elseif commandGetState(p2Cmd, 'l') then
+      sndPlay(sysSnd, 100, 0)
+      p2SelX = p2SelX - 1
+    elseif commandGetState(p2Cmd, 'r') then
+      sndPlay(sysSnd, 100, 0)
+      p2SelX = p2SelX + 1
+    end
+    if p2SelY < 0 then
+      p2SelOffset = p2SelOffset + selectColumns*p2SelY
+      p2SelY = 0
+    elseif p2SelY >= selectRows then
+      p2SelOffset = p2SelOffset + selectColumns*(p2SelY - (selectRows - 1))
+      p2SelY = selectRows - 1
+    end
+    if p2SelX < 0 then
+      p2SelX = selectColumns - 1
+    elseif p2SelX >= selectColumns then
+      p2SelX = 0
+    end
+    animUpdate(p2Cursor)
+    animPosDraw(
+      p2Cursor, 169 + 29*p2SelX*5.0/selectColumns,
+      170 + 29*p2SelY*5.0/selectColumns)
+    textImgSetText(p2NameTxt, getCharName(n))
+    textImgPosDraw(p2NameTxt, 310, y)
+    local selval = selectChar(2, n, btnPalNo(p2Cmd))
+    if selval > 0 then
+      sndPlay(sysSnd, 100, 1)
+      p2Selected[#p2Selected+1] = n
+    end
+    if selval == 2 then
+      p2SelEnd = true
+      if p1In == 2 then
+        p1Task = p1TmSub
+        commandBufReset(p1Cmd, p1In)
+      end
+    end
+  end
+end
+
+
+------------------------------------------------------------
+selStageTxt = createTextImg(jgFnt, 0, 0, '', 160, 237)
+textImgSetScale(selStageTxt, 0.5, 0.5)
+
+function selStageSub()
+  if commandGetState(p1Cmd, 'l') then
+    sndPlay(sysSnd, 100, 0)
+    stageNo = setStage(stageNo - 1)
+  elseif commandGetState(p1Cmd, 'r') then
+    sndPlay(sysSnd, 100, 0)
+    stageNo = setStage(stageNo + 1)
+  elseif commandGetState(p1Cmd, 'u') then
+    sndPlay(sysSnd, 100, 0)
+    stageNo = setStage(stageNo - 10)
+  elseif commandGetState(p1Cmd, 'd') then
+    sndPlay(sysSnd, 100, 0)
+    stageNo = setStage(stageNo + 10)
+  end
+  textImgSetText(
+    selStageTxt, 'Stage ' .. stageNo .. ': ' .. getStageName(stageNo))
+  textImgDraw(selStageTxt)
+  if btnPalNo(p1Cmd) > 0 then
+    selectStage(stageNo)
+    selMode = false
+  end
+end
+
+
+------------------------------------------------------------
+selBG = animNew(sysSff, [[
+100,0, 0,0, -1
+]])
+animSetTile(selBG, 1, 1)
+animSetColorKey(selBG, -1)
+animSetScale(selBG, 0.5, 0.5)
+
+selBox = animNew(sysSff, [[
+100,1, 0,0, -1
+]])
+animSetTile(selBox, 1, 0)
+animSetColorKey(selBox, -1)
+animSetAlpha(selBox, 1, 255)
+animSetPos(selBox, 0, 166)
+animSetWindow(selBox, 5, 0, 151, 240)
+
+selBox2 = animNew(sysSff, [[
+100,1, 0,0, -1
+]])
+animSetTile(selBox2, 1, 0)
+animSetColorKey(selBox2, -1)
+animSetAlpha(selBox2, 1, 255)
+animSetPos(selBox2, 0, 166)
+animSetWindow(selBox2, 164, 0, 151, 240)
+
+function bgSub()
+  animAddPos(selBG, 1, 1)
+  animUpdate(selBG)
+  animDraw(selBG)
+  animAddPos(selBox, 1, 0)
+  animUpdate(selBox)
+  animDraw(selBox)
+  animAddPos(selBox2, 1, 0)
+  animUpdate(selBox2)
+  animDraw(selBox2)
+end
+
+
+------------------------------------------------------------
+watchMode = createTextImg(jgFnt, 0, 1, 'Watch Mode', 100, 80)
+p1VsComTxt = createTextImg(jgFnt, 0, 1, '1P vs. Com', 100, 100)
+p1VsP2 = createTextImg(jgFnt, 0, 1, '1P vs. 2P', 100, 120)
+netplay = createTextImg(jgFnt, 0, 1, 'Netplay', 100, 140)
+portChange = createTextImg(jgFnt, 0, 1, '', 100, 160)
+replay = createTextImg(jgFnt, 0, 1, 'Replay', 100, 180)
+comVsP1 = createTextImg(jgFnt, 0, 1, 'Com vs. 1P', 100, 200)
+autoRandomTest = createTextImg(jgFnt, 0, 1, 'Auto Random Test', 100, 220)
+
+connecting = createTextImg(jgFnt, 0, 1, '', 10, 140)
+loading = createTextImg(jgFnt, 0, 1, 'Loading...', 100, 210)
+
+inputdia = inputDialogNew()
+
+function cmdInput()
+  commandInput(p1Cmd, p1In)
+  commandInput(p2Cmd, p2In)
+end
+
+function main()
+  while true do
+    p1Selected = {}
+    p1SelEnd = false
+    p1Portrait = nil
+
+    p2Selected = {}
+    p2SelEnd = false
+    p2Portrait = nil
+
+    if gameMode == 6 then
+      p1Task = noTask
+      p2Task = p2TmSub
+    else
+      p1Task = p1TmSub
+      p2Task = noTask
+      if gameMode > 1 then p2Task = p2TmSub end
+    end
+
+    refresh()
+
+    commandBufReset(p1Cmd, p1In)
+    commandBufReset(p2Cmd, p2In)
+
+    selMode = true
+    selectStart()
+
+    ------------------------------------------------------------
+    --メインループ
+    ------------------------------------------------------------
+    while selMode do
+      if esc() then return end
+      bgSub()
+      if p1Portrait then drawPortrait(p1Portrait, 18, 13, 1, 1) end
+      if p2Portrait then drawPortrait(p2Portrait, 302, 13, -1, 1) end
+      drawFace(10, 170, p1SelOffset)
+      drawFace(169, 170, p2SelOffset)
+      if p1SelEnd and p2SelEnd then selStageSub() end
+      p2Task()
+      p1Task()
+      cmdInput()
+      refresh()
+    end
+    for i = 1, 20 do
+      animDraw(selBG)
+      local k = 0
+      for j = 1, #p1Selected do
+        local scl = 10000.0 / (10000.0 - k*i)
+        local tmp = i*k / 20
+        drawPortrait(p1Selected[j], 18 - tmp, 13 + tmp/3, scl, scl)
+        k = k + 48
+      end
+      k = 0
+      for j = 1, #p2Selected do
+        local scl = 10000.0 / (10000.0 - k*i)
+        local tmp = i*k / 20
+        drawPortrait(p2Selected[j], 302 + tmp, 13 + tmp/3, -scl, scl)
+        k = k + 48
+      end
+      p1DrawSelectName()
+      p2DrawSelectName()
+      textImgDraw(loading)
+      refresh()
+    end
+    game()
+    playBGM(bgm)
+  end
+end
+
+function modeSel()
+  while true do
+    exitNetPlay()
+    exitReplay()
+
+    gameMode = 0
+    p1In = 1
+    p2In = 1
+
+    for i = 1, 8 do
+      setCom(i, 8)
+    end
+    setAutoLevel(false)
+    setMatchNo(1)
+    setHomeTeam(1)
+    resetRemapInput()
+
+    textImgSetText(portChange, 'Port Change(' .. getListenPort() .. ')')
+
+    refresh()
+    commandBufReset(p1Cmd, 1)
+
+    while btnPalNo(p1Cmd) <= 0 do
+      if commandGetState(p1Cmd, 'u') then
+        sndPlay(sysSnd, 100, 0)
+        gameMode = gameMode - 1
+      elseif commandGetState(p1Cmd, 'd') then
+        sndPlay(sysSnd, 100, 0)
+        gameMode = gameMode + 1
+      end
+      if gameMode < 0 then
+        gameMode = 7
+      elseif gameMode > 7 then
+        gameMode = 0
+      end
+      textImgDraw(watchMode)
+      textImgDraw(p1VsComTxt)
+      textImgDraw(p1VsP2)
+      textImgDraw(netplay)
+      textImgDraw(portChange)
+      textImgDraw(replay)
+      textImgDraw(comVsP1)
+      textImgDraw(autoRandomTest)
+      animUpdate(p1TmCursor)
+      animPosDraw(p1TmCursor, 95, 77 + 20*gameMode)
+      cmdInput()
+      refresh()
+    end
+    sndPlay(sysSnd, 100, 1)
+
+    local cancel = false
+
+    if gameMode == 0 then
+    elseif gameMode == 1 then
+      setCom(1, 0)
+    elseif gameMode == 2 then
+      p2In = 2
+      setCom(1, 0)
+      setCom(2, 0)
+    elseif gameMode == 3 then
+      p2In = 2
+      setCom(1, 0)
+      setCom(2, 0)
+      inputDialogPopup(inputdia, 'Input Server')
+      while not inputDialogIsDone(inputdia) do
+        refresh()
+      end
+      textImgSetText(
+        connecting,
+        'Now connecting.. ' .. inputDialogGetStr(inputdia)
+        .. ' ' .. getListenPort())
+      enterNetPlay(inputDialogGetStr(inputdia))
+      while not connected() do
+        if esc() then
+          cancel = true
+          break
+        end
+        textImgDraw(connecting)
+        refresh()
+      end
+      if not cancel then
+        init()
+        synchronize()
+        math.randomseed(sszRandom())
+      end
+    elseif gameMode == 4 then
+      inputDialogPopup(inputdia, 'Input Port')
+      while not inputDialogIsDone(inputdia) do
+        refresh()
+      end
+      setListenPort(inputDialogGetStr(inputdia))
+      cancel = true
+    elseif gameMode == 5 then
+      p2In = 2
+      setCom(1, 0)
+      setCom(2, 0)
+      enterReplay('replay/netplay.replay')
+      init()
+      synchronize()
+      math.randomseed(sszRandom())
+    elseif gameMode == 6 then
+      remapInput(1, 2)
+      remapInput(2, 1)
+      p1In = 2
+      p2In = 2
+      setCom(2, 0)
+    elseif gameMode == 7 then
+      script.randomtest.run()
+      cancel = true
+    end
+    if not cancel then
+      main()
+    end
+  end
+end
+
+modeSel()
+

--- /dev/null
+++ b/script/randomtest.lua
@@ -0,0 +1,291 @@
+
+module(..., package.seeall)
+
+function strsplit(delimiter, text)
+  local list = {}
+  local pos = 1
+  if string.find('', delimiter, 1) then
+    if string.len(text) == 0 then
+      table.insert(list, text)
+    else
+      for i = 1, string.len(text) do
+        table.insert(list, string.sub(text, i, i))
+      end
+    end
+  else
+    while true do
+      local first, last = string.find(text, delimiter, pos)
+      if first then
+        table.insert(list, string.sub(text, pos, first-1))
+        pos = last+1
+      else
+        table.insert(list, string.sub(text, pos))
+        break
+      end
+    end
+  end
+  return list
+end
+
+function strtrim(s)
+  return string.match(s,'^()%s*$') and '' or string.match(s,'^%s*(.*%S)')
+end
+
+function map(func, table)
+  local dest = {}
+  for k, v in pairs(table) do
+    dest[k] = func(v)
+  end
+  return dest
+end
+
+
+tuyoiBorder = 0
+juuni = 12
+moudeta = {}
+rank = 0
+saikyou = false
+roster = {}
+debugText = ''
+numChars = 0
+nextChar = 1
+
+function addMoudeta(rank)
+  moudeta[#moudeta + 1] = rank
+  local max =
+    math.floor(
+      numChars / (math.min(numChars / (juuni*10) + 3, juuni)*juuni))
+  while #moudeta > max do
+    table.remove(moudeta, 1)
+  end
+end
+function randRank()
+  local r = 0
+  while true do
+    r = math.random(1, tuyoiBorder + juuni - 2);
+    local notbroken = true
+    for i = 1, #moudeta do
+      if math.abs(moudeta[i] - r) <= math.floor(juuni/3) then
+        notbroken = false
+        break
+      end
+    end
+    if notbroken then
+      break
+    end
+  end
+  return r
+end
+
+function eachAllChars(f)
+  for cel = 0, numSelCells()-1 do
+    if getCharFileName(cel) ~= 'randomselect' and getCharName(cel) ~= '' then
+      f(cel)
+    end
+  end
+end
+
+function rakuBenry()
+  local alf = 'autolevel.txt'
+  local veljnz = {}
+  local winct = {}
+  local buf = '\239\187\191'
+  local fp = io.open(alf, 'r')
+  if fp then
+    for line in fp:lines() do
+      local tmp = strsplit(',', line)
+      if #tmp >= 2 then
+        for i = 1, 4 do
+          if i == 4 then
+            tmp[1] = string.sub(tmp[1], 4)
+          else
+            if string.byte(tmp[1], i) ~= string.byte(buf, i) then break end
+          end
+        end
+        winct[tmp[1]] = map(tonumber, strsplit(' ', strtrim(tmp[2])))
+      end
+    end
+    io.close(fp)
+  end
+  numChars = 0
+  eachAllChars(function(cel)
+    numChars = numChars + 1
+  end)
+  local tuyoninzu = math.floor(numChars / (juuni*10))
+  if tuyoninzu < juuni - 1 then
+    tuyoiBorder =  math.floor(numChars / (tuyoninzu + 1))
+    tuyoninzu = juuni - 1
+  else
+    tuyoiBorder = math.floor(numChars / juuni)
+  end
+  local total = 0
+  local zero ={}
+  local tsuyoshi = {}
+  local rand = {}
+  local kai = {}
+  local bimyou = {}
+  local tuyocnt = 0
+  local ran = randRank()
+  eachAllChars(function(cel)
+    if #veljnz < cel*12 then
+      for i = #veljnz + 1, cel*12 do
+        veljnz[i] = 0
+      end
+    end
+    local wins = winct[getCharFileName(cel)]
+    local tmp = 0
+    for j = 1, 12 do
+      if wins and j <= #wins then
+        total = total + wins[j]
+        veljnz[cel*12 + j] = wins[j]
+        tmp = tmp + wins[j]
+      else
+        veljnz[cel*12 + j] = 0
+      end
+    end
+    if tmp >= tuyoiBorder then tuyocnt = tuyocnt + 1 end
+    if tmp >= tuyoiBorder - juuni then table.insert(tsuyoshi, cel) end
+    if tmp >= 1 and tmp <= juuni then table.insert(bimyou, cel) end
+    if tmp > ran-juuni and tmp <= ran then table.insert(rand, cel) end
+    if tmp == 0 then table.insert(zero, cel) end
+    if tmp < 0 then table.insert(kai, cel) end
+  end)
+  function charAdd(cList, numAdd)
+    if numAdd <= 0 then return end
+    for i = 1, numAdd do
+      if #cList == 0 then break end
+      local cidx = math.random(1, #cList)
+      table.insert(roster, cList[cidx])
+      table.remove(cList, cidx)
+    end
+  end
+  roster = {}
+  nextChar = 1
+  debugText = ''
+  local numZero = #zero
+  if numZero > 0 then
+    charAdd(zero, numZero)
+    charAdd(kai, tuyoninzu - numZero)
+    rank = 0
+  elseif #bimyou >= math.max(tuyoninzu*20, math.floor((numChars*3)/20)) then
+    charAdd(bimyou, #bimyou)
+    rank = juuni
+  else
+    for n = 1, 3 do
+      if #rand >= tuyoninzu then break end
+      rand = {}
+      ran = randRank()
+      eachAllChars(function(cel)
+        local tmp = 0
+        for j = 1, 12 do
+          tmp = tmp + veljnz[cel*12 + j]
+        end
+        if tmp > ran-juuni and tmp <= ran then table.insert(rand, cel) end
+      end)
+    end
+    debugText = ran .. ' ' .. #rand
+    if #rand >= tuyoninzu then
+      charAdd(rand, #rand)
+      rank = ran
+      addMoudeta(rank)
+    elseif tuyocnt >= tuyoninzu then
+      charAdd(tsuyoshi, #tsuyoshi)
+      rank = tuyoiBorder+juuni-1
+    else
+      addMoudeta(tuyoiBorder + (juuni-2) - math.floor(juuni/3))
+      charAdd(kai, #kai)
+      rank = -1
+    end
+  end
+  if numZero == 0 then
+    while total ~= 0 do
+      local i = math.random(1, #veljnz)
+      if total > 0 then
+        veljnz[i] = veljnz[i] - 1
+        total = total - 1
+      else
+        veljnz[i] = veljnz[i] + 1
+        total = total + 1
+      end
+    end
+  end
+  eachAllChars(function(cel)
+    buf = buf .. getCharFileName(cel) .. ','
+    for j = 1, 12 do
+      buf = buf .. ' ' .. veljnz[cel*12 + j]
+    end
+    buf = buf .. '\r\n'
+  end)
+  local alv = io.open(alf, 'wb')
+  alv:write(buf)
+  io.close(alv)
+end
+
+function randSel(pno, winner)
+  if winner > 0 and (pno == winner) == not saikyou then return end
+  local team
+  if rank == 0 or rank == 12 or saikyou then
+    team = 0
+  elseif rank < 0 then
+    team = math.random(0, 2)
+  else
+    team = math.random(0, 1)*2
+  end
+  setTeamMode(pno, team, math.random(1, 4))
+  local tmp = 0
+  while tmp < 2 do
+    tmp = selectChar(pno, roster[nextChar], math.random(1, 12))
+    nextChar = nextChar + 1
+    if nextChar > #roster then nextChar = 1 end
+  end
+end
+
+function rosterTxt()
+  local str = "Rank: " .. rank .. ' ' .. debugText
+  for i = 1, #roster do
+    str = str .. '\n' .. getCharFileName(roster[i])
+  end
+  dscr = io.open('script/randomroster.txt', 'w')
+  dscr:write(str)
+  io.close(dscr)
+end
+
+
+function init()
+  for i = 1, 8 do
+    setCom(i, 8)
+  end
+  setAutoLevel(true)
+  setMatchNo(1)
+  selectStage(0)
+  rakuBenry()
+  winner = 0
+  wins = 0
+  rosterTxt()
+  nextChar = 1
+  saikyou = rank == tuyoiBorder+juuni-1
+end
+
+function run()
+  init()
+  refresh()
+  while not esc() do
+    randSel(1, winner)
+    randSel(2, winner)
+    loadStart()
+    local oldwinner = winner
+    winner = game()
+    if winner < 0 or esc() then break end
+    oldwins = wins
+    wins = wins + 1
+    if winner ~= oldwinner then
+      wins = 1
+      setHomeTeam(winner == 1 and 2 or 1)
+    end
+    setMatchNo(wins)
+    if winner <= 0 or wins >= 20 or wins == oldwins then
+      init()
+    end
+    refresh()
+  end
+end

Binary files /dev/null and b/script/system.sff differ

Binary files /dev/null and b/script/system.snd differ

--- a/src/anim.go
+++ b/src/anim.go
@@ -263,6 +263,27 @@ func ReadAnimation(sff *Sff, lines []string, i *int) *Animation {
 	}
 	return a
 }
+func ReadAction(sff *Sff, lines []string, i *int) (no int32, a *Animation) {
+	var name, subname string
+	for ; *i < len(lines); (*i)++ {
+		name, subname = SectionName(lines[*i])
+		if len(name) > 0 {
+			break
+		}
+	}
+	if name != "begin " {
+		return
+	}
+	spi := strings.Index(subname, " ")
+	if spi < 0 {
+		return
+	}
+	if strings.ToLower(subname[:spi+1]) != "action " {
+		return
+	}
+	(*i)++
+	return Atoi(subname[spi+1:]), ReadAnimation(sff, lines, i)
+}
 func (a *Animation) AnimTime() int32 {
 	return a.sumtime - a.totaltime
 }
@@ -468,6 +489,52 @@ func (a *Animation) Draw(window *[4]int32, x, y, xcs, ycs, xs, xbs, ys,
 		rcx, rcy, pfx)
 }
 
+type AnimationTable struct{ table map[int32]*Animation }
+
+func NewAnimationTable() *AnimationTable {
+	return &AnimationTable{table: make(map[int32]*Animation)}
+}
+func (al *AnimationTable) NewAnimation(no int32,
+	sff *Sff, lines []string, i *int) *Animation {
+	a := ReadAnimation(sff, lines, i)
+	al.table[no] = a
+	return a
+}
+func (al *AnimationTable) readActionSub(sff *Sff,
+	lines []string, i *int) *Animation {
+	for *i < len(lines) {
+		no, a := ReadAction(sff, lines, i)
+		if a != nil {
+			if al.table[no] == nil {
+				al.table[no] = a
+				for len(a.frames) == 0 {
+					a2 := al.readActionSub(sff, lines, i)
+					if a2 != nil {
+						*a = *a2
+					}
+				}
+			}
+			return a
+		} else {
+			(*i)++
+		}
+	}
+	return nil
+}
+func (al *AnimationTable) ReadAction(sff *Sff, lines []string, i *int) {
+	for al.readActionSub(sff, lines, i) != nil {
+	}
+}
+func (al *AnimationTable) get(no int32) *Animation {
+	a := al.table[no]
+	if a == nil {
+		return a
+	}
+	ret := &Animation{}
+	*ret = *a
+	return ret
+}
+
 type Anim struct {
 	anim             *Animation
 	window           [4]int32

--- a/src/common.go
+++ b/src/common.go
@@ -1,6 +1,7 @@
 package main
 
 import (
+	"io/ioutil"
 	"math"
 	"strings"
 )
@@ -151,6 +152,17 @@ func AsciiToString(ascii []byte) string {
 	}
 	return string(buf)
 }
+func LoadText(filename string) (string, error) {
+	bytes, err := ioutil.ReadFile(filename)
+	if err != nil {
+		return "", err
+	}
+	if len(bytes) >= 3 &&
+		bytes[0] == 0xef && bytes[1] == 0xbb && bytes[2] == 0xbf {
+		return string(bytes[3:]), nil
+	}
+	return AsciiToString(bytes), nil
+}
 func SplitAndTrim(str, sep string) (ss []string) {
 	ss = strings.Split(str, sep)
 	for i, s := range ss {
@@ -170,7 +182,7 @@ func SectionName(sec string) (string, string) {
 	var name string
 	i := strings.Index(sec, " ")
 	if i >= 0 {
-		name = sec[:i]
+		name = sec[:i+1]
 		sec = sec[i+1:]
 	} else {
 		name = sec

--- a/src/input.go
+++ b/src/input.go
@@ -868,8 +868,10 @@ func (c *Command) bufTest(cbuf *CommandBuffer, ai bool,
 	if c.tamei != c.cmdi {
 		if c.cmd[c.cmdi].tametime > 1 {
 			for _, k := range c.cmd[c.cmdi].key {
-				ks:=cbuf.State(k)
-				if ks>0{return ai}
+				ks := cbuf.State(k)
+				if ks > 0 {
+					return ai
+				}
 				if func() bool {
 					if ai {
 						return Rand(0, c.cmd[c.cmdi].tametime) != 0
@@ -947,3 +949,15 @@ func (c *Command) Step(cbuf *CommandBuffer, ai, hitpause bool, buftime int32) {
 		c.curbuftime = c.buftime + buftime
 	}
 }
+
+type CommandList struct {
+	Buffer            []CommandBuffer
+	Names             map[string]int
+	Commands          [][]Command
+	DefaultTime       int32
+	DefaultBufferTime int32
+}
+
+func NewCommandList() *CommandList {
+	return &CommandList{Names: make(map[string]int)}
+}

--- /dev/null
+++ b/src/lifebar.go
@@ -0,0 +1,13 @@
+package main
+
+type Lifebar struct{ aniTbl *AnimationTable }
+
+func LoadLifebar(deffile string) (*Lifebar, error) {
+	l := &Lifebar{aniTbl: NewAnimationTable()}
+	str, err := LoadText(deffile)
+	if err != nil {
+		return nil, err
+	}
+	lines := SplitAndTrim(str, "\n")
+	return l, nil
+}

--- a/src/main.go
+++ b/src/main.go
@@ -14,9 +14,13 @@ var gameWidth, gameHeight int32 = 320, 240
 var widthScale, heightScale float32 = 1, 1
 var window *glfw.Window
 var gameEnd, frameSkip = false, false
-var redrawWait = struct{ nextTime, lastDraw time.Time }{}
-var brightness = int32(256)
-var introTime = int32(0)
+var redrawWait struct{ nextTime, lastDraw time.Time }
+var brightness int32 = 256
+var introTime, roundTime int32 = 0, -1
+var lifeMul, team1VS2Life float32 = 1, 1
+var turnsRecoveryRate float32 = 1.0 / 300
+var zoomEnable = false
+var zoomMin, zoomMax, zoomSpeed float32 = 1, 1, 1
 
 func init() {
 	runtime.LockOSThread()

--- a/src/script.go
+++ b/src/script.go
@@ -12,24 +12,31 @@ func luaRegister(l *lua.State, name string, f func(*lua.State) int) {
 func strArg(l *lua.State, argi int) string {
 	str, ok := l.ToString(argi)
 	if !ok {
-		panic(lua.RuntimeError(
-			fmt.Sprintf("%d番目の引数が文字列ではありません。", argi)))
+		lua.Errorf(l, "%d番目の引数が文字列ではありません。", argi)
 	}
 	return str
 }
 func numArg(l *lua.State, argi int) float64 {
 	num, ok := l.ToNumber(argi)
 	if !ok {
-		panic(lua.RuntimeError(
-			fmt.Sprintf("%d番目の引数が数ではありません。", argi)))
+		lua.Errorf(l, "%d番目の引数が数ではありません。", argi)
 	}
 	return num
 }
+func boolArg(l *lua.State, argi int) bool {
+	if !l.IsBoolean(argi) {
+		lua.Errorf(l, "%d番目の引数が論理値ではありません。", argi)
+	}
+	return l.ToBoolean(argi)
+}
+func userDataError(l *lua.State, argi int, udtype interface{}) {
+	lua.Errorf(l, fmt.Sprintf("%d番目の引数が%Tではありません。", argi, udtype))
+}
 func scriptCommonInit(l *lua.State) {
 	luaRegister(l, "sffNew", func(l *lua.State) int {
 		sff, err := LoadSff(strArg(l, 1), false)
 		if err != nil {
-			panic(lua.RuntimeError(err.Error()))
+			lua.Errorf(l, err.Error())
 		}
 		l.PushUserData(sff)
 		return 1
@@ -37,7 +44,7 @@ func scriptCommonInit(l *lua.State) {
 	luaRegister(l, "sndNew", func(l *lua.State) int {
 		snd, err := LoadSnd(strArg(l, 1))
 		if err != nil {
-			panic(lua.RuntimeError(err.Error()))
+			lua.Errorf(l, err.Error())
 		}
 		l.PushUserData(snd)
 		return 1
@@ -45,26 +52,31 @@ func scriptCommonInit(l *lua.State) {
 	luaRegister(l, "fontNew", func(l *lua.State) int {
 		fnt, err := LoadFnt(strArg(l, 1))
 		if err != nil {
-			panic(lua.RuntimeError(err.Error()))
+			lua.Errorf(l, err.Error())
 		}
 		l.PushUserData(fnt)
 		return 1
 	})
 	luaRegister(l, "sndPlay", func(l *lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Snd:
-		default:
-			panic(lua.RuntimeError("1番目の引数がSndではありません。"))
+		s, ok := l.ToUserData(1).(*Snd)
+		if !ok {
+			userDataError(l, 1, s)
 		}
-		ud.(*Snd).Play(int32(numArg(l, 2)), int32(numArg(l, 3)))
+		s.Play(int32(numArg(l, 2)), int32(numArg(l, 3)))
 		return 0
 	})
 	luaRegister(l, "playBGM", func(l *lua.State) int {
 		bgm.Open(strArg(l, 1))
 		return 0
 	})
+	luaRegister(l, "setRoundTime", func(l *lua.State) int {
+		roundTime = int32(numArg(l, 1))
+		return 0
+	})
 }
+
+// System Script
+
 func systemScriptInit(l *lua.State) {
 	scriptCommonInit(l)
 	luaRegister(l, "textImgNew", func(*lua.State) int {
@@ -72,195 +84,188 @@ func systemScriptInit(l *lua.State) {
 		return 1
 	})
 	luaRegister(l, "textImgSetFont", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		fnt := l.ToUserData(2)
-		switch fnt.(type) {
-		case *Fnt:
-		default:
-			panic(lua.RuntimeError("2番目の引数がFntではありません。"))
+		fnt, ok2 := l.ToUserData(2).(*Fnt)
+		if !ok2 {
+			userDataError(l, 2, fnt)
 		}
-		ud.(*TextSprite).fnt = fnt.(*Fnt)
+		ts.fnt = fnt
 		return 0
 	})
 	luaRegister(l, "textImgSetBank", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		ud.(*TextSprite).bank = int32(numArg(l, 2))
+		ts.bank = int32(numArg(l, 2))
 		return 0
 	})
 	luaRegister(l, "textImgSetAlign", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		ud.(*TextSprite).align = int32(numArg(l, 2))
+		ts.align = int32(numArg(l, 2))
 		return 0
 	})
 	luaRegister(l, "textImgSetText", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		ud.(*TextSprite).text = strArg(l, 2)
+		ts.text = strArg(l, 2)
 		return 0
 	})
 	luaRegister(l, "textImgSetPos", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		ud.(*TextSprite).x = float32(numArg(l, 2))
-		ud.(*TextSprite).y = float32(numArg(l, 3))
+		ts.x, ts.y = float32(numArg(l, 2)), float32(numArg(l, 3))
 		return 0
 	})
 	luaRegister(l, "textImgSetScale", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		ud.(*TextSprite).xscl = float32(numArg(l, 2))
-		ud.(*TextSprite).yscl = float32(numArg(l, 3))
+		ts.xscl, ts.yscl = float32(numArg(l, 2)), float32(numArg(l, 3))
 		return 0
 	})
 	luaRegister(l, "textImgDraw", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *TextSprite:
-		default:
-			panic(lua.RuntimeError("1番目の引数がTextSpriteではありません。"))
+		ts, ok := l.ToUserData(1).(*TextSprite)
+		if !ok {
+			userDataError(l, 1, ts)
 		}
-		ud.(*TextSprite).Draw()
+		ts.Draw()
 		return 0
 	})
 	luaRegister(l, "animNew", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Sff:
-		default:
-			panic(lua.RuntimeError("1番目の引数がSffではありません。"))
+		s, ok := l.ToUserData(1).(*Sff)
+		if !ok {
+			userDataError(l, 1, s)
 		}
 		act := strArg(l, 2)
-		anim := NewAnim(ud.(*Sff), act)
+		anim := NewAnim(s, act)
 		if anim == nil {
-			panic(lua.RuntimeError(fmt.Sprintf(
-				"\n%s\n\nデータの読み込みに失敗しました。", act)))
+			lua.Errorf(l, "\n%s\n\nデータの読み込みに失敗しました。", act)
 		}
 		l.PushUserData(anim)
 		return 1
 	})
 	luaRegister(l, "animSetPos", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).SetPos(float32(numArg(l, 2)), float32(numArg(l, 3)))
+		a.SetPos(float32(numArg(l, 2)), float32(numArg(l, 3)))
 		return 0
 	})
 	luaRegister(l, "animAddPos", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).AddPos(float32(numArg(l, 2)), float32(numArg(l, 3)))
+		a.AddPos(float32(numArg(l, 2)), float32(numArg(l, 3)))
 		return 0
 	})
 	luaRegister(l, "animSetTile", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).SetTile(int32(numArg(l, 2)), int32(numArg(l, 3)))
+		a.SetTile(int32(numArg(l, 2)), int32(numArg(l, 3)))
 		return 0
 	})
 	luaRegister(l, "animSetColorKey", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).SetColorKey(int16(numArg(l, 2)))
+		a.SetColorKey(int16(numArg(l, 2)))
 		return 0
 	})
 	luaRegister(l, "animSetAlpha", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).SetAlpha(int16(numArg(l, 2)), int16(numArg(l, 3)))
+		a.SetAlpha(int16(numArg(l, 2)), int16(numArg(l, 3)))
 		return 0
 	})
 	luaRegister(l, "animSetScale", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).SetScale(float32(numArg(l, 2)), float32(numArg(l, 3)))
+		a.SetScale(float32(numArg(l, 2)), float32(numArg(l, 3)))
 		return 0
 	})
 	luaRegister(l, "animSetWindow", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).SetWindow(float32(numArg(l, 2)), float32(numArg(l, 3)),
+		a.SetWindow(float32(numArg(l, 2)), float32(numArg(l, 3)),
 			float32(numArg(l, 4)), float32(numArg(l, 5)))
 		return 0
 	})
 	luaRegister(l, "animUpdate", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).Update()
+		a.Update()
 		return 0
 	})
 	luaRegister(l, "animDraw", func(*lua.State) int {
-		ud := l.ToUserData(1)
-		switch ud.(type) {
-		case *Anim:
-		default:
-			panic(lua.RuntimeError("1番目の引数がAnimではありません。"))
+		a, ok := l.ToUserData(1).(*Anim)
+		if !ok {
+			userDataError(l, 1, a)
 		}
-		ud.(*Anim).Draw()
+		a.Draw()
 		return 0
 	})
 	luaRegister(l, "refresh", func(*lua.State) int {
 		await(60)
 		if gameEnd {
-			panic(lua.RuntimeError("<game end>"))
+			lua.Errorf(l, "<game end>")
 		}
 		return 0
 	})
+	luaRegister(l, "loadLifebar", func(l *lua.State) int {
+		lua.Errorf(l, strArg(l, 1))
+		return 0
+	})
+	luaRegister(l, "setLifeMul", func(l *lua.State) int {
+		lifeMul = float32(numArg(l, 1))
+		return 0
+	})
+	luaRegister(l, "setTeam1VS2Life", func(l *lua.State) int {
+		team1VS2Life = float32(numArg(l, 1))
+		return 0
+	})
+	luaRegister(l, "setTurnsRecoveryRate", func(l *lua.State) int {
+		turnsRecoveryRate = float32(numArg(l, 1))
+		return 0
+	})
+	luaRegister(l, "setZoom", func(l *lua.State) int {
+		zoomEnable = boolArg(l, 1)
+		return 0
+	})
+	luaRegister(l, "setZoomMin", func(l *lua.State) int {
+		zoomMin = float32(numArg(l, 1))
+		return 0
+	})
+	luaRegister(l, "setZoomMax", func(l *lua.State) int {
+		zoomMax = float32(numArg(l, 1))
+		return 0
+	})
+	luaRegister(l, "setZoomSpeed", func(l *lua.State) int {
+		zoomSpeed = float32(numArg(l, 1))
+		return 0
+	})
 }