[NEW]Automata üzenet

[patfer]

HA TESZTET ÍRJ EGY PM-et HOGY KÖSZI!
Sziasztok keresgéltem epvp-n és ezt találtam:
Auto-message
Nyitsz egy kuezstet a szokásos mondón(remélem tudjátok hogy kell csinálni új questet)
És bele másolod:

Kód Kijelölés Kibont

quest automex begin
  state start begin
when letter with pc . is_gm ( ) begin
send_letter ( "GM Auto Notice" )
  end
when button or info begin
a = select ( "Enable Auto Message" , "Disable Auto Message" , "Set Auto Message" , "Set time" , "Close" )
  if a == 1 then
    if game . get_event_flag ( "auto" ) >= 1 then
    say ( "Already active" )
    else
    say ( "Auto Message On" )
    game . set_event_flag ( "auto" , 1 )
    server_timer ( "mex" , t )
  end
  elseif a == 2 then
  say ( "Auto Message Off" )
  game . set_event_flag ( "auto" , 0 )
  clear_server_timer ( "mex" )
  clear_server_timer ( "mex1" )
  elseif a == 3 then
  say ( "Enter your message" )
  s = input ( )
  say ( "Other Message:" )
  b = input ( )
  say ( "Other Message:" )
  c = input ( )
  elseif a == 4 then
  say ( "Auto post time:" )
  m = tonumber(input())
    if m == nil then
    say ( "You must enter a number" )
    elseif m < 1 then
    say ( "You must enter a positive number" )
    else
    h = select ( "Seconds" , "Minutes" , "Hours" )
if h == 1 then
t = m
elseif h == 2 then
t = tonumber(m * 60)
elseif h == 3 then
t = tonumber(m * 60 * 60)
    end
  end
end
  end
when mex.server_timer begin
if game.get_event_flag ( "auto" ) == 1 then
notice_all ( ""..s )
if b != "" then
notice_all ( ""..b )
end
if c != "" then
notice_all ( ""..c )
end
server_timer ( "mex1" , t )
else
end
  end
when mex1.server_timer begin
if game . get_event_flag ( "auto" ) == 1 then
notice_all ( ""..s )
if b != "" then
notice_all ( ""..b )
end
if c != "" then
notice_all ( ""..c )
end
server_timer ( "mex" , t )
else
end
   end
end
end
Elmented majd restrat a szerón és menni is fog (a részeket írd át, nem ár angol tudás)
By DeathNinja from PUMT2