SHARE
TWEET

Untitled

a guest Dec 31st, 2018 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. payon,155,242,4 script  Pontos de Venda 757,{
  2. for( set .@i,1; .@i <= .count; set .@i,.@i + 1 ){
  3.     getmapxy( .@map$,.@x,.@y,1,"#vend_slot"+.@i );
  4.     if( !getareausers( .map$,.@x,.@y,.@x,.@y ) && .@x > 1 && .@y > 1 ){
  5.          set .@available,.@available + 1;
  6.          set .@menu$,.@menu$ + "Slot - "+.@i+":";
  7.     }else{
  8.          set .@menu$,.@menu$ + ":";
  9.     }
  10. }
  11.  
  12. if( !.@available ){
  13.     mes "Este slot está ocupado.";
  14. }else if( !getskilllv("MC_VENDING") ){
  15.     mes "Você não possui a habilidade ^0055FFComércio^000000.";
  16. }else{
  17.     mes "Slot Disponível: "+.@available;
  18.     mes "Por favor, escolha o seu Ponto de Venda.";
  19.     set .@i,select( .@menu$ );
  20.     getmapxy( .@map$,.@x,.@y,1,"#vend_slot"+.@i );
  21.     if( .@x == 1 || .@y == 1 ){
  22.          mes "Este NPC está em local inválido...";
  23.     }else{
  24.          warp .@map$,.@x,.@y;
  25.          hideonnpc "#vend_slot"+.@i;
  26.     }
  27. }
  28. close;
  29.  
  30. OnInit:
  31. sleep 1000;
  32. // Map for vending
  33. set .map$,"payon";
  34. setcell .map$,0,0,158,242,cell_novending,1;
  35.  
  36. // x and y horizone ..
  37. setarray .x_line,143,146,149,152,155,158,161;
  38. setarray .y_line,239,236,233,230,227,224,221,218,215,212;
  39.  
  40. set .x_line_size,getarraysize( .x_line );
  41. set .y_line_size,getarraysize( .y_line );
  42. set .count,1;
  43. for( set .@x,0; .@x < .x_line_size; set .@x,.@x + 1 )
  44.     for( set .@y,0; .@y < .y_line_size; set .@y,.@y + 1 )
  45.          if( checkcell( .map$,.x_line[.@x],.y_line[.@y],cell_chkpass ) ){
  46.                 movenpc "#vend_slot"+.count,.x_line[.@x],.y_line[.@y];
  47.                 setcell .map$,.x_line[.@x],.y_line[.@y],.x_line[.@x],.y_line[.@y],cell_novending,0;
  48.                 set .count,.count + 1;
  49.          }
  50. npctalk "Ponto de Venda: "+.count;
  51. donpcevent "::OnSetup";
  52. end;
  53. }
  54.  
  55. -   script  vend_slot   -1,{
  56. getmapxy( .@map$,.@x,.@y,1 );
  57. if( !getskilllv("MC_VENDING") ){
  58.     mes "Você não possui a habilidade ^0055FFComércio^000000.";
  59. }else if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
  60.     mes "Alguém já escolheu este local.";
  61. }else{
  62.     mes "Ponto de Venda : ^777777Disponível^000000";
  63.     mes "^0055FF[ Regras dos Pontos de Venda]^000000";
  64.     mes "^FF0000 ~ Nome adequado à loja.^000000";
  65.     mes "^FF0000 ~ Não ocupar espaço com vendas inúteis.^000000";
  66.     mes " ";
  67.     mes "^777777Os players que não seguirem estas regras serão devidamente punidos.^000000";
  68.     if( select( "Escolha o Ponto de Venda","Cancelar" ) == 1 ){
  69.          warp .@map$,.@x,.@y;
  70.          hideonnpc strnpcinfo(0);
  71.     }
  72. }
  73. close;
  74.  
  75. OnSetup:
  76. getmapxy( .@map$,.@x,.@y,1 );
  77. set .@npcname$,strnpcinfo(0);
  78. while( .@map$ != "" ){
  79.     if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
  80.          hideonnpc .@npcname$;
  81.     }else{
  82.          hideoffnpc .@npcname$;
  83.          // specialeffect 313;
  84.     }
  85.     sleep 5000;
  86. }
  87. end;
  88. }
  89.  
  90. // Add more if needed.
  91. payon,1,1,4 duplicate(vend_slot)    #vend_slot1 858
  92. payon,1,1,4 duplicate(vend_slot)    #vend_slot2 858
  93. payon,1,1,4 duplicate(vend_slot)    #vend_slot3 858
  94. payon,1,1,4 duplicate(vend_slot)    #vend_slot4 858
  95. payon,1,1,4 duplicate(vend_slot)    #vend_slot5 858
  96. payon,1,1,4 duplicate(vend_slot)    #vend_slot6 858
  97. payon,1,1,4 duplicate(vend_slot)    #vend_slot7 858
  98. payon,1,1,4 duplicate(vend_slot)    #vend_slot8 858
  99. payon,1,1,4 duplicate(vend_slot)    #vend_slot9 858
  100. payon,1,1,4 duplicate(vend_slot)    #vend_slot10    858
  101. payon,1,1,4 duplicate(vend_slot)    #vend_slot11    858
  102. payon,1,1,4 duplicate(vend_slot)    #vend_slot12    858
  103. payon,1,1,4 duplicate(vend_slot)    #vend_slot13    858
  104. payon,1,1,4 duplicate(vend_slot)    #vend_slot14    858
  105. payon,1,1,4 duplicate(vend_slot)    #vend_slot15    858
  106. payon,1,1,4 duplicate(vend_slot)    #vend_slot16    858
  107. payon,1,1,4 duplicate(vend_slot)    #vend_slot17    858
  108. payon,1,1,4 duplicate(vend_slot)    #vend_slot18    858
  109. payon,1,1,4 duplicate(vend_slot)    #vend_slot19    858
  110. payon,1,1,4 duplicate(vend_slot)    #vend_slot20    858
  111. payon,1,1,4 duplicate(vend_slot)    #vend_slot21    858
  112. payon,1,1,4 duplicate(vend_slot)    #vend_slot22    858
  113. payon,1,1,4 duplicate(vend_slot)    #vend_slot23    858
  114. payon,1,1,4 duplicate(vend_slot)    #vend_slot24    858
  115. payon,1,1,4 duplicate(vend_slot)    #vend_slot25    858
  116. payon,1,1,4 duplicate(vend_slot)    #vend_slot26    858
  117. payon,1,1,4 duplicate(vend_slot)    #vend_slot27    858
  118. payon,1,1,4 duplicate(vend_slot)    #vend_slot28    858
  119. payon,1,1,4 duplicate(vend_slot)    #vend_slot29    858
  120. payon,1,1,4 duplicate(vend_slot)    #vend_slot30    858
  121. payon,1,1,4 duplicate(vend_slot)    #vend_slot31    858
  122. payon,1,1,4 duplicate(vend_slot)    #vend_slot32    858
  123. payon,1,1,4 duplicate(vend_slot)    #vend_slot33    858
  124. payon,1,1,4 duplicate(vend_slot)    #vend_slot34    858
  125. payon,1,1,4 duplicate(vend_slot)    #vend_slot35    858
  126. payon,1,1,4 duplicate(vend_slot)    #vend_slot36    858
  127. payon,1,1,4 duplicate(vend_slot)    #vend_slot37    858
  128. payon,1,1,4 duplicate(vend_slot)    #vend_slot38    858
  129. payon,1,1,4 duplicate(vend_slot)    #vend_slot39    858
  130. payon,1,1,4 duplicate(vend_slot)    #vend_slot40    858
  131. payon,1,1,4 duplicate(vend_slot)    #vend_slot41    858
  132. payon,1,1,4 duplicate(vend_slot)    #vend_slot42    858
  133. payon,1,1,4 duplicate(vend_slot)    #vend_slot43    858
  134. payon,1,1,4 duplicate(vend_slot)    #vend_slot44    858
  135. payon,1,1,4 duplicate(vend_slot)    #vend_slot45    858
  136. payon,1,1,4 duplicate(vend_slot)    #vend_slot46    858
  137. payon,1,1,4 duplicate(vend_slot)    #vend_slot47    858
  138. payon,1,1,4 duplicate(vend_slot)    #vend_slot48    858
  139. payon,1,1,4 duplicate(vend_slot)    #vend_slot49    858
  140. payon,1,1,4 duplicate(vend_slot)    #vend_slot50    858
  141. payon,1,1,4 duplicate(vend_slot)    #vend_slot51    858
  142. payon,1,1,4 duplicate(vend_slot)    #vend_slot52    858
  143. payon,1,1,4 duplicate(vend_slot)    #vend_slot53    858
  144. payon,1,1,4 duplicate(vend_slot)    #vend_slot54    858
  145. payon,1,1,4 duplicate(vend_slot)    #vend_slot55    858
  146. payon,1,1,4 duplicate(vend_slot)    #vend_slot56    858
  147. payon,1,1,4 duplicate(vend_slot)    #vend_slot57    858
  148. payon,1,1,4 duplicate(vend_slot)    #vend_slot58    858
  149. payon,1,1,4 duplicate(vend_slot)    #vend_slot59    858
  150. payon,1,1,4 duplicate(vend_slot)    #vend_slot60    858
  151. payon,1,1,4 duplicate(vend_slot)    #vend_slot61    858
  152. payon,1,1,4 duplicate(vend_slot)    #vend_slot62    858
  153. payon,1,1,4 duplicate(vend_slot)    #vend_slot63    858
  154. payon,1,1,4 duplicate(vend_slot)    #vend_slot64    858
  155. payon,1,1,4 duplicate(vend_slot)    #vend_slot65    858
  156. payon,1,1,4 duplicate(vend_slot)    #vend_slot66    858
  157. payon,1,1,4 duplicate(vend_slot)    #vend_slot67    858
  158. payon,1,1,4 duplicate(vend_slot)    #vend_slot68    858
  159.  
  160. //============================================================
  161. prontera,148,170,6  script  Sala do Comércio   790,{
  162. //---------------------------------------------------------------
  163. set @NPC$,"^ff0000Sala do Comércio^000000";
  164. set @MAPA$,"payon";        
  165. set @LVL,0;                
  166. //---------------------------------------------------------------
  167.  
  168. mes @NPC$;
  169. mes "Olá, deseja ir para a Sala do Comércio?";
  170. next;
  171. menu "Ir para lá!",-,"Cancelar!",CANCEL;
  172. warp @MAPA$,158,242; end;
  173.  
  174. CANCEL:
  175. close;
  176. end;
  177. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top