SHARE
TWEET

Untitled

a guest May 19th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {==============================================================================\
  2. |                         MSI Group Scripting Include                          |
  3. |                                 RunMe.scar                                   |
  4. |==============================================================================|
  5. | For the script User to just simply press play                                |
  6. |                                                                              |
  7. |==============================================================================|
  8. |                         ** Setup Instructions **                             |
  9. |==============================================================================|
  10. |                                                                              |
  11. | -> Valid arguments for PlayerSkills[i]:                                      |
  12. |    - [SKILL_WOODCUTTING]                                                     |
  13. |                                                                              |
  14. | -> Valid arguments for PlayerObjects[i]:                                     |
  15. |    - For banking:                                                            |
  16. |      - [[OBJ_TREE_NORMAL]]                                                   |
  17. |                                                                              |
  18. |    - For power skilling (order doesn't matter and it can be in any           |
  19. |      combination you wish:                                                   |
  20. |      - [[OBJ_TREE_NORMAL, OBJ_TREE_OAK, OBJ_TREE_WILLOW, OBJ_TREE_MAPLE,     |
  21. |          OBJ_TREE_YEW]]                                                      |
  22. |                                                                              |
  23. | -> Valid arguments for Integers[P_CITY]:                                     |
  24. |    - if power skilling, any city is fine                                     |
  25. |    - CITY_VARROCK                                                            |
  26. |                                                                              |
  27. | -> Valid arguments for Integers[P_LOC]:                                      |
  28. |    - For banking:                                                            |
  29. |      - LOC_VE_BANK                                                           |
  30. |      - LOC_VE_TREES                                                          |
  31. |                                                                              |
  32. |    - For power skilling:                                                     |
  33. |      - LOC_POWER_SKILL                                                       |
  34. |                                                                              |
  35. | -> Valid arguments for Booleans[P_BANK]:                                     |
  36. |    - For banking:                                                            |
  37. |      - True                                                                  |
  38. |                                                                              |
  39. |    - For power skilling:                                                     |
  40. |      - False                                                                 |
  41.  \_____________________________________________________________________________}
  42.  
  43. program MSIScript;
  44. //{$DEFINE REFLECTION} // Comment out if you don't want to use reflection walking
  45. {.include SRL/SRL/MSI/Setup.scar}
  46.  
  47. const
  48.   BREAK_AFTER = 5;  // Loads to break after/switching players after
  49.   BREAK_TIME  = 3; // How long to break for in minutes (for single player only, multiplayer will switch players)
  50.  
  51.   WORLD_SMART   = 152;
  52.   WORLD_MEMBERS = False;
  53.  
  54. procedure DeclarePlayers;
  55. var
  56.   i, j: Integer;
  57. begin
  58.   HowManyPlayers := 8;
  59.   NumberOfPlayers(HowManyPlayers);
  60.   CurrentPlayer := 0;
  61.   CurrentSkill := 0;
  62.   SetLength(ProgressReportArray, HowManyPlayers);
  63.   SetLength(PlayerSkills, HowManyPlayers);
  64.   SetLength(PlayerObjects, HowManyPlayers);
  65.  
  66.   with Players[0] do
  67.   begin
  68.     Name   := 'empty cohen';
  69.     Pass   := 'jackaster';
  70.     Nick   := 'ohe';
  71.     Active := True;
  72.     Pin    := '';
  73.     PlayerSkills[0]  := [SKILL_WOODCUTTING];
  74.     PlayerObjects[0] := [[OBJ_TREE_WILLOW]];
  75.     Integers[P_CITY] := CITY_VARROCK;
  76.     Integers[P_LOC]  := LOC_POWER_SKILL;
  77.     Booleans[P_BANK] := False;
  78.   end;
  79.  
  80.   with Players[1] do
  81.   begin
  82.     Name   := 'troll cohen';
  83.     Pass   := 'jackaster';
  84.     Nick   := 'ohe';
  85.     Active := True;
  86.     Pin    := '';
  87.     PlayerSkills[1]  := [SKILL_WOODCUTTING];
  88.     PlayerObjects[1] := [[OBJ_TREE_WILLOW]];
  89.     Integers[P_CITY] := CITY_VARROCK;
  90.     Integers[P_LOC]  := LOC_POWER_SKILL;
  91.     Booleans[P_BANK] := False;
  92.   end;
  93.  
  94.   with Players[2] do
  95.   begin
  96.     Name   := 'cohen gorak';
  97.     Pass   := 'jackaster';
  98.     Nick   := 'ohe';
  99.     Active := True;
  100.     Pin    := '';
  101.     PlayerSkills[2]  := [SKILL_WOODCUTTING];
  102.     PlayerObjects[2] := [[OBJ_TREE_WILLOW]];
  103.     Integers[P_CITY] := CITY_VARROCK;
  104.     Integers[P_LOC]  := LOC_POWER_SKILL;
  105.     Booleans[P_BANK] := False;
  106.   end;
  107.  
  108.   with Players[3] do
  109.   begin
  110.     Name   := 'honour cohen';
  111.     Pass   := 'jackaster';
  112.     Nick   := 'ohe';
  113.     Active := True;
  114.     Pin    := '';
  115.     PlayerSkills[3]  := [SKILL_WOODCUTTING];
  116.     PlayerObjects[3] := [[OBJ_TREE_WILLOW]];
  117.     Integers[P_CITY] := CITY_VARROCK;
  118.     Integers[P_LOC]  := LOC_POWER_SKILL;
  119.     Booleans[P_BANK] := False;
  120.   end;
  121.  
  122.   with Players[4] do
  123.   begin
  124.     Name   := 'broddi cohen';
  125.     Pass   := 'jackaster';
  126.     Nick   := 'ohe';
  127.     Active := True;
  128.     Pin    := '';
  129.     PlayerSkills[4]  := [SKILL_WOODCUTTING];
  130.     PlayerObjects[4] := [[OBJ_TREE_WILLOW]];
  131.     Integers[P_CITY] := CITY_VARROCK;
  132.     Integers[P_LOC]  := LOC_POWER_SKILL;
  133.     Booleans[P_BANK] := False;
  134.   end;
  135.  
  136.   with Players[5] do
  137.   begin
  138.     Name   := 'cohen abyss';
  139.     Pass   := 'jackaster';
  140.     Nick   := 'ohe';
  141.     Active := True;
  142.     Pin    := '';
  143.     PlayerSkills[5]  := [SKILL_WOODCUTTING];
  144.     PlayerObjects[5] := [[OBJ_TREE_WILLOW]];
  145.     Integers[P_CITY] := CITY_VARROCK;
  146.     Integers[P_LOC]  := LOC_POWER_SKILL;
  147.     Booleans[P_BANK] := False;
  148.   end;
  149.  
  150.   with Players[6] do
  151.   begin
  152.     Name   := 'pirate cohen';
  153.     Pass   := 'jackaster';
  154.     Nick   := 'ohe';
  155.     Active := True;
  156.     Pin    := '';
  157.     PlayerSkills[6]  := [SKILL_WOODCUTTING];
  158.     PlayerObjects[6] := [[OBJ_TREE_WILLOW]];
  159.     Integers[P_CITY] := CITY_VARROCK;
  160.     Integers[P_LOC]  := LOC_POWER_SKILL;
  161.     Booleans[P_BANK] := False;
  162.   end;
  163.  
  164.   with Players[7] do
  165.   begin
  166.     Name   := 'run cohen';
  167.     Pass   := 'jackaster';
  168.     Nick   := 'ohe';
  169.     Active := True;
  170.     Pin    := '';
  171.     PlayerSkills[7]  := [SKILL_WOODCUTTING];
  172.     PlayerObjects[7] := [[OBJ_TREE_WILLOW]];
  173.     Integers[P_CITY] := CITY_VARROCK;
  174.     Integers[P_LOC]  := LOC_POWER_SKILL;
  175.     Booleans[P_BANK] := False;
  176.   end;
  177.  
  178.   for i := 0 to High(Players) do
  179.     with Players[i] do
  180.     begin
  181.       BoxRewards := ['amp', 'mote', 'ostume', 'oins', 'unes', 're', 'ems'];
  182.  
  183.       if (not Active) then
  184.         ProgressReportArray[i].FalseReason := 'User set to false';
  185.        
  186.       ProgressReportArray[i].PlayerName := Name;
  187.       ProgressReportArray[i].PlayerStatus := Active;
  188.       ProgressReportArray[i].PlayerCity := Integers[P_CITY];
  189.       ProgressReportArray[i].PlayerLoc := Integers[P_LOC];
  190.  
  191.       SetLength(ProgressReportArray[i].SkillInfo, Length(PlayerSkills[i]));
  192.       for j := 0 to High(PlayerSkills[i]) do
  193.       begin
  194.         SetLength(ProgressReportArray[i].SkillInfo[j].ObjQuants, Length(PlayerObjects[i][j]));
  195.         ProgressReportArray[i].SkillInfo[j].TotalObj := Length(PlayerObjects[i][j]);
  196.       end;
  197.     end;
  198. end;
  199.  
  200. begin
  201.   Smart_Server := WORLD_SMART;
  202.   Smart_Members := WORLD_MEMBERS;
  203.   Smart_Signed := True;
  204.   Smart_SuperDetail := False;
  205.  
  206.   SetupSRL;
  207.   SetupMSI;
  208.  
  209.   BreakAfter := BREAK_AFTER;
  210.   BreakTime := BREAK_TIME;
  211.  
  212.   DeclarePlayers;
  213.   MSI_Mainloop;
  214. end.
RAW Paste Data
Top