Cod: Selectaţi tot

quest DnD_Lingouri begin
    state start begin    
       when 80003.use begin           
            say_title("Lingou de aur")
         say("")
            say("Acest lingou este in valoare de 100.000.000Yang.")
            say("Doresti sa schimbi acest lingou in yang?")
         say("")         
         local s = select("Schimba in Yang","Nu")   
         
         if s == 1 and pc.count_item(80003) and pc.get_gold()<=1890000000 then
			pc.remove_item(80003)
            pc.change_money(100000000)
         elseif s == 1 and pc.get_gold()>=1890000001 then 
            say_title("Lingou de aur")
            say("")
            say("Nu poti transforma lingoul in yang deoarece")
            say("ai prea multi la tine.")
			chat ("Ar trebuii sa ai maximum 1.890.000.000 Yang pentru a putea deschide lingoul ! ")
            say("")
         elseif s == 1 and pc.count_item(80003)==0 then            
            say_title("Lingou de aur")
            say("")
            say("Din pacate nu ai un lingou pentru face acest lucru!")
            say("")
            if s == 2 then         
                return   
            end
         end
	end
		when 80004.use begin           
            say_title("Lingou de aur")
         say("")
            say("Acest lingou este in valoare de 500.000.000Yang.")
            say("Doresti sa schimbi acest lingou in yang?")
         say("")         
         local s = select("Schimba in Yang","Nu")   
         
         if s == 1 and pc.count_item(80004) and pc.get_gold()<=1400000000 then
            pc.remove_item(80004)
			pc.change_money(500000000)
         elseif s == 1 and pc.get_gold()>=1499999999 then            
            say_title("Lingou de aur")
            say("")
            say("Nu poti transforma lingoul in yang deoarece")
            say("ai prea multi la tine.")
			chat ("Ar trebuii sa ai maximum 1.400.000.000 Yang pentru a putea deschide lingoul ! ")
            say("")
         elseif s == 1 and pc.count_item(80004)==0 then            
            say_title("Lingou de aur")   
            say("")
            say("Din pacate nu ai un lingou pentru face acest lucru!")
            say("")
            if s == 2 then         
                return         
            end
         end
	end
		when 80005.use begin           
            say_title("Lingou de aur")
         say("")
            say("Acest lingou este in valoare de 1.000.000.000Yang.")
            say("Doresti sa schimbi acest lingou in yang?")
         say("")         
         local s = select("Schimba in Yang","Nu")   
         
         if s == 1 and pc.count_item(80005) and pc.get_gold()<=900000000 then
            pc.remove_item(80005)
			pc.change_money(1000000000)
         elseif s == 1 and pc.get_gold()>=999999999 then            
            say_title("Lingou de aur")
            say("")
            say("Nu poti transforma lingoul in yang deoarece")
            say("ai prea multi la tine.")
			chat ("Ar trebuii sa ai maximum 900.000.000 Yang pentru a putea deschide lingoul ! ")
            say("")
         elseif s == 1 and pc.count_item(80005)==0 then            
            say_title("Lingou de aur")   
            say("")
            say("Din pacate nu ai un lingou pentru face acest lucru!")
            say("")
            if s == 2 then         
               return         
            end
         end
      end       
    end -- state
end   -- quest