tbaMUD Continued development of the CircleMUD core

set sala %self.room% 
set alvo %sala.people% 
while %alvo% 
  set tmp_alvo %alvo.next_in_room% 
  wait 38s 
  %damage% %alvo% -300 
  if %alvo.varexists(lutando_bahamut)% 
    rdelete lutando_bahamut %alvo.id% 
    set acesso_yo 1 
    remote acesso_yo %alvo.id% 
    wait 18s 
    get bola 
    wait 6s 
    %load% obj 2262 
...
    drop obj 2262 
    %teleport% %self% 13898 
  else 
    return 0 
  end 
  set alvo %tmp_alvo% 
done

set sala %self.room% 
%echo% Lentamente, o grande dragão começa a falar: 
%echo% O Dragão disse, 'Muito obrigado por me libertarem... me chamo Bahamut...' 
wait 6s 
say Estive preso naquele corpo por tanto tempo que já perdi a noção... 
wait 6s 
say Só lembro daquele dragão corrompido tentando destruir nosso pai... 
wait 6s 
say Como agradecimento por terem me libertado daquele corpo sujo, quero convidá-los a entrar nas nossas terras... 
wait 6s 
say Poucos mortais podem ir lá, não existem meios físicos para entrar, só através de um portal... 
wait 6s 
say Esse portal é guardado por um imenso dragão dourado, meu fiel servo há milhares de anos 
wait 6s 
say Vou marcá-los com meu sangue, quando vocês chegarem lá, ele vai senti-lo e com isso permitirá que vocês usem o portal... 
%echo% Com uma das garras Bahamut corta uma de suas patas, e derrama bastante sangue sobre você. 
wait 2s 
%echo% Você se sente extremamente bem, como se esse sangue curasse todas as suas feridas antigas. 

set alvo %sala.people% 
while %alvo% 
  set tmp_alvo %alvo.next_in_room% 
  %damage% %alvo% -300 
  if %alvo.varexists(lutando_bahamut)% 
    rdelete lutando_bahamut %alvo.id% 
    set acesso_yo 1 
    remote acesso_yo %alvo.id% 
  end
  set alvo %tmp_alvo% 
done  
    
wait 6s 
say Se caso algum de seus companheiros que me ajudaram a obter a liberdade não estiver aqui, diga para ele que o guardião reconhece a verdade...' 
wait 6s 
say E se ele for digno, o guardião permitirá sua passagem... mas em caso de mentira, a morte será seu provável caminho...' 
wait 6s 
say Agora devo partir para minha terra... mas não sem antes destruir aquilo que me trouxe tanta angustia. 
%echo% Bahamut pega a grande bola de metal vermelha que estava no chão. 
get bola 
wait 6s 
%echo% E coloca ela entre seus dentes, e com uma força assustadora, ele morde, até que o metal se parte em vários pedaços. 

* here we reward the people who took the hit before the waits, and stuck around
set alvo %sala.people% 
while %alvo% 
  if %alvo.varexists(access_yo)% 
    %load% obj 2262
    drop objectname
  end
  set alvo %alvo.next_in_room% 
done  
%echo% Bahamut acena, e com o que parece um sorriso, torna-se energia e desaparece no ar. 
%teleport% %self% 13898