Ich hab die ID der Personen und auch ein passendes Script gefunden.
Allerdings bin ich kein Programmierer und habe meine Fehlversuche nun langsam aufgegeben. Ich kriegs einfach nicht zum Laufen.
Habe folgende zwei scripts gefunden:
++++++++++++++++++++++++++++++++
integer price = 10;
default
{
state_entry()
{
llSetPayPrice(PAY_HIDE, [PAY_HIDE ,PAY_HIDE, PAY_HIDE, PAY_HIDE]);
llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_DEBIT)
state cash;
}
}
state cash
{
state_entry()
{
llSetPayPrice(price, [price ,PAY_HIDE, PAY_HIDE, PAY_HIDE]);
}
money(key id, integer amount)
{
if(amount != price)
{
llGiveMoney(id, amount);
llInstantMessage(id, "You payed "+(string)amount+", which is the wrong price, the price is: "+(string)price);
}
else
{
llInstantMessage(id, "You payed the right price"
;}
}
}
++++++++++++++++++++++++++++++++
und diesen:
++++++++++++++++++++++++++++++++
// ExampleMoney
// Pay the object money, this script refunds incorrect payments
// This code is public domain.
integer gCorrectAmount = 10; // this defines the correct price -- we only accept L$10
default
{
state_entry()
{
// get permission from the owner to pay out money using the llGiveMoney function.
llRequestPermissions(llGetOwner(),PERMISSION_DEBIT);
}
money(key id, integer amount)
{
// has the user paid the correct amount?
if (amount == gCorrectAmount)
{
// if so, thank the payer by name.
llSay(0,"Thank you, " + llKey2Name(id) + "."
;}
// is the amount paid less than it needs to be?
else if (amount < gCorrectAmount)
{
// if so, tell them they're getting a refund, then refund their money.
llSay(0,"You didn't pay enough, " + llKey2Name(id) + ". Refunding your payment of L$" + (string)amount + "."
;llGiveMoney(id, amount); // refund amount paid.
}
// if it's not exactly the amount required, and it's not less than the amount required,
// the payer has paid too much.
else
{
// tell them they've overpaid.
integer refund = amount - gCorrectAmount; // determine how much extra they've paid.
llSay(0,"You paid too much, " + llKey2Name(id) + ". Your change is L$" + (string)refund + "."
;llGiveMoney(id, refund); // refund their change.
}
}
}
++++++++++++++++++++++++++++++++
Allerdings sind mir folgende Dinge unklar.
a) Wo trage ich den zahlbaren Betrag ein, den die Ware kostet?
b) Wo trage ich die Provision ein, die der andere bekommen soll?
c) Wo kommt die Key-ID rein?
d) Was muss ich sonst noch beachten?
Wäre lieb, wenn sich einer auskennt und mal die Beispieldaten mit einer ausgedachten ID an die richtigen Stellen fügt, so dass ich die Werte nur noch ergänzen muss.
Vielen Dank.