Hello World Example by Manda Simpson

global proc helloWorld(string $name)
{
	print ("Hello "+$name+"!");
}

global proc helloInput(string $name,int $num)
{
	print ("Hello "+$name+"!\n");
	print ("You have "+$num+" cats.\n");
}

global proc helloRandom()
{
	string $nameList[] = {"Kelly","Sam","Chiharu","Liam","May","Jeremy"};
	int $num = rand(10,60);
	int $namePicker = rand(5.99999);

	print ("Hello "+$nameList[$namePicker]+"!\n");
	print ("You have "+$num+" cats.\n");
	print "That's too many cats.";
}

global proc helloRandom2()
{
	string $nameList[] = {"Kelly","Sam","Chiharu","Liam","May","Jeremy"};
	int $namePicker = rand(5.99999);
	int $num = rand(10,60);
	string $itemList[] = {"cats","dogs","fish","guinea pigs","frogs","donkeys","bottles of lotion","sheep","snakes","jar of pickles"};
	int $itemPicker = rand(9.999999);

	print ("Hello "+$nameList[$namePicker]+"!\n");
	print ("You have "+$num+" "+$itemList[$itemPicker]+".\n");
	print ("That's too many "+$itemList[$itemPicker]+".");
}

global proc superPerson (string $adj, string $noun, string $eyeCol) 
{ 
  print ("Hello "+ $adj +" "+ $noun +"!\n");
  print "Welcome to the database of Supers, please allow a retina scan for verification\n";
  print("\n...");
  print ("\n\n...");
  print ("\n\n...verification complete...\n");
  print ("\n Access granted, your "+$eyeCol+" eyes look lovely today, "+$adj+" "+$noun+"!");
} 
superPerson ("Vermillion", "Prison", "blue"); 

string $myChar = "Mista White";
int $age = "51";
float $money = "5";
print ("Yo! " + $myChar + "! Where is my share, where is my " + $money + " million");

string $name;
float $height;
string $hairColour;
$height = "167.5";
$name = "Thomas Balinski";
$hairColour = "Red";
print ("Hello, my name is " + $name + " and I recently dyed my hair " + $hairColour + ". I am also " + $height + " centimiters tall.");


string $name = "chompy";
string $pet[3] = {"turtle", "capybara", "cat"};
print ("I have a pet and his name is " + $name + ". He is a " + $pet[1] + ". He also has a friend who is a " + $pet[0] + ".");


global proc fashion(string $top, string $pants, string $shoes)
{
    print ("I'm wearing a snazzy " + $top + " to go with my cool " + $pants + " that perfectly match my " + $shoes + ".");
}
fashion("red silk shirt","blue jeans","sweyd boots");

global proc candy(string $type, string $reason, float $cost)
{
    print ("my favorite type of candy would have to be " + $type + " because " + $reason + ". It costs " + $cost + " dollars to buy 5 of them");
}
candy("Zombie Chews", "they are very sour", "3.5");

string $cubeName[] = `polyCube`;

float $randX = rand(20);
float $randY = rand(1,20);
float $randZ = rand(20);
float $randRot[] = sphrand(360);
float $randWidth = rand(8);
float $randHeight = rand(8);

xform -t $randX $randY $randZ
      -ro $randRot[0] $randRot[1] $randRot[2]
       $cubeName[0];

setAttr "polyCube1.width" $randWidth;
setAttr "polyCube1.height" $randHeight;

//WORKING

global proc gamble (int $numGamble)

{
   
    global int $money;
   
    print ("in order to win, you must roll an even number\n"); 
    print("You rolled "+$numGamble+" times!");
    for ($g=0; $g<$numGamble;$g++)
    {
    print ("You have rolled " +$randNum+"\n");
    int $randNum = rand(1,12);
if (($randNum == 2) || ($randNum == 4) || ($randNum == 6) || ($randNum == 8) || ($randNum == 10) || ($randNum == 12))
{
    $money = ($money + rand(5,10));
    print ("Winner winner chicken dinner!\n");
    print ("Balance: $"+$money+"\n");  
}
else
{
    $money = ($money - rand(5,10));
    print ("Sorry, you lost\n");
    print ("Balance: $"+$money+"\n");
}
}
}
global proc balance ()
{
    global int $money;
    print ("You have $"+$money);
}


global int $money;

if ($money<=0)
{
    print ("Warning! you are bankrupt and we highly recommend not gambling any further to avoid debt.");
}

