Jump to content

Recommended Posts

Posted

could someone make for me polish flag (white and red). I mean with ss no grade and b grade for exemple.

thepolandflag.jpg

 

Here it is :

//  __________________________________________________
//  0=Skip, 1=Adena, B=Blue(SSD), R=Red(SSB), G=Green(SSC)
//  W=White(SSNG), G=Grey(SSA), Y=Yellow(SS-S), *=CR/LF
//  __________________________________________________
//  Now you can do more than 40*40 pixels/boxes (drop grid)
//  Mover Function Added =)
//  __________________________________________________


DEFINE_GLOBAL INT Drop_Delay 1100    //Adena  Dropping Delay, Adjust up if misses
DEFINE_GLOBAL INT Move_Delay 1500    //Move Delay, adjust up if script misses after move

DEFINE String WordToDraw "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*"


DEFINE_GLOBAL INT LOOPER 1
DEFINE_GLOBAL INT BEGIN_DIST 0
DEFINE String CharToDraw "0"
DEFINE INT TextLength 0
DEFINE INT Current_X_Position 0
DEFINE INT Current_Y_Position 0
DEFINE INT Start_X_Position 0
DEFINE INT Start_Y_Position 0
DEFINE INT Start_Z_Position 0
DEFINE INT Counter 0
DEFINE INT LetterSpacing 2.5
DEFINE INT LineSpacing 2.5
DEFINE INT AdenaLetterSpacing 5
DEFINE INT AdenaLineSpacing 5
DEFINE INT Z_Add 0
DEFINE_GLOBAL INT Dummy 0
DEFINE INT ItemID 57
DEFINE INT AdenaUID 0
DEFINE INT NGSS_ID 0
DEFINE INT DSS_ID 0
DEFINE INT CSS_ID 0
DEFINE INT BSS_ID 0
DEFINE INT ASS_ID 0
DEFINE INT SGSS_ID 0
DEFINE INT NGSS_UID 0
DEFINE INT DSS_UID 0
DEFINE INT CSS_UID 0
DEFINE INT BSS_UID 0
DEFINE INT ASS_UID 0
DEFINE INT SGSS_UID 0
DEFINE_GLOBAL INT X 0
DEFINE_GLOBAL INT Y 0
DEFINE_GLOBAL INT Z 0
DEFINE_GLOBAL INT HowFar 0
DEFINE String Skip "0"
DEFINE String Draw "1"
DEFINE String DrawWhite "W"
DEFINE String DrawRed "R"
DEFINE String DrawBlue "B"
DEFINE String DrawGreen "G"
DEFINE String DrawYellow "Y"
DEFINE String DrawGrey "G"
DEFINE String CRLF "*"

ITEM_GET_ID NGSS_ID "Soulshot: No Grade"
ITEM_GET_ID DSS_ID "Soulshot: D-grade"
ITEM_GET_ID CSS_ID "Soulshot: C-grade"
ITEM_GET_ID BSS_ID "Soulshot: B-grade"
ITEM_GET_ID ASS_ID "Soulshot: A-grade"
ITEM_GET_ID SGSS_ID "Soulshot: S-grade"
INVEN_GET_UID AdenaUID "<&ItemID&>"
INVEN_GET_UID NGSS_UID "<&NGSS_ID&>"
INVEN_GET_UID DSS_UID "<&DSS_ID&>"
INVEN_GET_UID CSS_UID "<&CSS_ID&>"
INVEN_GET_UID BSS_UID "<&BSS_ID&>"
INVEN_GET_UID ASS_UID "<&ASS_ID&>"
INVEN_GET_UID SGSS_UID "<&SGSS_ID&>"

LABEL START

Current_X_Position = CHAR_X - #i105
Current_Y_Position = CHAR_Y - #i100
Start_X_Position = CHAR_X
Start_Y_Position = CHAR_Y
Start_Z_Position = CHAR_Z
TextLength = WordToDraw.LENGTH

SLEEP 1000

DO
    CharToDraw = WordToDraw.SUBSTRING Counter #i1
    SWITCH CharToDraw
        CASE Skip
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            BREAK 1
        CASE Draw
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            Callsub DropAdena
            BREAK 1
         CASE DrawWhite
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawRed
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawBlue
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGreen
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawYellow
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGrey
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1

        CASE CRLF
            IF CHAR_X != "#i<&Start_X_Position&>"
                IF CHAR_Y != "#i<&Start_Y_Position&>"
                    X = "#i<&Start_X_Position&>"
                    Y = "#i<&Start_Y_Position&>"
                    Z = "#i<&Start_Z_Position&>"
                    CALL MOVER VOID 3 X Y Z
                    SLEEP "<&Move_Delay&>"
                ENDIF
            ENDIF

            Current_Y_Position = Current_Y_Position + AdenaLineSpacing
            Current_X_Position = CHAR_X - #i105
    ENDSWITCH

    Counter = Counter + ONE

LOOP TextLength != Counter

PRINT_TEXT "DONE"

END_SCRIPT

