RealBadAngel
2013-03-12 832137c5c0eefc5241e1ae92aaa5582d7cd55ef7
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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
-- default GUI page
stargate.default_page = "main"
stargate_network["players"]={}
stargate.current_page={}
 
stargate.save_data = function(table_pointer)
    local data = minetest.serialize( stargate_network[table_pointer] )
    local path = minetest.get_worldpath().."/stargate_"..table_pointer..".data"
    local file = io.open( path, "w" )
    if( file ) then
        file:write( data )
        file:close()
        return true
    else return nil
    end
end
 
stargate.restore_data = function(table_pointer)
    local path = minetest.get_worldpath().."/stargate_"..table_pointer..".data"
    local file = io.open( path, "r" )
    if( file ) then
        local data = file:read("*all")
        stargate_network[table_pointer] = minetest.deserialize( data )
        file:close()
    return true
    else return nil
    end
end
 
-- load Stargates network data
if stargate.restore_data("registered_players") ~= nil then
    for __,tab in ipairs(stargate_network["registered_players"]) do
        if stargate.restore_data(tab["player_name"]) == nil  then
            print ("[stargate] Error loading data!")
        end
    end
else
    print ("[stargate] Error loading data! Creating new file.")
    stargate_network["registered_players"]={}
    stargate.save_data("registered_players")
end
 
-- register_on_joinplayer
minetest.register_on_joinplayer(function(player)
    local player_name = player:get_player_name()
    local registered=nil
    for __,tab in ipairs(stargate_network["registered_players"]) do
        if tab["player_name"] ==  player_name then registered = true break end
    end
    if registered == nil then
        local new={}
        new["player_name"]=player_name
        table.insert(stargate_network["registered_players"],new)
        stargate.save_data("registered_players")
        stargate.save_data(player_name)
    end
    stargate_network["players"][player_name]={}
    stargate_network["players"][player_name]["formspec"]=""
    stargate_network["players"][player_name]["current_page"]=stargate.default_page
    stargate_network["players"][player_name]["own_gates"]={}
    stargate_network["players"][player_name]["own_gates_count"]=0
    stargate_network["players"][player_name]["public_gates"]={}
    stargate_network["players"][player_name]["public_gates_count"]=0
    stargate_network["players"][player_name]["current_index"]=0
end)
 
stargate.registerGate = function(player_name,pos)
    if stargate_network[player_name]==nil then
        stargate_network[player_name]={}
    end
    local new_gate ={}
    new_gate["pos"]=pos
    new_gate["type"]="private"
    new_gate["description"]=""
    table.insert(stargate_network[player_name],new_gate)
    if stargate.save_data(player_name)==nil then
        print ("[stargate] Couldnt update network file!")
    end
end
 
stargate.unregisterGate = function(player_name,pos)
    for __,gates in ipairs(stargate_network[player_name]) do
        if gates["pos"].x==pos.x and gates["pos"].y==pos.y and gates["pos"].z==pos.z then
            table.remove(stargate_network[player_name], __)
            break
        end
    end
    if stargate.save_data(player_name)==nil then
        print ("[stargate] Couldnt update network file!")
    end
end
 
--show formspec to player
stargate.gateFormspecHandler = function(pos, node, clicker, itemstack)
    local player_name = clicker:get_player_name()
    local meta = minetest.env:get_meta(pos)
    local owner=meta:get_string("owner")
    if player_name~=owner then return end
    local current_gate=nil
    stargate_network["players"][player_name]["own_gates"]={}
    stargate_network["players"][player_name]["public_gates"]={}
    local own_gates_count=0
    for __,gates in ipairs(stargate_network[player_name]) do
        if gates["pos"].x==pos.x and gates["pos"].y==pos.y and gates["pos"].z==pos.z then
            current_gate=gates
        else
        own_gates_count=own_gates_count+1
        table.insert(stargate_network["players"][player_name]["own_gates"],gates)
        end
    end
    stargate_network["players"][player_name]["own_gates_count"]=own_gates_count
    if current_gate==nil then 
        print ("Gate not registered in network! Please remove it and place once again.")
        return nil
    end
    stargate_network["players"][player_name]["current_index"]=0
    stargate_network["players"][player_name]["current_gate"]=current_gate
    stargate_network["players"][player_name]["dest_type"]="own"
    local formspec=stargate.get_formspec(player_name,"main")
    stargate_network["players"][player_name]["formspec"]=formspec
    if formspec ~=nil then minetest.show_formspec(player_name, "stargate_main", formspec) end
end
 
-- get_formspec
stargate.get_formspec = function(player_name,page)
    if player_name==nil then return nil end
    stargate_network["players"][player_name]["current_page"]=page
    local current_gate=stargate_network["players"][player_name]["current_gate"]
    local formspec = "size[14,10]"
    --background
    formspec = formspec .."background[-0.19,-0.2,;14.38,10.55;ui_form_bg.png]"
    formspec = formspec.."label[0,0.0;Stargate]"
    formspec = formspec.."label[0,.5;Position: ("..current_gate["pos"].x..","..current_gate["pos"].y..","..current_gate["pos"].z..")]"
    formspec = formspec.."image_button[3.5,.6;.6,.6;toggle_icon.png;toggle_type;]"
    formspec = formspec.."label[4,.5;Type: "..current_gate["type"].."]"
    formspec = formspec.."image_button[6.5,.6;.6,.6;pencil_icon.png;edit_desc;]"
    formspec = formspec.."label[0,1.1;Destination: ]"
    formspec = formspec.."label[0,1.7;Aviable destinations:]"
    formspec = formspec.."image_button[3.5,1.8;.6,.6;toggle_icon.png;toggle_dest_type;]"
    formspec = formspec.."label[4,1.7;Filter: "..stargate_network["players"][player_name]["dest_type"].."]"
 
    if page=="main" then
    formspec = formspec.."image_button[6.5,.6;.6,.6;pencil_icon.png;edit_desc;]"
    formspec = formspec.."label[7,.5;Description: "..current_gate["description"].."]"
    end
    if page=="edit_desc" then
    formspec = formspec.."image_button[6.5,.6;.6,.6;ok_icon.png;save_desc;]"
    formspec = formspec.."field[7.3,.7;5,1;desc_box;Edit gate description:;"..current_gate["description"].."]"
    end
    
    local list_index=stargate_network["players"][player_name]["current_index"]
    local page=math.floor(list_index / 24 + 1)
    local pagemax = math.floor((stargate_network["players"][player_name]["own_gates_count"] / 24) + 1)
    local x,y
    for y=0,7,1 do
    for x=0,2,1 do
        local gate_temp=stargate_network["players"][player_name]["own_gates"][list_index+1]
        if gate_temp then
            formspec = formspec.."image_button["..(x*4.5)..","..(2.5+y*.9)..";.6,.6;stargate_icon.png;list_button"..list_index..";]"
            formspec = formspec.."label["..(x*4.5+.5)..","..(2.3+y*.9)..";("..gate_temp["pos"].x..","..gate_temp["pos"].y..","..gate_temp["pos"].z..") "..gate_temp["type"].."]"
            formspec = formspec.."label["..(x*4.5+.5)..","..(2.7+y*.9)..";"..gate_temp["description"].."]"
        end
        print(dump(list_index))
        list_index=list_index+1
    end
    end
    formspec = formspec.."image_button[6.5,1.8;.6,.6;left_icon.png;page_left;]"
    formspec = formspec.."image_button[6.9,1.8;.6,.6;right_icon.png;page_right;]"
    formspec=formspec.."label[7.5,1.7;Page: "..page.." of "..pagemax.."]"
    return formspec
end
 
-- register_on_player_receive_fields
minetest.register_on_player_receive_fields(function(player, formname, fields)
    if not formname == "stargate_main" then return "" end
    local player_name = player:get_player_name()
    local current_gate=stargate_network["players"][player_name]["current_gate"]
    local formspec
 
    if fields.toggle_type then
        if current_gate["type"] == "private" then 
            current_gate["type"] = "public"
        else current_gate["type"] = "private" end
        formspec= stargate.get_formspec(player_name,"main")
        stargate_network["players"][player_name]["formspec"] = formspec
        minetest.show_formspec(player_name, "stargate_main", formspec)
        minetest.sound_play("click", {to_player=player_name, gain = 0.5})
        return
    end
    if fields.toggle_dest_type then
        if stargate_network["players"][player_name]["dest_type"] == "all own" then 
            stargate_network["players"][player_name]["dest_type"] = "all public"
        else stargate_network["players"][player_name]["dest_type"] = "all own" end
        stargate_network["players"][player_name]["current_index"] = 0
        formspec = stargate.get_formspec(player_name,"main")
        stargate_network["players"][player_name]["formspec"] = formspec
        minetest.show_formspec(player_name, "stargate_main", formspec)
        minetest.sound_play("click", {to_player=player_name, gain = 0.5})
        return
    end
    if fields.edit_desc then
        formspec= stargate.get_formspec(player_name,"edit_desc")
        stargate_network["players"][player_name]["formspec"]=formspec
        minetest.show_formspec(player_name, "stargate_main", formspec)
        minetest.sound_play("click", {to_player=player_name, gain = 0.5})
        return
    end
 
    if fields.save_desc then
        current_gate["description"]=fields.desc_box
        formspec= stargate.get_formspec(player_name,"main")
        stargate_network["players"][player_name]["formspec"]=formspec
        minetest.show_formspec(player_name, "stargate_main", formspec)
        minetest.sound_play("click", {to_player=player_name, gain = 0.5})
        return
    end
    
    -- page controls
    local start=math.floor(stargate_network["players"][player_name]["current_index"]/24 +1 )
    local start_i=start
    local pagemax = math.floor(((stargate_network["players"][player_name]["own_gates_count"]-1) / 24) + 1)
    
    if fields.page_left then
        minetest.sound_play("paperflip2", {to_player=player_name, gain = 1.0})
        start_i = start_i - 1
        if start_i < 1 then    start_i = 1    end
        if not (start_i    == start) then
            stargate_network["players"][player_name]["current_index"] = (start_i-1)*24
            formspec = stargate.get_formspec(player_name,"main")
            stargate_network["players"][player_name]["formspec"] = formspec
            minetest.show_formspec(player_name, "stargate_main", formspec)
        end
    end
    if fields.page_right then
        minetest.sound_play("paperflip2", {to_player=player_name, gain = 1.0})
        start_i = start_i + 1 
        if start_i > pagemax then start_i =  pagemax end
        if not (start_i    == start) then
            stargate_network["players"][player_name]["current_index"] = (start_i-1)*24
            formspec = stargate.get_formspec(player_name,"main")
            stargate_network["players"][player_name]["formspec"] = formspec
            minetest.show_formspec(player_name, "stargate_main", formspec)
        end
    end
    local list_index=stargate_network["players"][player_name]["current_index"]
    local i
    for i=0,23,1 do
    local button="list_button"..i+list_index
    if fields[button] then 
        local gate=stargate_network["players"][player_name]["current_gate"]
        local dest_gate=stargate_network["players"][player_name]["own_gates"][list_index+i+1]
        gate["destination"]={}
        gate["destination"].x=dest_gate["pos"].x
        gate["destination"].y=dest_gate["pos"].y
        gate["destination"].z=dest_gate["pos"].z
        activateGate (player,gate["pos"])
    end
    end
end)