Facebook
From Cute Mockingbird, 7 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 239
  1. ;==================================
  2. ; Script Name:   Panther's Vet Trainer
  3. ; Author:  Panther_sn
  4. ; Version: 2.2
  5. ; Client Tested with:  5.0.8.0
  6. ; EUO version tested with: euo 1.5 tv104
  7. ; Shard OSI / FS: Only Tested On FS
  8. ; Revision Date: 13 March 2007
  9. ; Public Release: 1 May 2005
  10. ; Global Variables Used: *pet1, *pet2
  11. ; Purpose: To Train Vet On Freeshards
  12. ;==================================
  13. ; SETUP:
  14. ;GET 2 ANIMALS (i RECCOMEND HORSES) AND STAND IN 1 SPOT
  15. ;MAKE SURE YOU HAVE PLENTY OF BANDIES IN YOUR PACK
  16. ; START SCRIPT
  17. ; DO NOT RUN THIS SCRIPT UNATTENDED YOU NEVER KNOW WHAT WILL HAPPEN
  18. ;==============================================
  19.  ; I Recommend being Guilded as Otherwise u will end up a criminal
  20. ; if you aren't guilded and press yes to being guilded be aware you will end up as a criminal.
  21. ; I ACCEPT NO RESPONSIBILITY FOR LOST PETS
  22. ; Now uses pixel scanning to determine when to heal, and should mean Less dead Pets
  23. ;ENJOY
  24. set %bandies ZLF_TOF
  25. ;=================
  26. ;DON'T EDIT BELOW HERE
  27. ;===================
  28. gosub setup
  29. gosub pets_attack
  30. finditem *pet1 G
  31. move #findx #findy 1 3s
  32.  
  33. mainloop:
  34. gosub check 1 2 *pet1
  35. gosub display
  36. gosub check 3 4 *pet2
  37. gosub display
  38. wait 1
  39. goto mainloop
  40.  
  41. ;Check Pixels To see If we Need To Heal
  42. sub check
  43. check:
  44. cmppix %2 f 7
  45.        gosub allstop
  46.        for %i 1 4
  47.        {
  48.        gosub heal %3
  49.        }
  50.        gosub pets_attack
  51.        goto check
  52. cmppix %1 f 1
  53.        gosub heal %3
  54. return
  55.  
  56.  
  57. ;Sub For Healing
  58. sub heal
  59. set %to #scnt + 6
  60. finditem %bandies C_ , #backpackid
  61. if #findstack < 10
  62. {
  63. gosub allstop
  64. menu hide
  65. display OK You only Have #findstack Bandies Left$ Get More And Restart
  66. halt
  67. }
  68. set #lobjectid #findid
  69. event macro 17
  70. healwait:
  71. wait 1
  72. if #targcurs <> 1
  73. {
  74. if #scnt > %to
  75. {
  76. finditem %bandies C_ , #backpackid
  77. if #findstack < 10
  78. {
  79. gosub allstop
  80. menu hide
  81. display OK You only Have #findstack Bandies Left$ Get More And Restart
  82. halt
  83. }
  84. set %bandused %bandused + 1
  85. set %bandleft #findstack
  86.   return
  87. }
  88. goto healwait
  89. }
  90. set #ltargetid %1
  91. set #ltargetKind 1
  92. event macro 22
  93. gosub scan
  94. wait 1
  95. finditem %bandies C_ , #backpackid
  96. if #findstack < 10
  97. {
  98. gosub allstop
  99. menu hide
  100. display OK You only Have #findstack Bandies Left$ Get More And Restart
  101. halt
  102. }
  103. set %bandused %bandused + 1
  104. set %bandleft #findstack
  105. return
  106.  
  107.  
  108. ;Sub for scanning, menu, health check
  109. ;and to see if we have finished heal
  110. sub scan
  111. scanloop:
  112. if #menubutton = stop || #menubutton = closed
  113. {
  114. msg all stop$
  115. msg all stay$
  116. menu hide
  117. halt
  118. }
  119. if #hits < #maxhits - 10
  120. {
  121. gosub allstop
  122. event sysmessage Waiting For MY Health to get Back UP
  123. hits_loop:
  124. if #hits <> #maxhits
  125.    goto hits_loop
  126. gosub pets_attack
  127. return
  128. }
  129. if TOO_FAR_AWAY in #sysmsg
  130. {
  131. finditem %1 G
  132. wait 1
  133. move #findx #findy 1 3s
  134. wait 10
  135. return
  136. }
  137. if finish_applying in #sysmsg ||
  138.  + heal_what_little in #sysmsg ||
  139. + barely_help in #sysmsg ||
  140. + skill_in in #sysmsg
  141. {
  142. return
  143. }
  144. if that_being_is_not_damaged in #sysmsg
  145. {
  146. set %bandused %bandused - 1
  147. return
  148. }
  149. if #scnt > %to
  150. {
  151. return
  152. }
  153. goto scanloop:
  154.  
  155. ;Sub to adjust Menu Display
  156. sub display
  157. if #menubutton = rate_button
  158.    {
  159.     execute http://www.easyuo.com/rate.php?p=155150
  160.     set #menubutton Null
  161.     }
  162. if #menubutton = closed
  163.    {
  164.     display YesNo Do You want to stop script?
  165.     if #dispres = yes
  166.         {
  167.          msg all stop$
  168.          msg all stay$
  169.          Halt
  170.          }
  171.     if #dispres = no
  172.        {
  173.        menu show 0 0
  174.        set #menubutton Null
  175.        }
  176.     }
  177.   chooseskill vete
  178.   str len #skill
  179.   if #skill <> %veter
  180.   {
  181.   menu delete vet4
  182.   set %veter #skill
  183.   str ins #skill #dot #strRes
  184.   set %vet #strRes
  185.   menu Font Transparent #true
  186.  menu Font Color yellow
  187.         menu Text vet4 104 72 %vet
  188.         wait 10
  189.         menu delete vet4
  190.         menu Font Transparent #true
  191.         menu Font Color red
  192.         menu Font Style
  193.         menu Font Size 10
  194.         menu Text vet4 104 72 %vet
  195.         }
  196.  if  #skill > 899 && %Rate <> true
  197.   {
  198.   gosub Rate_button
  199.   set %Rate true
  200.         }
  201.         if #skill = #skillcap
  202.    {
  203.    menu hide
  204.   display yesno CONGRATULATIONS!! $
  205.  + You are at %current_skill , #spc , Vet $
  206.  + $
  207.  + Would you Like to Rate this Script now?
  208.  if #dispres = yes
  209.  {
  210.      execute http://www.easyuo.com/rate.php?p=269254
  211.  }
  212.  if #dispres = no
  213.  {
  214.  display OK Thanks for using Panther's Vet Trainer for Freeshards$
  215.  }
  216.  halt
  217.                 }
  218. if %bandleft <> %oldbandleft || %bandused <> %oldbandused
  219. {
  220. menu delete vet5
  221. menu delete vet6
  222. menu Font Transparent #true
  223. menu Font Size 10
  224. menu Font Style
  225.         menu Font Color Yellow
  226.         menu Text vet5 105 120 %bandleft
  227.         set %oldbandleft %bandleft
  228.         menu Font Color Yellow
  229.         menu Text vet6 105 140 %bandused
  230.         set %oldbandused %bandused
  231.         }
  232.  return
  233.  
  234.  
  235.  ;sub to make pets attack each other
  236.  sub pets_attack
  237. msg all guard me$
  238. wait 10
  239. msg all kill$
  240. waitfortarget1:
  241. if #targcurs <> 1
  242.  goto waitfortarget1
  243. set #ltargetid *pet1
  244. set #ltargetKind 1
  245. event macro 22
  246. wait 25
  247. msg all kill$
  248. waitfortarget2:
  249. if #targcurs <> 1
  250.  goto waitfortarget2
  251. set #ltargetid *pet2
  252. set #ltargetKind 1
  253. event macro 22
  254. wait 10
  255. return
  256.  
  257. ;sub to make pets stop attacking
  258. sub allstop
  259. msg all stop$
  260. wait 1
  261. msg all stay$
  262. wait 1
  263. return
  264.  
  265.  
  266.  
  267. ;sub to setup pets, and screen
  268. sub setup
  269. set %Rate false
  270. display yesno Do You Have 2 Pets?
  271. if #dispres = no
  272.   {
  273.   display OK Get 2 Pets and Restart
  274.   halt
  275.   }
  276. event macro 31
  277. wait 10
  278. event macro 8 2
  279. wait 10
  280. event macro 10 2
  281. wait 10
  282. contpos 623 2
  283. wait 10
  284. event macro 8 7
  285. wait 10
  286. contpos 758 2
  287. gosub menu
  288. ;Now for Animal Setup
  289. set %cont #contid
  290. display Please Drag your 1st Pet's Healthbar
  291.   l1:
  292.   if %cont = #contid
  293.      goto l1
  294.   wait 10
  295.   l3:
  296.   contpos 25 44
  297.   wait 10
  298.   if #contposx <> 25 || #contposy <> 44
  299.      goto l3
  300. set *pet1 #contid
  301. wait 10
  302. set %cont #contid
  303. display Please Drag your 2nd Pet's Healthbar
  304.   l2:
  305.   if %cont = #contid
  306.      goto l2
  307.   wait 10
  308.   l4:
  309.   contpos 215 44
  310.   wait 10
  311.   if #contposx <> 215 || #contposy <> 44
  312.      goto l4
  313. set *pet2 #contid
  314. wait 10
  315. savepix 156 87 1
  316. savepix 126 87 2
  317. savepix 345 87 3
  318. savepix 315 85 4
  319. return
  320.  
  321. ;--------- EasyUO Menu Designer Code Begin ---------
  322. sub menu
  323.         menu Clear
  324.         menu Window Title Panther's Vet Trainer
  325.         menu Window Color Black
  326.         menu Window Size 195 180
  327.         menu Font Transparent #true
  328.         menu Font Align Left
  329.           chooseskill vete
  330.   if #skill < 300
  331.     {
  332.     display ok You need to buy Vet upto 30.0 first$ Buy and then restart
  333.     menu hide
  334.     halt
  335.     }
  336.   str len #skill
  337.   str ins #skill #dot #strRes
  338.   set %vetstart #strRes
  339.   set %veter #skill
  340.   set %vet #strRes
  341.   finditem %bandies C_ , #backpackid
  342.   if #findkind = -1
  343.   {
  344.   display ok You Have no Bandies$ Stopping now$
  345.   halt
  346.   }
  347.   set %bandleft #findstack
  348.   set %bandused 0
  349.         menu Font Name MS Sans Serif
  350.         menu Font Size 10
  351.         menu Font Style
  352.         menu Font Color White
  353.         menu Font Transparent #false
  354.         menu Font Align Left
  355.         menu Font BGColor Black
  356.         menu Text EUOLabel1 8 52 Vet Started @:
  357.         menu Font Color Red
  358.         menu Text EUOLabel2 104 52 %vetstart
  359.         menu Font Color White
  360.         menu Text EUOLabel3 12 72 Vet Now @:
  361.         menu Font Color Red
  362.         menu Text vet4 104 72 %vet
  363.         menu Shape EUOShape1 4 104 193 9 3 7 1 Black 4 Red
  364.         menu Font Color White
  365.         menu Text EUOLabel4 8 120 Bandies Left:
  366.         menu Font Color Yellow
  367.         menu Text vet5 105 120 %bandleft
  368.         menu Font Color White
  369.         menu Text EUOLabel6 8 140 Bandies Used:
  370.         menu Font Color Yellow
  371.         menu Text vet6 105 140 %bandused
  372.         menu Font Size 12
  373.         menu Font Style b
  374.         menu Font Color White
  375.         menu Font BGColor Red
  376.         menu Button stop 6 4 180 41 Stop Script
  377.   menu Show 800 3
  378.   menu show 800 3
  379.         set #menubutton NULL
  380.  
  381. return
  382.  
  383. sub Rate_button
  384. menu window size 195 220
  385.         menu Font Style u
  386.         menu Font Color White
  387.         menu Text EUOLabel7 7 176 Do YOU find me Usefull?
  388.         wait 10
  389.         menu Text EUOLabel8 60 196 if so
  390.         wait 10
  391.         menu Font Color Red
  392.         menu Font BGColor Silver
  393.         menu Button rate_button 35 220 93 25 Rate Me
  394.         menu window size 195 250
  395.   return
  396.  
  397.  
  398.