Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: TidusBR on Aug 17th, 2013  |  syntax: None  |  size: 17.82 KB  |  views: 28  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. //  ________________________________________________________
  2. // /                                                        \
  3. // |   __        ___     _              _     _             |
  4. // |   \ \      / (_)___| | _______   _(_)___| | ___   _    |
  5. // |    \ \ /\ / /| / __| |/ / _ \ \ / / / __| |/ / | | |   |
  6. // |     \ V  V / | \__ \   < (_) \ V /| \__ \   <| |_| |   |
  7. // |      \_/\_/  |_|___/_|\_\___/ \_/ |_|___/_|\_\\__, |   |
  8. // |                                               |___/    |
  9. // |                                                        |
  10. // |                  Wiskovisky's Script                   |
  11. // |--------------------------------------------------------|
  12. // | Nome do Script: Imobiliária (Sistema de Casas)         |
  13. // |--------------------------------------------------------|
  14. // | Criado por: Wiskovisky                                 |
  15. // |--------------------------------------------------------|
  16. // | Versão: 2.0                                            |
  17. // |--------------------------------------------------------|
  18. // | Descrição: Sistema de aluguel de casas em Prontera     |
  19. // |--------------------------------------------------------|
  20. // | Changelog:                                             |
  21. // | 0.8 Criação                                            |
  22. // | 1.1 Ajustes realizados, menu GM e Assistente criados   |
  23. // | 1.5 Portal ajustado e novas opções na assistente       |
  24. // | 1.8 Novo aviso de aluguel e numeração nas placas       |
  25. // | 2.0 Adicionado 'Buffs' e Transferência                 |
  26. // | - Configurações abaixo                                 |
  27. // \________________________________________________________/
  28. -       script  imoveis -1,{
  29. OnInit:
  30. //Configurações do sistema
  31.         set .keyi, 18301; //ID do item usado como chave
  32.         set .alp, 10000; //Preço do alugel por mês
  33.         set .perds, 30; //Duração de um período (em dias / a cada período o aluguel deverá ser pago novamente)
  34.         set .tcont, 3; //Duração do contrato de aluguel (em períodos)
  35.         set .nims, 7; //Número de casas
  36.         set .asp, 6000; //Preço da Assistente (pago por contrato inteiro)
  37.         set .gm, 99; //Nível mínimo GM para entrar nas casas sem ser locatário e acessar o menu
  38.         set .aviso, 1; //Avisar os jogadores que já podem parar o aluguel ao logarem? (1 = sim)
  39.         set .tfp, 1000; //Preço para transferência da casa
  40.         set .buff, 1; //Ativar opção de Buffs na assistente da casa? (1 = sim)
  41.         set .woeb, 0; //Ativar opção de Buffs na assintente durante a WoE? (1 = sim)
  42.         setarray $@cmap$[1],"casa","casa","casa","casa","casa","casa","casa","casa","casa","casa";
  43.         setarray $@casx[1],69,227,167,80,127,207,253,0,0,0;
  44.         setarray $@casy[1],165,17,127,110,41,175,110,0,0,0;
  45. //Não editar após essa linha
  46.         set .perds, .perds*86400;
  47.         set .pperd, .perds-3*86400;
  48. end;
  49. OnHour24:
  50. for( set .@i, 1; .@i <= .nims; set .@i, .@i +1 ){
  51. if (getd("$cimovel"+.@i)){
  52. if(getd("$dimovel"+.@i) < gettimetick(2)-.perds*.tcont){
  53.         setd "$cimovel"+.@i,0;
  54.         setd "$aassist"+.@i,0;
  55.         setd "$opimovel"+.@i,0;
  56.         setd "$psimovel"+.@i,0;
  57.         setnpcdisplay("imovel"+.@i, "Casa "+.@i+" (Disponível)#"+.@i, 858);
  58. }
  59. if(getd("$lpimovel"+.@i) < gettimetick(2)-.pperd){
  60.         setd "$cimovel"+.@i,0;
  61.         setd "$aassist"+.@i,0;
  62.         setd "$opimovel"+.@i,0;
  63.         setd "$psimovel"+.@i,0;
  64.         setnpcdisplay("imovel"+.@i, "Casa "+.@i+" (Disponível)#"+.@i, 858);
  65. }
  66. }
  67. }
  68. end;
  69. OnWhisperGlobal:
  70. if(getgmlevel() >= .gm){
  71.         mes "[Imobiliária]";
  72.         switch(select("Visitar casa:Informações da casa:Visitar Imobiliária")){
  73.         case 1:
  74.         mes "Digite o número da casa (1-"+.nims+")...";
  75.         if(input(@nc,1,.nims) == 0){
  76.         warp $@cmap$[@nc],$@casx[@nc],$@casy[@nc];
  77.         }else mes "Número incorreto!";
  78.         close;
  79.         end;
  80.         case 2:
  81.         mes "Digite o número da casa (1-"+.nims+")...";
  82.         if(input(@nc,1,.nims) == 0){
  83.         if (getd("$cimovel"+@nc)){
  84.         mes "A casa #"+@nc+" está ^880022Ocupada^000000.";
  85.         mes "Conta: "+getd("$cimovel"+@nc);
  86.         if(rid2name(getd("$cimovel"+@nc))) mes "("+rid2name(getd("$cimovel"+@nc))+")";
  87.         }else mes "A casa #"+@nc+" está ^006622Disponível^000000 para aluguel";
  88.         }else mes "Número incorreto!";
  89.         close;
  90.         end;
  91.         case 3:
  92.         warp "prt_in",46,106;
  93.         close;
  94.         end;
  95.         }
  96. close;
  97. }
  98. end;
  99. OnPCLoginEvent:
  100. if(.aviso && #casa && getd("$lpimovel"+#casa) < gettimetick(2)-.perds) dispbottom "Imobiliária: Você deve pagar seu aluguel na imobiliária mais próxima, antes que seu contrato seja cancelado.";
  101. end;
  102. }
  103. prt_in,38,104,7 script  Lucy#lucyim     91,{
  104.         set .keyi, getvariableofnpc(.keyi,"imoveis");
  105.         set .alp, getvariableofnpc(.alp,"imoveis");
  106.         set .tcont, getvariableofnpc(.tcont,"imoveis");
  107.         set .nims, getvariableofnpc(.nims,"imoveis");
  108.         set .perds, getvariableofnpc(.perds,"imoveis");
  109.         set .asp, getvariableofnpc(.asp,"imoveis");
  110.         set .tfp, getvariableofnpc(.tfp,"imoveis");
  111.         cutin "katsua02",2;
  112.         mes "["+strnpcinfo(1)+"]";
  113.         if(#casa){
  114.         if(getd("$dimovel"+#casa) < gettimetick(2)-.perds*.tcont){
  115.         mes "Seu contrato de aluguel terminou, mas você pode alugar outra casa novamente.";
  116.         setd "$cimovel"+#casa,0;
  117.         set #casa, 0;
  118.         close2;
  119.         cutin "",255;
  120.         end;
  121.        
  122. }
  123.         mes "Olá! O que deseja?";
  124.         if(getd("$aassist"+#casa)){ menu "Pagar aluguel do mês",-,"Cancelar contrato",Cancelar,"Transferir casa",Transferir; }else{ menu "Pagar aluguel do mês",-,"Contratar Assistente",Contratar,"Cancelar contrato",Cancelar,"Transferir casa",Transferir;}
  125.         if(getd("$lpimovel"+#casa) < gettimetick(2)-.perds){
  126.         if(zeny < .alp) goto ZSair;
  127.         set zeny, zeny-.alp;
  128.         setd "$lpimovel"+#casa, gettimetick(2);
  129.         emotion e_thx;
  130.         mes "Pagamento efetuado!";
  131.         }else mes "Você não pode pagar o próximo aluguel até o final do período";
  132.         close2;
  133.         cutin "",255;
  134.         end;
  135.         }else{
  136.         mes "Olá! o que você acha de morar em uma confortável casa?";
  137.         menu "Hmm.. Interessante!",-,"Não, obrigado.",NSair;
  138.         mes "Por apenas ^007777"+.alp+"z^000000/mês você pode alugar uma casa!";
  139.         next;
  140.         cutin "katsua01",2;
  141.         mes "["+strnpcinfo(1)+"]";
  142.         mes "São varias casas disponíveis em diversos pontos.";
  143.         mes "Que tal?";
  144.         menu "Quero alugar uma casa!",-,"Acho melhor não.",NSair;
  145.         cutin "katsua02",2;
  146.         mes "Ótimo! Mostrarei-lhe a lista de casas...";
  147.         next;
  148.         for( set .@i, 1; .@i <= .nims; set .@i, .@i +1 ){
  149.         if (getd("$cimovel"+.@i)) mes "Casa #"+.@i+": ^880022Ocupada^000000"; else mes "Casa #"+.@i+": ^006622Disponível^000000";
  150.         }
  151.         next;
  152.         mes "["+strnpcinfo(1)+"]";
  153.         mes "Digite o número da casa que deseja alugar para mais informações...";
  154.         if(input(@icasa,1,.nims) == 0){
  155.         if(getd("$cimovel"+@icasa)) mes "A casa #"+@icasa+" já está ocupada..."; else{
  156.         if(getmapxy(@casam$,@casax,@casay,1,"imovel"+@icasa) == 0){
  157.         mes "A casa #"+@icasa+" é localizada em "+@casam$+" ("+@casax+","+@casay+")";
  158.         menu "Alugar casa",Alugar,"Ver casa",-;
  159.         mes "Não é permitido entrar na casa, mas vou levá-lo até a porta...";
  160.         warp @casam$,@casax,@casay;
  161.         }else{
  162.         cutin "katsua03",2;
  163.         emotion e_swt;
  164.         mes "A casa #"+@icasa+" não foi encontrada... Favor reportar a um GM";
  165.         }
  166.         }
  167.         }else{
  168.         cutin "katsua03",2;
  169.         mes "Número incorreto...";
  170.         }
  171.         close2;
  172.         cutin "",255;
  173.         }
  174. end;
  175. Alugar:
  176.         mes "Deixe me pegar a papelada...";
  177.         next;
  178.         cutin "katsua01",2;
  179.         mes "Aqui está! Por ^007777"+.alp+"z^000000/mês você pode alugar a casa por um período de "+getvariableofnpc(.tcont,"imoveis")+" meses";
  180.         next;
  181.         mes "Após esse período a casa estará disponível para aluguel novamente.";
  182.         mes "A cada 30 dias começando pela data de aluguel da casa você terá 3 dias para pagar o aluguel da casa antes que seu aluguel seja cancelado.";    
  183.         menu "Ok! Quero alugar a casa",-,"Mudei de ideia...",NSair;
  184.         if(zeny < .alp) goto ZSair;
  185.         if(checkweight(.keyi,1) == 0){
  186.         cutin "katsua03",2;
  187.         emotion e_swt;
  188.         mes "Você não tem espaço no inventório para carregar a chave...";
  189.         close2;
  190.         cutin "",255;
  191.         end;
  192.         }
  193.         cutin "katsua02",2;
  194.         emotion e_grat;
  195.         mes "Parabéns! Aqui está sua chave!";
  196.         set zeny, zeny-.alp;
  197.         getitem .keyi,1;
  198.         setd "$cimovel"+@icasa,getcharid(3);
  199.         setd "$dimovel"+@icasa, gettimetick(2);
  200.         setd "$lpimovel"+@icasa, gettimetick(2);
  201.         set #casa, @icasa;
  202.         setnpcdisplay("imovel"+@icasa, "Casa#"+@icasa, 45);
  203.         close2;
  204.         cutin "",255;
  205. end;
  206. Cancelar:
  207.         mes "Se cancelar seu contrato você poderá alugar outra casa e sua casa atual ficará disponível. Confirmar cancelamento?";
  208.         menu "Sim.",-,"Não.",NSair;
  209.         mes "Certo, aguarde um momento...";
  210.         next;
  211.         mes "["+strnpcinfo(1)+"]";
  212.         mes "Aluguel cancelado!";
  213.         setd "$cimovel"+#casa,0;
  214.         setd "$dimovel"+#casa,0;
  215.         setd "$lpimovel"+#casa,0;
  216.         setd "$aassist"+#casa,0;
  217.         setd "$opimovel"+#casa,0;
  218.         setd "$psimovel"+#casa,0;
  219.         setnpcdisplay("imovel"+#casa, "Casa "+#casa+" (Disponível)#"+#casa, 858);
  220.         set #casa,0;
  221.         close2;
  222.         cutin "",255;
  223. end;
  224. ZSair:
  225.         cutin "katsua03",2;
  226.         emotion e_swt;
  227.         mes "Você não tem ^007777"+.alp+"z^000000 para pagar o aluguel...";
  228.         close2;
  229.         cutin "",255;
  230. end;
  231. NSair:
  232.         cutin "katsua03",2;
  233.         mes "Tudo bem então...";
  234.         mes "Volte se mudar de ideia!";
  235.         close2;
  236.         cutin "",255;
  237. end;
  238. Contratar:
  239.         if(getd("$aassist"+#casa) == 0){
  240.         cutin "katsua01",2;
  241.         mes "Por apenas ^007777"+.asp+"z^000000 você pode contratar uma assistente para sua casa, com várias funções úteis.";
  242.         mes "Que tal?";
  243.         menu "Contratar!",-,"Não, obrigado.",NSair;
  244.         if(zeny < .asp) goto ZSair;
  245.         set zeny, zeny-.asp;
  246.         setd "$aassist"+#casa,1;
  247.         enablenpc "assist"+#casa;
  248.         cutin "katsua02",2;
  249.         emotion e_no1;
  250.         mes "Ótimo! ela já está em sua casa.";
  251.         close2;
  252.         cutin "",255;
  253.         }else{
  254.         mes "Você já contratou uma assistente.";
  255.         close2;
  256.         cutin "",255;
  257.         }
  258. end;
  259. Transferir:
  260.         mes "Certo, pegarei a papelada...";
  261.         next;
  262.         mes "["+strnpcinfo(1)+"]";
  263.         mes "Para quem sua casa será transferida?";
  264.         input(@tname$);
  265.         set @tid, getcharid(3,@tname$);
  266.         if(@tid == 0){
  267.         cutin "katsua03",2;
  268.         mes "Não encontramos ninguém com o nome '"+@tname$+"'...";
  269.         }else{
  270.         getmapxy(@npcmap$,@npcx,@npcy,1);
  271.         getmapxy(@tmap$,@tx,@ty,0,@tname$);
  272.         if(@npcmap$ != @tmap$){
  273.         cutin "katsua03",2;
  274.         mes "O jogador '+@tname$+' precisa estar presente para realizarmos a transferência...";
  275.         }else{
  276.         mes "Confirmar transferência da casa n"+#casa+" para o jogador '+@tname$+' por ^555511"+.tfp+"z^000000 ?";
  277.         if(select("Sim:Não") == 1){
  278.         if(zeny >= .tfp){
  279.         set @tid, getcharid(3,@tname$);
  280.         if(@tid == 0){
  281.         set zeny, zeny-.tfp;
  282.         mes "Ok, a casa será transferida...";
  283.         close2;
  284.         cutin "",255;
  285.         logmes "O jogador "+strcharinfo(0)+" transferiu sua casa (n"+#casa+") para "+@tname$+" ("+@tid+")";
  286.         set .tcasa, #casa;
  287.         set #casa, 0;
  288.         getitem .keyi,1;
  289.         setd "$cimovel"+.tcasa,@tid;
  290.         attachrid(@tid);
  291.         set #casa, .tcasa;
  292.         dispbottom "A casa n"+.tcasa+" foi transferida para você!";
  293.         end;
  294.         }else{
  295.         cutin "katsua03",2;
  296.         emotion e_sry;
  297.         mes "Ops! não conseguimos encontrar o personagem..."; 
  298.         }
  299.         }else{
  300.         cutin "katsua03",2;
  301.         mes "Você não pode pagar ^555511"+.tfp+"z^000000 pela transferência...";
  302.         }
  303.         }else{
  304.         cutin "katsua03",2;
  305.         mes "Ok, volte se precisar...";
  306.         }
  307.         }
  308.         close2;
  309.         cutin "",255;
  310.         }
  311.         close2;
  312.         cutin "",255;
  313. end;
  314. }
  315.  
  316. prt_in,131,67,3 script  Wilston#chaveiro        903,{
  317.         cutin "kh_kyel01",2;
  318.         mes "[Winston]";
  319. if(#casa){
  320.         mes "Hmm... perdeu sua chave?";
  321.         mes "Posso fazer uma nova por ^555511600z^000000.";
  322.         if(select("Sim, por favor!:Não, obrigado!") == 1){
  323.         if(zeny > 600){
  324.         mes "Aqui está!";
  325.         set zeny, zeny-600;
  326.         getitem getvariableofnpc(.keyi,"imoveis"),1;
  327.         }else mes "Você não pode pagar pelos meus serviços...";
  328.         }else mes "Tudo bem então, volte se precisar...";
  329. }else{
  330.         mes "Haha... Você não precisa de meus serviços...";
  331. }
  332.         close2;
  333.         cutin "",255;
  334. end;
  335. }
  336.  
  337. prontera,102,266,5      script  Casa#1::imovel1 45,1,1,{
  338. if(getd("$c"+strnpcinfo(3)) == 0){
  339. if(getgmlevel() >= getvariableofnpc(.gm,"imoveis")) if(select("Visitar Casa:Sair") == 1) warp $@cmap$[atoi(strnpcinfo(2))],$@casx[strnpcinfo(2)],$@casy[strnpcinfo(2)];
  340. dispbottom "Essa casa (n"+strnpcinfo(2)+") está disponível para aluguel! Fale com Lucy em Prontera (136,186)";
  341. }
  342. end;
  343. OnTouch:
  344. if(getd("$c"+strnpcinfo(3))){
  345. if(getgmlevel() >= getvariableofnpc(.gm,"imoveis")) warp $@cmap$[atoi(strnpcinfo(2))],$@casx[atoi(strnpcinfo(2))],$@casy[atoi(strnpcinfo(2))];
  346. if("imovel"+#casa == strnpcinfo(3)){
  347. if(countitem(.keyi) > 0){
  348. if(rand(20) == 10){
  349.         delitem .keyi,1;
  350.         dispbottom "Ops! Sua chave quebrou ao tentar abrir a porta... Procure Winston, o chaveiro.";
  351. }else warp $@cmap$[atoi(strnpcinfo(2))],$@casx[atoi(strnpcinfo(2))],$@casy[atoi(strnpcinfo(2))];
  352. }else dispbottom "Você não pode entrar sem sua chave, procure Winston, o chaveiro.";
  353. }else{
  354. if(getd("$op"+strnpcinfo(3)) == 1) warp $@cmap$[atoi(strnpcinfo(2))],$@casx[atoi(strnpcinfo(2))],$@casy[atoi(strnpcinfo(2))];
  355. if(getd("$ps"+strnpcinfo(3))){
  356. dispbottom "Digite a senha da casa para entrar...";
  357. input @pass$;
  358. if(@pass$ == getd("$ps"+strnpcinfo(3))) warp $@cmap$[atoi(strnpcinfo(2))],$@casx[atoi(strnpcinfo(2))],$@casy[atoi(strnpcinfo(2))]; else dispbottom "Senha incorreta!";
  359. }else dispbottom "Você não pode entrar nessa casa...";
  360. }
  361. }
  362. end;
  363. OnInit:
  364. if(getd("$c"+strnpcinfo(3)) == 0) setnpcdisplay(strnpcinfo(3), "Casa "+strnpcinfo(2)+" (Disponível)#"+strnpcinfo(2), 858);
  365. set .keyi, getvariableofnpc(.keyi,"imoveis");
  366. end;
  367. }
  368.  
  369. casa,53,167,6   script  Assistente::assist1     895,{
  370. if(getd("$a"+strnpcinfo(3))){
  371.         set .buff, getvariableofnpc(.buff,"imoveis");
  372.         set .woeb, getvariableofnpc(.woeb,"imoveis");
  373.         cutin "kh_elly01",2;
  374.         mes "[Assistente]";
  375.         mes "Bom dia! O que deseja?";
  376.         if((agitcheck() || agitcheck2()) && .woeb != 1) set .buff, 0;
  377.         if(.buff) set .opbuff$, "Buffs"; else set .opbuff$, "";
  378.         switch(select("Opções da Casa:Recuperar HP/SP:Abrir Depósito:Abrir Correio:Abrir Leilão:"+.opbuff$+":Visitar Imobiliária")){
  379.         case 1:
  380.         if("assist"+#casa == strnpcinfo(3)){
  381.         mes "[Opções da Casa]";
  382.         if(getd("$opimovel"+#casa)) mes "Aberta ao público: ^00aa55Sim^000000"; else mes "Aberta ao público: ^aa0055Não^000000";
  383.         if(getd("$psimovel"+#casa)) mes "Senha: ^002266"+getd("$psimovel"+#casa)+"^000000"; else mes "Senha: ^aa0055Não^000000";
  384.         switch(select("Abrir/fechar casa:Modificar senha")){
  385.         case 1:
  386.         cutin "kh_elly02",2;
  387.         if(getd("$opimovel"+#casa)){
  388.         setd "$opimovel"+#casa, 0;
  389.         mes "Casa fechada!";
  390.         }else{
  391.         setd "$opimovel"+#casa, 1;
  392.         mes "Casa aberta!";
  393.         }
  394.         close2;
  395.         emotion e_thx;
  396.         cutin "", 255;
  397.         end;
  398.         case 2:
  399.         cutin "kh_elly02",2;
  400.         mes "Digite uma nova senha ou 'cancelar' para remover a senha...";
  401.         input @pass$;
  402.         if(@pass$ == "cancelar"){
  403.         setd "$psimovel"+#casa, 0;
  404.         mes "Senha removida!";
  405.         }else{
  406.         setd "$psimovel"+#casa, @pass$;
  407.         mes "Senha modificada para: ^002266"+@pass$+"^000000";
  408.         }
  409.         close2;
  410.         emotion e_thx;
  411.         cutin "", 255;
  412.         end;
  413.         }
  414.         }else mes "Apenas o dono pode modificar as opções da casa...";
  415.         close2;
  416.         cutin "", 255;
  417.         end;
  418.         case 2:
  419.         cutin "kh_elly02",2;
  420.         percentheal 100,100;
  421.         specialeffect2 325;
  422.         mes "HP/SP recuperados!";
  423.         close2;
  424.         emotion e_no1;
  425.         cutin "", 255;
  426.         end;
  427.         case 3:
  428.         if(getcharid(2) != 0){
  429.         if(select("Depósito pessoal:Depósito da guilda") == 2){
  430.         cutin "kh_elly02",2;
  431.         mes "Ok, abrirei o depósito da guilda...";
  432.         close2;
  433.         cutin "", 255;
  434.         emotion e_thx;
  435.         guildopenstorage();
  436.         end;
  437.         }}
  438.         cutin "kh_elly02",2;
  439.         mes "Certo, abrirei seu depósito...";
  440.         close2;
  441.         cutin "", 255;
  442.         emotion e_thx;
  443.         openstorage;
  444.         end;
  445.         case 4:
  446.         cutin "kh_elly02",2;
  447.         mes "Certo, abrirei o correio...";
  448.         close2;
  449.         cutin "", 255;
  450.         emotion e_thx;
  451.         openmail;
  452.         end;
  453.         case 5:
  454.         cutin "kh_elly02",2;
  455.         mes "Certo, abrirei o leilão...";
  456.         close2;
  457.         cutin "", 255;
  458.         emotion e_thx;
  459.         openauction;
  460.         end;
  461.         case 6:
  462.         cutin "kh_elly02",2;
  463.         mes "Certo, aqui está!";
  464.         specialeffect2 582;
  465.         specialeffect2 42;
  466.         sc_start SC_BLESSING,300000,10;
  467.         sc_start SC_INCREASEAGI,300000,10;
  468.         sc_start SC_CONCENTRATE,300000,10;
  469.         sc_start SC_GLORIA,300000,10;
  470.         sc_start SC_KYRIE,300000,10;
  471.         sc_start SC_REFLECTSHIELD,300000,10;
  472.         sc_start SC_ASPDPOTION3,300000,10;
  473.         sc_start SC_SPEEDUP1,300000,10;
  474.         sc_start SC_ENERGYCOAT,300000,10;
  475.         close2;
  476.         cutin "", 255;
  477.         emotion e_no1;
  478.         end;
  479.         case 7:
  480.         cutin "kh_elly02",2;
  481.         mes "Ok, teleportarei você... Até logo!";
  482.         close2;
  483.         cutin "", 255;
  484.         warp "prt_in",46,106;
  485.         end;
  486.         }
  487.         close2;
  488.         cutin "", 255;
  489. }
  490.         end;
  491. OnInit:
  492. if(getd("$a"+strnpcinfo(3)) == 0) disablenpc strnpcinfo(3);
  493. end;
  494. }
  495.  
  496. //Casas
  497. prontera,96,255,5       duplicate(imovel1)      Casa#2::imovel2 45,1,1
  498. prontera,210,265,3      duplicate(imovel1)      Casa#3::imovel3 45,1,1
  499. prontera,215,247,2      duplicate(imovel1)      Casa#4::imovel4 45,1,1
  500. prontera,219,227,2      duplicate(imovel1)      Casa#5::imovel5 45,1,1
  501. prontera,220,182,2      duplicate(imovel1)      Casa#6::imovel6 45,1,1
  502. prontera,139,150,6      duplicate(imovel1)      Casa#7::imovel7 45,1,1
  503. //prontera,108,144,7    duplicate(imovel1)      Casa#8::imovel8 45,1,1
  504. //prontera,105,167,3    duplicate(imovel1)      Casa#9::imovel9 45,1,1
  505. //prontera,94,167,6     duplicate(imovel1)      Casa#10::imovel10       45,1,1
  506.  
  507. //Assistentes
  508. casa,231,31,4   duplicate(assist1)      Assistente::assist2     895,0,0
  509. casa,172,132,2  duplicate(assist1)      Assistente::assist3     895,0,0
  510. casa,88,105,2   duplicate(assist1)      Assistente::assist4     895,0,0
  511. casa,135,35,2   duplicate(assist1)      Assistente::assist5     895,0,0
  512. casa,211,169,2  duplicate(assist1)      Assistente::assist6     895,0,0
  513. casa,233,108,5  duplicate(assist1)      Assistente::assist7     895,0,0
  514. //casa,0,0,0    duplicate(assist1)      Assistente::assist8     895,0,0
  515. //casa,0,0,0    duplicate(assist1)      Assistente::assist9     895,0,0
  516. //casa,0,0,0    duplicate(assist1)      Assistente::assist10    895,0,0
  517.  
  518. //Mapflags
  519. casa    mapflag nowarp
  520. casa    mapflag noteleport
  521. casa    mapflag nowarpto
  522. casa    mapflag nowarp
  523.  
  524. //Portais
  525. casa,69,162,0   warp    Casa-1  1,1,prontera,103,264
  526. casa,228,14,0   warp    Casa-2  1,1,prontera,98,254
  527. casa,167,124,0  warp    Casa-3  1,1,prontera,208,265
  528. casa,79,113,0   warp    Casa-4  1,1,prontera,213,247
  529. casa,127,45,0   warp    Casa-5  1,1,prontera,217,227
  530. casa,207,179,0  warp    Casa-6a 1,1,prontera,218,181
  531. casa,217,164,0  warp    Casa-6b 1,1,casa,49,106
  532. casa,53,106,0   warp    Casa-6c 1,1,casa,212,164
  533. casa,253,113,0  warp    Casa-7  1,1,prontera,141,150
  534. //casa,0,0,0    warp    Casa-8  1,1,prontera,110,144
  535. //casa,0,0,0    warp    Casa-9  1,1,prontera,103,168
  536. //casa,0,0,0    warp    Casa-10 1,1,prontera,96,167