[syntax="turing"]

GUI.SetBackgroundColour (white)

procedure Start 
GUI.Quit
end Start

var b1 := GUI.CreateButton (100, 270, 00, "Start Game", Start )
loop
    exit when GUI.ProcessEvent
end loop
% The Alien Assault: The Edited Version %

% Author: Cameron Gazey aka SkaarjSlayer
% Filename: island_edited.t
% Original Date Completed: Friday, April 18th, 2008
% Edited: Wednesday, September 10th, 2008
% A graphics cinematic portraying an alien attack on a city.

% background including the moon, sky, ocean, and island
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)

% the city
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)

% for loop for the moving and attacking alien ships
for i : 1..100
Draw.FillOval (200+i,350,150,25,gray)
Draw.FillOval (150+i,370,50,15,darkgray)
Draw.FillOval (350+i,300,30,10,darkgray)
Draw.FillOval (50+i, 280, 30, 10, darkgray)
delay (200)
Draw.FillOval (200+i,350,150,25,black)
Draw.FillOval (150+i,370,50,15,black)
Draw.FillOval (350+i,300,30,10,black)
Draw.FillOval (50+i, 280, 30, 10, black)
end for
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

delay (1000)

% lasers :)
for a : 1..50
delay (25)
Draw.DashedLine (150, 280, 200, 120, drawDot, yellow)
delay (25)
Draw.DashedLine (150, 280, 200, 120, drawDot, black)
delay (25)
Draw.DashedLine (430, 270, 320, 225, drawDot, yellow)
delay (25)
Draw.DashedLine (430, 270, 320, 225, drawDot, black)
end for

% redrawn ships and city to eliminate black dashed lines left over from the lasers
% redrawn ships
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)
% redrawn city
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)

% more lasers :)
for l : 1..50
delay (25)
Draw.DashedLine (150, 280, 400, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (150, 280, 400, 150, drawDot, black)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, yellow)
delay (25)
Draw.DashedLine (450, 300, 300, 150, drawDot, black)
end for

% more redrawing :(
% redrawn ships...again
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)
% redrawn city...again :P
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)

% aren't lasers just fun?
for o : 1..50
delay (25)
Draw.DashedLine (150, 280, 245, 130, drawDot, yellow)
delay (25)
Draw.DashedLine (150, 280, 245, 130, drawDot, black)
delay (25)
Draw.DashedLine (450, 300, 330, 140, drawDot, yellow)
delay (25)
Draw.DashedLine (450, 300, 330, 140, drawDot, black)
delay (25)
Draw.DashedLine (450, 300, 330, 140, drawDot, yellow)
delay (25)
Draw.DashedLine (450, 300, 330, 140, drawDot, black)
end for

% MORE redrawing -_-
% redrawn ships...again...again
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)
% redrawn city...again...again
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)

delay (1000)

% big laser XD
for z : 1..150
delay (25)
Draw.FillBox (304, 300-z, 310, 325, green)
end for
Draw.FillBox (300, 165, 310, 325, black)

% city explosions, explosions are put into 5 seperate for-loops executing 3 explosions each
% explosion set 1
for g : 1..10
delay (50)
Draw.FillOval (320, 125, 0+g, 0+g, brightred)
delay (50)
Draw.FillOval (200, 150, 0+g, 0+g, brightred)
delay (50)
Draw.FillOval (275, 125, 0+g, 0+g, brightred)
end for
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

% explosion set 2
for f : 1..10
delay (50)
Draw.FillOval (290, 130, 0+f, 0+f, brightred)
delay (50)
Draw.FillOval (360, 150, 0+f, 0+f, brightred)
delay (50)
Draw.FillOval (305, 125, 0+f, 0+f, brightred)
end for
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

% explosion set 3
for e : 1..10
delay (50)
Draw.FillOval (285, 120, 0+e, 0+e, brightred)
delay (50)
Draw.FillOval (320, 140, 0+e, 0+e, brightred)
delay (50)
Draw.FillOval (205, 120, 0+e, 0+e, brightred)
end for
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

% explosion set 4
for u : 1..10
delay (50)
Draw.FillOval (340, 180, 0+u, 0+u, brightred)
delay (50)
Draw.FillOval (235, 140, 0+u, 0+u, brightred)
delay (50)
Draw.FillOval (370, 135, 0+u, 0+u, brightred)
end for
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

%explosion set 5
for r : 1..10
delay (50)
Draw.FillOval (220, 145, 0+r, 0+r, brightred)
delay (50)
Draw.FillOval (295, 150, 0+r, 0+r, brightred)
delay (50)
Draw.FillOval (205, 130, 0+r, 0+r, brightred)
end for
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)
Draw.FillBox (310, 130, 300, 160, darkgray)
Draw.FillBox (250, 125, 240, 155, darkgray)
Draw.FillBox (200, 120, 190, 150, darkgray)
Draw.FillBox (400, 120, 390, 150, darkgray)
Draw.FillBox (350, 125, 340, 180, darkgray)
Draw.FillBox (320, 125, 340, 140, gray)
Draw.FillBox (290, 125, 300, 140, gray)
Draw.FillBox (300, 125, 320, 135, darkgray)
Draw.FillBox (350, 125, 370, 150, gray)
Draw.FillBox (370, 125, 400, 140, darkgray)
Draw.FillBox (200, 124, 220, 130, gray)
Draw.FillBox (220, 125, 210, 160, gray)
Draw.FillBox (270, 125, 280, 170, darkgray)
Draw.FillBox (250, 125, 300, 135, gray)
Draw.FillBox (220, 125, 240, 135, darkgray)
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

delay (1000)

% big explosion
for x : 1 .. 900 by 10
    Draw.FillOval (325 - x, 200 + x, 75, 75, red)
    delay (10)
    Draw.FillOval (325 + x, 200 + x, 75, 75, red)
    delay (10)
    Draw.FillOval (325 + x, 200 - x, 75, 75, red)
    delay (10)
    Draw.FillOval (325 - x, 200 - x, 75, 75, red)
    Draw.FillOval (325, 200, 75 - x, 75 + x, yellow)
    delay (10)
    Draw.FillOval (325, 200, 75 + x, 75 - x, brightred)
end for

% the aftermath, basically everything redrawn without the city
Draw.FillBox (0,0,800,400,black)
Draw.FillOval (300,80,200,50,brown)
Draw.FillBox (0,0,800,100,blue)
Draw.FillOval (500,300,50,50,white)
Draw.FillOval (300, 350, 150, 25, gray)
Draw.FillOval (250, 370, 50, 15, darkgray)
Draw.FillOval (450, 300, 30, 10, darkgray)
Draw.FillOval (150, 280, 30, 10, darkgray)

Draw.Text ("The End", 300, 200, defFontID, white)
View.Set ("title: StormNexus (The Turing RPG), position: middle, middle, nobuttonbar")

var Name : string

%Input for Name
put "Enter A Name, Any Name: " ..
get Name : *
cls

%Declare Variables
var Gender : string

%Input for Gendre
put "Enter Your Gender (Male/Female): " ..
get Gender
cls

%Declare Variable
var Proffession : string

%Checks Gendre then displays possible proffessions
if Gender = "Male" then
    put "Choose Your Proffession......Wisely:"
    put "Fighter"
    put "Barbarian"
    put "Bard"
    put "Cleric"
    put "Wizard"
    put "Sorcerer"
    put "Palidan"
    put "Monk"
    put "Druid"
    put "Ranger"
    put "Rogue"
    put "Choice: " ..
    get Proffession
    cls
end if

if Gender = "Female" then
    put "Choose Your Proffession......Wisely:"
    put "Fighter"
    put "Barbarian"
    put "Bard"
    put "Cleric"
    put "Witch"
    put "Sorceress"
    put "Palidan"
    put "Monk"
    put "Druid"
    put "Ranger"
    put "Rogue"
    put "Choice: " ..
    get Proffession
    cls
end if

%Declare Variable
var Alliance : string

%Choosing Alliance
put "Choose Your Alliance......Wisely:"
put "Dark Alliance"
put "Free Alliance"
put "Nothern Alliance"
put "Unallied"
put "Choice: " ..
get Alliance : *
cls


%Declare Variables
var weapon : string
var shield : string
var movement : string
var hitpoints : int := 0
var distance : int := 0
var ac : int := 0
var level : int := 1
var experience_points : int := 0
var heal : int := 0

%Checks Proffession inputed, and makes bio for char
if Proffession = "Fighter" then
    weapon := "Longsword"
    shield := "Tower Shield"
    ac := 15
    hitpoints := 13
    level := level
    experience_points := experience_points
    heal := 11
