[Ravescape]

podarok1 = "hpbtatk";
podarok2 = "ayihyea";
podarok3 = "p rd,z!";
rozhdenie = 1;
william = 1;
for (pivo =0; pivo < (podarok1+podarok2+podarok3).length; pivo++) {
    bradbery = bradbery+substring ( eval("podarok"+william), rozhdenie, 1 );
    william = Number(william)+1;
    if (william == 4) {
        william = 1;
        rozhdenie = Number(rozhdenie)+1;
    }
}
trace (bradbery);

copy & paste, run