SUB DropAdena

    DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
    Dummy = Current_X_Position - CHAR_X
    PRINT_TEXT "Distance <&Dummy&>"

    IF Dummy >= #i106
        X = "#i<&Current_X_Position&>"
        Y = "#i<&Current_Y_Position&>"
        Z = "#i<&Start_Z_Position&>"
        CALL MOVER VOID 3 X Y Z
    ENDIF

DROP_ITEM "<&AdenaUID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
    SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropWhite

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&NGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropRed

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&BSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropBlue

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&DSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGreen

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&CSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropYellow

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&SGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGrey

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&ASS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


FUNCTION MOVER 3 X Y Z

LOOPER = #i1

DISTANCE BEGIN_DIST X Y Z CHAR_X CHAR_Y CHAR_Z
PRINT_TEXT "Move Distance of <&BEGIN_DIST&>"

WHILE LOOPER == #i1
  MOVE_TO "<&X&>" "<&Y&>" "<&Z&>"
  SLEEP 2000
      IF CHAR_X == X
          IF CHAR_Y == Y
            LOOPER = #i0
        ENDIF
    ENDIF
WEND

SLEEP "<&Move_Delay&>"
RETURN VOID

 

[glow=red,2,300]Dont forget to say thx...[/glow]

Posted

So here is the EUROPE FLAG:

europeflag.jpg

 

//  __________________________________________________
//  0=Skip, 1=Adena, B=Blue(SSD), R=Red(SSB), G=Green(SSC)
//  W=White(SSNG), G=Grey(SSA), Y=Yellow(SS-S), *=CR/LF
//  __________________________________________________
//  Now you can do more than 40*40 pixels/boxes (drop grid)
//  Mover Function Added =)
//  __________________________________________________


DEFINE_GLOBAL INT Drop_Delay 1100    //Adena  Dropping Delay, Adjust up if misses
DEFINE_GLOBAL INT Move_Delay 1500    //Move Delay, adjust up if script misses after move

DEFINE String WordToDraw "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBYBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBYBBBYYBBBBYBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBYYBBBBBBBYYBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBYYBBBBBBBBBBBBBBBYYBBBBBBBBBBBB*BBBBBBBBBBBBBYYBBBBBBBBBBBBBBBYYBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBYYBBBBBBBBBBBBBBBBBYYBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBYYBBBBBBBBBBBBBBBYYBBBBBBBBBBBB*BBBBBBBBBBBBBYYBBBBBBBBBBBBBBBYYBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBYYBBBBBBBYYBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBYBBBYYBBBBYBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBYBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*"


DEFINE_GLOBAL INT LOOPER 1
DEFINE_GLOBAL INT BEGIN_DIST 0
DEFINE String CharToDraw "0"
DEFINE INT TextLength 0
DEFINE INT Current_X_Position 0
DEFINE INT Current_Y_Position 0
DEFINE INT Start_X_Position 0
DEFINE INT Start_Y_Position 0
DEFINE INT Start_Z_Position 0
DEFINE INT Counter 0
DEFINE INT LetterSpacing 2.5
DEFINE INT LineSpacing 2.5
DEFINE INT AdenaLetterSpacing 5
DEFINE INT AdenaLineSpacing 5
DEFINE INT Z_Add 0
DEFINE_GLOBAL INT Dummy 0
DEFINE INT ItemID 57
DEFINE INT AdenaUID 0
DEFINE INT NGSS_ID 0
DEFINE INT DSS_ID 0
DEFINE INT CSS_ID 0
DEFINE INT BSS_ID 0
DEFINE INT ASS_ID 0
DEFINE INT SGSS_ID 0
DEFINE INT NGSS_UID 0
DEFINE INT DSS_UID 0
DEFINE INT CSS_UID 0
DEFINE INT BSS_UID 0
DEFINE INT ASS_UID 0
DEFINE INT SGSS_UID 0
DEFINE_GLOBAL INT X 0
DEFINE_GLOBAL INT Y 0
DEFINE_GLOBAL INT Z 0
DEFINE_GLOBAL INT HowFar 0
DEFINE String Skip "0"
DEFINE String Draw "1"
DEFINE String DrawWhite "W"
DEFINE String DrawRed "R"
DEFINE String DrawBlue "B"
DEFINE String DrawGreen "G"
DEFINE String DrawYellow "Y"
DEFINE String DrawGrey "G"
DEFINE String CRLF "*"

ITEM_GET_ID NGSS_ID "Soulshot: No Grade"
ITEM_GET_ID DSS_ID "Soulshot: D-grade"
ITEM_GET_ID CSS_ID "Soulshot: C-grade"
ITEM_GET_ID BSS_ID "Soulshot: B-grade"
ITEM_GET_ID ASS_ID "Soulshot: A-grade"
ITEM_GET_ID SGSS_ID "Soulshot: S-grade"
INVEN_GET_UID AdenaUID "<&ItemID&>"
INVEN_GET_UID NGSS_UID "<&NGSS_ID&>"
INVEN_GET_UID DSS_UID "<&DSS_ID&>"
INVEN_GET_UID CSS_UID "<&CSS_ID&>"
INVEN_GET_UID BSS_UID "<&BSS_ID&>"
INVEN_GET_UID ASS_UID "<&ASS_ID&>"
INVEN_GET_UID SGSS_UID "<&SGSS_ID&>"

