Bissextile ou pas ?

function eventNewPlayer(name)
ui.addPopup(1, 2, "Saisissez une année :", name, 250, 180, 250)
end

function eventPopupAnswer(popupId, playerName, answer)
  if popupId==1 then
        ui.addPopup(1, 2, "Saisissez une année :", nil, 250, 180, 250)
    if string.match(answer, "%D") then
      ui.addTextArea(1,"<a href='event:fermer'>Erreur :'"..answer.."' n'est pas une année.</a>", name, 250, 270, 250, 20,0x768189,0x768189,0.9,true)
    elseif (tonumber(answer)~=nil) and (tonumber(answer) % 400 == 0 or (tonumber(answer) % 4 == 0 and tonumber(answer) % 100 ~= 0)) then
      ui.addTextArea(1,"<a href='event:fermer'>'"..answer.."' est Bissextile.</a>", name, 250, 270, 250, 20,0x768189,0x768189,0.9,true)
    else
      ui.addTextArea(1,"<a href='event:fermer'>'"..answer.."' n'est pas Bissextile.</a>", name, 250, 270, 250, 20,0x768189,0x768189,0.9,true)
    end
  end
end

function eventTextAreaCallback(id, name, callback)
  if callback=="fermer" then
    ui.removeTextArea(1, name)
  end
end

for name in pairs(tfm.get.room.playerList) do eventNewPlayer(name) end