API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 22nd, 2019
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.15 KB | None | 0 0
raw download clone embed print report
  1. action send #echo >OOC Need to change variable for %Move when ^You don't feel you learned anything useful from this trivial theft
  2. action goto Debts when ^You think about stealing for a moment, but decide you have too many outstanding fines as is\.
  3.  
  4. #####################################################
  5. ######################Variables######################
  6. #####################################################
  7.  
  8. ##Add your variables for each item below##
  9. var armor1
  10. var armor2
  11. var armor3
  12. var armor4
  13. var armor5
  14. var armor6
  15. var container
  16.  
  17. ######################################################
  18.  
  19. Start:
  20.  
  21.  
  22. Begin.Loop:
  23. gosub Remove.Armor
  24. gosub Stow
  25. if $Guild = Thief then gosub Khri
  26. send #echo >OOC Stealing script started.
  27. goto Crossing.Shops
  28.  
  29. End.Loop:
  30. gosub Wear.Armor
  31. goto Exit
  32.  
  33. Crossing.Shops:
  34. gosub Music
  35. gosub Berolt
  36. gosub Haberdashery
  37. gosub Durantine
  38. gosub Chizili
  39. gosub Grisgonda
  40. gosub Herilo
  41. gosub Marcipur
  42. gosub Mauriga
  43. gosub Milgrym
  44. gosub Talmai
  45. gosub Tembeg
  46. goto End.Loop
  47.  
  48. Music:
  49. var Move Music
  50. gosub Move
  51. if ($Thievery.Ranks < 50) then return
  52. if ($Thievery.Ranks >= 50 && $Thievery.Ranks < 100) then var stealing rag
  53. if ($Thievery.Ranks >= 100 && $Thievery.Ranks < 125) then var stealing rag
  54. if ($Thievery.Ranks >= 125 && $Thievery.Ranks < 155) then var stealing cloth
  55. if ($Thievery.Ranks >= 155 && $Thievery.Ranks < 185) then var stealing tambourine skin
  56. if ($Thievery.Ranks >= 185 && $Thievery.Ranks < 220) then var stealing tipper
  57. if ($Thievery.Ranks >= 230 && $Thievery.Ranks < 255) then var stealing strings
  58. if ($Thievery.Ranks >= 255 && $Thievery.Ranks < 325) then var stealing bodhran skin
  59. if ($Thievery.Ranks >= 325 && $Thievery.Ranks < 500) then var stealing repair kit
  60. if ($Thievery.Ranks >= 500) then var stealing case of silver
  61. gosub Stealing
  62. gosub Stealing
  63. return
  64.  
  65. Berolt:
  66. var Move Berolt
  67. gosub Move
  68. if ($Thievery.Ranks < 30) then var stealing bark
  69. if ($Thievery.Ranks >= 30 && $Thievery.Ranks < 105) then var stealing herb bag
  70. if ($Thievery.Ranks >= 105 && $Thievery.Ranks < 140) then var stealing flint
  71. if ($Thievery.Ranks >= 140 && $Thievery.Ranks < 175) then var stealing ice pick
  72. if ($Thievery.Ranks >= 175 && $Thievery.Ranks < 220) then var stealing razor
  73. if ($Thievery.Ranks >= 220 && $Thievery.Ranks < 350) then var stealing scabbard
  74. if ($Thievery.Ranks >= 350 && $Thievery.Ranks < 700) then var stealing stove
  75. gosub Stealing
  76. gosub Stealing
  77. return
  78.  
  79. Haberdashery:
  80. var Move 704
  81. gosub Move
  82. if ($Thievery.Ranks < 50) then return
  83. if ($Thievery.Ranks >= 50 && $Thievery.Ranks < 150) then var stealing tricorne
  84. if ($Thievery.Ranks >= 150 && $Thievery.Ranks < 215) then var stealing tricorne
  85. if ($Thievery.Ranks >= 215 && $Thievery.Ranks < 275) then var stealing kilt
  86. if ($Thievery.Ranks >= 275 && $Thievery.Ranks < 315) then var stealing trousers
  87. if ($Thievery.Ranks >= 315 && $Thievery.Ranks < 400) then var stealing doublet
  88. if ($Thievery.Ranks >= 400 && $Thievery.Ranks < 500) then var stealing capote
  89. if ($Thievery.Ranks >= 500 && $Thievery.Ranks < 675) then var stealing tail coat
  90. gosub Stealing
  91. gosub Stealing
  92. pause
  93. move e
  94. if ($Thievery.Ranks < 150) then var stealing none
  95. if ($Thievery.Ranks >= 150 && $Thievery.Ranks < 300) then var stealing blue vest
  96. if ($Thievery.Ranks >= 300 && $Thievery.Ranks < 415) then var stealing blazer
  97. gosub Stealing
  98. gosub Stealing
  99. return
  100.  
  101. Durantine:
  102. var Move Durantine
  103. gosub Move
  104. if ($Thievery.Ranks < 40) then return
  105. if ($Thievery.Ranks < 70) then var stealing sage
  106. if ($Thievery.Ranks >= 70 && $Thievery.Ranks < 125) then var stealing chalice
  107. if ($Thievery.Ranks >= 125 && $Thievery.Ranks < 165) then var stealing skullcap
  108. if ($Thievery.Ranks >= 165 && $Thievery.Ranks < 210) then var stealing buskins
  109. if ($Thievery.Ranks >= 210 && $Thievery.Ranks < 300) then var stealing basin
  110. if ($Thievery.Ranks >= 300 && $Thievery.Ranks < 420) then var stealing holy habit
  111. if ($Thievery.Ranks >= 420 && $Thievery.Ranks < 500) then var stealing bell
  112. gosub Stealing
  113. gosub Stealing
  114. return
  115.  
  116. Chizili:
  117. var Move Chizili
  118. gosub Move
  119. if ($Thievery.Ranks < 35) then var stealing water
  120. if ($Thievery.Ranks >= 35 && $Thievery.Ranks < 75) then var stealing small jar
  121. if ($Thievery.Ranks >= 75 && $Thievery.Ranks < 160) then var stealing oil
  122. if ($Thievery.Ranks >= 160 && $Thievery.Ranks < 225) then var stealing gloves
  123. if ($Thievery.Ranks >= 225 && $Thievery.Ranks < 400) then var stealing cauldron
  124. if ($Thievery.Ranks >= 400 && $Thievery.Ranks < 625) then var stealing stove
  125. if ($Thievery.Ranks >= 625 && $Thievery.Ranks < 740) then var stealing toolbox
  126. gosub Stealing
  127. gosub Stealing
  128. return
  129.  
  130. Grisgonda:
  131. var Move Grisgonda
  132. var Steal hairpin
  133. gosub Move
  134. if ($Thievery.Ranks < 50) then return
  135. if ($Thievery.Ranks >= 50 && $Thievery.Ranks < 125) then var stealing anklet
  136. if ($Thievery.Ranks >= 125 && $Thievery.Ranks < 170) then var stealing band
  137. if ($Thievery.Ranks >= 170 && $Thievery.Ranks < 225) then var stealing pendant
  138. if ($Thievery.Ranks >= 225 && $Thievery.Ranks < 270) then var stealing engagement ring
  139. if ($Thievery.Ranks > 270) then return
  140. gosub Stealing
  141. gosub Stealing
  142. return
  143.  
  144. Herilo:
  145. var Move Herilo
  146. gosub Move
  147. if ($Thievery.Ranks < 100) then return
  148. if ($Thievery.Ranks >= 100 && $Thievery.Ranks < 300) then var stealing scrap
  149. if ($Thievery.Ranks >= 300 && $Thievery.Ranks < 500) then var stealing fine scroll
  150. if ($Thievery.Ranks >= 500 && $Thievery.Ranks < 675) then var stealing plain scroll
  151. if ($Thievery.Ranks >= 675 && $Thievery.Ranks < 1200) then var stealing tree statuette
  152. if ($Thievery.Ranks >= 1200) then var stealing oaken staff
  153. gosub Stealing
  154. gosub Stealing
  155. return
  156.  
  157. Marcipur:
  158. var Move Marcipur
  159. gosub Move
  160. if ($Thievery.Ranks < 50) then return
  161. if ($Thievery.Ranks >= 50 && $Thievery.Ranks < 100) then var stealing ribbons
  162. if ($Thievery.Ranks >= 100 && $Thievery.Ranks < 170) then var stealing ribbons
  163. if ($Thievery.Ranks >= 170 && $Thievery.Ranks < 220) then var stealing fur muff
  164. if ($Thievery.Ranks >= 220 && $Thievery.Ranks < 330) then var stealing leggings
  165. if ($Thievery.Ranks >= 330 && $Thievery.Ranks < 450) then var stealing jacket
  166. if ($Thievery.Ranks >= 450 && $Thievery.Ranks < 650) then var stealing gown
  167. if ($Thievery.Ranks >= 650 && $Thievery.Ranks < 775) then var stealing silk gown
  168. gosub Stealing
  169. gosub Stealing
  170. return
  171.  
  172. Mauriga:
  173. var Move Mauriga
  174. gosub Move
  175. if ($Thievery.Ranks < 100) then return
  176. if ($Thievery.Ranks >= 100 && $Thievery.Ranks < 275) then var stealing nilos salve
  177. if ($Thievery.Ranks >= 275 && $Thievery.Ranks < 350) then var stealing ithor potion
  178. if ($Thievery.Ranks > 350) then return
  179. gosub Stealing
  180. gosub Stealing
  181. return
  182.  
  183. Milgrym:
  184. var Move milgrym
  185. gosub Move
  186. if ($Thievery.Ranks < 50) then return
  187. if ($Thievery.Ranks >= 50 && $Thievery.Ranks < 200) then var stealing crossbow bolts
  188. if ($Thievery.Ranks >= 200 && $Thievery.Ranks < 300) then var stealing knuckles
  189. if ($Thievery.Ranks >= 300 && $Thievery.Ranks < 500) then var stealing sabre
  190. if ($Thievery.Ranks >= 500 && $Thievery.Ranks < 575) then var stealing pike
  191. if ($Thievery.Ranks >= 575) then return
  192. gosub Stealing
  193. gosub Stealing
  194. return
  195.  
  196. Talmai:
  197. var Move Talmai
  198. gosub Move
  199. if ($Thievery.Ranks < 100) then var stealing anklets
  200. if ($Thievery.Ranks >= 100 && $Thievery.Ranks < 175) then var stealing tight
  201. if ($Thievery.Ranks >= 175 && $Thievery.Ranks < 230) then var stealing snowshoes
  202. if ($Thievery.Ranks >= 230 && $Thievery.Ranks < 300) then var stealing hip boots
  203. if ($Thievery.Ranks > 300) then return
  204. gosub Stealing
  205. gosub Stealing
  206. return
  207.  
  208. Tembeg:
  209. var Move Tembeg
  210. gosub Move
  211. if ($Thievery.Ranks < 100) then return
  212. if ($Thievery.Ranks >= 100 && $Thievery.Ranks < 200) then var stealing plate aventail
  213. if ($Thievery.Ranks >= 200 && $Thievery.Ranks < 300) then var stealing rugged greaves
  214. if ($Thievery.Ranks >= 300 && $Thievery.Ranks < 400) then var stealing target shield
  215. if ($Thievery.Ranks >= 400 && $Thievery.Ranks < 500) then var stealing plate fauld
  216. if ($Thievery.Ranks >= 500 && $Thievery.Ranks < 600) then var stealing rugged jerkin
  217. if ($Thievery.Ranks >= 600 && $Thievery.Ranks < 900) then var stealing rugged leathers
  218. if ($Thievery.Ranks > 900) then return
  219. gosub Stealing
  220. gosub Stealing
  221. return
  222.  
  223. Return:
  224. return
  225.  
  226.  
  227. Bin:
  228. pause .5
  229. send empty left
  230. pause .3
  231. send empty right
  232. pause .3
  233. return
  234.  
  235. Khri:
  236. pause .5
  237. send khri plunder
  238. wait
  239. pause
  240. put khri slight
  241. wait
  242. pause
  243. put khri focus
  244. wait
  245. pause
  246. return
  247.  
  248. Stealing:
  249. pause
  250. send hide
  251. wait
  252. pause .5
  253. send mark %stealing
  254. wait
  255. pause .4
  256. send steal %stealing
  257. wait
  258. pause .4
  259. send steal %stealing
  260. wait
  261. pause .4
  262. gosub Bin
  263. gosub Stow
  264. if ($Stealing.LearningRate < 32) then goto End.Loop
  265. return
  266.  
  267. Move:
  268. echo
  269. echo You are heading to steal from LOCATION - %Move
  270. echo
  271. pause
  272. send #goto %Move
  273. match Return YOU HAVE ARRIVED
  274. match Move AUTOMAPPER MOVEMENT FAILED
  275. match Move Please rephrase that command.
  276. matchwait
  277.  
  278.  
  279. Remove.Armor:
  280. pause .5
  281. gosub Stow
  282. pause .5
  283. send remove my %armor1
  284. pause
  285. send stow my %armor1
  286. pause
  287. send remove my %armor2
  288. pause
  289. send stow my %armor2
  290. pause
  291. send remove my %armor3
  292. pause
  293. send stow my %armor3
  294. pause
  295. send remove my %armor4
  296. pause
  297. send stow my %armor4
  298. pause
  299. send remove my %armor5
  300. pause
  301. send stow my %armor5
  302. pause
  303. send remove my %armor6
  304. pause
  305. send stow my %armor6
  306. pause
  307. return
  308.  
  309. Debts:
  310. echo
  311. echo Unable to steal due to debts. Ending script.
  312. echo
  313. pause 5
  314.  
  315. Wear.Armor:
  316. var Move Bank
  317. gosub Move
  318. pause .2
  319. send get my %armor1
  320. pause
  321. send wear my %armor1
  322. pause
  323. send get my %armor2
  324. pause
  325. send wear my %armor2
  326. pause
  327. send get my %armor3
  328. pause
  329. send wear my %armor3
  330. pause
  331. send get my %armor4
  332. pause
  333. send wear my %armor4
  334. pause
  335. send get my %armor5
  336. pause
  337. send wear my %armor5
  338. pause
  339. send get my %armor6
  340. pause
  341. send wear my %armor6
  342. pause
  343. put khri stop
  344. pause
  345. return
  346.  
  347. Stow:
  348. pause .2
  349. send stow right
  350. pause .2
  351. send stow left
  352. pause .2
  353. return
  354.  
  355.  
  356. Exit:
  357. send #parse Complete!
  358. echo
  359. echo
  360. echo You've completed the stealing script.
  361. echo
  362. echo
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!