1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
import Crossfire,datetime,CFDataBase
CFDB=CFDataBase.CFDataBase("PShop")
def GetObjectByWeightLimit(object, WeightLimit):
while object.WeightLimit!=WeightLimit:
object=object.Above
if not object:
return 0
return object
def GetObjectByName(object, Name):
while object.Name!=Name:
object=object.Above
if not object:
return 0
return object
def find_player(object):
while (object.Type != 1) : #1 is type 'Player'
object = object.Above
if not object:
return 0
return object
def GetObjectAt(Map,X,Y,Name):
Object=Map.ObjectAt(X,Y)
while Object!=None:
if Object.Name==Name:
return Object
else:
Object=Object.Above
return Object
def Expire():
global Owner
Inventory=mymap.ObjectAt(43,2)
MailMap=Crossfire.ReadyMap("/planes/IPO_storage")
while Inventory!=None:
if Inventory.Name!="Vault":
package=whoami.CreateObject("package")
package.Name="IPO-package F: Your-Private-Shop T: "+Owner
Inventory.InsertInto(package)
package.Teleport(MailMap,2,2)
Inventory=Inventory.Above
Inventory=mymap.ObjectAt(43,2)
while Inventory!=None:
if Inventory.Name!="Vault":
package=whoami.CreateObject("package")
package.Name="IPO-package F: Your-Private-Shop T: "+Owner
Inventory.InsertInto(package)
package.Teleport(MailMap,2,2)
Inventory=Inventory.Below
Dict=CFDB.get("pshop")
for i in Dict:
whoami.Say(i)
This=Dict.get(i)
whoami.Say(str(This))
if This[1]!="PickedUp":
That=mymap.ObjectAt(This[1][0],This[1][1])
whoami.Say(str(That))
if That!=None:
That=GetObjectByWeightLimit(That,int(i))
whoami.Say(str(That))
if That!=0:
That.Teleport(whoami.Map,37,0)
CFDB.store('pshop',{})
Owner="Unowned"
Chest=mymap.ObjectAt(30,8)
Chest=GetObjectByName(Chest, "Rent Box")
if Chest!=0:
Chest.Teleport(mymap, 15,10)
for i in range(0,34):
for a in range(0,35):
b=GetObjectAt(whoami.Map,i,a,'NoBuild')
b.Remove
b=GetObjectAt(whoami.Map,i,a,'NoSpell')
b.Remove()
GetObjectAt(whoami.Map,30,5,"Brazier material").Remove()
GetObjectAt(whoami.Map,30,6,"Firepot material").Remove()
GetObjectAt(whoami.Map,30,7,"Bright Firepot Material").Remove()
GetObjectAt(whoami.Map,29,8,"Red CWall material").Remove()
whoami.Map.ObjectAt(49,5).Teleport(whoami.Map,30,5)
whoami.Map.ObjectAt(49,4).Teleport(whoami.Map,30,6)
whoami.Map.ObjectAt(49,6).Teleport(whoami.Map,30,7)
whoami.Map.ObjectAt(49,7).Teleport(whoami.Map,29,8)
whoami=Crossfire.WhoAmI()
activator=Crossfire.WhoIsActivator()
activatorname=activator.Name
mymap=activator.Map
Variables=GetObjectByName(mymap.ObjectAt(49,0),"Variables")
VariableList= Variables.Message.split('\n')
Owner=VariableList[0]
Date=VariableList[1]
Days=VariableList[2]
Owner=Owner.split(": ")[1]
Date=Date.split(": ")[1]
Days=int(Days.split(": ")[1])
Year, Month, Day=Date.split("-")
LastDate=datetime.datetime(int(Year),int(Month),int(Day))
Today=datetime.date(1,2,3).today()
Today=datetime.datetime(Today.year, Today.month, Today.day)
DaysPast=(Today-LastDate).days
Days-=DaysPast
if Days<=0:
global Owner
Expire()
Variables.Message="Owner: "+Owner+"\nDate: "+str(Today.year)+"-"+str(Today.month)+"-"+str(Today.day)+"\nDays: "+str(Days)
if activatorname==Owner:
message=Crossfire.WhatIsMessage()
if (message.upper().find("ENTER")>-1) or (message.upper().find("YES")>-1):
X=activator.X
Y=activator.Y
activator.Teleport(mymap, 37,3)
activator.Teleport(mymap, X, Y)
whoami.Say("Greetings sire, you have "+str(Days)+" days left.")
else:
whoami.Say("Greetings sire, would you like entry?")
else:
if Owner!="Unowned":
whoami.Say("You are not alowed beyond this point. The rent will by up in "+str(Days)+" and you may rent it yourself then. If the current owner doesn't pay, that is.")
else:
whoami.Say("You are currently not alowed beyond this point. The rent is past due. If you wish to proceed, place a platinum coin in the deposit box.")
|
