;================================== ; Script Name: Panther's Vet Trainer ; Author: Panther_sn ; Version: 2.2 ; Client Tested with: 5.0.8.0 ; EUO version tested with: euo 1.5 tv104 ; Shard OSI / FS: Only Tested On FS ; Revision Date: 13 March 2007 ; Public Release: 1 May 2005 ; Global Variables Used: *pet1, *pet2 ; Purpose: To Train Vet On Freeshards ;================================== ; SETUP: ;GET 2 ANIMALS (i RECCOMEND HORSES) AND STAND IN 1 SPOT ;MAKE SURE YOU HAVE PLENTY OF BANDIES IN YOUR PACK ; START SCRIPT ; DO NOT RUN THIS SCRIPT UNATTENDED YOU NEVER KNOW WHAT WILL HAPPEN ;============================================== ; I Recommend being Guilded as Otherwise u will end up a criminal ; if you aren't guilded and press yes to being guilded be aware you will end up as a criminal. ; I ACCEPT NO RESPONSIBILITY FOR LOST PETS ; Now uses pixel scanning to determine when to heal, and should mean Less dead Pets ;ENJOY set %bandies ZLF_TOF ;================= ;DON'T EDIT BELOW HERE ;=================== gosub setup gosub pets_attack finditem *pet1 G move #findx #findy 1 3s mainloop: gosub check 1 2 *pet1 gosub display gosub check 3 4 *pet2 gosub display wait 1 goto mainloop ;Check Pixels To see If we Need To Heal sub check check: cmppix %2 f 7 gosub allstop for %i 1 4 { gosub heal %3 } gosub pets_attack goto check cmppix %1 f 1 gosub heal %3 return ;Sub For Healing sub heal set %to #scnt + 6 finditem %bandies C_ , #backpackid if #findstack < 10 { gosub allstop menu hide display OK You only Have #findstack Bandies Left$ Get More And Restart halt } set #lobjectid #findid event macro 17 healwait: wait 1 if #targcurs <> 1 { if #scnt > %to { finditem %bandies C_ , #backpackid if #findstack < 10 { gosub allstop menu hide display OK You only Have #findstack Bandies Left$ Get More And Restart halt } set %bandused %bandused + 1 set %bandleft #findstack return } goto healwait } set #ltargetid %1 set #ltargetKind 1 event macro 22 gosub scan wait 1 finditem %bandies C_ , #backpackid if #findstack < 10 { gosub allstop menu hide display OK You only Have #findstack Bandies Left$ Get More And Restart halt } set %bandused %bandused + 1 set %bandleft #findstack return ;Sub for scanning, menu, health check ;and to see if we have finished heal sub scan scanloop: if #menubutton = stop || #menubutton = closed { msg all stop$ msg all stay$ menu hide halt } if #hits < #maxhits - 10 { gosub allstop event sysmessage Waiting For MY Health to get Back UP hits_loop: if #hits <> #maxhits goto hits_loop gosub pets_attack return } if TOO_FAR_AWAY in #sysmsg { finditem %1 G wait 1 move #findx #findy 1 3s wait 10 return } if finish_applying in #sysmsg || + heal_what_little in #sysmsg || + barely_help in #sysmsg || + skill_in in #sysmsg { return } if that_being_is_not_damaged in #sysmsg { set %bandused %bandused - 1 return } if #scnt > %to { return } goto scanloop: ;Sub to adjust Menu Display sub display if #menubutton = rate_button { execute http://www.easyuo.com/rate.php?p=155150 set #menubutton Null } if #menubutton = closed { display YesNo Do You want to stop script? if #dispres = yes { msg all stop$ msg all stay$ Halt } if #dispres = no { menu show 0 0 set #menubutton Null } } chooseskill vete str len #skill if #skill <> %veter { menu delete vet4 set %veter #skill str ins #skill #dot #strRes set %vet #strRes menu Font Transparent #true menu Font Color yellow menu Text vet4 104 72 %vet wait 10 menu delete vet4 menu Font Transparent #true menu Font Color red menu Font Style menu Font Size 10 menu Text vet4 104 72 %vet } if #skill > 899 && %Rate <> true { gosub Rate_button set %Rate true } if #skill = #skillcap { menu hide display yesno CONGRATULATIONS!! $ + You are at %current_skill , #spc , Vet $ + $ + Would you Like to Rate this Script now? if #dispres = yes { execute http://www.easyuo.com/rate.php?p=269254 } if #dispres = no { display OK Thanks for using Panther's Vet Trainer for Freeshards$ } halt } if %bandleft <> %oldbandleft || %bandused <> %oldbandused { menu delete vet5 menu delete vet6 menu Font Transparent #true menu Font Size 10 menu Font Style menu Font Color Yellow menu Text vet5 105 120 %bandleft set %oldbandleft %bandleft menu Font Color Yellow menu Text vet6 105 140 %bandused set %oldbandused %bandused } return ;sub to make pets attack each other sub pets_attack msg all guard me$ wait 10 msg all kill$ waitfortarget1: if #targcurs <> 1 goto waitfortarget1 set #ltargetid *pet1 set #ltargetKind 1 event macro 22 wait 25 msg all kill$ waitfortarget2: if #targcurs <> 1 goto waitfortarget2 set #ltargetid *pet2 set #ltargetKind 1 event macro 22 wait 10 return ;sub to make pets stop attacking sub allstop msg all stop$ wait 1 msg all stay$ wait 1 return ;sub to setup pets, and screen sub setup set %Rate false display yesno Do You Have 2 Pets? if #dispres = no { display OK Get 2 Pets and Restart halt } event macro 31 wait 10 event macro 8 2 wait 10 event macro 10 2 wait 10 contpos 623 2 wait 10 event macro 8 7 wait 10 contpos 758 2 gosub menu ;Now for Animal Setup set %cont #contid display Please Drag your 1st Pet's Healthbar l1: if %cont = #contid goto l1 wait 10 l3: contpos 25 44 wait 10 if #contposx <> 25 || #contposy <> 44 goto l3 set *pet1 #contid wait 10 set %cont #contid display Please Drag your 2nd Pet's Healthbar l2: if %cont = #contid goto l2 wait 10 l4: contpos 215 44 wait 10 if #contposx <> 215 || #contposy <> 44 goto l4 set *pet2 #contid wait 10 savepix 156 87 1 savepix 126 87 2 savepix 345 87 3 savepix 315 85 4 return ;--------- EasyUO Menu Designer Code Begin --------- sub menu menu Clear menu Window Title Panther's Vet Trainer menu Window Color Black menu Window Size 195 180 menu Font Transparent #true menu Font Align Left chooseskill vete if #skill < 300 { display ok You need to buy Vet upto 30.0 first$ Buy and then restart menu hide halt } str len #skill str ins #skill #dot #strRes set %vetstart #strRes set %veter #skill set %vet #strRes finditem %bandies C_ , #backpackid if #findkind = -1 { display ok You Have no Bandies$ Stopping now$ halt } set %bandleft #findstack set %bandused 0 menu Font Name MS Sans Serif menu Font Size 10 menu Font Style menu Font Color White menu Font Transparent #false menu Font Align Left menu Font BGColor Black menu Text EUOLabel1 8 52 Vet Started @: menu Font Color Red menu Text EUOLabel2 104 52 %vetstart menu Font Color White menu Text EUOLabel3 12 72 Vet Now @: menu Font Color Red menu Text vet4 104 72 %vet menu Shape EUOShape1 4 104 193 9 3 7 1 Black 4 Red menu Font Color White menu Text EUOLabel4 8 120 Bandies Left: menu Font Color Yellow menu Text vet5 105 120 %bandleft menu Font Color White menu Text EUOLabel6 8 140 Bandies Used: menu Font Color Yellow menu Text vet6 105 140 %bandused menu Font Size 12 menu Font Style b menu Font Color White menu Font BGColor Red menu Button stop 6 4 180 41 Stop Script menu Show 800 3 menu show 800 3 set #menubutton NULL return sub Rate_button menu window size 195 220 menu Font Style u menu Font Color White menu Text EUOLabel7 7 176 Do YOU find me Usefull? wait 10 menu Text EUOLabel8 60 196 if so wait 10 menu Font Color Red menu Font BGColor Silver menu Button rate_button 35 220 93 25 Rate Me menu window size 195 250 return