Setpayprice from a note card?

I need a bit of help lol. Ok I'm trying to set a way to read the llsetpayprice from a note card.

IE 100,200,300,400 with type area with pay_hide.

but ever thing I have tried will only list the 1st pay price.I know it can be done lol. Some one told me to use setobjectdesc. To me thats a lazyeasy way out lol. So any all tips would be so cool lol.

the half hearted version

// start of script
default
{
    state_entry()
    {
        llGetNotecardLine("note", 0);
    }
    
    dataserver(key id, string data)
    {
        list values = llCSV2List(data);

     
        llSetPayPrice(PAY_HIDE,
        [
            llList2Integer(values,0),
            llList2Integer(values,1),
            llList2Integer(values,2),
            llList2Integer(values,3)
        ]);
    }
    
    money(key id, integer amt) {}
}
// end of script

Thank so you much I did not think of lol. Hugs!!

I did some thing wrong lol. Any other tips I will post the code asap so you can see what I'm doing

ok in the note card I have it set to 20,40,60,80 bad side its not reading the 80 :/ any ideas

You need to check for the end of the file, and loop until the end of file is true

default
{
    state_entry()
    {
        llGetNotecardLine("note", 0);
    }
    
    dataserver(key id, string data)
    {
        if (!EOF)
        {
             list values += integer(data);
             count +=1;
             llGetNotecardLine ("note",count)
        }
        else
        {
            llSetPayPrice(PAY_HIDE,
            [
               llList2Integer(values,0),
               llList2Integer(values,1),
               llList2Integer(values,2),
               llList2Integer(values,3)
            ]);
        }
    }
    
    money(key id, integer amt) {}
}

http://www.secondscripter.com