LABEL START

Current_X_Position = CHAR_X - #i105
Current_Y_Position = CHAR_Y - #i100
Start_X_Position = CHAR_X
Start_Y_Position = CHAR_Y
Start_Z_Position = CHAR_Z
TextLength = WordToDraw.LENGTH

SLEEP 1000

DO
    CharToDraw = WordToDraw.SUBSTRING Counter #i1
    SWITCH CharToDraw
        CASE Skip
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            BREAK 1
        CASE Draw
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            Callsub DropAdena
            BREAK 1
         CASE DrawWhite
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawRed
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawBlue
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGreen
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawYellow
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGrey
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1

        CASE CRLF
            IF CHAR_X != "#i<&Start_X_Position&>"
                IF CHAR_Y != "#i<&Start_Y_Position&>"
                    X = "#i<&Start_X_Position&>"
                    Y = "#i<&Start_Y_Position&>"
                    Z = "#i<&Start_Z_Position&>"
                    CALL MOVER VOID 3 X Y Z
                    SLEEP "<&Move_Delay&>"
                ENDIF
            ENDIF

            Current_Y_Position = Current_Y_Position + AdenaLineSpacing
            Current_X_Position = CHAR_X - #i105
    ENDSWITCH

    Counter = Counter + ONE

LOOP TextLength != Counter

PRINT_TEXT "DONE"

END_SCRIPT

SUB DropAdena

    DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
    Dummy = Current_X_Position - CHAR_X
    PRINT_TEXT "Distance <&Dummy&>"

    IF Dummy >= #i106
        X = "#i<&Current_X_Position&>"
        Y = "#i<&Current_Y_Position&>"
        Z = "#i<&Start_Z_Position&>"
        CALL MOVER VOID 3 X Y Z
    ENDIF

DROP_ITEM "<&AdenaUID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
    SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropWhite

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&NGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropRed

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&BSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropBlue

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&DSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGreen

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&CSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropYellow

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&SGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGrey

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&ASS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


FUNCTION MOVER 3 X Y Z

LOOPER = #i1

DISTANCE BEGIN_DIST X Y Z CHAR_X CHAR_Y CHAR_Z
PRINT_TEXT "Move Distance of <&BEGIN_DIST&>"

WHILE LOOPER == #i1
  MOVE_TO "<&X&>" "<&Y&>" "<&Z&>"
  SLEEP 2000
      IF CHAR_X == X
          IF CHAR_Y == Y
            LOOPER = #i0
        ENDIF
    ENDIF
WEND

SLEEP "<&Move_Delay&>"
RETURN VOID

[glow=red,2,300]Any other country's need the draw?...Post here, i will reply whit script.[/glow]

Posted

Btw GREAT;p

make also the Greek flag.;p

You request a Greek Flag?....???

HERE IT IS for all Greek's:

greekflagl2.jpg

 

Here is the code:

//  __________________________________________________
//  0=Skip, 1=Adena, B=Blue(SSD), R=Red(SSB), G=Green(SSC)
//  W=White(SSNG), G=Grey(SSA), Y=Yellow(SS-S), *=CR/LF
//  __________________________________________________
//  Now you can do more than 40*40 pixels/boxes (drop grid)
//  Mover Function Added =)
//  __________________________________________________


DEFINE_GLOBAL INT Drop_Delay 1100    //Adena  Dropping Delay, Adjust up if misses
DEFINE_GLOBAL INT Move_Delay 1500    //Move Delay, adjust up if script misses after move

DEFINE String WordToDraw "BBBBBBBWWWBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBWWWBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBWWWBBBBBBWWWWWWWWWWWWWWWWWWWWWWWWWWWW*BBBBBBBWWWBBBBBBWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWBBBBBBBBBBBBBBBBBBBBBBBBBBBB*WWWWWWWWWWWWWWWWBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBWWWBBBBBBWWWWWWWWWWWWWWWWWWWWWWWWWWWW*BBBBBBBWWWBBBBBBWWWWWWWWWWWWWWWWWWWWWWWWWWWW*BBBBBBBWWWBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB*"


DEFINE_GLOBAL INT LOOPER 1
DEFINE_GLOBAL INT BEGIN_DIST 0
DEFINE String CharToDraw "0"
DEFINE INT TextLength 0
DEFINE INT Current_X_Position 0
DEFINE INT Current_Y_Position 0
DEFINE INT Start_X_Position 0
DEFINE INT Start_Y_Position 0
DEFINE INT Start_Z_Position 0
DEFINE INT Counter 0
DEFINE INT LetterSpacing 2.5
DEFINE INT LineSpacing 2.5
DEFINE INT AdenaLetterSpacing 5
DEFINE INT AdenaLineSpacing 5
DEFINE INT Z_Add 0
DEFINE_GLOBAL INT Dummy 0
DEFINE INT ItemID 57
DEFINE INT AdenaUID 0
DEFINE INT NGSS_ID 0
DEFINE INT DSS_ID 0
DEFINE INT CSS_ID 0
DEFINE INT BSS_ID 0
DEFINE INT ASS_ID 0
DEFINE INT SGSS_ID 0
DEFINE INT NGSS_UID 0
DEFINE INT DSS_UID 0
DEFINE INT CSS_UID 0
DEFINE INT BSS_UID 0
DEFINE INT ASS_UID 0
DEFINE INT SGSS_UID 0
DEFINE_GLOBAL INT X 0
DEFINE_GLOBAL INT Y 0
DEFINE_GLOBAL INT Z 0
DEFINE_GLOBAL INT HowFar 0
DEFINE String Skip "0"
DEFINE String Draw "1"
DEFINE String DrawWhite "W"
DEFINE String DrawRed "R"
DEFINE String DrawBlue "B"
DEFINE String DrawGreen "G"
DEFINE String DrawYellow "Y"
DEFINE String DrawGrey "G"
DEFINE String CRLF "*"

ITEM_GET_ID NGSS_ID "Soulshot: No Grade"
ITEM_GET_ID DSS_ID "Soulshot: D-grade"
ITEM_GET_ID CSS_ID "Soulshot: C-grade"
ITEM_GET_ID BSS_ID "Soulshot: B-grade"
ITEM_GET_ID ASS_ID "Soulshot: A-grade"
ITEM_GET_ID SGSS_ID "Soulshot: S-grade"
INVEN_GET_UID AdenaUID "<&ItemID&>"
INVEN_GET_UID NGSS_UID "<&NGSS_ID&>"
INVEN_GET_UID DSS_UID "<&DSS_ID&>"
INVEN_GET_UID CSS_UID "<&CSS_ID&>"
INVEN_GET_UID BSS_UID "<&BSS_ID&>"
INVEN_GET_UID ASS_UID "<&ASS_ID&>"
INVEN_GET_UID SGSS_UID "<&SGSS_ID&>"

LABEL START

Current_X_Position = CHAR_X - #i105
Current_Y_Position = CHAR_Y - #i100
Start_X_Position = CHAR_X
Start_Y_Position = CHAR_Y
Start_Z_Position = CHAR_Z
TextLength = WordToDraw.LENGTH

SLEEP 1000

DO
    CharToDraw = WordToDraw.SUBSTRING Counter #i1
    SWITCH CharToDraw
        CASE Skip
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            BREAK 1
        CASE Draw
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            Callsub DropAdena
            BREAK 1
         CASE DrawWhite
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawRed
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawBlue
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGreen
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawYellow
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGrey
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1

        CASE CRLF
            IF CHAR_X != "#i<&Start_X_Position&>"
                IF CHAR_Y != "#i<&Start_Y_Position&>"
                    X = "#i<&Start_X_Position&>"
                    Y = "#i<&Start_Y_Position&>"
                    Z = "#i<&Start_Z_Position&>"
                    CALL MOVER VOID 3 X Y Z
                    SLEEP "<&Move_Delay&>"
                ENDIF
            ENDIF

            Current_Y_Position = Current_Y_Position + AdenaLineSpacing
            Current_X_Position = CHAR_X - #i105
    ENDSWITCH

    Counter = Counter + ONE

LOOP TextLength != Counter

PRINT_TEXT "DONE"

END_SCRIPT

SUB DropAdena

    DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
    Dummy = Current_X_Position - CHAR_X
    PRINT_TEXT "Distance <&Dummy&>"

    IF Dummy >= #i106
        X = "#i<&Current_X_Position&>"
        Y = "#i<&Current_Y_Position&>"
        Z = "#i<&Start_Z_Position&>"
        CALL MOVER VOID 3 X Y Z
    ENDIF

DROP_ITEM "<&AdenaUID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
    SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropWhite

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&NGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropRed

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&BSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropBlue

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&DSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGreen

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&CSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropYellow

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&SGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGrey

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&ASS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


FUNCTION MOVER 3 X Y Z

LOOPER = #i1

DISTANCE BEGIN_DIST X Y Z CHAR_X CHAR_Y CHAR_Z
PRINT_TEXT "Move Distance of <&BEGIN_DIST&>"

WHILE LOOPER == #i1
  MOVE_TO "<&X&>" "<&Y&>" "<&Z&>"
  SLEEP 2000
      IF CHAR_X == X
          IF CHAR_Y == Y
            LOOPER = #i0
        ENDIF
    ENDIF
WEND

SLEEP "<&Move_Delay&>"
RETURN VOID

Posted

Can you make the hungarian flag?

ungariaflagscript.jpg

here is the script:

//  __________________________________________________
//  0=Skip, 1=Adena, B=Blue(SSD), R=Red(SSB), G=Green(SSC)
//  W=White(SSNG), G=Grey(SSA), Y=Yellow(SS-S), *=CR/LF
//  __________________________________________________
//  Now you can do more than 40*40 pixels/boxes (drop grid)
//  Mover Function Added =)
//  __________________________________________________


