//This script is a collaborated works by Haku Akula and (mostly) Melchoir Tokhes
//Feel free to distribute this script in all it's terrible glory
integer     touchable;                                                                                              //Global Variables - start
key     owner;
key     touched;                                                                                                    //Global Variables - end
default
{
    state_entry()
    {
        llSetTimerEvent(600);                                                                                       //Duration between payouts (seconds)
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT );                                                      //Do you want to pay out on true events?
    }

    timer()
    {
        touchable = TRUE;                                                                                           //Set Status to touchable
    }
    touch_start(integer total_num)
    {
        touched=llDetectedKey(0);                                                                                   //Name of the person who touched
        owner=llGetOwner();                                                                                         //Name of the person who owns the prim
        if(touchable )                                                                                              //Am I touchable check
        {
            llInstantMessage(touched, llDetectedName(0) + " kissed " + llKey2Name(owner) + "'s nose and got L$1!"); //Message to the person who touched
            llInstantMessage(owner, llDetectedName(0) + " kissed your nose and got L$1!");                          //Message to the owner
            touchable = FALSE;
            llGiveMoney(llDetectedKey(0), 1);                                                                       //How much to pay out
        }
        else
        {
            llInstantMessage(touched, llDetectedName(0) + " kissed " + llKey2Name(owner) + "'s nose!" );            //Message for no payout who touched
            llInstantMessage(owner, llDetectedName(0) + " kissed your nose!");                                      //Message to the owner
        }
    }
}