#!/usr/bin/perl
use strict;
use warnings;
use Config::Simple;

our $cfg;
my @player;
my $completed_quests = "zero";
my $special_item = "zero";
my @enemy;
my $class = "zero";

$cfg = new Config::Simple(syntax=>'simple');
$cfg->autosave(1);
$cfg->param("player", "@player");
$cfg->param("quest", "$completed_quests");
$cfg->param("items", "$special_item");
$cfg->param("enemy", "@enemy");
$cfg->param("class", "$class");
$cfg->write("$ENV{HOME}/.kenesis");