DEFINE_GLOBAL INT Drop_Delay 1100    //Adena  Dropping Delay, Adjust up if misses
DEFINE_GLOBAL INT Move_Delay 1500    //Move Delay, adjust up if script misses after move

DEFINE String WordToDraw "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW*GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG*GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG*GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG*GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG*"


DEFINE_GLOBAL INT LOOPER 1
DEFINE_GLOBAL INT BEGIN_DIST 0
DEFINE String CharToDraw "0"
DEFINE INT TextLength 0
DEFINE INT Current_X_Position 0
DEFINE INT Current_Y_Position 0
DEFINE INT Start_X_Position 0
DEFINE INT Start_Y_Position 0
DEFINE INT Start_Z_Position 0
DEFINE INT Counter 0
DEFINE INT LetterSpacing 2.5
DEFINE INT LineSpacing 2.5
DEFINE INT AdenaLetterSpacing 5
DEFINE INT AdenaLineSpacing 5
DEFINE INT Z_Add 0
DEFINE_GLOBAL INT Dummy 0
DEFINE INT ItemID 57
DEFINE INT AdenaUID 0
DEFINE INT NGSS_ID 0
DEFINE INT DSS_ID 0
DEFINE INT CSS_ID 0
DEFINE INT BSS_ID 0
DEFINE INT ASS_ID 0
DEFINE INT SGSS_ID 0
DEFINE INT NGSS_UID 0
DEFINE INT DSS_UID 0
DEFINE INT CSS_UID 0
DEFINE INT BSS_UID 0
DEFINE INT ASS_UID 0
DEFINE INT SGSS_UID 0
DEFINE_GLOBAL INT X 0
DEFINE_GLOBAL INT Y 0
DEFINE_GLOBAL INT Z 0
DEFINE_GLOBAL INT HowFar 0
DEFINE String Skip "0"
DEFINE String Draw "1"
DEFINE String DrawWhite "W"
DEFINE String DrawRed "R"
DEFINE String DrawBlue "B"
DEFINE String DrawGreen "G"
DEFINE String DrawYellow "Y"
DEFINE String DrawGrey "G"
DEFINE String CRLF "*"

ITEM_GET_ID NGSS_ID "Soulshot: No Grade"
ITEM_GET_ID DSS_ID "Soulshot: D-grade"
ITEM_GET_ID CSS_ID "Soulshot: C-grade"
ITEM_GET_ID BSS_ID "Soulshot: B-grade"
ITEM_GET_ID ASS_ID "Soulshot: A-grade"
ITEM_GET_ID SGSS_ID "Soulshot: S-grade"
INVEN_GET_UID AdenaUID "<&ItemID&>"
INVEN_GET_UID NGSS_UID "<&NGSS_ID&>"
INVEN_GET_UID DSS_UID "<&DSS_ID&>"
INVEN_GET_UID CSS_UID "<&CSS_ID&>"
INVEN_GET_UID BSS_UID "<&BSS_ID&>"
INVEN_GET_UID ASS_UID "<&ASS_ID&>"
INVEN_GET_UID SGSS_UID "<&SGSS_ID&>"

LABEL START

Current_X_Position = CHAR_X - #i105
Current_Y_Position = CHAR_Y - #i100
Start_X_Position = CHAR_X
Start_Y_Position = CHAR_Y
Start_Z_Position = CHAR_Z
TextLength = WordToDraw.LENGTH

SLEEP 1000

DO
    CharToDraw = WordToDraw.SUBSTRING Counter #i1
    SWITCH CharToDraw
        CASE Skip
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            BREAK 1
        CASE Draw
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            Callsub DropAdena
            BREAK 1
         CASE DrawWhite
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawRed
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawBlue
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGreen
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawYellow
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGrey
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1

        CASE CRLF
            IF CHAR_X != "#i<&Start_X_Position&>"
                IF CHAR_Y != "#i<&Start_Y_Position&>"
                    X = "#i<&Start_X_Position&>"
                    Y = "#i<&Start_Y_Position&>"
                    Z = "#i<&Start_Z_Position&>"
                    CALL MOVER VOID 3 X Y Z
                    SLEEP "<&Move_Delay&>"
                ENDIF
            ENDIF

            Current_Y_Position = Current_Y_Position + AdenaLineSpacing
            Current_X_Position = CHAR_X - #i105
    ENDSWITCH

    Counter = Counter + ONE

LOOP TextLength != Counter

PRINT_TEXT "DONE"

END_SCRIPT

SUB DropAdena

    DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
    Dummy = Current_X_Position - CHAR_X
    PRINT_TEXT "Distance <&Dummy&>"

    IF Dummy >= #i106
        X = "#i<&Current_X_Position&>"
        Y = "#i<&Current_Y_Position&>"
        Z = "#i<&Start_Z_Position&>"
        CALL MOVER VOID 3 X Y Z
    ENDIF

DROP_ITEM "<&AdenaUID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
    SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropWhite

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&NGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropRed

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&BSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropBlue

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&DSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGreen

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&CSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropYellow

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&SGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGrey

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&ASS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


