Results 1 to 3 of 3

Thread: My league of legends dragon smite game.

  1. #1
    Join Date
    Nov 2014
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My league of legends dragon smite game.

    Program Warm_up_Smite;

    var
    dragon_hp, start_menu, option_menu, guide_menu, about_menu, add, smite_damage, games_won, games_lost: Integer;
    status: String;

    procedure loadall;
    begin
    smite_damage := 850;

    end;

    Procedure console;
    begin
    Writeln('*** *** *** *** *** *** *** *** *** ***');
    Writeln('Smite = ' + inttostr(smite_damage));
    Writeln('');
    Writeln('Dragon: ' + inttostr(dragon_hp));
    Writeln('');
    Writeln('*** *** *** *** *** *** *** *** *** ***');
    end;

    Procedure Mainmenu;

    begin
    if IsKeyDown(49) then
    begin
    start_menu := start_menu+1;
    option_menu := option_menu-1;
    guide_menu := guide_menu-1;
    about_menu := about_menu-1;
    add := add+2;
    end;

    if IsKeyDown(50) then
    begin
    option_menu := option_menu+1;
    start_menu := start_menu-1;
    guide_menu := guide_menu-1;
    about_menu := about_menu-1;
    end;

    if IsKeyDown(51) then
    begin
    guide_menu := guide_menu+1;
    option_menu := option_menu-1;
    start_menu := start_menu-1;
    about_menu := about_menu-1;
    end;

    if IsKeyDown(52) then
    begin
    about_menu := about_menu+1;
    guide_menu := guide_menu-1;
    option_menu := option_menu-1;
    start_menu := start_menu-1;
    end;

    if start_menu = 2 then
    begin
    start_menu := 1;
    about_menu := -1;
    guide_menu := -1;
    option_menu := -1;
    end;

    if about_menu = 2 then
    begin
    start_menu := -1;
    about_menu := 1;
    guide_menu := -1;
    option_menu := -1;
    end;

    if option_menu = 2 then
    begin
    start_menu := -1;
    about_menu := -1;
    guide_menu := -1;
    option_menu := 1;
    end;

    if guides_menu = 2 then
    begin
    start_menu := -1;
    about_menu := -1;
    guide_menu := 1;
    option_menu := -1;
    end;

    if start_menu > 0 then
    if add < 1 then
    dragon_hp := 1000 + random(3000);

    if IsKeyDown(32) then // space reset
    begin
    start_menu := 0;
    option_menu = 0;
    about_menu = 0;
    guide_menu = 0;
    add := 0;
    end;

    Writeln('Ignore these: ' + ('Status: ') + (status) + (' [') + inttostr(start_menu) + (']') + (' [') + inttostr(option_menu) + (']') + (' [') + inttostr(guide_menu) + (']') + (' [') + inttostr(about_menu) + (']') + (' [add = ' + inttostr(add)));
    Writeln('*** *** *** *** *** *** *** *** *** ***');
    Writeln('(1) to start the game');
    Writeln('(2) Options');
    Writeln('(3) Guides');
    Writeln('(4) About');
    Writeln('Games Won: ' + inttostr(games_won) + (' Games Lost: ') + inttostr(games_lost) + );
    Writeln('*** *** *** *** *** *** *** *** *** ***');
    end;

    Procedure console_game;
    begin
    Writeln('Current Status:' + (status));
    Writeln('**** **** **** **** **** **** ****');
    Writeln('');
    Writeln('Dragon HP: ' + inttostr(dragon_hp));
    Writeln('');
    Writeln('**** **** **** **** **** **** ****');
    end;

    Procedure game;
    begin
    if add > 1 then
    begin
    status := ('Game started');
    Dragon_hp -(250+random(225));
    wait(350 + random(150) + random(250));
    Dragon_hp - (50+random(25));
    wait(random(100));
    Dragon_hp - (210+random(255));
    wait(random(400));
    Dragon_hp - (110+random(755));
    wait(random(650));
    end;
    end;




    Procedure Main;
    begin
    loadall;

    if Dragon_hp < smite_damage then
    if IsKeyDown(70) then
    begin
    dragon_hp - (smite_damage);
    games_won := games_won+1;
    Writeln('You won game!');
    Writeln('Press Space to return Main Menu');

    end else
    begin
    writeln('Enemy jungler stole dragon!');
    Writeln('Press Space to return Main Menu');
    games_lost := games_lost+1;
    end;


    if start_menu = 1 then
    if option_menu = -1 then
    if about_menu = -1 then
    if guide_menu = -1 then
    begin
    console_game;
    game;
    end;

    if start_menu = 0 then
    if option_menu = 0 then
    if about_menu = 0 then
    if guide_menu = 0 then
    if add = 0 then
    begin
    Mainmenu;
    end;
    end;


    begin
    Repeat
    Cleardebug;
    Main;
    wait(10 + random(20));
    Until(IsKeyDown(123)); //F12
    end.







    Im not sure if its work or not write this with notepad in work . but i really want learn make some basic scripts and only start game should work
    and remember! F for smite!

  2. #2
    Join Date
    Feb 2012
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    F is for flash! I guess there is two types of people ^^.

    Haha this is interesting even though my smite game is already stronk.

  3. #3
    Join Date
    Aug 2014
    Location
    Australia
    Posts
    932
    Mentioned
    53 Post(s)
    Quoted
    495 Post(s)

    Default

    You should put your code in [simba] tags so that it maintains its formatting and is easier to read.



    New to scripting? Procedures & Functions for Beginners
    Do you use your computer at night? Just get f.lux

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •