기타 천년 돌피하기 스크립트

unit 보상지급A팀;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);

implementation

procedure OnLeftClick (aStr : String);
var
 Str, Name : String;
iRandom : integer;
begin
   

       iRandom := Random (19);
       if iRandom = 0 then begin
      print ('putsendermagicitem 금전:1');
        end;
       if iRandom = 1 then begin
      print ('putsendermagicitem 옥로환:500');
        end;
       if iRandom = 2 then begin
      print ('putsendermagicitem 천년산삼:3');
        end;
       if iRandom = 3 then begin
      print ('putsendermagicitem 남자우중객도포고급:1');
        end;
       if iRandom = 4 then begin
      print ('putsendermagicitem 남자우중객삿갓고급:1');
        end;
       if iRandom = 5 then begin
      print ('putsendermagicitem 여자우중객도포고급:1');
        end;
       if iRandom = 6 then begin
      print ('putsendermagicitem 여자우중객삿갓고급:1');
        end;
       if iRandom = 7 then begin
      print ('putsendermagicitem 소환단:500');
        end;
       if iRandom = 8 then begin
      print ('putsendermagicitem 은화:10000');
        end;
       if iRandom = 9 then begin
      print ('putsendermagicitem 금화:100');
        end;
       if iRandom = 10 then begin
      print ('putsendermagicitem 여우내단:1');
        end;
       if iRandom = 11 then begin
      print ('putsendermagicitem 태극구슬:1');
        end;
       if iRandom = 12 then begin
      print ('putsendermagicitem 오독장:1');
        end;
       if iRandom = 13 then begin
      print ('putsendermagicitem 절심장:1');
        end;
       if iRandom = 14 then begin
      print ('putsendermagicitem 반야장:1');
        end;
       if iRandom = 15 then begin
      print ('putsendermagicitem 나운장:1');
        end;
       if iRandom = 16 then begin
      print ('putsendermagicitem 태극장:1');
        end;
       if iRandom = 17 then begin
      print ('putsendermagicitem 복호장:1');
        end;
       if iRandom = 18 then begin
      print ('putsendermagicitem 뇌조장:1');
        end;
       if iRandom > 18 then begin
      print ('putsendermagicitem 금전:1');
        end;

    Name := callfunc('getsendername');
    Str := 'movespace ' + Name;
    Str := Str + ' user 1 500 501 30';
    print (Str);
      exit;      
      end;

end;

end;
end.