FUNCTION MOVER 3 X Y Z

LOOPER = #i1

DISTANCE BEGIN_DIST X Y Z CHAR_X CHAR_Y CHAR_Z
PRINT_TEXT "Move Distance of <&BEGIN_DIST&>"

WHILE LOOPER == #i1
  MOVE_TO "<&X&>" "<&Y&>" "<&Z&>"
  SLEEP 2000
      IF CHAR_X == X
          IF CHAR_Y == Y
            LOOPER = #i0
        ENDIF
    ENDIF
WEND

SLEEP "<&Move_Delay&>"
RETURN VOID

 

Anyone need something else?

Posted

Try that  ^^

 

//  __________________________________________________
//  0=Skip, 1=Adena, B=Blue(SSD), R=Red(SSB), G=Green(SSC)
//  W=White(SSNG), G=Grey(SSA), Y=Yellow(SS-S), *=CR/LF
//  __________________________________________________
//  Now you can do more than 40*40 pixels/boxes (drop grid)
//  Mover Function Added =)
//  __________________________________________________


DEFINE_GLOBAL INT Drop_Delay 500    //Adena  Dropping Delay, Adjust up if misses
DEFINE_GLOBAL INT Move_Delay 1500  //Move Delay, adjust up if script misses after move

DEFINE String WordToDraw "11111100110000001111001100110111111000000000000000*11111100110000011111101100110111111000000000000000*00110000110000011001101100110110000000000000000000*00110000110000011001100111100111100000000000000000*00110000110000011001100111100110000000000000000000*11111100111111011111100011000111111000000000000000*11111100111111001111000011000111111000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000011110011000001100000000000000000000000000*00000000111111011000001100000000000000000000000000*00000000110011011000001100000000000000000000000000*00000000110011011000001100000000000000000000000000*00000000111111011000001100000000000000000000000000*00000000111111011111101111110000000000000000000000*00000000110011011111101111110000000000000000000000*00000000000000000000000000000000000000000000000000*00000000001110000000001110000000000000000000000000*00000000111111100000111111100000000000000000000000*00000001111111110001111111110000000000000000000000*00000011111111111011111111111000000000000000000000*00000011111111111111111111111000000000000000000000*00000011111111111111111111111000000000000000000000*00000011111111011111011111111000000000000000000000*00000001111110001110001111110000000000000000000000*00000001111110101110101111110000000000000000000000*00000001111111011111011111110000000000000000000000*00000000111111111111111111100000000000000000000000*00000000111110111111101111100000000000000000000000*00000000011111001110011111000000000000000000000000*00000000001111100000111110000000000000000000000000*00000000000111110001111100000000000000000000000000*00000000000011111111111000000000000000000000000000*00000000000001111111110000000000000000000000000000*00000000000000111111100000000000000000000000000000*00000000000000011111000000000000000000000000000000*00000000000000001110000000000000000000000000000000*00000000000000000100000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*00000000000000000000000000000000000000000000000000*"


DEFINE_GLOBAL INT LOOPER 1
DEFINE_GLOBAL INT BEGIN_DIST 0
DEFINE String CharToDraw "0"
DEFINE INT TextLength 0
DEFINE INT Current_X_Position 0
DEFINE INT Current_Y_Position 0
DEFINE INT Start_X_Position 0
DEFINE INT Start_Y_Position 0
DEFINE INT Start_Z_Position 0
DEFINE INT Counter 0
DEFINE INT LetterSpacing 2.5
DEFINE INT LineSpacing 2.5
DEFINE INT AdenaLetterSpacing 5
DEFINE INT AdenaLineSpacing 5
DEFINE INT Z_Add 0
DEFINE_GLOBAL INT Dummy 0
DEFINE INT ItemID 57
DEFINE INT AdenaUID 0
DEFINE INT NGSS_ID 0
DEFINE INT DSS_ID 0
DEFINE INT CSS_ID 0
DEFINE INT BSS_ID 0
DEFINE INT ASS_ID 0
DEFINE INT SGSS_ID 0
DEFINE INT NGSS_UID 0
DEFINE INT DSS_UID 0
DEFINE INT CSS_UID 0
DEFINE INT BSS_UID 0
DEFINE INT ASS_UID 0
DEFINE INT SGSS_UID 0
DEFINE_GLOBAL INT X 0
DEFINE_GLOBAL INT Y 0
DEFINE_GLOBAL INT Z 0
DEFINE_GLOBAL INT HowFar 0
DEFINE String Skip "0"
DEFINE String Draw "1"
DEFINE String DrawWhite "W"
DEFINE String DrawRed "R"
DEFINE String DrawBlue "B"
DEFINE String DrawGreen "G"
DEFINE String DrawYellow "Y"
DEFINE String DrawGrey "G"
DEFINE String CRLF "*"