// Random Shape
global proc shapeGen()
{
    int $randShape = rand(2.9999);
    print("You got shape number: " + $randShape + "!\n");

    if ($randShape == 0)
    {
        int $numCubes = 5;
        float $radius;
        string $allCubes[]; // declare string array that stores the names of the cubes in the array 
    
        for ($cu = 0; $cu < $numCubes ; $cu++) // initialisation / condition / iteration
        {
            string $cubeName[] = `polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1`;
		    $allCubes[$cu] = $cubeName[0]; // use the counter to gather the names
				    					        // of each new cube and save it in a list
    	}
	    select -r $allCubes; // select all the new cubes and group them
	    group;
    }      
    else if ($randShape == 1) 
    {
        int $numSpheres = 5;
        string $allSpheres[];
      
        for ($sp = 0; $sp < $numSpheres; $sp++)
        {
          string $sphereName[] = `polySphere -r 1 -sx 20 -sy 20 -ax 0 1 0 -cuv 2 -ch 1`;
          $allSpheres[$sp] = $sphereName[0];
        }
        select -r $allSpheres;
        group;
    }
    else if ($randShape == 2)
    {
        int $numCones = 5;
        string $allCones[];
        
        for ($co = 0; $co < $numCones; $co++)
        {
           string $coneName[] = `polyCone -r 1 -h 2 -sx 20 -sy 1 -sz 0 -ax 0 1 0 -rcp 0 -cuv 3 -ch 1`;
           $allCones[$co] = $coneName[0];
        }
        select -r $allCones;
        group;
    }
}

global proc cubeGenerator ()
{
    int $randNum = rand(5);
    print ($randNum+"\n");

    for($i = 0; $i < 10; $i++) 
    {
        string $cubeName[] = `polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1 -n "cube"`;
        float $randScale[] = abs(sphrand(5));
        xform -s $randScale[0] $randScale[1] $randScale[2] $cubeName[0];
    }
    
}

/***************************************************************
ifShapes.mel			Kelly Bechtle-Woods  12/04/2022

Generates random numbers and creates shapes depending on the result

USAGE: ifShapes
****************************************************************/
global proc ifShapes()
{
	int $randNum = rand(10.9999);
	print ($randNum+"\n");

	if ($randNum < 2) // True if 0 or 1
	{
		polyCone -r 1 -h 2 -sx 20 -sy 1 -sz 0 -ax 0 1 0 -rcp 0 -cuv 3 -ch 1;
	}
	else if ($randNum == 2) // True if 2
	{
		polyTorus -r 1 -sr 0.5 -tw 0 -sx 20 -sy 20 -ax 0 1 0 -cuv 1 -ch 1;
	}
	else if ($randNum > 8) // True if 9 or 10
	{
		polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1;
	}
	else if (($randNum > 2) && ($randNum < 9))  // True if 3, 4, 5, 6, 7, 8
	{
		polySphere -r 1 -sx 20 -sy 20 -ax 0 1 0 -cuv 2 -ch 1;
	}
	else
	{
		print "nothing.";
	}

	print "DONE!";
}

global proc ifLogicTest()
{
	int $randNum = rand(10.9999);
	print ($randNum+"\n");

	if ((($randNum == 3) || ($randNum == 5)) || ($randNum == 7))
	{
		polyPlane -w 1 -h 1 -sx 10 -sy 10 -ax 0 1 0 -cuv 2 -ch 1;

	}

}

global proc forInDemo()
{
	string $nameList[] = {"Kelly","Sam","Chiharu","Liam","May","Jeremy"};

	for ($person in $nameList)
	{
		print ($person+" loves scripting.\n");
	}

	print "DONE!";
}

/*********************************************************
makeCubes.mel
Creates a cloud of cubes

USAGE: makeCubes <int numberOfCubes> <float radiusOfCloud>
*********************************************************/
global proc makeCubes(int $numCubes, float $radius)
{
	string $allCubes[]; // declare an array to save the names of the cubes

	for ($c=0;$c<$numCubes;$c++)
	{
		string $cubeName[] = `polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1`;

		float $randTrans[] = sphrand($radius);
		float $randRot[] = sphrand(360);
		float $randScale[] = abs(sphrand(5));

		xform -t $randTrans[0] $randTrans[1] $randTrans[2] 
		      -ro $randRot[0] $randRot[1] $randRot[2]
		      -s $randScale[0] $randScale[1] $randScale[2]
		       $cubeName[0];
		$allCubes[$c] = $cubeName[0]; // use the counter to gather the names
									  // of each new cube and save it in a list
	}
	select -r $allCubes; // select all the new cubes and group them
	group;
}

/*		You can also use rand to generate random number like this:
		float $randX = rand(5);
		float $randY = rand(5);
		float $randZ = rand(5);
*/

global proc moveCVs()
{
	string $cyl[] = `polyCylinder -r 1 -h 2 -sx 20 -sy 1 -sz 1 -ax 0 1 0 -rcp 0 -cuv 3 -ch 1`;
	select -r ($cyl[0]+".vtx[20:21]") ($cyl[0]+".vtx[37:39]") ;
	move -r 0 0.876853 0 ;

}