JJsGOP.simba

{*

JJ's Great Orb Project
Forum thread:       -
Development thread: https://villavu.com/forum/showthread.php?p=1332155
Creator:            https://villavu.com/forum/member.php?u=70743

Requirements:
- Properly installed Simba: https://villavu.com/forum/showthread.php?t=47714
- Screen size fixed, graphics lowest, interface 'Old School', Slim Headers enabled, 0% transparency, etc.
- Move the file great_orb_project.png to '/Simba/Includes/SPS/img/runescape_other'
- Make sure you have all extra required Simba files in the folder 'JJsGOP'
- You need 50 RuneCrafting to play the Great Orb Project minigame
- Start the script in the Great Orb Project hall, located on the 3rd floor of the Wizard Tower

*}

program JJsGOP;
{$DEFINE SMART}

{$i srl-6/srl.simba}
{$i sps/lib/sps-rs3.simba}

{$i JJsGOP/Data.simba}
{$i JJsGOP/Altars.simba}
{$i JJsGOP/Lobby.simba}
{$i JJsGOP/Positioning.simba}

// Setup
procedure setup();
begin
  // SRL
  smartEnableDrawing := true;
  clearDebug();
  setupSRL();

  // GOP
  loadData();
  setupSPS();

  //mainScreen.setAngle(MS_ANGLE_HIGH);

end;

procedure talk();
var
  text: String;
  boxes: TBoxArray;
begin

  writeln(conversationBox.getSpeaker);
  writeln(conversationBox.getChat);
  writeln(toStr(conversationBox.getOptions(boxes)));

end;

// Crafts rune at the current altar
procedure craftRunes();
var
  area: Integer;
begin
  area := getArea();
  writeln('Area: ' + IntToStr(area));

  if area >= 0 then
  begin
    // TODO: check if nearby altar
    walkToAltar(area);
    clickAltar(area);
  end;

end;

// Joins a team
procedure joinTeam();
begin
  joinWizard(_lobby.acantha);
  selectYes();
end;


// Mainloop
begin
  setup();

  //craftRunes();

  joinTeam();

end.