Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;takie tam prymitywne makro na atakowanie szarych mobow by KFY
- ;===================================
- set %moby OB_JD_KD_UE_SD_QF_EG_ZGB_MG_BK_WJ_KG_LB_YF_RB_W_RO_GE_VF_UE_X_QE_M_JD_AH_BG_PG_VD_PF_HG_ZF_TF_NG_BG_CO_RF_SG_TN_WG_JG_NF_TG ; lista mobow, ktore bije
- set %Distance 11 ; dystans ataku
- set %STR 61 ;twoje staty z cechy > staty - do blesa
- set %DEX 46
- set %Int 60
- ;==================================
- set %enemy N/A
- event sysmessage Odpalam makro...
- gosub bless
- start:
- gosub ScanForEnemies
- if #result = 0
- {
- wait 5
- goto start
- }
- set %target #result
- gosub AttackTarget %target
- gosub bless
- goto start
- ;------------------------------------------------------
- sub ScanForEnemies
- finditem %moby G_ , %distance
- if #findkind = -1
- {
- wait 5
- return 0
- }
- for #findindex 1 #findcnt
- {
- if #findrep <> 3
- {
- ignoreitem #findid
- continue
- }
- else
- {
- return #findid
- }
- }
- return 0
- ;-----------------------------------------------------
- sub AttackTarget
- event property %1
- if #property = $
- return ; to ma zapobiegac jakims dziwnym kwiatkom
- set %name #property
- str Len %name
- set %dl #strRes - 1
- str Left %name %dl
- set %name #strRes
- event sysmessage Nacieram na %name o ID %1
- set #ltargetid %1
- set #ltargetkind 1
- event macro 27 0
- sound
- wait 20
- gosub Flamuj %1
- wait 10
- return
- ;---------------------------------------------------
- sub Flamuj
- while #true
- {
- if #maxhits - #hits > 15
- gosub lecz
- if #mana < 15
- gosub medytuj2
- set %fuse #scnt + 3
- event macro 15 17
- repeat
- until #scnt > %fuse || #targcurs = 1
- if #targcurs = 1
- {
- set #ltargetid %1
- event macro 22
- wait 10
- break
- }
- }
- finditem %1 G_10
- if #findkind <> -1
- gosub Flamuj #findid
- return
- ;---------------------------------------------------
- sub medytuj
- event macro 1 0 .um medytacja
- set %jrnl #jindex
- while #true
- {
- if #maxhits - #hits > 15
- gosub lecz
- if #jindex > %jrnl
- {
- set %jrnl %jrnl + 1
- scanjournal %jrnl
- if skoncentrowac in #journal
- gosub medytuj
- if koncentracje in #journal Konczysz in #journal
- break
- }
- }
- if #mana < 15
- gosub medytuj
- return
- ;--------------------------------------------------
- sub lecz
- while #true
- {
- if #mana < 15
- gosub medytuj2
- set %fuse #scnt + 4
- event macro 15 28 ;in vas mani
- repeat
- until #scnt > %fuse || #targcurs = 1
- if #targcurs = 1
- {
- set #ltargetid #charid
- event macro 22
- wait 5
- break
- }
- }
- if #maxhits - #hits > 40
- gosub lecz
- return
- ;--------------------------------------------------
- sub bless
- set %vSTR ( %STR + 20 )
- set %vDEX ( %DEX + 20 )
- set %vINT ( %INT + 20 )
- if #STR < %vSTR || #DEX < %vDEX || #INT < %vINT
- {
- set %cTime #scnt + 5
- event macro 15 16 ;bless
- repeat
- if %cTime < #scnt
- {
- set %cTime #scnt + 5
- event macro 15 16
- }
- until #targcurs = 1
- set #ltargetid #charid
- set #ltargetkind 1
- event macro 22
- wait 5
- if #targcurs = 1
- {
- event macro 22
- wait 5
- }
- gosub lecz
- gosub medytuj2
- }
- return
- ;---------------------------------------------
- sub medytuj2
- OdNowa:
- set %jindex #jindex
- event macro 1 0 .um medytacja
- repeat
- set %ji #jindex - %jindex
- for %i 1 %ji
- {
- scanjournal %i
- if #maxhits - #hits > 15
- {
- gosub lecz
- return
- }
- if koncentracje. in #journal || Juz_cos_robisz. in #journal || skoncentrowac in #journal
- {
- wait 5s
- goto OdNowa
- }
- }
- until #MANA = #MAXMANA || Konczysz in #journal
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement