Guest User

Untitled

a guest
Jul 22nd, 2019
77
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     FUNC TOSANCTUM()
  2.         SLEEP(2000)
  3.         IF GETMAPID() = 431 THEN RETURN
  4.         RNDTRAVEL(431)
  5.         DO
  6.             SLEEP(250)
  7.         UNTIL GETMAPID() = 431
  8.         IF GETMAPID() <> 431 THEN
  9.             RNDTRAVEL(449)
  10.             WAITMAPLOADING(449)
  11.             LEAVEGROUP()
  12.             ADDNPC(3)
  13.             ADDNPC(4)
  14.             ADDNPC(1)
  15.             MOVETO(-9257.4, 16519)
  16.             MOVE(-9300, 16850)
  17.             SLEEP(2500)
  18.             WAITMAPLOADING(430)
  19.             MOVETO(18472, 1014)
  20.             MOVETO(16853, 1450)
  21.             MOVETO(14360, 1990)
  22.             MOVETO(11870, 2527)
  23.             MOVETO(9350, 2964)
  24.             MOVETO(6826, 3391)
  25.             MOVETO(4288, 3278)
  26.             MOVETO(1769, 2851)
  27.             MOVETO(-656, 2235)
  28.             MOVETO(-3101, 2810)
  29.             MOVETO(-3100, 4100)
  30.             WAITMAPLOADING(431)
  31.         ENDIF
  32.         $RUNDUK = GETNEARESTNPCTOCOORDS(-2866, 7093)
  33.         GOTONPC($RUNDUK)
  34.         DIALOG(132)
  35.         SLEEP(4000)
  36.         GONPC($RUNDUK)
  37.         SLEEP(4000)
  38.         ACCEPTQUEST(715)
  39.         SLEEP(5000)
  40.         GONPC($RUNDUK)
  41.         SLEEP(4000)
  42.         QUESTREWARD(715)
  43.         SLEEP(4000)
  44.         GONPC($RUNDUK)
  45.         SLEEP(4000)
  46.         ACCEPTQUEST(716)
  47.         SLEEP(5000)
  48.         GONPC($RUNDUK)
  49.         SLEEP(4000)
  50.         QUESTREWARD(716)
  51.         If $DoneSanctum = False Then set True
  52.         GUICtrlSetData($LevelCount,GetLevel())
  53.     ENDFUNC
RAW Paste Data