[Scripts] Automaton Scriptteile

Quote:

function Example.OnTick ( DeltaTime ) local Player = GetPlayer () if ( Player == nil ) then return end local PPos = Player:Get ( "Position" ) local PLev = Player:Get ( "Level" ) if ( Follow ~= nil ) and ( not Grinding ) then if ( not Follow:Get ( "Destroyed" ) ) then local FPos = Follow:Get ( "Position" ) local FDist = Distance ( PPos, FPos ) if ( FDist > 1 ) then Move ( FPos.x, FPos.y, FPos.z ) end else Follow = nil end end if ( not Grinding ) then return end if ( LastTarget == nil ) then local Best = { Actor = nil, Distance = nil } local Actors = GetActors () for k, Actor in pairs(Actors) do local APos = Actor:Get ( "Position" ) local ALev = Actor:Get ( "Level" ) if ( not IsPlayer ( Actor ) ) and ( Actor:Get ( "Attackable" ) ) and ( PLev >= ( ALev - LevelRange ) ) then local Dist = Distance ( PPos, APos ) if ( Best.Distance == nil ) or ( Best.Distance > Dist ) then Best.Distance = Dist Best.Actor = Actor end end end if ( Best.Actor ~= nil ) then LastTarget = Best.Actor LogF ( "Attacking %s!", LastTarget:Get ( "Name" ) ) local Position = LastTarget:Get ( "Position" ) Move ( Position.x, Position.y, Position. z ) UseSkill ( LastTarget, XX ) end else if ( LastTarget:Get ( "Destroyed" ) ) or ( not LastTarget:Get ( "Attackable" ) ) then LastTarget = nil else LastCycle = LastCycle + DeltaTime if ( LastCycle > CycleInterval ) then local Position = LastTarget:Get ( "Position" ) Move ( Position.x, Position.y, Position.z ) UseSkill ( LastTarget, XX ) LastCycle = 0 end end end end

Quote:

VAGRANT 0 - Clean Hit 1 - Brandish 2 - Overcutter MERCENARY 3 - Splmash 4 - Protection 5 - Pan Barrier 6 - Keenwheel 7 - Bloody Strike 8 - Sneaker 9 - Impower Weapon 10 - Blindside 12 - Reflex Hit 13 - Smite Axe 14 - Axe Mastery 15 - Guillotine KNIGHT 25 - Guard 28 - Rage 23 - Pain Dealer BLADE 23 - Silent Strike 24 - Spring Attack 25 - Armor Penetrate 26 - Blade Dance 27 - Hawk Attack 28 - Berserk MAGICIAN Mental Strike 3 Blink Pool 14 ~~> ich glaub wohl keiner wird blinkpool zum grinden casten^^ Feuer 4 - 11 - 19 Wind 8 - 13 - 18 Wasser 7 - 12 - 17 Elektro 6 - 10 - 16 Erde 5 - 9 - 15 PSYCHIPER Psykeeper Skills: Crucio Spell - 23 Psychic Bomb - 24 Demonology - 25 Spirit Bomb - 26 Maximum Crisis - 27 Satanology - 28 Psychic Wall - 29 ELEMENTER 23 - Iceshark 24 - Stone Spear 25 - Thunder Strike 26 - Firebird 27 - Void 28 - Electric Shock 29 - Windfield 30 - Burning Field 31 - Earthquake 32 - Poison Cloud 33 - Fire Mastery 34 - Lightning Mastery 35 - Earth Mastery 36 - Wind Mastery 37 - Water Mastery 38 - MeteoShower 39 - Lightning Storm 40 - Sand Storm 41 - Blizzard ACROBAT 3 - Slow Step 5 - Pulling 6 - Fast Walker 7 - Yoyo Mastery 8 - Bow Mastery 9 - Dark Illusion 10 - Silent Shot 11 - Crossline 12 - Aimed Shot 13 - Snitch 16 - Perfect Block 18 - Deadly Swing JESTER 23 - Enchant Poison 24 - Enchant Blood 25 - Escape 26 - Critical Swing 27 - Backstep 28 - Enchante Asorbe 29 - Hop RANGER ASSIST 3 - Heal 4 - Mental Sign 5 - Patience 6 - Quick Step 7 - Heap Up 8 - Tamping Hole 9 - Ressurection 10 - Haste 11 - Circle Healing 12 - Beef Up 13 - Stonehand 14 - Burst Crack 15 - Cat's Reflex 16 - Prevention 17 - Accuracy 18 - Power Fist 19 - Cannon Ball BILLPOSTER 23 - Asmodeus 24 - Belial Smashing 25 - Blood Fist 26 - Baraqijal Esna RINGMASTER 23 - Holycross 24 - Protect 26 - Gvur Tialla 27 - Holyguard 28 - Spiriture Fortune 29 - Heal Rain 30 - Geburah Tiphreth 31 - Merkaba Hanzelrusha

Quote:

Originally Posted by 321meins kriegt einer nen Script hin, der die Petfoodbags ersetzt? O.o ... Wär n1^^

local tom = { } -- Functions
local tomv = { } -- Variables

-----Change here-----
tomv.range = 100      --Range of attackall command
-----Don't change here if you don't know what you do-----

tomv.grind = 0
tomv.skillid = nil
tomv.lcycle = 0
tomv.cinterval = 0.50

function tom.distance ( Source, Target )
	return math.sqrt ( math.pow ( Target.x - Source.x, 2 ) + math.pow ( Target.y - Source.y, 2 ) + math.pow ( Target.z - Source.z, 2 ) )
end


function wtfux.OnTick ( DeltaTime )
-----If you wanna add my script part to another script, then you have to put the code from now on till my next message into the OnTick function of the script-----
if (tomv.grind == 1) then

tomv.lcycle = tomv.lcycle + DeltaTime
if ( tomv.lcycle > tomv.cinterval ) then
  local Actors = GetActors ()
	for k, Actor in pairs(Actors) do
		local Player = GetPlayer ()
		local PPos = Player:Get ( "Position" )
		tomv.location = Actor:Get('Position')
		tomv.dist = tom.distance (PPos, tomv.location)
		if ( Actor:Get ( "Attackable" ) ) and ( Actor ~= Player ) and (tomv.dist < tomv.range) then
			if (tomv.skillid == nil) or (tomv.skillid == "") then
      		          Attack (Actor, 0)
			else
			  UseSkill (Actor, tomv.skillid)
			end
		 end
	  end
tomv.lcycle = 0
    end
    return true

 end
-----Stop copying the code here-----
end

function tom.startattackall ( Arguments, Device )
	Game:Set ( "CollisionDetection", false )
	tomv.grind = 1
if ( Arguments == nil ) or ( Arguments == "" ) then
	tomv.skillid = nil
else
	tomv.skillid = Arguments
end
    OutputF ( Device, NAME_Log, "Started perm using Attackall")
	return true
end

function tom.stopattackall ( Arguments, Device )
	Game:Set ( "CollisionDetection", true )
	tomv.grind = 0
	tomv.skillid = nil
	wtfuxv.lasttarget = nil
  OutputF ( Device, NAME_Log, "Stopped perm using Attackall")
	return true
end

Register ( tom, "tom" )
AddCommand ( tom.startattackall, "StartAttackall", "<ID>", "Attacks everything around permanently" )
AddCommand ( tom.stopattackall, "StopAttackall", "<ID>", "Stops Attacking everything around permanently" )