WebSVN – vanilla-wow-addons – Blame – Rev 1 – /s/SimpleActionSets/SimpleActionSets.lua

			local name, texture, rank, link, macro = SAS_ParseActionInfo( SAS_Temp[bar][id] ); --SAS_Temp[bar][id][1], SAS_Temp[bar][id][2], SAS_Temp[bar][id][3], SAS_Temp[bar][id][4], SAS_Temp[bar][id][5];

360

texture = SAS_FullPath(texture);

361

icon:SetTexture( texture );

362

icon:Show();

363

normalTexture:SetTexture("Interface\\Buttons\\UI-Quickslot2");

364

hotkey:SetTextColor(0.6,0.6,0.6);

365

366

if ( macro ) then

367

buttonName:SetText( name );

368

buttonName:Show();

369

buttonName:SetTextColor(1.0, 1.0, 1.0);

370

if ( not SAS_FindMacro( name, texture, macro ) ) then

371

border:SetVertexColor(1.0, 0.0, 0.0, 0.35);

372

buttonName:SetTextColor(0.4, 0.4, 0.4);

373

border:Show();

374

normalTexture:SetVertexColor(0.9, 0.0, 0.0, 1.0);

375

icon:SetVertexColor(0.4, 0.4, 0.4);

376

end

377

elseif ( link ) then

378

border:SetVertexColor(0, 1.0, 0, 0.35);

379

border:Show();

380

local itemLink;

381

if ( link == "?" or link == "1" ) then

382

itemLink = SAS_CheckItem( name, bar*12+id, SASActions_GetLoaded() );

383

else

384

itemLink = SAS_FindItem( link );

385

end

386

if ( not itemLink or itemLink == "?" ) then

387

border:SetVertexColor(1.0, 0.0, 0.0, 0.35);

388

normalTexture:SetVertexColor(0.9, 0.0, 0.0, 1.0);

389

icon:SetVertexColor(0.4, 0.4, 0.4);

390

elseif ( link == "?" ) then

391

SAS_Temp[bar][id] = SAS_IncActionInfo( SAS_Temp[bar][id], itemLink, 4 );

392

end

393

else

394

local spellNum, highest = SAS_FindSpell( name, rank );

395

if ( not spellNum ) then

396

if ( highest ) then

397

border:SetVertexColor(0.0, 0.0, 1.0, 0.7);

398

else

399

icon:SetVertexColor(0.4, 0.4, 0.4);

400

border:SetVertexColor(1.0, 0.0, 0.0, 0.35);

401

end

402

border:Show();

403

elseif ( not rank ) then

404

local checktexture = GetSpellTexture( spellNum, BOOKTYPE_SPELL );

405

if ( texture ~= checktexture ) then

406

icon:SetTexture( checktexture );

407

local set = SASActions_GetLoaded();

408

if ( set ) then

409

SAS_Temp[bar][id] = SAS_IncActionInfo( SAS_Temp[bar][id], checktexture, 2 );

410

							SAS_Saved[PlrName]["s"][set][bar][id] = SAS_IncActionInfo( SAS_Saved[PlrName]["s"][set][bar][id], checktexture, 2 );

end

end

end

end

elseif ( SAS_Temp[bar] ) then

416

if ( enable ) then

417

normalTexture:SetTexture("Interface\\Buttons\\UI-Quickslot");

418

else

419

normalTexture:SetTexture("Interface\\Buttons\\UI-Quickslot2");

end

end

end

end

function SASActions_SaveNew( set )

426

SASSaveMenuNameEB:SetText("");

427

ShowUIPanel(SASSaveMenu);

428

if ( set ) then

429

SASSaveMenuNameEB:SetText( set );

430

SASSaveMenu_Save( set );

end

end

function SASActions_ClearTemp()

435

-- Clear the temp set

for i=0, 9 do

SAS_Temp[i] = {};

end

SASActions_Display();

440

end

441

442

function SASActions_LoadCurrent()

443

if ( SASActionsSave:GetButtonState() == "DISABLED" ) then

444

SASActions_Load();

445

else

446

SAS_Warning("UNSAVED_LOAD", SASActions_Load);

end

end

function SASActions_SwapSet()

451

if ( SASActionsSave:GetButtonState() == "NORMAL" ) then

452

SAS_Warning("SWAPPINGSAVE", SASActions_SwapSave, SASActions_GetLoaded());

453

else

454

SAS_Warning("SWAPPING", SAS_SwapSet, SASActions_GetLoaded());

end

end

function SASActions_SwapSave( set )

459

SAS_SaveSet( set );

460

SAS_SwapSet( set );

461

end

462

463

function SASActions_Delete()

464

SAS_Warning("DELETE", SAS_Delete, SASActions_GetLoaded());

465

end

466

467

function SASActions_Save()

468

SAS_Warning("SAVE", SAS_SaveSet, SASActions_GetLoaded());

469

end

470

471

function SASActions_SaveEnable()

472

local set = SASActions_GetLoaded();

473

if ( set and SAS_CompareSet(SAS_Temp, SAS_Saved[PlrName]["s"][set], 2) ) then

474

SASActionsSave:Enable();

475

else

476

SASActionsSave:Disable();

end

end

function SASActions_Cancel()

481

if ( SASActionsSave:GetButtonState() == "DISABLED" ) then

482

HideUIPanel(this:GetParent());

483

else

484

SAS_Warning("UNSAVED_CANCEL", SASMain_Toggle);

end

end

function SASActions_GetLoaded()

489

local set = UIDropDownMenu_GetSelectedName( SASActionSetsDropDown );

490

if ( set ~= SAS_TEXT_CURRENT ) then

return set;

end

end

function SASActionsSave_Enable()

496

SASActionsSaveLeft:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up");

497

SASActionsSaveMiddle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up");

498

SASActionsSaveRight:SetTexture("Interface\\Buttons\\UI-Panel-Button-Up");

499

SASActionsSave:oldEnable();

500

SASActionsSave:EnableMouse(1);

501

end

502

503

function SASActionsSave_Disable()

504

SASActionsSaveLeft:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled");

505

SASActionsSaveMiddle:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled");

506

SASActionsSaveRight:SetTexture("Interface\\Buttons\\UI-Panel-Button-Disabled");

507

SASActionsSave:oldDisable();

508

SASActionsSave:EnableMouse();

509

end

510

511

function SASSets_Character_DropDown_OnLoad()

512

UIDropDownMenu_Initialize(this, SASSets_Character_DropDown_Initialize);

513

UIDropDownMenu_SetWidth(160);

514

UIDropDownMenu_SetButtonWidth(24);

515

UIDropDownMenu_JustifyText("LEFT", SASSets_Character_DropDown);

516

UIDropDownMenu_SetSelectedID( SASSets_Character_DropDown, 1 );

517

end

518

519

function SASSets_Character_DropDown_Initialize()

520

local info;

521

local list = {};

522

for k, v in SAS_Saved do

523

if ( k ~= "debug" and k ~= "BackUp" and k ~= PlrName and v.s ) then

for j, z in v.s do

tinsert(list,k);

break;

end

end

end

table.sort(list);

if ( SAS_Saved["BackUp"] ) then

532

tinsert(list,"BackUp");

533

end

534

for i=1, getn(list) do

535

info = {};

536

info.text = list[i];

537

info.value = list[i];

538

info.justifyH = "LEFT";

539

info.func = SASSets_Character_DropDown_OnClick;

540

UIDropDownMenu_AddButton(info);

end

end

function SASSets_Character_DropDown_OnClick()

545

UIDropDownMenu_SetSelectedName( SASSets_Character_DropDown, this:GetText() );

546

UIDropDownMenu_Initialize(SASSets_CharacterSets_DropDown, SASSets_CharacterSets_DropDown_Initialize);

547

UIDropDownMenu_SetSelectedID( SASSets_CharacterSets_DropDown, 1 );

548

end

549

550

function SASSets_CharacterSets_DropDown_OnLoad()

551

UIDropDownMenu_Initialize(this, SASSets_CharacterSets_DropDown_Initialize);

552

UIDropDownMenu_SetWidth(160);

553

UIDropDownMenu_SetButtonWidth(24);

554

UIDropDownMenu_JustifyText("LEFT", SASSets_CharacterSets_DropDown);

555

UIDropDownMenu_SetSelectedID( SASSets_CharacterSets_DropDown, 1 );

556

end

557

558

function SASSets_CharacterSets_DropDown_Initialize()

559

local info;

560

local list = {};

561

local char = SASSets_Character_DropDownText:GetText();

562

if ( SAS_Saved[char] and SAS_Saved[char]["s"] ) then

563

for k, v in SAS_Saved[char]["s"] do

tinsert(list,k);

end

end

table.sort(list);

for i=1, getn(list) do

569

info = {};

570

info.text = list[i];

571

info.value = list[i];

572

info.justifyH = "LEFT";

573

info.func = SASSets_CharacterSets_DropDown_OnClick;

574

UIDropDownMenu_AddButton(info);

end

end

function SASSets_CharacterSets_DropDown_OnClick()

579

UIDropDownMenu_SetSelectedID( SASSets_CharacterSets_DropDown, this:GetID() );

580

end

581

582

function SASActions_LoadOtherSet()

583

local char = SASSets_Character_DropDownText:GetText();

584

local set = SASSets_CharacterSets_DropDownText:GetText();

585

SASActions_Load( set, char );

586

end

587

588

-------------------------------

589

-- SASActionButton functions --

590

-------------------------------

591

function SASActionButton_OnClick( button )

592

-- Pick up action, and replace with held action (if there is one)

593

local bar = this:GetParent():GetID();

594

local id = this:GetID();

595

--local i = id + bar * 12;

596

local LocalSavedAction;

597

if ( button == "RightButton" and SASFakeDragFrame.Action ) then

598

SASFakeDrag_Drop(1);

599

elseif ( IsShiftKeyDown() and not IsControlKeyDown() ) then

600

LocalSavedAction = SAS_Temp[bar][id];

601

SAS_ClearCursor();

602

else

603

if ( SAS_IsValidAction ) then

604

-- Cursor has an item / action / macro that can be placed on the action bar

605

SASDebug("SASActionButton_OnClick getting action "..SAS_ParseActionInfo(SAS_SavedPickup, 1).." from cursor");

606

if ( SAS_ParseActionInfo(SAS_SavedPickup, 6) ) then

607

-- Spell is passive, don't add to set

608

UIErrorsFrame:AddMessage(ERR_PASSIVE_ABILITY, 1.0, 0.1, 0.1, 1.0, UIERRORS_HOLD_TIME);

609

else

610

if ( SAS_Temp[bar] and not SAS_Temp[bar][id] == SAS_SavedPickup ) then

611

LocalSavedAction = SAS_Temp[bar][id];

612

end

613

SAS_Temp[bar][id] = SAS_SavedPickup;

614

SASActions_UpdateAction( bar, id );

615

616

if ( SAS_ReturnAction ) then

617

PlaceAction( SAS_ReturnAction );

else

SAS_ClearCursor();

end

end

elseif ( SASFakeDragFrame.Action ) then

623

-- Cursor fake drag is holding an action

624

SASDebug("SASActionButton_OnClick getting fake drag action "..SAS_ParseActionInfo(SASFakeDragFrame.Action, 1));

625

if ( SAS_Temp[bar] and SAS_Temp[bar][id] ) then

626

LocalSavedAction = SAS_CopyTable(SAS_Temp[bar][id]);

627

end

628

SAS_Temp[bar][id] = SASFakeDrag_Drop(1)

629

SASActions_UpdateAction( bar, id );

630

elseif ( SAS_Temp[bar][id] ) then

631

SASDebug("SASActionButton_OnClick putting action "..SAS_ParseActionInfo(SAS_Temp[bar][id], 1).." on fake drag");

632

-- This slot already has an action, pick it up

633

LocalSavedAction = SAS_Temp[bar][id];

634

SAS_Temp[bar][id] = nil;

635

SASActions_UpdateAction( bar, id );

636

if ( IsControlKeyDown() and not IsShiftKeyDown() ) then

637

LocalSavedAction = nil;

638

end

639

getglobal( this:GetName().."Delete" ):Hide();

640

getglobal( this:GetName().."Copy" ):Hide();

end

end

if ( LocalSavedAction ) then

645

SASFakeDrag_PickupAction( LocalSavedAction );

646

end

647

SASActions_SaveEnable();

648

end

649

650

function SASActionButton_OnDragStart()

651

local bar = this:GetParent():GetID();

652

local id = this:GetID();

653

SASFakeDrag_PickupAction( SAS_Temp[bar][id] );

654

if ( not IsShiftKeyDown() ) then

655

SAS_Temp[bar][id] = nil;

656

SASActions_UpdateAction( bar, id );

657

SASActions_SaveEnable();

end

end

function SASActionButton_OnDragStop()

662

SASFakeDrag_Drop();

663

end

664

665

function SASActionButton_OnReceiveDrag()

666

SASDebug("Drag Receive");

667

SASActionButton_OnClick();

668

end

669

670

function SASActionButton_OnEnter()

671

-- Make Tooltip to display for this button

672

this:SetScript("OnUpdate", SASActionButton_OnUpdate); --this.hasfocus = 1;

673

674

local bar = this:GetParent():GetID();

675

local id = this:GetID();

676

local enabled = getglobal( "SASActionBar"..bar.."Enable" ):GetChecked();

677

678

if ( not enabled ) then

679

SetDesaturation( getglobal(this:GetName().."Icon"), 0 );

680

this:SetAlpha(1.0);

681

this:SetNormalTexture("Interface\\Buttons\\UI-Quickslot");

682

end

683

684

if ( getglobal( this:GetName().."Icon" ):IsVisible() and SAS_Temp ) then

685

GameTooltip:SetOwner(this, "ANCHOR_RIGHT");

686

SAS_SetTooltip( bar, id );

end

end

function SASActionButton_OnLeave()

691

-- Hide the tooltip, reset desaturated on disabled bars

692

local enabled = getglobal( "SASActionBar"..this:GetParent():GetID().."Enable" ):GetChecked();

693

local bar = this:GetParent():GetID();

694

local id = this:GetID();

695

SASActions_UpdateAction( bar, id );

696

this:SetScript("OnUpdate", nil); --this.hasfocus = nil;

697

getglobal( this:GetName().."Delete" ):Hide();

698

getglobal( this:GetName().."Copy" ):Hide();

699

GameTooltip:Hide();

700

end

701

702

function SASActionButton_OnUpdate()

703

if ( not getglobal( this:GetName().."Icon" ):IsVisible() or not SAS_Temp ) then return; end

704

705

if ( IsControlKeyDown() and not IsShiftKeyDown() ) then

706

getglobal( this:GetName().."Delete" ):Show();

707

else

708

getglobal( this:GetName().."Delete" ):Hide();

709

end

710

if ( IsShiftKeyDown() and not IsControlKeyDown() ) then

711

getglobal( this:GetName().."Copy" ):Show();

712

else

713

getglobal( this:GetName().."Copy" ):Hide();

end

end

----------------------------

719

-- Options Menu Functions --

720

----------------------------

721

function SASOptions_OnShow()

722

SASOptions_Update();

723

SASOptionsMinimapShow:SetChecked( not SAS_Saved[PlrName]["HideMinimapButton"] );

724

SASOptionsMinimapShowText:SetText( SAS_TEXT_OPTIONS_MINIMAP_SHOW );

725

SASOptionsMinimapDrag:SetChecked( SAS_Saved[PlrName]["LockMinimapButton"] );

726

SASOptionsMinimapDragText:SetText( SAS_TEXT_OPTIONS_MINIMAP_DRAG );

727

SASOptionsMinimapPositionUndo:Disable();

728

SASOptionsGeneralWarnings:SetChecked( not SAS_Saved[PlrName]["NoUIWarnings"] );

729

SASOptionsGeneralWarningsText:SetText( SAS_TEXT_OPTIONS_GENERAL_WARNINGS );

730

SASOptionsGeneralWarnings.tooltipText = SAS_TEXT_OPTIONS_GENERAL_WARNINGS_TOOLTIP;

731

SASOptionsGeneralEmptyBars:SetChecked( not SAS_Saved[PlrName]["EmptyBars"] );

732

SASOptionsGeneralEmptyBarsText:SetText( SAS_TEXT_OPTIONS_GENERAL_EMPTYBARS );

733

SASOptionsGeneralEmptyBars.tooltipText = SAS_TEXT_OPTIONS_GENERAL_EMPTYBARS_TOOLTIP;

734

SASOptionsGeneralEmptyButtons:SetChecked( SAS_Saved[PlrName]["NoEmptyButtons"] );

735

SASOptionsGeneralEmptyButtonsText:SetText( SAS_TEXT_OPTIONS_GENERAL_EMPTYBUTTONS );

736

SASOptionsGeneralEmptyButtons.tooltipText = SAS_TEXT_OPTIONS_GENERAL_EMPTYBUTTONS_TOOLTIP;

737

SASOptionsGeneralFakeItemTooltips:SetChecked( not SAS_Saved[PlrName]["HideFakeItemTooltips"] );

738

SASOptionsGeneralFakeItemTooltipsText:SetText( SAS_TEXT_OPTIONS_GENERAL_FAKEITEMTOOLTIPS );

739

SASOptionsGeneralFakeItemTooltips.tooltipText = SAS_TEXT_OPTIONS_GENERAL_FAKEITEMTOOLTIPS_TOOLTIP;

740

SASOptionsGeneralAutoRestore:SetChecked( not SAS_Saved[PlrName]["AutoRestore"] );

741

SASOptionsGeneralAutoRestoreText:SetText( SAS_TEXT_OPTIONS_GENERAL_AUTORESTORE );

742

SASOptionsGeneralAutoRestore.tooltipText = SAS_TEXT_OPTIONS_GENERAL_AUTORESTORE_TOOLTIP;

743

SASOptionsGeneralAutoRestoreWarning:SetChecked( not SAS_Saved[PlrName]["NoAutoRestoreWarnings"] );

744

SASOptionsGeneralAutoRestoreWarningText:SetText( SAS_TEXT_OPTIONS_GENERAL_AUTORESTOREWARN );

745

SASOptionsGeneralAutoRestoreWarning.tooltipText = SAS_TEXT_OPTIONS_GENERAL_AUTORESTOREWARN_TOOLTIP;

746

SAS_POS_TEMP = SAS_POS;

747

SAS_OFFSET_TEMP = SAS_OFFSET;

748

end

749

750

function SASOptions_General_Warnings()

751

SAS_Saved[PlrName]["NoUIWarnings"] = not this:GetChecked();

752

end

753

754

function SASOptions_General_EmptyBars()

755

SAS_Saved[PlrName]["EmptyBars"] = not this:GetChecked();

756

SASActions_Display();

757

end

758

759

function SASOptions_General_EmptyButtons()

760

SAS_Saved[PlrName]["NoEmptyButtons"] = this:GetChecked();

761

SASActions_Display();

762

end

763

764

function SASOptions_General_FakeItemTooltips()

765

SAS_Saved[PlrName]["HideFakeItemTooltips"] = not this:GetChecked();

766

end

767

768

function SASOptions_General_AutoRestore()

769

SAS_Saved[PlrName]["AutoRestore"] = not this:GetChecked();

770

end

771

772

function SASOptions_General_AutoRestoreWarnings()

773

SAS_Saved[PlrName]["NoAutoRestoreWarnings"] = not this:GetChecked();

774

end

775

776

function SASOptions_Minimap_Show()

777

SAS_Saved[PlrName]["HideMinimapButton"] = not this:GetChecked();

778

if ( this:GetChecked() ) then

779

SASMinimapFrame:Show();

780

else

781

SASMinimapFrame:Hide();

end

end

function SASOptions_Minimap_Drag()

786

SAS_Saved[PlrName]["LockMinimapButton"] = this:GetChecked();

787

end

788

789

function SASOptions_Minimap_Defaults()

790

SAS_POS = SAS_POS_DEFAULT;

791

SAS_OFFSET = SAS_POS_DEFAULT;

792

SASMinimap_PosUpdate();

793

end

794

795

function SASOptions_Minimap_Undo()

796

SAS_POS = SAS_POS_TEMP;

797

SAS_OFFSET = SAS_OFFSET_TEMP;

798

SASMinimap_PosUpdate();

799

SASOptions_Update();

800

end

801

802

function SASOptions_Update()

803

if ( SAS_POS < 0 ) then SAS_POS = SAS_POS + 360; end

804

SASButtonPos:SetValue(SAS_POS);

805

SASButtonOffset:SetValue(SAS_OFFSET);

end

--------------------------------------

810

-- Warning and Save Frame Functions --

811

--------------------------------------

812

function SAS_Warning( type, func, value, force )

813

if ( SAS_Saved[PlrName]["NoUIWarnings"] and ( not force or SAS_Saved[PlrName]["NoAutoRestoreWarnings"] ) ) then

func(value);

else

if ( value ) then

SASWarningFrameText:SetText( string.gsub(getglobal("SAS_TEXT_WARNING_"..type), "%%s", value) );

818

else

819

SASWarningFrameText:SetText( getglobal("SAS_TEXT_WARNING_"..type ) );

820

end

821

SASWarningFrame.func = func;

822

SASWarningFrame.value = value

823

ShowUIPanel(SASWarningFrame);

end

end

function SASWarning_Okay()

828

SASWarningFrame.func(SASWarningFrame.value)

829

SASWarningFrame.func = nil;

830

SASWarningFrame.value = nil;

831

HideUIPanel(this:GetParent());

832

end

833

834

function SASSaveMenu_Save( set )

835

SASSaveMenuHelp.warned = nil

836

SASSaveMenuHelp:Hide();

837

SAS_SaveSet( set );

838

HideUIPanel( SASSaveMenu );

end

---------------------------------

843

-- Minimap Button functions --

844

---------------------------------

845

function SASMinimap_OnLoad()

846

-- Load and initialize Simple Action Sets

847

this:RegisterEvent("VARIABLES_LOADED");

848

this:RegisterForClicks("LeftButtonUp", "RightButtonUp");

849

this:RegisterForDrag("LeftButton", "RightButton");

850

851

tinsert(UISpecialFrames,"SASMain");

852

853

SlashCmdList["SAS"] = SAS_Console;

854

SLASH_SAS1 = "/sas";

855

end

856

857

function SASMinimap_OnEvent()

858

if( event == "VARIABLES_LOADED" ) then

859

this:RegisterEvent("ACTIONBAR_SHOWGRID");

860

this:RegisterEvent("ACTIONBAR_HIDEGRID");

861

this:RegisterEvent("UNIT_INVENTORY_CHANGED");

862

this:RegisterEvent("BAG_UPDATE");

863

this:RegisterEvent("PLAYER_LOGOUT");

864

865

SASMinimap_PosUpdate();

866

867

PlrName = UnitName("player").." - "..GetCVar("realmName");

868

869

SASFrame.PlrName = PlrName;

870

871

PlrClass, PlrClass = UnitClass("player");

872

873

if ( not SAS_Saved ) then

874

SAS_Saved = {};

875

end

876

if ( not SAS_Saved[PlrName] ) then

877

SAS_Saved[PlrName] = {};

878

SAS_Saved[PlrName]["s"] = {};

879

end

880

881

if ( SAS_Saved[PlrName]["sets"] ) then

SAS_UpgradeSets();

end

if ( SAS_Saved[PlrName]["HideMinimapButton"] ) then

886

SASMinimapFrame:Hide();

887

end

888

889

local currentset = SAS_GetCurrentSet();

890

local liveactions = SAS_IterateActions(1);

891

892

if ( SAS_Saved[PlrName]["AutoRestore"] and SAS_Saved["BackUp"] and SAS_Saved["BackUp"]["s"][PlrName] ) then

893

if ( SAS_CompareSet( liveactions, SAS_Saved["BackUp"]["s"][PlrName] ) ) then

894

SAS_Warning( "CHANGEDSINCELAST", SAS_RestoreBackUp, nil, 1 );

return;

end

end

if ( currentset ) then

899

if ( SAS_CompareSet( liveactions, SAS_Saved[PlrName]["s"][currentset] ) ) then

900

SASDebug( currentset.." does not appear to be loaded." );

901

SAS_SetCurrentSet();

902

else

903

SASDebug( currentset.." appears to be loaded, keeping as current set." );

904

end

905

end

906

elseif( event == "ACTIONBAR_SHOWGRID" ) then

907

if ( not SAS_SwappingSet ) then

908

SAS_IsValidAction = 1;

909

--SASDebug("Valid Item on Cursor");

910

end

911

elseif( event == "ACTIONBAR_HIDEGRID" ) then

912

if ( not SAS_SwappingSet ) then

913

SAS_IsValidAction = nil;

914

--SASDebug("No Valid Item on Cursor");

915

end

916

elseif ( event == "UNIT_INVENTORY_CHANGED" or event == "BAG_UPDATE" ) then

917

if ( arg1 == "player" or tonumber(arg1) ) then

918

SAS_FindMissingItems();

919

SASActions_Display();

920

end

921

elseif ( event == "PLAYER_LOGOUT" ) then

922

if ( not SAS_Saved["BackUp"] ) then

923

SAS_Saved["BackUp"] = {};

924

SAS_Saved["BackUp"]["s"] = {};

925

end

926

SAS_Saved["BackUp"]["s"][PlrName] = SAS_IterateActions();

end

end

function SASMinimap_OnClick( button )

931

-- Open up the main menu

932

SAS_SetsDropDown:Hide();

933

if ( button == "LeftButton" ) then

934

if ( this:GetScript("OnUpdate") ) then

935

SASMinimap_DragStop()

else

SASMain_Toggle();

end

else

if ( this:GetScript("OnUpdate")) then

941

SASMinimap_DragStop();

942

SAS_POS = SAS_POS_TEMP;

943

SASMinimap_PosUpdate();

944

else

945

SAS_SetsDropDown.point = "TOPRIGHT";

946

SAS_SetsDropDown.relativePoint = "BOTTOMLEFT";

947

ToggleDropDownMenu(1, nil, SAS_SetsDropDown, "SASMinimapButton", 0, 0);

end

end

end

-- Dragging functions for the minimap button position

953

function SASMinimap_DragStart()

954

if ( not SAS_Saved[PlrName]["LockMinimapButton"] ) then

955

SAS_POS_TEMP = SAS_POS;

956

this:SetScript("OnUpdate", SASMinimap_DragUpdate); --SASMinimapFrame.BeingDragged = true;

957

end

958

end

959

function SASMinimap_DragStop()

960

SASMinimapButton:UnlockHighlight()

961

this:SetScript("OnUpdate", nil); --SASMinimapFrame.BeingDragged = nil;

962

end

963

function SASMinimap_DragUpdate()

964

-- Thanks to Gello for making this a ton shorter

965

SASMinimapButton:LockHighlight();

966

local curX, curY = GetCursorPosition();

967

local mapX, mapY = Minimap:GetCenter();

968

SAS_POS = math.deg(math.atan2( curY - mapY * Minimap:GetEffectiveScale(), mapX * Minimap:GetEffectiveScale() - curX ));

969

SASMinimap_PosUpdate();

970

end

971

972

function SASMinimap_OnEnter()

973

if ( SAS_SetsDropDown:IsVisible() ) then return; end

974

GameTooltip:SetOwner(this, "ANCHOR_LEFT");

975

GameTooltip:AddLine("Simple Action Sets");

976

if ( SAS_Saved[PlrName]["LockMinimapButton"] ) then

977

GameTooltip:AddLine(" Minimap button is locked", 0.6, 0.6, 0.6);

978

elseif ( SASMinimapFrame.BeingDragged ) then

979

GameTooltip:AddLine(" Right click SAS button to reset", 0.7, 0.7, 0.7);

980

else

981

GameTooltip:AddLine(" Drag to reposition minimap button", 0.7, 0.7, 0.7);

982

end

983

GameTooltip:Show();

984

end

985

986

function SASMinimap_PosUpdate()

987

	SASMinimapFrame:SetPoint("TOPLEFT","Minimap","TOPLEFT",53-((80+SAS_OFFSET)*cos(SAS_POS or 0)),((80+SAS_OFFSET)*sin(SAS_POS or 0))-55);

988

SASOptions_Update();

989

end

990

991

function SASMinimap_SetsDropDown_Initialize()

992

-- Setup the minimap dropdown menu

local info = {};

local hasSets;

info.text = SAS_TEXT_DROPDOWN_TITLE;

997

info.isTitle = 1;

998

info.justifyH = "CENTER";

999

info.notCheckable = 1;

1000

UIDropDownMenu_AddButton(info);

1001

1002

SAS_SetsDropDown_Initialize();

1003

end

1004

1005

function SAS_SetsDropDown_Initialize()

local hasSets;

local info = {};

info.text = SAS_TEXT_DROPDOWN_OPEN;

1010

info.notCheckable = 1;

1011

info.func = SASMinimap_SetsDropDown_OnClick;

1012

UIDropDownMenu_AddButton(info);

1013

1014

info = {};

1015

info.text = SAS_TEXT_DROPDOWN_SAVENEW;

1016

info.notCheckable = 1;

1017

info.func = SASMinimap_SetsDropDown_OnClick;

1018

UIDropDownMenu_AddButton(info);

1019

1020

info = {};

1021

info.text = SAS_TEXT_DROPDOWN_SAVECURRENT;

1022

info.notCheckable = 1;

1023

if ( not SAS_GetCurrentSet() ) then

1024

info.disabled = 1;

1025

end

1026

info.func = SASMinimap_SetsDropDown_OnClick;

1027

UIDropDownMenu_AddButton(info);

1028

1029

info = {};

1030

info.text = SAS_TEXT_DROPDOWN_SETS;

1031

info.isTitle = 1;

1032

info.justifyH = "CENTER";

1033

info.notCheckable = 1;

1034

UIDropDownMenu_AddButton(info);

1035

if ( SAS_Saved and SAS_Saved[PlrName]["s"] ) then

1036

local list = {};

1037

for k, v in SAS_Saved[PlrName]["s"] do

tinsert(list,k);

end

table.sort(list);

for k, v in list do

1042

info = { };

1043

info.text = v;

1044

info.isTitle = nil;

1045

if ( SAS_GetCurrentSet() == v ) then

1046

info.checked = 1;

1047

end

1048

info.func = SASMinimap_SetsDropDown_OnClick;

1049

UIDropDownMenu_AddButton(info);

hasSets = 1;

end

end

if ( not hasSets ) then

1054

info = { };

1055

info.text = SAS_TEXT_DROPDOWN_NONE;

1056

info.disabled = 1;

1057

UIDropDownMenu_AddButton(info);

end

end

function SASMinimap_SetsDropDown_OnClick()

1062

-- minimap dropdown menu handler

1063

local id = this:GetID();

1064

if ( id == 2 ) then

1065

ShowUIPanel(SASMain);

1066

elseif ( id == 3 ) then

1067

SASActions_SaveNew();

1068

elseif ( id == 4 ) then

1069

SAS_Warning("SAVE", SAS_SaveSet, SAS_GetCurrentSet());

1070

elseif ( id > 5 ) then

1071

SASDebug( this:GetText() );

1072

SAS_SwapSet( this:GetText() );

end

end

function SASMinimap_SetsDropDown_OnLoad()

1077

UIDropDownMenu_Initialize(this, SASMinimap_SetsDropDown_Initialize, "MENU");

end

-------------------------

1082

-- Fake Drag functions --

1083

-------------------------

1084

function SASFakeDrag_Drop(clear)

1085

-- Pick up sas item

1086

SASFakeDragFrame:Hide();

1087

local focus = GetMouseFocus();

1088

local action = SASFakeDragFrame.Action;

1089

local bar = SASFakeDragFrame.Bar;

1090

if ( focus and not (focus.IsSASAction or focus.IsSASBar) or clear ) then

1091

if ( SASFakeDragFrame.Action ) then

1092

PlaySoundFile("Sound\\Interface\\uSpellIconDrop.wav");

1093

SASDebug("Dumping FakeDrag Action "..SAS_ParseActionInfo(SASFakeDragFrame.Action, 1));

1094

elseif ( SASFakeDragFrame.Bar ) then

1095

PlaySoundFile("Sound\\Interface\\uSpellIconDrop.wav");

1096

SASDebug("Dumping FakeDrag Bar");

1097

else

1098

--SASDebug("Dumping FakeDrag Action, no action");

1099

end

1100

SASFakeDragFrame.Action = nil;

1101

SASFakeDragFrame.Bar = nil;

1102

SASFakeDragFrame:SetScript("OnUpdate", nil);

1103

if ( SAS_DraggingBar ) then

1104

if ( SASActions:IsVisible() ) then

1105

SASActions_UpdateBar(SAS_DraggingBar);

1106

else

1107

SAS_DraggingBar = nil;

end

end

end

return action or bar;

1112

end

1113

1114

function SASFakeDrag_PickupAction(action)

1115

SASFakeDragFrame.Action = action;

1116

SASFakeDragFrame.Bar = nil;

1117

if ( action ) then

1118

local name, texture = SAS_ParseActionInfo( action );

1119

for i=1, 12 do

1120

getglobal( "SASFakeDragFrameIcon"..i ):SetTexture();

1121

end

1122

SASDebug("FakeDrag Pickup Action "..name);

1123

SASFakeDragFrame:Show();

1124

SASFakeDragFrameIcon:SetTexture( SAS_FullPath(texture) );

1125

SASFakeDragFrameIcon:SetAlpha( 0.5 );

1126

PlaySoundFile("Sound\\Interface\\uSpellIconPickup.wav");

1127

SASFakeDragFrame:SetScript("OnUpdate", SASFakeDrag_OnUpdate);

1128

else

1129

SASFakeDragFrame:Hide();

1130

SASFakeDragFrame:SetScript("OnUpdate", nil);

end

end

function SASFakeDrag_PickupBar(bar)

1135

SASFakeDragFrame.Bar = SAS_CopyTable(bar);

1136

SASFakeDragFrame.Action = nil;

1137

if ( bar ) then

1138

SASFakeDragFrameIcon:SetTexture();

1139

for i=1, 12 do

1140

local icon = getglobal( "SASFakeDragFrameIcon"..i );

1141

if ( bar[i] ) then

1142

local texture = SAS_ParseActionInfo( bar[i], 2 );

1143

icon:SetTexture( SAS_FullPath(texture) );

1144

icon:SetTexCoord( 0, 1, 0, 1 );

1145

else

1146

icon:SetTexture("Interface\\Buttons\\UI-Quickslot");

1147

icon:SetTexCoord( 0.1875, 0.8125, 0.1875, 0.8125 );

1148

end

1149

icon:SetAlpha( 0.5 );

1150

SASFakeDragFrame:Show();

1151

SASFakeDragFrame:SetScript("OnUpdate", SASFakeDrag_OnUpdate);

1152

end

1153

PlaySoundFile("Sound\\Interface\\uSpellIconPickup.wav");

1154

else

1155

SASFakeDragFrame:Hide();

1156

SASFakeDragFrame:SetScript("OnUpdate", nil);

end

end

function SASFakeDrag_OnUpdate()

1161

-- Update the position of the FakeDrag frame to under the cursor

1162

if ( (this.Action or this.Bar) and this:IsVisible() ) then

1163

if ( SASActions:IsVisible() ) then

1164

local curX, curY = GetCursorPosition();

1165

local scale = UIParent:GetScale();

1166

this:SetPoint("CENTER", "UIParent", "BOTTOMLEFT", curX/scale, curY/scale );

1167

else

1168

SASFakeDrag_Drop(1);

1169

this:SetScript("OnUpdate", nil);

1170

end

1171

else

1172

this:SetScript("OnUpdate", nil);

end

end

-------------------------

1178

-- Titan Panel Support --

1179

-------------------------

1180

function TitanPanelSASButton_OnLoad()

1181

this.registry = {

1182

id = SAS_TITAN_ID,

1183

menuText = "Simple Action Sets",

1184

buttonTextFunction = "TitanPanelSASButton_GetButtonText",

1185

tooltipTitle = SAS_TITLE,

1186

tooltipTextFunction = "TitanPanelSASButton_GetTooltipText",

1187

icon = "Interface\\AddOns\\SimpleActionSets\\sas",

1188

iconWidth = 16,

1189

savedVariables = {

1190

ShowLabelText = 1, -- Default to 1

1191

ShowIcon = 1;

1192

ShowColoredText = 1,

}

};

end

function TitanPanelSASButton_GetButtonText(id)

1198

-- If id not nil, return corresponding plugin button

1199

-- Otherwise return this button and derive the real id

1200

local button, id = TitanUtils_GetButton(id, true);

1201

1202

if ( SAS_GetCurrentSet() ) then

1203

if ( TitanGetVar(SAS_TITAN_ID, "ShowColoredText") ) then

1204

return SAS_TITAN_LABEL, TitanUtils_GetGreenText( SAS_GetCurrentSet() );

1205

else

1206

return SAS_TITAN_LABEL, TitanUtils_GetHighlightText( SAS_GetCurrentSet() );

1207

end

1208

else

1209

return SAS_TITAN_LABEL, TitanUtils_GetHighlightText( SAS_TITAN_NA );

end

end

function TitanPanelSASButton_GetTooltipText()

1214

return TitanUtils_GetGreenText(SAS_TITAN_HINT);

1215

end

1216

1217

function TitanPanelSAS_OnClick(button)

1218

if ( button == "LeftButton" ) then

SASMain_Toggle();

end

end

function TitanPanelRightClickMenu_PrepareSASMenu()

1224

TitanPanelRightClickMenu_AddTitle(TitanPlugins[SAS_TITAN_ID].menuText);

1225

1226

SAS_SetsDropDown_Initialize();

1227

1228

TitanPanelRightClickMenu_AddSpacer();

1229

TitanPanelRightClickMenu_AddToggleIcon(SAS_TITAN_ID);

1230

TitanPanelRightClickMenu_AddToggleLabelText(SAS_TITAN_ID);

1231

TitanPanelRightClickMenu_AddToggleColoredText(SAS_TITAN_ID);

1232

1233

TitanPanelRightClickMenu_AddSpacer();

1234

TitanPanelRightClickMenu_AddCommand(TITAN_PANEL_MENU_HIDE, SAS_TITAN_ID, TITAN_PANEL_MENU_FUNC_HIDE);

1235

end

1236

1237

function TitanPanelSAS_Update()

1238

if ( TitanPanelSASButton and TitanPanelButton_UpdateButton ) then

1239

TitanPanelButton_UpdateButton(SAS_TITAN_ID);

end

end

------------------------

1245

-- Reusable functions --

1246

------------------------

1247

1248

function SASPrint(msg)

1249

-- Basic print function

1250

if ( not msg ) then

1251

msg = "|wnil";

1252

end

1253

msg = string.gsub( msg, "%|w", "|cffff0000" );

1254

msg = string.gsub( msg, "%|i", "|cffe6e6fA" );

1255

DEFAULT_CHAT_FRAME:AddMessage( "<|cff40E0D0SAS|r> "..msg, 0.012, 0.658, 0.62 );

1256

--local cols = "|cff03A98E";

1257

end

1258

1259

function SASDebug(msg)

1260

-- Print when debug is turned on

1261

if ( SAS_Saved["debug"] ) then SASPrint("<|wDEBUG|r> "..msg); end

1262

end

1263

1264

function SASTooltipAddLine(msg)

1265

-- Adds a colored line to the tooltip

1266

GameTooltip:AddLine( msg, 0.012, 0.658, 0.62, 1, 1 );

1267

GameTooltip:Show();

1268

end

1269

1270

function SAS_ClearCursor()

1271

-- Clear the cursor of anything

1272

local i = 500

1273

while GetSpellName( i, BOOKTYPE_SPELL ) do

1274

i = i+1;

1275

end

1276

PickupSpell( i+1, BOOKTYPE_SPELL );

1277

end

1278

1279

function SAS_BuildActionInfo(...) -- name, texture, rank, link, macro, ?

1280

if ( arg[2] ) then arg[2] = tPath(arg[2]); end

1281

if ( arg[3] ) then arg[3] = tRank(arg[3]); end

1282

if ( arg[4] ) then arg[4] = tLink(arg[4]); end

1283

while not arg[arg.n] and arg.n > 1 do arg.n = arg.n - 1; end

1284

if ( arg.n < 2 ) then return; end

1285

local string = "";

1286

for i=1, arg.n do

1287

string = string..(arg[i] or "").."�";

end

return string;

end

function SAS_IncActionInfo( action, val, part )

1293

if ( not val ) then return;

1294

elseif ( not part ) then part = 1; end

1295

local a = {SAS_ParseActionInfo(action)};

1296

a[part] = val;

1297

1298

return SAS_BuildActionInfo( a[1], a[2], a[3], a[4], a[5], a[6] );

1299

end

1300

1301

function SAS_ParseActionInfo( action, ... )

1302

if not action then return; end

1303

if type(action)~="string" then return action; end

1304

local a = {};

1305

for val in string.gfind( action, "(.-)�" ) do

1306

tinsert( a, val );

1307

end

1308

for k, v in a do if v == "" then v = nil; end end

1309

if ( arg.n > 0 ) then

1310

local b = {};

1311

for i=1, arg.n do

1312

tinsert( b, a[arg[i]] );

end

return unpack(b);

else

return a[1], a[2], tonumber(a[3]), a[4], tonumber(a[5]), a[6]; --name, texture, rank, link, macro, ?;

end

end

function SAS_ItemLink( item )

1321

-- Return an item's link

1322

local itemLink = SAS_FindItem( item );

1323

if ( itemLink ) then

1324

return SAS_FindLink( itemLink );

1325

end

1326

end

1327

function SAS_FindLink( item )

1328

-- Find an item's link number from it's item link

1329

if ( item ) then

1330

for link in string.gfind( item, "(%d+:%d+:%d+:%d+)" ) do

1331

return tLink(link);

end

end

end

function SAS_ItemName( item )

1337

-- Return an item's name

1338

local itemName = SAS_FindItem( item );

1339

if ( itemName ) then

1340

return SAS_FindName( itemName );

1341

end

1342

end

1343

function SAS_FindName( item )

1344

-- Find an item's name from it's item link

1345

if ( item ) then

1346

for name in string.gfind( item, "%[(.+)%]") do

return name;

end

end

end

function SAS_FindItem( item )

1353

-- Iterate over items the player has and return it's link and location --

1354

if ( not item ) then return; end

1355

1356

item = tostring(item);

1357

1358

-- Iterate over bags

1359

for i=0, 4 do

1360

local bagSlots = GetContainerNumSlots(i);

1361

if ( bagSlots ) then

1362

for j=1, bagSlots do

1363

--SASDebug("Doing GetContainerItemLink() on "..i.." "..j);

1364

local itemLink = GetContainerItemLink(i,j);

1365

if ( itemLink ) then

1366

if ( item == SAS_FindLink( itemLink ) or item == SAS_FindName( itemLink ) ) then

1367

return itemLink, i, j;

end

end

end

end

end

-- Iterate over paper doll

1375

for i=0, 23 do

1376

--SASDebug("Doing GetInventoryItemLink() on "..i);

1377

local itemLink = GetInventoryItemLink("player",i);

1378

if ( itemLink ) then

1379

if ( itemLink ) then

1380

if ( item == SAS_FindLink( itemLink ) or item == SAS_FindName( itemLink ) ) then

1381

return itemLink, nil, nil, i;

end

end

end

end

end

function SAS_FindSpell( spell, rank )

1389

-- Iterate over spells the player has and return location

1390

if ( not spell ) then return; end

1391

local i = 1;

1392

local highest;

1393

local spellName, spellRank = GetSpellName( i, BOOKTYPE_SPELL );

1394

--if ( any and PlrClass == "WARRIOR" and PlrClass == "ROGUE" ) then

1395

-- rank = nil;

1396

--end

1397

local name, texture, offset, numSpells = nil, nil, 0, 0;

1398

--if ( not strict and PlrClass == "DRUID" and GetNumSpellTabs() == 4 ) then

1399

-- name, texture, offset, numSpells = GetSpellTabInfo(3)

1400

-- numSpells = numSpells+offset;

1401

--end

1402

while spellName do

1403

if ( spellName == spell ) then

1404

highest = i;

1405

if ( rank ) then

1406

if ( tRank(spellRank) == tonumber(rank) ) then

return i;

end

else

return i;

end

end

i = i+1;

spellName, spellRank = GetSpellName( i, BOOKTYPE_SPELL );

1415

end

1416

1417

return nil, highest;

1418

end

1419

1420

function SAS_FindMacro( name, texture, macro )

1421

-- Check saved macro id

1422

local macroName, macroTexture, bestguess;

1423

if ( macro ) then

1424

macroName, macroTexture = GetMacroInfo(macro);

1425

if ( macroName == name ) then

1426

if ( texture and macroTexture == texture ) then

return macro;

end

bestguess = macro;

end

end

-- If no direct match, iterate over macros and return matching index

1434

local numAccountMacros, numCharacterMacros = GetNumMacros();

1435

numCharacterMacros = numCharacterMacros + 18;

1436

for i=1, 36 do

1437

if ( i > numAccountMacros and i < 19 ) then

1438

-- no more global macros, skip to local

1439

i = 19;

1440

end

1441

if ( i > numCharacterMacros ) then

-- no more macros

break;

end

macroName, macroTexture = GetMacroInfo(i)

1446

if ( macroName and macroName == name ) then

1447

if ( texture and macroTexture == texture ) then

return i;

end

bestguess = i;

end

end

return bestguess;

end

function SAS_GetActionInfo( id, quick )

1458

-- Scans an action button to attempt to determine if it's a spell, macro, or item

1459

if ( HasAction(id) ) then

1460

SASToolTip:SetAction(id);

1461

local name = SASToolTipTextLeft1:GetText();

1462

local rank, macro, link;

1463

local texture = GetActionTexture(id);

1464

1465

local count = GetActionCount(id);

1466

1467

if ( name and name ~= "" ) then

1468

if ( SASToolTipTextRight1:IsShown() ) then

1469

rank = tRank(SASToolTipTextRight1:GetText())

1470

end

1471

1472

local spellNum = SAS_FindSpell( name, rank );

1473

if ( spellNum ) then

1474

-- is ActionButton a spell

1475

texture = GetSpellTexture( spellNum, BOOKTYPE_SPELL ); -- auras don't have correct texture on action bar

1476

elseif ( GetActionText(id) ) then

1477

-- is ActionButton a macro

1478

macro = GetMacroIndexByName(name); -- will find first macro with name by creation date

1479

else

1480

-- is ActionButton an item

1481

if ( quick ) then -- avoid slow item check

1482

link = "?";

1483

else

1484

if ( count > 0 ) then

1485

link = SAS_ItemLink( name );

1486

if ( not link ) then SASDebug("|wItem "..name.." on action button "..id.." not found."); end

1487

else

1488

SASDebug("|wItem "..name.." on action button "..id.." is an item not on this character.");

1489

link = SAS_CheckItemDBs( name );

end

end

end

return name, texture, rank, link, macro; --{ name, rank, macro, link, texture };

1495

1496

elseif ( SAS_Saved[PlrName]["MissingItems"] and SAS_Saved[PlrName]["MissingItems"][id] ) then

1497

name, texture, rank, link = SAS_ParseActionInfo(SAS_Saved[PlrName]["MissingItems"][id]);

1498

if ( link == "?" ) then

1499

link = SAS_CheckItemDBs(name);

1500

end

1501

return name, texture, rank, link, macro;

1502

else

1503

SASDebug("|wAction "..id.." HasAction() but doesn't have anything in it.");

end

end

end

function SAS_IterateActions( quick )

1509

-- Iterate over all current actions

1510

local actionlist = {};

1511

for i=0, 9 do

1512

actionlist[i] = {};

1513

for j=1, 12 do

1514

			actionlist[i][j] = SAS_BuildActionInfo( SAS_GetActionInfo( j+(i*12), quick ) ); --action[1], action[2], action[3], action[4], action[5] );

end

end

return actionlist;

end

function SAS_SetTooltip( bar, id )

1522

-- Sets the Tooltip for the found action

1523

if ( not bar or not id ) then return; end

1524

1525

if ( SAS_Temp[bar][id] ) then

1526

		local name, texture, rank, link, macro = SAS_ParseActionInfo( SAS_Temp[bar][id] ); --SAS_Temp[bar][id][1], SAS_Temp[bar][id][2], SAS_Temp[bar][id][3], SAS_Temp[bar][id][4], SAS_Temp[bar][id][5];

1527

texture = SAS_FullPath(texture);

1528

local TooltipReturn;

1529

-- is a macro

1530

if ( macro ) then

1531

TooltipReturn = GameTooltip:SetText( name, 1, 1, 1 );

1532

local macroName,macroTexture,macroText = GetMacroInfo( SAS_FindMacro(name, texture, macro) );

1533

if ( macroText ) then

1534

GameTooltip:AddLine( macroText, 0.75, 0.75, 0.75, 1, 1 );

1535

GameTooltip:Show();

1536

else

1537

SASTooltipAddLine( SAS_TEXT_TOOLTIP_NOMACRO );

1538

end

1539

-- is an item

1540

elseif ( link ) then

1541

local itemLink;

1542

SASDebug("SAS_SetTooltip - link = "..link);

1543

if ( link == "?" or link == "1" ) then

1544

itemLink = SAS_FindItem( name );

1545

if ( itemLink ) then

1546

link = SAS_FindLink(itemLink);

else

link = nil;

end

else

itemLink = SAS_FindItem( link );

1552

end

1553

if ( link and GetItemInfo("item:"..link) ) then

1554

TooltipReturn = GameTooltip:SetHyperlink("item:"..link);

1555

if ( not itemLink ) then

1556

SASTooltipAddLine( SAS_TEXT_TOOLTIP_NOTHAVE );

1557

end

1558

else

1559

TooltipReturn = GameTooltip:SetText( name, 1, 1, 1 );

1560

SASTooltipAddLine( SAS_TEXT_TOOLTIP_NOTVALID );

end

-- is a spell

else

local spellNum, highest = SAS_FindSpell( name, rank );

1565

if ( spellNum ) then

1566

TooltipReturn = GameTooltip:SetSpell( spellNum, BOOKTYPE_SPELL );

1567

if ( rank ) then

1568

local spellName, spellRank = GetSpellName( spellNum, BOOKTYPE_SPELL );

1569

GameTooltipTextRight1:SetText( spellRank );

1570

GameTooltipTextRight1:SetTextColor( 0.5, 0.5, 0.5 );

1571

GameTooltipTextRight1:Show();

1572

GameTooltip:Show();

1573

end

1574

elseif ( highest ) then

1575

local spellName, spellRank = GetSpellName( highest, BOOKTYPE_SPELL );

1576

local string = string.gsub( SAS_TEXT_TOOLTIP_NOSPELLRANK, "%%r", rank );

1577

TooltipReturn = GameTooltip:SetSpell( highest, BOOKTYPE_SPELL );

1578

if ( spellRank ) then

1579

GameTooltipTextRight1:SetText( spellRank );

1580

GameTooltipTextRight1:SetTextColor( 0.5, 0.5, 0.5 );

1581

GameTooltipTextRight1:Show();

1582

GameTooltip:Show();

1583

end

1584

SASTooltipAddLine( string );

1585

else

1586

TooltipReturn = GameTooltip:SetText( name, 1, 1, 1 );

1587

if ( rank ) then

1588

GameTooltipTextRight1:SetText( RANK.." "..rank );

1589

GameTooltipTextRight1:SetTextColor( 0.5, 0.5, 0.5 );

1590

GameTooltipTextRight1:Show();

1591

GameTooltip:Show();

1592

end

1593

SASTooltipAddLine( SAS_TEXT_TOOLTIP_NOSPELL );

end

end

if ( TooltipReturn ) then

1598

this.updateTooltip = TOOLTIP_UPDATE_TIME;

1599

else

1600

this.updateTooltip = nil;

end

end

end

function SAS_BarHasActions(bar, set)

1606

if ( not set ) then

1607

set = SAS_Temp;

1608

end

1609

if ( bar and set[bar] ) then

1610

for i=1, 12 do

1611

if ( set[bar][i] ) then

return 1;

end

end

end

end

function SAS_ClearSlot(id)

1619

-- Clear an action slot

1620

if ( HasAction(id) and not SAS_Saved[PlrName]["NoEmptyButtons"] ) then

PickupAction(id);

SAS_ClearCursor();

end

end

function SAS_MissingItem( id, itemInfo )

1627

-- Add to list of items to place on the bar when available.

1628

if ( id and itemInfo ) then

1629

if ( not SAS_Saved[PlrName]["MissingItems"] ) then

1630

SAS_Saved[PlrName]["MissingItems"] = {};

1631

end

1632

local missing = SAS_Saved[PlrName]["MissingItems"]

1633

if ( not missing[id] or SAS_ParseActionInfo(missing[id], 3) ~= itemInfo[3] ) then

1634

if ( not SAS_original_HasAction( id ) ) then

1635

i = 1;

1636

local passive = IsSpellPassive( i, BOOKTYPE_SPELL );

1637

while passive do

1638

i = i + 1;

1639

passive = IsSpellPassive( i, BOOKTYPE_SPELL );

1640

end

1641

PickupSpell( i, BOOKTYPE_SPELL );

1642

SAS_original_PickupAction( id );

1643

end

1644

			SAS_Saved[PlrName]["MissingItems"][id] = SAS_BuildActionInfo(itemInfo[1], itemInfo[2], nil, itemInfo[3], nil, nil, itemInfo[4]);

1645

SAS_original_PickupAction( id );

1646

SAS_ClearCursor();

1647

SASDebug( itemInfo[1] );

end

end

end

function SAS_ForceUpdate( id )

1653

if ( id and not SAS_original_HasAction( id ) ) then

1654

SASDebug( "force update on "..id );

1655

SAS_ToggleBarLocks();

1656

i = 1;

1657

--if ( not SAS_original_HasAction( id ) ) then

1658

local passive = IsSpellPassive( i, BOOKTYPE_SPELL );

1659

while passive do

1660

i = i + 1;

1661

passive = IsSpellPassive( i, BOOKTYPE_SPELL );

1662

end

1663

PickupSpell( i, BOOKTYPE_SPELL );

1664

SAS_original_PickupAction( id );

1665

--end

1666

SAS_original_PickupAction( id );

1667

SAS_ToggleBarLocks(1);

SAS_ClearCursor();

end

end

function SAS_FindMissingItems()

1673

-- Readd missing items to action bar

1674

if ( not SAS_Saved[PlrName]["MissingItems"] ) then return; end

1675

SAS_ToggleBarLocks();

1676

for id, itemInfo in SAS_Saved[PlrName]["MissingItems"] do

1677

SAS_PlaceItem( id, SAS_ParseActionInfo( itemInfo, 4, 1, 6 ) );

1678

end

1679

SAS_ToggleBarLocks(1);

1680

end

1681

1682

function SAS_GetMissingItemInfo( id )

1683

if ( id ) then

1684

if ( SAS_Saved and PlrName ) then

1685

if ( SAS_Saved[PlrName]["MissingItems"] and SAS_Saved[PlrName]["MissingItems"][id] ) then

1686

return SAS_Saved[PlrName]["MissingItems"][id];

end

end

end

end

function SAS_CheckItemDBs( name )

1693

-- check if there are any item db mods, get item link from that

1694

if ( ItemLinks ) then

1695

if ( ItemLinks[name] and ItemLinks[name]["i"] ) then

1696

SASDebug( "found "..name.." in LootLink db" );

1697

return tLink(ItemLinks[name]["i"]);

1698

end

1699

elseif ( IMDB ) then

1700

local realm = GetCVar("realmName");

1701

if ( IMDB[realm] and IMDB[realm][name] ) then

1702

for itemLink in string.gfind( IMDB[realm][name], "item(%d:%d:%d:%d)" ) do

1703

SASDebug( "found "..name.." in ItemSync db" );

1704

return tLink(itemLink);

1705

end

1706

elseif ( IMDB[name] ) then

1707

for itemLink in string.gfind( IMDB[name], "item(%d:%d:%d:%d)" ) do

1708

SASDebug( "found "..name.." in ItemSync db" );

1709

return tLink(itemLink);

end

end

end

SASDebug( "could not find "..name.." in either item dbs." );

return "?";

end

function SAS_PlaceItem( id, link, name, set )

1720

-- Place an item, update set link id if found

1721

local itemLink, bag, slot, inv;

1722

if ( link == "?" or link == "1" ) then

1723

itemLink, bag, slot, inv = SAS_CheckItem( name, id, set );

1724

else

1725

itemLink, bag, slot, inv = SAS_FindItem( link );

1726

end

1727

if ( bag ) then

1728

PickupContainerItem( bag, slot );

1729

PlaceAction(id);

1730

return 1;

1731

elseif ( inv ) then

1732

PickupInventoryItem( inv );

PlaceAction(id);

return 1;

end

end

function SAS_CheckItem( name, id, set )

1739

if ( name ) then

1740

itemLink, bag, slot, inv = SAS_FindItem( name );

1741

itemLink = SAS_FindLink(itemLink)

1742

if ( not itemLink ) then

1743

itemLink = SAS_CheckItemDBs( name );

1744

end

1745

if ( itemLink and itemLink ~= "?" and itemLink ~= "1" ) then

1746

local slot = math.mod( id, 12 );

1747

local bar = (id-slot) / 12;

1748

if ( SAS_Saved[PlrName]["s"][set] ) then

1749

local action = SAS_Saved[PlrName]["s"][set][bar][slot];

1750

local iname, ilink = SAS_ParseActionInfo(action, 1, 4);

1751

if ( iname ) then

1752

if ( iname == name and ilink and ilink == "?" ) then

1753

SASDebug( "Updating item in action #"..id.." in set "..set.." with itemLink." );

1754

SAS_Saved[PlrName]["s"][set][bar][slot] = SAS_IncActionInfo(action, itemLink, 4);

1755

else

1756

SASDebug( "|wAttempted to update itemLink in action #"..id.." but names are wrong?" );

end

end

end

end

end

return itemLink, bag, slot, inv;

1763

end

1764

1765

function SAS_ToggleBarLocks( on )

1766

-- disable locking on bar mods that hook PickupAction()

1767

for k, v in barmods do

1768

if ( getglobal(v[1]) ) then

1769

if ( on ) then

1770

setglobal(v[1], v[3])

1771

else

1772

v[3] = getglobal(v[1]);

1773

setglobal(v[1], v[2]);

end

end

end

end

function SAS_SwapSet( set, player )

1780

-- Swaps a saved set to the player's real action bars.

1781

if ( not player ) then

1782

SASDebug( "SAS_SwapSet - No player name specified, using "..PlrName );

player = PlrName;

end

local actions;

if ( set ) then

SASDebug(" SAS_SwapSet - about to do copy table on SAS_Saved["..player.."][sets]["..set.."]" );

1789

actions = SAS_CopyTable( SAS_Saved[player]["s"][set] );

1790

elseif ( SASMain:IsVisible() ) then

1791

SASDebug(" SAS_SwapSet - about to do copy table on SAS_Temp" );

1792

actions = SAS_CopyTable( SAS_Temp );

else

return;

end

if ( not actions ) then

1798

SASDebug("|wNo actions to change to.");

return;

end

SAS_SwappingSet = true;

1803

if ( player == PlrName ) then

1804

SAS_SetCurrentSet( set );

1805

end

1806

SAS_ToggleBarLocks();

1807

SAS_ClearCursor();

1808

for i = 0, 9 do

1809

		if ( SAS_BarEnabled(i,actions) and not ( not SAS_BarHasActions(i, actions) and not SAS_Saved[PlrName]["EmptyBars"] ) ) then

1810

SASDebug("Bar "..(i+1).." is enabled");

1811

for j = 1, 12 do

1812

local id = j + i*12;

1813

local msg = "Action "..id;

1814

if ( actions[i][j] ) then

1815

local ename, etexture, erank, elink, emacro = SAS_GetActionInfo(id, 1);

1816

					local name, texture, rank, link, macro = SAS_ParseActionInfo( actions[i][j] ); --actions[i][j][1], actions[i][j][2], actions[i][j][3], actions[i][j][4], actions[i][j][5];

1817

if ( (name == ename and (( rank == erank ) or ( macro and emacro ) or ( link and elink ))) ) then

1818

msg = msg.." is the same as the one trying to be swapped.";

1819

else

1820

if ( macro ) then

1821

msg = msg.." is a macro.";

1822

local macroID = SAS_FindMacro( name, texture, macro )

1823

if ( macroID ) then

1824

PickupMacro( macroID );

1825

PlaceAction(id);

1826

else

1827

msg = msg.." |wCouldn't find macro."

1828

SAS_ClearSlot(id);

1829

end

1830

elseif ( link ) then

1831

msg = msg.." is an item.";

1832

if ( not SAS_PlaceItem( id, link, name, set ) ) then

1833

msg = msg.." |wCouldn't find item."

1834

SAS_MissingItem( id, {name, texture, link, set} );

1835

end

1836

elseif ( name ) then

1837

msg = msg.." is a spell.";

1838

local spellNum, highest = SAS_FindSpell( name, rank );

1839

if ( spellNum ) then

1840

PickupSpell( spellNum, BOOKTYPE_SPELL );

1841

PlaceAction(id);

1842

elseif ( highest ) then

1843

local spellName, spellRank = GetSpellName( highest, BOOKTYPE_SPELL );

1844

if ( rank ~= spellRank ) then

1845

msg = msg.." Can't find rank, using highest found instead.";

1846

PickupSpell( highest, BOOKTYPE_SPELL );

1847

PlaceAction(id);

1848

else

1849

msg = msg.." Action is highest rank found, won't swap.";

1850

end

1851

else

1852

msg = msg.." |wCoulnd't find spell."

SAS_ClearSlot(id);

end

else

msg = msg.." is has no name, link, macro?";

end

end

SAS_ClearCursor();

elseif ( not SAS_Saved[PlrName]["NoEmptyButtons"] ) then

1862

msg = msg.." is empty.";

SAS_ClearSlot(id);

end

SASDebug(msg);

end

elseif ( not SAS_BarEnabled(i,actions) ) then

1868

SASDebug("Bar "..(i+1).." not enabled, skipping");

1869

else

1870

SASDebug("Bar "..(i+1).." has no actions, skipping");

end

end

SAS_ClearCursor();

SAS_ToggleBarLocks(1);

1875

1876

SAS_SwappingSet = nil;

1877

TitanPanelSAS_Update();

1878

end

1879

1880

function SAS_CopyTable(copyTable)

1881

-- properly copies a table instead of referencing the same table, thanks Sallust.

1882

if ( not copyTable ) then return; end

1883

local returnTable = {};

1884

for k, v in copyTable do

1885

if type(v) == "table" then

1886

returnTable[k] = SAS_CopyTable(v);

1887

else

1888

returnTable[k] = v;

1889

end

1890

end

1891

return returnTable;

1892

end

1893

1894

function SAS_SetExists( set )

1895

-- Check to see if the set already exists

1896

if SAS_Saved[PlrName]["s"][set] then

return true;

end

end

function SAS_SaveSet(set)

1902

-- Save a set

1903

if ( not set ) then

1904

if ( SAS_GetCurrentSet() ) then

1905

set = SAS_GetCurrentSet();

else

return;

end

end

local actions;

if ( SASMain:IsVisible() and SAS_Temp ) then

1912

actions = SAS_CopyTable(SAS_Temp);

1913

else

1914

actions = SAS_IterateActions();

1915

end

1916

SASPrint(SAS_TEXT_SAVING..set);

1917

SAS_Saved[PlrName]["s"][set] = SAS_CopyTable(actions);

1918

SASActions_Load( set );

1919

end

1920

1921

function SAS_Delete(set)

1922

-- Delete a set

1923

SASDebug(SAS_TEXT_DELETING..set);

1924

SAS_Saved[PlrName]["s"][set] = nil;

1925

if ( SAS_GetCurrentSet() == set ) then

1926

SAS_SetCurrentSet();

end

SASActions_Load();

end

function SAS_SetCurrentSet( set )

1932

SAS_Saved[PlrName]["CurrentSet"] = set;

1933

end

1934

1935

function SAS_GetCurrentSet()

1936

if ( SAS_Saved and PlrName ) then

1937

return SAS_Saved[PlrName]["CurrentSet"];

end

end

function SASBackUp()

1942

SAS_BackUp = SAS_IterateActions();

1943

end

1944

1945

function SAS_RestoreBackUp()

1946

SAS_SwapSet( PlrName, "BackUp" );

1947

end

1948

1949

function SAS_Console( msg )

1950

if ( strlower(string.sub( msg, 1, 4 )) == "swap" ) then

1951

local set = string.sub( msg, 6 );

1952

if ( set and SAS_SetExists( set ) ) then

1953

SAS_SwapSet( set );

1954

else

1955

SASPrint( string.gsub(SAS_TEXT_CONSOLE_NOVALID, "%%s", set) );

1956

end

1957

elseif ( strlower(string.sub( msg, 1, 4 )) == "save" ) then

1958

local set = string.sub( msg, 6 );

1959

if ( set ) then

1960

if ( SAS_SetExists( set ) ) then

1961

else

1962

SAS_SaveSet( set );

1963

end

1964

end

1965

elseif ( strlower(string.sub( msg, 1, 5 )) == "debug" ) then

1966

SAS_Saved["debug"] = not SAS_Saved["debug"];

1967

elseif ( strlower(string.sub( msg, 1, 4 )) == "show" or msg == "" ) then

1968

SASMain_Toggle();

1969

else

1970

SASPrint( SAS_TEXT_CONSOLE_HELP );

1971

end

1972

end

1973

function tPath( texture )

1974

-- truncate icon's file path

1975

return string.gsub( texture, IconPath, "" );

1976

end

1977

1978

function SAS_FullPath( texture )

1979

-- add icon's file path back in

1980

if ( texture ) then return IconPath..texture; end

1981

end

1982

1983

function tRank( rank )

1984

-- truncate ranks to just numerical data

1985

if ( not rank ) then return; end

1986

for i in string.gfind( rank, "%d+" ) do return tonumber(i); end

1987

end

1988

1989

function tLink( itemLink )

1990

-- truncate item links to item ids

1991

if ( not itemLink ) then return; end

1992

for num in string.gfind( itemLink, "(%d+):0:0:0" ) do return num; end

return itemLink;

end

function SAS_TableNil(a)

if a then

for k, v in a do

return a;

end

end

end

local function actionComp( a, b )

2005

if a and b then

2006

local A = { SAS_ParseActionInfo( a ) };

2007

local B = { SAS_ParseActionInfo( b ) };

2008

for k, v in A do

2009

if ( k ~= 4 and (not B[k] or v ~= B[k]) ) then

2010

SASDebug( k.." "..v.." does not == "..B[k] );

return 1;

end

end

else

if ( a ) then

SASDebug( "no b" );

2017

elseif ( b ) then

2018

SASDebug( "no a" );

2019

else

2020

SASDebug( "no a or b" );

end

return 1;

end

end

function SAS_CompareSet( set1, set2, strict )

2027

-- Compare two sets to see if they're similar

2028

if ( not set1 or not set2 ) then

2029

if ( not set1 ) then

2030

SASDebug( "no set1" );

2031

elseif ( not set2 ) then

2032

SASDebug( "no set2" );

2033

else

2034

SASDebug( "no set1 or set2" );

end

return 1;

end

for i=0, 9 do

if ( set1[i] ) then

2041

if ( strict == 2 ) then

2042

if ( set1[i][0] ~= set2[i][0] ) then

return 1;

end

end

for j=1, 12 do

if ( set1[i][j] ) then

2048

if ( actionComp( set1[i][j], set2[i][j] ) ) then

2049

SASDebug( "returning at "..i.." "..j );

2050

return 1;

2051

end

2052

elseif ( strict and set2[i][j] ) then

2053

SASDebug( "strict returning at "..i.." "..j.." no set1 but set2" );

return 1;

end

end

elseif ( strict and set2[i] ) then

2058

SASDebug( "strict returning at "..i.." no set1 but set2" );

return 1;

end

end

end

function SAS_UpgradeSets()

2065

-- Move action set data from 0.373 and prior versions to 0.4+

2066

for p, v in SAS_Saved do

2067

if ( v["sets"] ) then

2068

SASPrint( "Doing upgrade on "..p.."'s sets" );

2069

v["s"] = {};

2070

for s, k in v["sets"] do

v["s"][s] = {};

for i=0, 9 do

v["s"][s][i] = {};

if ( not k[i]["enable"] ) then

2075

v["s"][s][i] = {[0] = 1};

2076

end

2077

for j=1, 12 do

2078

local a = SAS_TableNil(SAS_CopyTable(k[i][j]));

2079

if ( a ) then

2080

v["s"][s][i][j] = SAS_BuildActionInfo(a[1],a[5],a[2],a[4],a[3]);

end

end

end

end

v["sets"] = nil; -- delete old set data!!

end

end

end

-- Unused code

--[[ unneeded delay code - save for later

2094

function SAS_MissingItem( id, itemInfo )

2095

-- Add to list of items to place on the bar when available.

2096

if ( id ) then

2097

if ( not SAS_Saved[PlrName]["MissingItems"] ) then

2098

SAS_Saved[PlrName]["MissingItems"] = {};

2099

end

2100

SAS_Saved[PlrName]["MissingItems"][id] = itemInfo;

2101

SAS_ForceUpdate( id );

end

end]]

--[[function SAS_ForceUpdate( id )

2106

-- Force an update event for an action

2107

tinsert( SAS_ForceUpdateList, id );

2108

SASFrame:SetScript( "OnUpdate", SAS_Delayed_OnUpdate );

2109

end

2110

2111

function SAS_Delayed_OnUpdate()

2112

local id = SAS_ForceUpdateList[1];

2113

if ( id and not SAS_original_HasAction( id ) ) then

2114

local itemInfo = SAS_GetMissingItemInfo( id );

2115

i = 1;

2116

local passive = IsSpellPassive( i, BOOKTYPE_SPELL );

2117

while passive do

2118

i = i + 1;

2119

passive = IsSpellPassive( i, BOOKTYPE_SPELL );

2120

end

2121

PickupSpell( i, BOOKTYPE_SPELL );

2122

SAS_original_PickupAction( id );

2123

SAS_Saved[PlrName]["MissingItems"][id] = itemInfo;

2124

SAS_original_PickupAction( id );

2125

SAS_ClearCursor();

2126

tremove( SAS_ForceUpdateList, 1 );

2127

else

2128

SASFrame:SetScript( "OnUpdate", nil );

end

end]]

--[[ attempt to unquely identify macros

2133

function SAS_CreateUniqueMacros()

2134

local function iterateMacros()

2135

local all, numglobal, numlocal = {}, GetNumMacros();

2136

numlocal = numlocal + 18;

2137

for i=1, 36 do

2138

if ( i > numglobal and i < 19 ) then

2139

-- no more global macros, skip to local

2140

i = 19;

2141

end

2142

if ( i > numlocal ) then

-- no more macros

return;

end

local name = GetMacroInfo(i);

2147

if ( name ) then

2148

if ( all[name] ) then

2149

all[name] = all[name] + 1;

2150

EditMacro(i, name.."�");

2151

return iterateMacros();

else

all[name] = 0;

end

end

end

end

iterateMacros();

end

function SAS_StripUniqueMacros()

2162

for i=1, 36 do

2163

local name = GetMacroInfo(i);

2164

if ( name ) then

2165

EditMacro(i, SAS_StripUniqueMacroName(name));

end

end

end

function SAS_StripUniqueMacroName(name)

2171

return string.gsub(name, "(.-)�+", "%1");

2172

end]]

vanilla-wow-addons – Blame information for rev 1