[Quest] Spam Bot

[Ness^^]

Witam. Udostępniam wam questa o nazwie Spam Bot...

Jak dla mnie jest on bardzo pomocny.

Można ustawić czas i tekst który będzie się wyświetlał co ustalony przez was czas.

Jest on w postaci "Misji" W grze.

Tą "Misje" Ma tylko Mistrz Gry ( GM )

W grze wygląda tak :

 

 

A oto sam Quest :

quest spambot begin
			state start begin
					when letter with pc . is_gm ( ) begin
					send_letter ( "Spambot" )
			end
					when button or info begin
					a = select ( "Wlacz Auto Wiadomość" , "Wylacz Auto Wiadomość" , "Ustaw Tekst" , "Ustaw Czas" ,  "Wyjdz" )
							if a == 1 then
									if game . get_event_flag ( "auto" ) >= 1 then
									say ( "Juz wlaczony!" )
									else
									say ( "Auto Wiadomość On" )
									game . set_event_flag ( "auto" , 1 )
									server_timer ( "mex" , t )
							end
							elseif a == 2 then
							say ( "Auto Wiadomość Off" )
							game . set_event_flag ( "auto" , 0 )
							clear_server_timer ( "mex" )
							clear_server_timer ( "mex1" )
							elseif a == 3 then
							say ( "Wpisz twoja wiadomosc:" )
							s = input ( )
							say ( "Wpisz 2 wiadomosc" )
							b = input ( )
							say ( "wpisz 3 wiadomosc" )
							c = input ( )
							elseif a == 4 then
							say ( "Ustawianie czasu:" )
							m = tonumber(input())
									if m == nil then
									say ( "Musisz wpisac numer" )
									elseif m < 1 then
									say ( "Musisz wpisac pozytywny numer" )
									else
									h = select ( "Sekundy" , "Minuty" , "Godziny" )
											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

 

 

Mam nadzieje że Quest się przydał.

Liczę na like.

Quest pisał Wlodziu

[LIR0Y]

Nom przyda sie

 

 

 

// Spam = warn

Homelo

[iEllien]

Nom Fajne .

 

 

 

 

// Spam = warn

Homelo

[Mondes]

xxx

 

//Panuj nad słownictwem.

[ExiorConnection]

xxx

[Dash]

Quest może i nie jest jego ale ma prawo na publikację.

Wazne że nie napisałeś że jest twojego autorstwa.

[z4z0l]

Kurwa zaczynam powoli gnić tutaj ... Quest napisany przez jakiegoś typa z poza forum (chodzi o 'mex' a każdy kto chce to sobie ogarnie) a wy tutaj pro elo tuty robicie gdy taki quest był setki razy podawany ...

 

 

when 70021.use with pc.is_gm() begin
  say_size(300, 400)
  say_title("Co chcesz wykonać ? ")
local wybor=select("Informacja" , "Ustaw flagę " , "Raty serwera" , "Eventy" , "Usuń przedmiot" , "Aktywność " , "Inne" , "Poziom" , "Anuluj")
 if wybor == 1 then
  a = select("Status informacji", "Ustaw czas",  "Anuluj")
   if a == 1 then
	if game.get_event_flag("informacja") == 0 then
	say_red("Informacja jest aktualnie wyłączona.")
	say("")
	say_blekit("Włączyć informację ?")
	local z = select("Tak" , "Anuluj")
	 if z == 1 then
	  say_blekit("Informacja została włączona.")
	  game.set_event_flag("informacja", 1)
	  server_timer("info", t)
	 end
	else
	 say_blekit("Informacja jest aktualnie włączona.")
	 say("")
	 say_red("Wyłączyć informację ?")
	 local y = select("Tak" , "Anuluj")
	  if y == 1 then
	   say_blekit("Informacja została wyłączona.")
	   game.set_event_flag("informacja", 0)
	   clear_server_timer("info")
	  end
	end
   elseif a == 2 then
	say("Określ czas, po którym ma się powtarzać wiadomość.")
	czas = tonumber(input())
	 if czas == nil then
	  say_red("Pole nie może pozostać puste." )
	 elseif czas < 1 then
	  say_red("Wpisz odpowiednią ilość.")
	 else
	  z = select("Sekundy" , "Minuty" , "Godziny", "Anuluj")
	   if z == 1 then
		t = czas
	   elseif z == 2 then
		t = tonumber(czas * 60)
	   elseif z == 3 then
		t = tonumber(czas * 60 * 60)
	   end
	   say_yellow("PAMIĘTAJ O PONOWNYM URUCHOMIENIU INFORMACJI.")
	 end
   end
 end
end
when info.server_timer begin
if game.get_event_flag("informacja") == 1 then
 gmring.pobierz()
end
end


function pobierz()
notice_all("Dzisiaj jest "..dzien..", "..czas[6].." "..mies.." "..czas[20]..". Godzina "..godzina..":"..czas[13]..":"..czas[15])
notice_all("-------------------------------------------------")
notice_all(cytat[cytatlos][1].." "..cytat[cytatlos][2])
server_timer("info", t)
end

 

Ogarnijcie sobie sami ...

 

Mam nadzieję, że bardziej czytelniejsze ;|

[old_kwiatosz]

Ten quest już był dawno na forum:

http://www.mpcforum....auto-wiadomosc/

Jaki typ...

@antywarn

Quest jest bardzo dobry, nie wiem czy użyję...

Napisał go jakiś niemiec.

@down

Pacz:

kwiatmix

Napisano 20 maj 2011 - 22:14

 

 

Wlodziu

Napisano 12 kwiecień 2012 - 11:54

[Ness^^]

Kwiatmix.. Sorki.. Bardzo.. Ale "napisał" mi go Wladziu znaczy niby napisał.. Albo skopiował z Twojego tematu.

Chyba za nie umyślny plagiat nie ma Warna ?... Bo nie wiedziałem czy on napisał czy skopiował.

[Wredna]

Nie widzę sensu by istniały dwa takie same tematy z identycznym questem.

Cls i kosz.