teleporter

I need a pay per teleport script. if somebody can tell me how to do it I will appreciated!

The only practical way I can think of is to put the teleporter in a locked box and make people pay to open the box.

I can do an llDialog with a destination list, then a Listen which will make llSitTarget change when activated, and I would have to dip into my vendor script to figure out the pay stuff, but it could theoretically be done.

Not on my to-do list though. Also not going to be put into my teleport device which should come out when llTeleport Agent is working. But who knows? It's an interesting suggestion.

Could you put the teleporter on a restricted parcel, and use something like llAddToLandPassList to allow paying resis access to it?

If not, I would consider:

1. Normally, the sit target of your teleporter would be set to drop avs in front of a poster showing the price of the teleport.
   
2. UsellSetPayPrice to set the teleport price in the teleporter, and the money event to detect payment.
   
3. When an av pays, add his key to a list, and set llSitTarget to the correct location.
   
4. Use the changed event to detect avis sitting on the teleporter.
   1. If no-one has payed yet (the list is empty, the sit target is the price poster), just unsit them as usual.
      
   2. If the sitting av is in the list, the sit target will already be the destination - unsit and remove their key from the list. If the list is now empty, change the sit target back to the "neutral" spot
      
   3. If the av is not in the list, use llEjectFromLand or something similar to bump them out.
      
   
   
5. Consider timeouts and refunds as neccessary.
   

Don't use a sit teleport, use an llSetPos teleport. You can modify Cubey Terra's Mark III Terraporter to do this pretty easily.