ITEM_GET_ID NGSS_ID "Soulshot: No Grade"
ITEM_GET_ID DSS_ID "Soulshot: D-grade"
ITEM_GET_ID CSS_ID "Soulshot: C-grade"
ITEM_GET_ID BSS_ID "Soulshot: B-grade"
ITEM_GET_ID ASS_ID "Soulshot: A-grade"
ITEM_GET_ID SGSS_ID "Soulshot: S-grade"
INVEN_GET_UID AdenaUID "<&ItemID&>"
INVEN_GET_UID NGSS_UID "<&NGSS_ID&>"
INVEN_GET_UID DSS_UID "<&DSS_ID&>"
INVEN_GET_UID CSS_UID "<&CSS_ID&>"
INVEN_GET_UID BSS_UID "<&BSS_ID&>"
INVEN_GET_UID ASS_UID "<&ASS_ID&>"
INVEN_GET_UID SGSS_UID "<&SGSS_ID&>"

LABEL START

Current_X_Position = CHAR_X - #i105
Current_Y_Position = CHAR_Y - #i100
Start_X_Position = CHAR_X
Start_Y_Position = CHAR_Y
Start_Z_Position = CHAR_Z
TextLength = WordToDraw.LENGTH

SLEEP 1000

DO
    CharToDraw = WordToDraw.SUBSTRING Counter #i1
    SWITCH CharToDraw
        CASE Skip
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            BREAK 1
        CASE Draw
            Current_X_Position = Current_X_Position + AdenaLetterSpacing
            Callsub DropAdena
            BREAK 1
         CASE DrawWhite
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropWhite
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawRed
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropRed
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawBlue
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropBlue
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGreen
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGreen
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawYellow
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropYellow
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1
        CASE DrawGrey
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            Current_X_Position = Current_X_Position + LetterSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position + LineSpacing
            Callsub DropGrey
            Current_Y_Position = Current_Y_Position - LineSpacing
            BREAK 1

        CASE CRLF
            IF CHAR_X != "#i<&Start_X_Position&>"
                IF CHAR_Y != "#i<&Start_Y_Position&>"
                    X = "#i<&Start_X_Position&>"
                    Y = "#i<&Start_Y_Position&>"
                    Z = "#i<&Start_Z_Position&>"
                    CALL MOVER VOID 3 X Y Z
                    SLEEP "<&Move_Delay&>"
                ENDIF
            ENDIF

            Current_Y_Position = Current_Y_Position + AdenaLineSpacing
            Current_X_Position = CHAR_X - #i105
    ENDSWITCH

    Counter = Counter + ONE

LOOP TextLength != Counter

PRINT_TEXT "DONE"

END_SCRIPT

SUB DropAdena

    DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
    Dummy = Current_X_Position - CHAR_X
    PRINT_TEXT "Distance <&Dummy&>"

    IF Dummy >= #i106
        X = "#i<&Current_X_Position&>"
        Y = "#i<&Current_Y_Position&>"
        Z = "#i<&Start_Z_Position&>"
        CALL MOVER VOID 3 X Y Z
    ENDIF

DROP_ITEM "<&AdenaUID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
    SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropWhite

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&NGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropRed

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&BSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropBlue

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&DSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGreen

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&CSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropYellow

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&SGSS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


SUB DropGrey

            DISTANCE HowFar Current_X_Position Current_Y_Position ZERO CHAR_X CHAR_Y ZERO
            Dummy = Current_X_Position - CHAR_X
        IF Dummy >= #i106
              X = "#i<&Current_X_Position&>"
              Y = "#i<&Current_Y_Position&>"
              Z = "#i<&Start_Z_Position&>"
              CALL MOVER VOID 3 X Y Z
        ENDIF
            PRINT_TEXT "Distance <&Dummy&>"
DROP_ITEM "<&ASS_UID&>" 1 "<&Current_X_Position&>" "<&Current_Y_Position&>" "<&CHAR_Z&>"
            SLEEP "<&Drop_Delay&>"

RETURNSUB


FUNCTION MOVER 3 X Y Z

LOOPER = #i1

DISTANCE BEGIN_DIST X Y Z CHAR_X CHAR_Y CHAR_Z
PRINT_TEXT "Move Distance of <&BEGIN_DIST&>"

WHILE LOOPER == #i1
  MOVE_TO "<&X&>" "<&Y&>" "<&Z&>"
  SLEEP 2000
      IF CHAR_X == X
          IF CHAR_Y == Y
            LOOPER = #i0
        ENDIF
    ENDIF
WEND

