API tools faq
paste
Guest User

Untitled

a guest
Oct 7th, 2018
182
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ZXBasic 10.18 KB | None | 0 0
raw download clone embed print report
  1.  
  2.  
  3. S EnableGroup skills off
  4. S EnableGroup Messages off
  5. S EnableGroup Skills off
  6. S EnableGroup PetAtk off
  7. S EnableGroup Skillarea off
  8. S EnableGroup RESS off
  9. S EnableGroup Pve off
  10. S EnableGroup Arvore off
  11. S EnableGroup Poison off
  12.  
  13. L AutoParty teckteckteck -*
  14. L AutoParty -teckteckteck
  15.  
  16. //L AutoParty -teckteckteck
  17. //L AutoParty -Ciz0n
  18. //L AutoInvite looter teckteckteck
  19. //L AutoAcceptTrade t3kc -*
  20.  
  21.  
  22. F: CanGetBuffs(obj) = alive(obj) AND NOT isMedused(obj) AND effectTime(obj,$DayOfDoom) == 0 AND effectTime(obj,$DayOfDoom2) == 0 AND effectTime(obj, $CrystalRegeneration) == 0
  23.  
  24.     ?Pve T(500) effectTime($AeoreAura) == 0 : CAST $AeoreAura;
  25.     ?Pve T(500) effectTime($EmblemOfSalvation) == 0 AND skillCooltime($EmblemOfSalvation)==0: Select (me); CAST $EmblemOfSalvation;
  26.     ?Pve T(1000) AutoShot 33780 on
  27.     ?Pve T(1000) AutoShot 6645 on
  28.     ?Pve P(100, 500) php(actor)  == 0  AND isMember(actor)AND sdistance(actor) < 600*600 AND skillCoolTime($BlessedResurrection) == 0: Select (actor); CAST $BlessedResurrection ;
  29.     ?Pve T(10000) php(me) < 50 AND NOT skillCoolTime($Prevision): CAST $Prevision;
  30.    
  31.     ?PetAtk T(3000000, 1000) petCount == 0 AND alive(me) AND skillCooltime($SummonLumi)==0 : CAST $SummonLumi
  32.      ?PetAtk T(500) pet AND attackable(target(me)) AND NOT dead(target(me)) : Select(target(me)) safe > ActionUse   summonattack
  33.    
  34.     ?Arvore T(33000, 1000) petCount == 0 AND alive(me) AND skillCooltime($SummonTreeOfLife)==0 : CAST $SummonTreeOfLife
  35.  
  36.  
  37. //F: meDisabled = isStunned(me) OR isMedused(me) OR isTranced(me) OR isAnchored(me) OR isAfraid(me) OR //effectTime($HeroicDread) > 0 OR effectTime($Hide) > 0
  38. F: meDisabled =  isMedused(me) OR isTranced(me) OR isAnchored(me) OR isAfraid(me) OR effectTime($HeroicDread) > 0 OR effectTime($Hide) > 0
  39.  
  40. F: ShouldCast(skill) = (skillLevel(skill) > 0 \
  41. AND (mp(me) >= 200) \
  42. AND NOT (acting OR nowCasting OR isSilenced(me)) \
  43. AND SkillCoolTime(skill) == 0)
  44.  
  45.  
  46. V: TargetBeforeNoble
  47.  
  48.  
  49. //?noble PT(250,3000) alive(me) AND effectTime(actor,$NoblesseBlessing) < 70000 AND effectTime(actor,7096) == 0 AND //effectTime(actor,23285) == 0 AND CanGetBuffs(actor) AND effectTime(actor,$NoblesseBlessing) < 600000 AND //sdistance(actor)< (1000*1000) AND SkillCoolTime (1323) == 0 AND NOT meDisabled AND ShouldCast($NoblesseBlessing) AND //itemCount(3031) > 5 : Assign TargetBeforeNoble = target(me) ; Select(actor) > CAST $NoblesseBlessing
  50. //?rebuff @SkillDone actor == me AND skill == $NoblesseBlessing : Select (TargetBeforeNoble) safe
  51.  
  52.  
  53. S EnableGroup rebuff off
  54.  
  55.  
  56. S EnableGroup noble off
  57.  
  58.  
  59. // BUFFS
  60.  
  61.  
  62.  
  63. //////////
  64. //**************Functions ****************
  65.  
  66. L HoldWeapon on
  67. //L CharFunctor Flagged (isFlagged AND distance < 1500)
  68. F: inRandomInterval(mid, diff) = random((mid-diff)*1000, (mid+diff)*1000)
  69. F meDisabled = isStunned(me) OR isMedused(me) OR isTranced(me) OR isAnchored(me) OR isAfraid(me) OR effectTime($HeroicDread) > 0 OR effectTime(922) > 0
  70. F mePhysMute = isSilenced(me) OR effectTime($HeroicGrandeur) > 0 AND effectTime($Silence) == 0 AND effectTime($SealOfSilence) == 0 AND effectTime($VoiceBind) == 0
  71. F meRaidMute = effectTime(4215) > 0
  72. // sm
  73. V MA
  74. ?Assist T(2000) : Assist (env("zoham")) safe
  75. ?Assist @MagicSkillUser isTank(actor) AND isMember(actor) : Assign MA = actor
  76. ?Skills @Resurrection isMember(actor) OR actor == (me) : (random(500, 1000)) Revive 1; AutoShot 33794 off ; AutoShot 33794 on
  77. ?Skills T(100) AutoShot 33794 on
  78. ?Skills T(2000) pmp(me) > 10 AND effectTime(target(me),$MarkOfLumi) == 0 AND skillCoolTime($MarkOfLumi) == 0 AND distance(target(me)) < 600 AND NOT isMedused(target(me)) AND NOT dead(me) AND alive(target(me)) AND zone ~= 12  AND NOT dead(target(me)): CAST $MarkOfLumi
  79. ?Skills T(2000) pmp(me) > 10 AND effectTime(target(me),$DarkBackfire) == 0 AND skillCoolTime($DarkBackfire) == 0 AND distance(target(me)) < 600 AND NOT isMedused(target(me)) AND NOT dead(me) AND alive(target(me)) AND zone ~= 12  AND NOT dead(target(me)): CAST $DarkBackfire
  80.  
  81.  
  82. ?Poison T(60000) skillCoolTime($MassCurePoison) == 0 AND NOT meDisabled: CAST $MassCurePoison
  83. ?Skills T(3600) alive(target(me)) AND skillCoolTime($DarkForce) == 0 AND distance(target(me)) < 50: CAST $DarkForce
  84. ?Skillarea T(1000) alive(target(me)) AND skillCoolTime($DarkRain) == 0 AND distance(target(me))< 50 AND NOT isMember(target(me)) : CAST $DarkRain
  85. ?Skillarea T(1000) alive(target(me)) AND skillCoolTime($MassDarkVeil) == 0 AND distance(target(me))< 50 AND NOT isMember(target(me)) : CAST $MassDarkVeil
  86.  
  87. ?Heal T(2000) pmp(me)  < 5 AND skillCoolTime($Rebirth) == 0 AND CanGetBuffs(me) AND NOT meDisabled: CAST $Rebirth ;
  88. ?Heal P(5000, 5000) pmp(actor)  < 70  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($RadiantRecharge) == 0 AND CanGetBuffs(actor) AND NOT meDisabled AND NOT php(actor)  < 50 AND NOT php(me)  < 50: Select (actor);CAST $RadiantRecharge
  89. ?Heal T(2000) php(me)  < 50 AND skillCoolTime($GiantsFavor) == 0 AND CanGetBuffs(me) AND NOT meDisabled: Select (me);CAST $GiantsFavor
  90. ?Heal P(100, 5000) php(actor)  < 20  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($CelestialProtection) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: Select (actor);CAST $CelestialProtection
  91. ?Heal T(500) php(me)  < 20  AND  skillCoolTime($CelestialProtection) == 0 AND CanGetBuffs(me) AND NOT meDisabled: Select (me);CAST $CelestialProtection
  92. ?Heal P(100, 2000) php(actor)  < 40  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($BalanceHeal) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: CAST $BalanceHeal;CAST $BrilliantHeal
  93. ?Heal P(100, 1000) php(actor)  < 80  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($ProgressiveHeal) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: Select (actor);CAST $ProgressiveHeal
  94. ?Heal P(100, 1000) php(actor)  < 80  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($ProgressiveHeal) > 0 AND CanGetBuffs(actor) AND NOT meDisabled: Select (actor);CAST $PanicHeal
  95. ?Heal T(400) php(me)  < 80  AND skillCoolTime($ProgressiveHeal) == 0 AND CanGetBuffs(me) AND NOT meDisabled: Select (me);CAST $ProgressiveHeal
  96. ?Heal T(600) php(me)  < 80  AND skillCoolTime($ProgressiveHeal) > 0 AND CanGetBuffs(me) AND NOT meDisabled: Select (me);CAST $PanicHeal
  97. ?Heal P(100, 5000) (isAnchored(actor) OR isBleeding(actor) OR isDeathMark(actor) OR isRooted(actor) OR isSilenced(actor) OR isTranced(actor) )AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($RadiantPurge) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: Select (actor);CAST $RadiantPurge
  98.  
  99. ?Heal PT(100, 500) effectTime("Zoham",$FairyOfLife) == 0 AND  sdistance("Zoham") < (600*600) AND CanGetBuffs("Zoham") AND  NOT meDisabled AND alive(me) : Assign TargetBeforeNoble = target(me) AND skillCoolTime($FairyOfLife) == 0; Select("Zoham") > CAST $FairyOfLife
  100.  
  101.  
  102.  
  103. ?Heal P(100, 100) effectTime(actor,$DarkStorm) > 0  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($RadiantPurge) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: Select (actor);CAST $RadiantPurge
  104. ?Heal T(500) effectTime($DarkStorm) > 0  AND  skillCoolTime($RadiantPurge) == 0 AND CanGetBuffs(me) AND NOT meDisabled: Select (me);CAST $RadiantPurge
  105. ?Heal P(100, 100) effectTime(actor,$Bleed) > 0  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($RadiantPurge) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: Select (actor);CAST $RadiantPurge
  106. ?Heal T(500) effectTime($Bleed) > 0  AND  skillCoolTime($RadiantPurge) == 0 AND CanGetBuffs(me) AND NOT meDisabled: Select (me);CAST $RadiantPurge
  107. ?Heal P(100, 100) effectTime(actor,$DeadlyPoison) > 0  AND isMember(actor) AND sdistance(actor) < 600*600 AND skillCoolTime($MassCurePoison) == 0 AND CanGetBuffs(actor) AND NOT meDisabled: CAST $MassCurePoison
  108. ?Heal T(500) effectTime($DeadlyPoison2) > 0  AND  skillCoolTime($MassCurePoison) == 0 AND CanGetBuffs(me) AND NOT meDisabled: CAST $MassCurePoison
  109.  
  110.  
  111.  
  112. ?Messages @CreatureSay text == "pt minotaure"  : Invite looter minotaure
  113. ?Messages @CreatureSay text == "pt ciz0n"  : Invite looter ciz0n
  114. ?Messages @CreatureSay text == "pt madimbu"  : Invite looter madimbu
  115. ?Messages @CreatureSay text == "pt yokum"  : Invite looter yokum
  116. ?Messages @CreatureSay text == "pt tucca"  : Invite looter tucca
  117. ?Messages @CreatureSay text == "pt teckteckteck"  : Invite looter teckteckteck
  118. ?Messages @CreatureSay text == "pt loxosceles"  : Invite looter loxosceles
  119. ?Messages @CreatureSay text == "pt abelyus"  : Invite looter abelyus
  120. ?Messages @CreatureSay text == "pt tuf"  : Invite looter tuf
  121. ?Messages @CreatureSay text == "pt t3kc"  : Invite looter T3kc
  122.  
  123. ?Messages @CreatureSay text == "pt doidonna"  : Invite looter doidonna
  124. ?Messages @CreatureSay text == "pt min3rvina"  : Invite looter min3rvina
  125. ?Messages @CreatureSay text == "pt zoham"  : Invite looter zoham
  126. ?Messages @CreatureSay text == "pt wymago"  : Invite looter wymago
  127. ?Messages @CreatureSay text == "pt wynega"  : Invite looter wynega
  128. ?Messages @CreatureSay text == "pt issanta"  : Invite looter issanta
  129.  
  130.  
  131. ?Messages @CreatureSay text == "lider zoham"  : Command ("/changepartyleader zoham")
  132. ?Messages @CreatureSay text == "lider doidonna"  : Command ("/changepartyleader doidonna")
  133. ?Messages @CreatureSay text == "lider min3rvina"  : Command ("/changepartyleader min3rvina")
  134. ?Messages @CreatureSay text == "lider issanta"  : Command ("/changepartyleader issanta")
  135. ?Messages @CreatureSay text == "lider tuf"  : Command ("/changepartyleader tuf")
  136. ?Messages @CreatureSay text == "lider wynega"  : Command ("/changepartyleader wynega")
  137. ?Messages @CreatureSay text == "lider t3kc"  : Command ("/changepartyleader t3kc")
  138. ?Messages @CreatureSay text == "lider wymago"  : Command ("/changepartyleader wymago")
  139. ?Messages @CreatureSay text == "passa lider" AND  isMember(actor) AND (distance(actor) <= 900):Select (actor); Command ("/changepartyleader");
  140.  
  141. ?RESS @Resurrection actor==me OR isMember(actor) OR  isMember(me): Revive 1
  142.  
  143.  
  144. ?hunt @Resurrection: (1000) Revive isMember(actor); (1000) AutoShot 33780 off; (2000) AutoShot 33780 on
  145.  
  146. ?Desligabot T(5000) zone == 12: EnableGroup Pve off; EnableGroup Skills off; EnableGroup messages off; EnableGroup RESS off; EnableGroup Disarm off; EnableGroup Buffs off ; EnableGroup Skillarea off ; EnableGroup PetAtk off ; EnableGroup Arvore off ; EnableGroup Poison off
Add Comment
Please, Sign In to add comment
Public Pastes
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!