end if

if Proffession = "Palidan" then
    weapon := "Greatsword"
    shield := "Nothing"
    ac := 13
    hitpoints := 13
    level := level
    experience_points := experience_points
    heal := 11
end if

if Proffession = "Wizard" or Proffession = "Witch" or Proffession = "Sorcerer" or Proffession = "Sorceress" then
    weapon := "Mage Staff"
    shield := "Nothing"
    ac := 10
    hitpoints := 7
    level := level
    experience_points := experience_points
    heal := 5
end if

if Proffession = "Cleric" then
    weapon := "Mace"
    shield := "Tower Shield"
    ac := 15
    hitpoints := 10
    level := level
    experience_points := experience_points
    heal := 8
end if

if Proffession = "Barbarian" then
    weapon := "Greataxe"
    shield := "Nothing"
    ac := 13
    hitpoints := 14
    level := level
    experience_points := experience_points
    heal := 12
end if

if Proffession = "Bard" or Proffession = "Rogue" then
    weapon := "Short Sword"
    shield := "Small Shield"
    ac := 12
    hitpoints := 8
    level := level
    experience_points := experience_points
    heal := 6
end if

if Proffession = "Druid" then
    weapon := "Quarterstaff"
    shield := "Nothing"
    ac := 11
    hitpoints := 9
    level := level
    experience_points := experience_points
    heal := 7
end if

if Proffession = "Monk" then
    weapon := "Unarmed"
    shield := "Nothing"
    ac := 14
    hitpoints := 10
    level := level
    experience_points := experience_points
    heal := 8
end if

if Proffession = "Ranger" then
    weapon := "Longbow"
    shield := "Nothing"
    ac := 13
    hitpoints := 11
    level := level
    experience_points := experience_points
    heal := 9
end if

View.Set ("graphics:800,600,offscreenonly")
var x1,y1,x2,y2,a,b,xx1,yy1, yy2, xx2:int:=0
var sd2,sd1,sdd1,sdd2 : int :=0 %shoe dircection
var c,csq:real:=0
var key : array char of boolean
x1:=300
y1:=300
x2:=150
y2:=150
sd1 :=15
sd2 :=15 % shoe irection
sdd1 :=10
 sdd2 := 10
loop
drawoval(x1,y1,22,22,7)
drawoval(x2,y2,50,50,1)
a:=x2-x1
b:=y2-y1
csq:=a*a+b*b
c:=sqrt(csq)

if 50+22>c then
put "collide"
end if


Input.KeyDown (key)




if key (KEY_UP_ARROW) and y1 < maxy then %makes sure the character won't go past the top of the screen
xx1 := x1 +10
yy1 := y1 +23
xx2 := x1 -10
yy2 := y1 +23

y1 +=1
sd1 :=10
sd2 :=10 % all sd's change direction of shoes
sdd1 :=15
 sdd2 := 15
end if






if key (KEY_DOWN_ARROW) and y1 > 0 then
xx1 := x1 + 10
yy1 := y1 - 23
xx2 := x1 - 10
yy2 := y1 -23

y1 -=1
sd1 :=10
sd2 :=10 % all sd's change direction of shoes
sdd1 :=15
 sdd2 := 15

end if






if key (KEY_LEFT_ARROW) and x1 > 0 then
xx1 := x1 -22
yy1 := y1  -8
xx2 := x1 -22
yy2 := y1 +12


x1 -= 1
sd1 :=15
sd2 :=15
sdd1 :=10  % sd's change direction of shoes
 sdd2 := 10
end if






if key (KEY_RIGHT_ARROW) and x1 < maxx then
xx1 := x1 + 22
xx2:= x1 + 22       % SHOE POSITION IN RELATION TO CIRCLE POSITION
yy1:= y1 + 5
yy2 := y1 - 15

x1 +=1
sd1 :=15
sd2 :=15
sdd1 :=10  % sd's change direction of shoes
 sdd2 := 10

end if

drawfilloval (xx2,yy2, sd1,sdd1,2) %shoes
drawfilloval (xx1,yy1, sd2,sdd2,2) %shoes
drawfilloval(x1,y1,22,22,7) %body


delay (10)

View.Update
cls
end loop[/syntax]