I know this is shared with the system but.The system isn't fully working.
I made new a one ^.^
PHP Code:
quest automessage begin
state start begin
function lastmessage()
local file,err = io.open("locale/germany/automessage.txt","rb")
if(err) then
return 1
end
for line in file:lines() do
return line
end
if(line == "") then
return 0
end
end
function write(message)
local file,err = io.open("locale/germany/automessage.txt","w")
if(err) then
local file = io.output(io.open("locale/germany/automessage.txt","w"))
file:write(message)
file:flush()
file:close()
else
file:write(message)
file:flush()
file:close()
end
end
function delete()
local file,err = io.open("locale/germany/automessage.txt","w")
if(err) then
return 0
end
file:write("")
file:flush()
file:close()
end
when letter with pc.is_gm() begin
send_letter("Auto Message Settings. ")
end
when button or info begin
say_title("Auto Message Settings: ")
say("")
---
say("Welcome the automated message system. ")
if(automessage.lastmessage() == 0) then
say("Last message: Not specified yet. ")
else
say("Last Message : "..automessage.lastmessage())
end
say("What would you like to do now? ")
say("")
local s = select("Write message","Delete the message","Close")
if(s == 1) then
say_title("Write Message: ")
say("")
---
say("What is the new message? ")
say("")
local r = tostring(input())
if(r == "" or r == nil) then
say_title("Error: ")
say("")
---
say_reward("An error has occurred. ")
return
end
say_title("Write Message: ")
say("")
---
say("Your message has been successfully")
say("updated.Thanks see you again. ")
say("it will appear on your 60 minutes. ")
automessage.write(r)
server_timer("notices",60*60)
elseif(s == 2) then
say_title("Delete message: ")
say("")
---
say("Your message has been successfully")
say("deleted.Thanks see you again. ")
clear_server_timer("notices")
clear_server_timer("notice")
automessage.delete()
end
end
when notices.server_timer begin
local notice = automessage.lastmessage()
if(notice == 0) then
clear_server_timer("notices")
clear_server_timer("notice")
return
end
notice_all(notice)
server_timer("notice",60*60)
end
when notice.server_timer begin
local notice = automessage.lastmessage()
if(notice == 0) then
clear_server_timer("notices")
clear_server_timer("notice")
return
end
notice_all(notice)
server_timer("notices",60*60)
end
end
end
Mfg HaveBeen <3Quote:
Add to quest_functions
Code:close flush io.open io.output lines write