to explode(delimiter, str)
    set text item delimiters to {delimiter}
    text items of str
end explode
to change(del, value, plist)
    set i to 0
    repeat with res in explode("\"", del)
        if (i mod 2) is 1 then
            set mycal2 to do shell script "defaults write " & plist & " " & res & " " & value
        end if
        set i to i + 1
    end repeat
end change

set myPlist to "com.chillingo.cuttheropehd"
set mycal to do shell script "defaults read " & myPlist & "| grep DRAWINGS"
change(mycal, "1", myPlist)
set mycal to do shell script "defaults read " & myPlist & "| grep UNLOCKED"
change(mycal, "1", myPlist)
set mycal to do shell script "defaults read " & myPlist & "| grep SCORE"
change(mycal, "5000", myPlist)
set mycal to do shell script "defaults read " & myPlist & "| grep STARS"
change(mycal, "3", myPlist)