HydroMail Installer

Code = [[{
  "{\
  Children={\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=2,\
      Align=\"Center\",\
      Name=\"Status\",\
      Type=\"Label\",\
      Text=\"\",\
    },\
    {\
      X=\"50%, -5\",\
      Width=\"20%\",\
      Y=1,\
      Align=\"Center\",\
      Name=\"RefreshB\",\
      Type=\"Button\",\
      Text=\"Refresh\",\
      BackgroundColour=\"lime\",\
      ActiveBackgroundColour=\"green\",\
    },   \
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=4,\
      Align=\"Center\",\
      Name=\"StatusB\",\
      Type=\"Label\",\
      Text=\"\",\
    },\
    {\
      X=\"100%, -5\",\
      Y=1,\
      Name=\"ExitB2\",\
      Type=\"Button\",\
      Text=\"Exit\",\
      BackgroundColour=\"red\",\
      Width=6,\
    },\
    {\
      X=1,\
      Y=1,\
      Name=\"MenuB\",\
      Type=\"Button\",\
      Text=\"#\",\
      BackgroundColour=\"white\",\
      Width=3,\
    },\
    {\
      X=\"100%, -7\",\
      Y=\"100%\",\
      Name=\"Next\",\
      Type=\"Button\",\
      Text=\"Next -->\",\
      BackgroundColour=\"green\",\
      Width=0,\
    },\
    {\
      X=1,\
      Y=\"100%\",\
      Name=\"Prev\",\
      Type=\"Button\",\
      Text=\"<-- Prev\",\
      BackgroundColour=\"orange\",\
      Width=0,\
    },\
  },\
  BackgroundColour='white'\
}",
  "{\
  Children={\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=2,\
      Align=\"Center\",\
      Name=\"LoginL\",\
      Type=\"Label\",\
      Text=\"Email Login\",\
    },\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=6,\
      Align=\"Center\",\
      Name=\"Bouncer\",\
      Type=\"Label\",\
      Text=\"\",\
    },\
    {\
    X=\"38%\",\
    Y=7,\
    Width=\"25%\",\
    Type=\"TextBox\",\
    Name=\"Username\",\
    Placeholder=\"Username\",\
    Active=true\
    },\
    {\
    X=\"38%\",\
    Y=10,\
    Width=\"25%\",\
    Type=\"SecureTextBox\",\
    Name=\"Password\",\
    Placeholder=\"Password\",\
    Active=false\
    },\
    {\
      X=\"25%\",\
      Y=16,\
      Name=\"ExitB\",\
      Type=\"Button\",\
      Text=\"Exit\",\
      BackgroundColour=\"red\",\
      Width=\"25%\",\
    },\
    {\
      X=\"52%\",\
      Y=16,\
      Name=\"LoginB\",\
      Type=\"Button\",\
      Text=\"Login\",\
      BackgroundColour=\"green\",\
      Width=\"25%\",\
    }\
  },\
  BackgroundColour='white'\
}",
  "{\
  Type=\"Menu\",\
  Children={\
    {\
      Name=\"InboxB\",\
      Type=\"Button\",\
      Text=\"Inbox\"\
    },\
    {\
      [\"Type\"]=\"Separator\"\
    },\
    {\
      Name=\"SendB\",\
      Type=\"Button\",\
      Text=\"Send\"\
    },\
--    {\
--      [\"Type\"]=\"Separator\"\
--    },\
--    {\
--      Name=\"SettingsB\",\
--      Type=\"Button\",\
--      Text=\"Settings\"\
--    },\
  }\
}",
  "{\
  Children={\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=2,\
      Align=\"Center\",\
      Name=\"Head\",\
      Type=\"Label\",\
      Text=\"\",\
    },\
    {\
      X=\"3\",\
      Width=\"100%, -3\",\
      Y=5,\
      Align=\"Center\",\
      Name=\"Mail\",\
      Type=\"Label\",\
      Text=\"\",\
    },\
    {\
      X=\"100%, -5\",\
      Y=1,\
      Name=\"ExitB\",\
      Type=\"Button\",\
      Text=\"Exit\",\
      BackgroundColour=\"red\",\
      Width=6,\
    },\
    {\
      X=1,\
      Y=1,\
      Name=\"BackB\",\
      Type=\"Button\",\
      Text=\"<-- Back\",\
      BackgroundColour=\"orange\",\
      Width=8,\
    },\
    {\
      X=\"38%\",\
      Width=\"25%\",\
      Y=1,\
      Align=\"Center\",\
      Name=\"DeleteB\",\
      Type=\"Button\",\
      Text=\" Delete\",\
      BackgroundColour=\"red\",\
    },\
  },\
  BackgroundColour='white'\
}",
  "{\
  Children={\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=2,\
      Align=\"Center\",\
      Name=\"SendHead\",\
      Type=\"Label\",\
      Text=\"Send Mail\",\
    },\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=6,\
      Align=\"Center\",\
      Name=\"To\",\
      Type=\"TextBox\",\
      Placeholder='To',\
      Active=false,\
    },\
    {\
      X=\"27%\",\
      Width=\"50%\",\
      Y=9,\
      Align=\"Center\",\
      Name=\"Subject\",\
      Type=\"TextBox\",\
      Placeholder='Subject',\
      Active=false,\
    },\
    {\
      X=\"5%\",\
      Width=\"90%, 1\",\
	  Height=\"25%\",\
      Y=12,\
      Align=\"Center\",\
      Name=\"Body\",\
      Type=\"TextBox\",\
      Placeholder='Body',\
      Active=false,\
    },\
    {\
      X=1,\
      Y=1,\
      Name=\"MenuB\",\
      Type=\"Button\",\
      Text=\"#\",\
      BackgroundColour=\"white\",\
      Width=3,\
    },\
    {\
      X=\"100%, -5\",\
      Y=1,\
      Name=\"ExitB\",\
      Type=\"Button\",\
      Text=\"Exit\",\
      BackgroundColour=\"red\",\
      Width=6,\
    },\
    {\
      X=\"100%, -7\",\
      Y=\"100%\",\
      Name=\"Next\",\
      Type=\"Button\",\
      Text=\"Send\",\
      BackgroundColour=\"green\",\
      Width=8,\
    },\
    {\
      X=1,\
      Y=\"100%\",\
      Name=\"Prev\",\
      Type=\"Button\",\
      Text=\"Cancel\",\
      BackgroundColour=\"orange\",\
      Width=8,\
    },\
    {\
      X=0,\
      Width=0,\
      Y=0,\
      Align=\"Center\",\
      Name=\"Bouncer\",\
      Type=\"Label\",\
      Text=\"\",\
    },\
  },\
  BackgroundColour='white'\
}",
}]]
Name = [[{
  "Views/Selections.view",
  "Views/main.view",
  "Views/menu.view",
  "Views/reader.view",
  "Views/send.view",
}]]
code=textutils.unserialize(Code)
name=textutils.unserialize(Name)
for i=1,#code do
 file = fs.open(name[i], 'w')
  file.write(code[i])
  file.close()
  print('unpacked "'.. name[i] ..'"')
end
  print('Downloading Core...')
  v = http.get("http://pastebin.com/raw.php?i=AK9SHeZQ")
  f = fs.open('mail', 'w')
  f.write(v.readAll())
  f.close()
  v.close()
  print('Done!')
  print('Would You Like To Start HydroMail Now?')
  write('Y/n > ')
  c = read()
  if c == 'n' then
  else
  shell.run("mail")
  end
  print('run "mail" to start HydroMail')