SLEEP "<&Move_Delay&>"
RETURN VOID

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



  • Posts

    • L2 Kings    Stage 1 – The Awakening Dynasty and Moirai Level Cap: 83 Gear: Dynasty -Moirai & Weapons (Shop for Adena + Drop from mobs/instances ) Masterwork System: Available (Neolithics S required with neolithics u can do armor parts foundation aswell) Class Cloaks: Level 1 - Masterwork sets such us moirai/dynasty stats are boosted also vesper(stage 2) Olf T-Shirt: +6 (fails don’t reset) safe is +2 Dolls: Level 1 Belts: Low & Medium Enchant: Safe +3 / Max +8 / Attribution Easy in Moirai-Dynasty . Main Zones: Varka Outpost: Easy farm, Adena, EXP for new players = > 80- 100kk hour Dragon Valley: Main farm zone — , 100–120kk/hour Weapon Weakness System active (all classes can farm efficiently) Archers get vampiric auto-hits vs mobs Dragon Valley Center: Main Party Zone — boosted drops (Blessed enchants, Neolithics chance) => farm like 150-200kk per hour. Dragon Valley North: Spoil Zone (Asofe + crafting materials for MW) Primeval Isle: Safe autofarm zone (low adena for casual players) ==> 50kk per hour Forge of the Gods & Imperial Tomb: Available from Stage 1 (lower Adena reward in compare with Dragon Valley) Hellbound also avaliable from stage 1 In few words all zones opened but MAIN farm zone with boosted adena and drops is Dragon valley also has more mobs Instances: Zaken (24h Reuse) → Instead of Vespers drop Moirai , 100% chance to drop 1 of 9 dolls lvl 1, Zaken 7-Day Jewelry Raid Bosses (7 RBs): Drop Moirai Parts + Neolithic S grade instead of Vespers parts that has 7 Rb Quest give Icarus Weapons Special Feature 7rb bosses level up soul crystals aswell. Closed Areas : Monaster of SIlence, LOA, ( It wont have mobs) / Mahum Quest/Lizardmen off) Grand Epics: Unlocked on Day 4 of Stage 1 → Antharas, Valakas, Baium, AQ, etc ================================================================================= Stage 2 – Rise of Vespers Level Cap: 85 Gear: Moirai Armors (Adena GM SHOP / Craft/ Drop) Weapons: Icarus Cloaks: Level 2 Olf: +8 Dolls: Level 2 Belts: High & Top Enchant: Safe +3 / Max +8 Masterwork can be with Neolithics S84 aswell but higher so craft will be usefull aswell. 7 Raid Boss Quest Updated: Now works retail give vesper weapons 7rb Bosses Drops : Vespers Instances: Zaken : Drops to retail vespers + the dolls and the extra items that we added on stage 1 New Freya Instance: Added — drops vespers and instead of mid s84 weapons will drop vespers . Extra drops Blessed Bottle of Freya - drops 100% chance 1 of 9 dolls. Farm Areas Dragon Valley remains main farm New Zone : Lair of Antharas (mobs nerfed and added drop Noble stone so solo players can farm too) New Party Zone : LOA Circle   ============================================================================   Stage 3 – The Vorpal ERA Gear: Vorpal Unclock Cloaks: Level 3 Olf: +10 (max cap) Dolls: Level 3 Enchant: Safe +3 / Max +12 Farm Zones : Dragon Valley Center Scorpions becomes a normal solo zone (no longer party zone) Drops:   LOA & Knorik → Mid Weapons avaliable in drop New Party Zone Kariks Instances: Easy Freya Drops Mid Weapons Frintezza Release =================================================================================     Stage 4 – Elegia Era (Final Stage) Elegia Unlock Gear: Elegia Weapons: Elegia TOP s84 ( farmed via H-Freya/ Drops ) Cloaks: Level 5 Dolls: Level 3 (final bonuses) Enchant: Safe +6 / Max +16 Instances: Hard Freya → Drops Elegia Weapons + => The Instance will drop 2-3 parts for sure and also will be able to Join with 7 people . Party Zone will have also drop chances for elegia armor parts and weapons but small   Events (Hourly): Win: 50 Event Medals + 3 GCM + morewards Lose: 25 Medals + 1 GCM + more rewards Tie: 30 Medals + 2 GCM + more rewards   ================================================================================ Epic Fragments Currency Participating in Daily Bosses mass rewarding all players Participating in Instances (zaken freya frintezza etc) all players get reward ================================================================================ Adena - Main server currency (all items in gm shop require adena ) Event Medals (Festival Adena) - Event shop currency Donation coins you can buy with them dressme,cosmetics and premium account Epic Fragments you can buy with them fake epic jewels Olympiad Tokens you can buy many items from olympiad shop (Hero Coin even items that are on next stages) Olympiad Win = 1000 Tokens / Lose = 500 Tokens ================================================================================= Offline Autofarm Allows limited Offline farming requires offline autofarm ticket that you get by voting etc ================================================================================= Grand Epics have Specific Custom NPC that can spawn Epics EU/LATIN TIME ZONE ================================================================================= First Olympiad Day 19 December First Heroes 22 December ( 21 December Last day of 1st Period) After that olympiad will be weekly. ================================================================================= Item price and economy Since adena is main coin of server and NOT donation coins we will always add new items in gm shop with adena in order to burn the adena of server and not be inflation . =================================================================================        
    • Hello, I'd like to change a title color for custom npc.  I created custom NPC, cloned existing. I put unique id for it in npcname-e, npcgrp and database. I have "0" to serverSideName in db, so that it would use npcname-e, but instead it has "NoNameNPC"and no title color change.
    • Trusted Guy 100% ,  I asked him for some work and he did it right away.
  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock