API tools faq
paste
Advertisement
johnlol

Vending Helper

johnlol
Jul 23rd, 2023
954
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VeriLog 7.93 KB | Gaming | 0 0
raw download clone embed print report
  1. prontera,147,170,5  script  Vending Helper  903,{
  2. for( set .@i,1; .@i <= .count; set .@i,.@i + 1 ){
  3.     getmapxy( .@map$,.@x,.@y,UNITTYPE_NPC,"#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 "Dont have any available slot.";
  14. }else if( !getskilllv("MC_VENDING") ){
  15.     mes "You dont have ^0055FFVending Skill^000000.";
  16. }else{
  17.     mes "Available Slot : "+.@available;
  18.     mes "Please select a slot to vending.";
  19.     set .@i,select( .@menu$ );
  20.     getmapxy( .@map$,.@x,.@y,UNITTYPE_NPC,"#vend_slot"+.@i );
  21.     if( .@x == 1 || .@y == 1 ){
  22.         mes "This NPC at invalid location...";
  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$,"1@def01";
  34. setcell .map$,1,1,275,359,cell_novending,1;
  35.  
  36. // x and y horizone ..
  37. setarray .x_line,42,45,48,54,57,51;
  38. setarray .y_line,73,70,67,64,61,58,55,51,48,45,42,39,36,33,30,27,24;
  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 "Vending Spot : "+.count;
  51. donpcevent "::OnSetup";
  52. end;
  53. }
  54.  
  55. -   script  vend_slot   -1,{
  56. getmapxy( .@map$,.@x,.@y,UNITTYPE_NPC, strnpcinfo(0) );
  57. if( !getskilllv("MC_VENDING") ){
  58.     mes "You dont have ^0055FFVending Skill^000000.";
  59. }else if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
  60.     mes "Someone already selected this spot.";
  61. }else{
  62.     mes "Spot : ^777777Available^000000";
  63.     mes "^0055FF[ Vending Area Rules ]^000000";
  64.     mes "^FF0000 ~ Use proper Shop Name.^000000";
  65.     mes "^FF0000 ~ Never sell Junk/Gifts.^000000";
  66.     mes " ";
  67.     mes "^777777Player will failed to follow these will be punished.^000000";
  68.     if( select( "Select this Spot","Cancel" ) == 1 ){
  69.         warp .@map$,.@x,.@y;
  70.         hideonnpc strnpcinfo(0);
  71.     }
  72. }
  73. close;
  74.  
  75. OnSetup:
  76. getmapxy( .@map$,.@x,.@y,UNITTYPE_NPC, strnpcinfo(0) );
  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. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot1 858
  92. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot2 858
  93. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot3 858
  94. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot4 858
  95. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot5 858
  96. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot6 858
  97. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot7 858
  98. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot8 858
  99. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot9 858
  100. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot10    858
  101. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot11    858
  102. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot12    858
  103. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot13    858
  104. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot14    858
  105. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot15    858
  106. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot16    858
  107. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot17    858
  108. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot18    858
  109. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot19    858
  110. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot20    858
  111. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot21    858
  112. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot22    858
  113. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot23    858
  114. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot24    858
  115. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot25    858
  116. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot26    858
  117. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot27    858
  118. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot28    858
  119. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot29    858
  120. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot30    858
  121. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot31    858
  122. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot32    858
  123. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot33    858
  124. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot34    858
  125. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot35    858
  126. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot36    858
  127. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot37    858
  128. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot38    858
  129. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot39    858
  130. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot40    858
  131. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot41    858
  132. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot42    858
  133. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot43    858
  134. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot44    858
  135. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot45    858
  136. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot46    858
  137. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot47    858
  138. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot48    858
  139. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot49    858
  140. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot50    858
  141. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot51    858
  142. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot52    858
  143. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot53    858
  144. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot54    858
  145. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot55    858
  146. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot56    858
  147. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot57    858
  148. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot58    858
  149. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot59    858
  150. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot60    858
  151. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot61    858
  152. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot62    858
  153. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot63    858
  154. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot64    858
  155. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot65    858
  156. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot66    858
  157. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot67    858
  158. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot68    858
  159. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot69    858
  160. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot70    858
  161. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot71    858
  162. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot72    858
  163. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot73    858
  164. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot74    858
  165. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot75    858
  166. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot76    858
  167. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot77    858
  168. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot78    858
  169. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot79    858
  170. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot80    858
  171. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot81    858
  172. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot82    858
  173. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot83    858
  174. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot84    858
  175. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot85    858
  176. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot86    858
  177. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot87    858
  178. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot88    858
  179. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot89    858
  180. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot90    858
  181. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot91    858
  182. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot92    858
  183. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot93    858
  184. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot94    858
  185. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot95    858
  186. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot96    858
  187. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot97    858
  188. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot98    858
  189. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot99    858
  190. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot100   858
  191. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot101   858
  192. 1@def01,1,1,4   duplicate(vend_slot)    #vend_slot102   858
  193.  
  194. 1@def01.gat,49,21,4 warp    Vendingin   2,2,prontera.gat,150,170
  195.  
  196. prontera.gat,185,178,4  warp    Vendingout  2,2,1@def01.gat,49,77
  197.  
Tags: ragnarok AdobeRO
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!