Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- =========================================================================
- ; Script Name: Evilweeds 3EXPLO-gun explode on contact AND MORE
- ; Author: Evilweed (szklanki on EUO)
- ; Version: 1.0 Final
- ; Client Tested with: 6.0.11.0
- ; EUO version tested with: 1.5
- ; Shard OSI / FS: ---
- ; Revision Date: 05-09-09
- ; Public Release: 05-09-09
- ; Throws 3 explo potions that explode on contact, auto self bandage,
- ; auto throw shuriken/fukija (checks the distance), throws confla ( if
- ; target is in range, throws at him, if not throws under your char),
- ; you can set target of explo pots by button ( if you wont it will throw
- ; at enemy set in %enemyID :) )
- =========================================================================
- ; ====== OPTIONS ======;
- set %fukija ERTVKMD ; Fukija ID
- set %shuriken QUAKNMD ; Shuriken belt ID
- ; ==== DONT CHANGE ====;
- set %czekaj 2620 ; How much time it will wait
- ; (Dont change unless you have ping 5 :P)
- set %confla OUF
- set %explo TUF
- set #lpc 600
- set %x 0
- set %y 0
- set %z 0
- set %licznik 0
- set %licznikconfla 0
- set %targeter 0
- set %costam 0
- set %textdelay 0
- set %confladyst 5
- ; =====================;
- start:
- repeat
- {
- set %licznik 4 ; CHANGE HOTKEYS
- onhotkey t ; throws fukija dart
- goto fuka
- onhotkey r ; throws 3 potions
- gosub rzucSeria
- onhotkey e ; setting the target
- gosub targeter
- gosub bandaze
- }
- until ( #FALSE )
- sub targeter
- set #TARGCURS 1
- while ( #TARGCURS = 1 )
- {
- onhotkey t
- goto fuka
- onhotkey F5
- gosub rzucSeria
- onhotkey ESC
- goto start
- }
- set %target #LTARGETID
- set %targeter 1
- return
- sub sprawdzanieconf
- set %target #ltargetid
- FINDITEM %target G
- IF #FINDDIST > 11 || #FINDKIND <> 1
- {
- set %confladyst 0
- }
- else
- {
- set %confladyst 1
- }
- return
- sub sprawdzanieodl
- set %target #ltargetid
- FINDITEM %target G
- IF #FINDKIND <> 1
- {
- goto start
- }
- IF #FINDDIST > 3
- {
- set %dystans 1
- return
- }
- IF #FINDDIST <= 3
- {
- set %dystans 0
- return
- }
- return
- sub rzucSeria
- if %targeter = 0
- {
- set %target #ENEMYID
- }
- set %targeter 0
- finditem %explo c_ , #BACKPACKID
- if ( #FINDKIND = -1 )
- {
- event sysmessage NO explo potions in backpack!
- return
- }
- if ( #FINDCNT < 3 )
- {
- set %seria #FINDCNT
- }
- else
- {
- set %seria 3
- }
- event sysmessage Throwing %seria potions #SCNT2
- for %i 1 %seria
- {
- set #FINDINDEX %i
- set %licznik %licznik - 1
- gosub odpal #FINDID
- ; 3x 0.4s
- }
- set %delay ( %czekaj - ( %seria * 450 ) ) / 50
- event sysmessage %delay #SCNT2
- for %i 1 %seria
- {
- set #FINDINDEX %i
- gosub rzuc #FINDID
- }
- fuka:
- gosub sprawdzanieodl
- if %dystans = 0
- {
- finditem %fukija c_ , #BACKPACKID
- if ( #FINDKIND = -1 )
- {
- return
- }
- set #LOBJECTID %fukija
- event macro 17
- set %czasfuka #SCNT + 2
- while ( #targcurs = 0 )
- {
- if #scnt >= %czasfuka
- break
- }
- event macro 22
- wait 1
- }
- if %dystans = 1
- {
- finditem %shuriken c_ , #BACKPACKID
- if ( #FINDKIND = -1 )
- {
- return
- }
- set #LOBJECTID %shuriken
- event macro 17
- set %czasfuka2 #SCNT + 2
- while ( #targcurs = 0 )
- {
- if #scnt >= %czasfuka2
- break
- }
- event macro 22
- wait 1
- }
- return
- goto start
- sub odpal
- set %id %1
- event sysmessage Shakeing potion %id #SCNT2
- set #LOBJECTID %id
- event macro 17
- if %licznik = 1
- {
- set %wait 2
- set %x #SYSTIME + %czekaj
- }
- if %licznik = 2
- {
- set %wait 5
- set %y #SYSTIME + %czekaj
- }
- if %licznik = 3
- {
- set %z #SYSTIME + %czekaj
- set %wait 8
- }
- wait 1
- set #TARGCURS 1
- key ESC
- wait %wait
- return
- sub rzuc
- set %id %1
- event sysmessage Firing potion %id #SCNT2
- set #LOBJECTID %id
- event macro 17
- wait 1
- set #TARGCURS 1
- set #LTARGETID %target
- set #LTARGETKIND 1
- powtarzacz:
- if %x <= #SYSTIME
- {
- set %wait 0
- set %x a
- goto dalej
- }
- if %y <= #SYSTIME
- {
- set %wait 3
- set %y a
- goto dalej
- }
- if %z <= #SYSTIME
- {
- set %z a
- set %wait 5
- goto dalej
- }
- goto powtarzacz
- dalej:
- set %licz4 #SCNT2 + 3
- while ( #targcurs = 0 )
- {
- if #SCNT2 > %licz4
- break
- }
- event macro 22
- wait %wait
- return
- sub bomba
- if #ENEMYID <> #LTARGETID
- {
- set %target #LTARGETID
- }
- else
- {
- set %target #ENEMYID
- }
- finditem %explo c_ , #BACKPACKID
- event sysmessage Throwing potion #SCNT2
- set #LOBJECTID #findid
- event macro 17
- wait 1
- set #TARGCURS 1
- set #LTARGETID %target
- set #LTARGETKIND 1
- set %licz4 #SCNT2 + 2
- while ( #targcurs = 0 )
- {
- if #SCNT2 > %licz4
- break
- }
- event macro 22
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement