Scripting:Tanker Control - Revision history

Jacksfh at 12:23, 22 April 2014

2014-04-22T12:23:19Z

← Older revision		Revision as of 12:23, 22 April 2014
Line 9:		Line 9:
	The portal will only do anything if the owner of the ship is the person using the portal.		The portal will only do anything if the owner of the ship is the person using the portal.

-	Script originally created by Glest Durnham (6609), edited by ~~Jacksfh~~ (60589) to include extra ships e.g. Gathering Station	+	Script originally created by Glest Durnham (6609), edited by Jacus (60589) to include extra ships e.g. Gathering Station

	==Script Code==		==Script Code==

Jacksfh at 10:15, 6 April 2012

2012-04-06T10:15:10Z

← Older revision		Revision as of 10:15, 6 April 2012
Line 65:		Line 65:
	}		}
	}		}
-	{{Note\|Feature pack in required to be able to use this script.}}	+	{{Note\|Feature pack is required to be able to use this script.}}
	[[Category:Scripting]]		[[Category:Scripting]]

Jacksfh at 18:32, 12 January 2012

2012-01-12T18:32:38Z

← Older revision		Revision as of 18:32, 12 January 2012
Line 65:		Line 65:
	}		}
	}		}
		+	{{Note\|Feature pack in required to be able to use this script.}}
	[[Category:Scripting]]		[[Category:Scripting]]

Jacksfh at 18:30, 12 January 2012

2012-01-12T18:30:13Z

← Older revision		Revision as of 18:30, 12 January 2012
Line 31:		Line 31:
	{		{
	// Make sure it's a deuterium tanker.		// Make sure it's a deuterium tanker.
-	If (curShip.TypeName = "Indus" OR curShip.TypeName = "Kale" OR curShip.TypeName = "Indus prototype" OR curShip.TypeName = "Rigel" OR curShip.TypeName = "Gathering Station" <br> ~~OR curShip.TypeName = "Constitution"~~ OR curShip.TypeName = "Atria" OR curShip.TypeName = "DY-500")	+	If (curShip.TypeName = "Indus" OR curShip.TypeName = "Kale" OR curShip.TypeName = "Indus prototype" OR curShip.TypeName = "Rigel" OR curShip.TypeName = "Gathering Station" <br> OR curShip.TypeName = "Atria" OR curShip.TypeName = "DY-500")
	{		{
	// Save initial information		// Save initial information

Jacksfh at 15:08, 1 January 2012

2012-01-01T15:08:38Z

← Older revision		Revision as of 15:08, 1 January 2012
Line 1:		Line 1:
		+	{{menu}}
		+	{{ScriptingMenu}}
	==Deuterium Tanker Control==		==Deuterium Tanker Control==

Line 63:		Line 65:
	}		}
	}		}
		+	[[Category:Scripting]]

Jacksfh: Created page with "==Deuterium Tanker Control== Upon entering the portal, all deuterium tankers in the sector (the sector that the ship is in on wich the portal is set up) will use maximum energy ..."

2012-01-01T15:06:16Z

Created page with "==Deuterium Tanker Control== Upon entering the portal, all deuterium tankers in the sector (the sector that the ship is in on wich the portal is set up) will use maximum energy ..."

New page

==Deuterium Tanker Control==

Upon entering the portal, all deuterium tankers in the sector (the sector that the ship is in on wich the portal is set up) will use maximum energy to collect deuterium. It will then report how much deuterium each tanker collected.

If a tanker is docked, it will first undock and dock again after collecting deuterium.

The portal will only do anything if the owner of the ship is the person using the portal.

Script originally created by Glest Durnham (6609), edited by Jacksfh (60589) to include extra ships e.g. Gathering Station

==Script Code==
#UseInterface Web, ShipPortal;

Var scriptName As String = "Tanker Control";

If(GuestUser.UserID = MyShip.UserID)
{
Var curShip As CShip;
Var curMyShip As CMyShip;
Var dockedTo As Integer = - 1;
Var oldQuantity As Integer = 0;

// Loop all ships in the sector
For (Each curShip In MyShip.SRS)
{
// Make sure we own it
If (curShip.UserID = MyShip.UserID)
{
// Make sure it's a deuterium tanker.
If (curShip.TypeName = "Indus" OR curShip.TypeName = "Kale" OR curShip.TypeName = "Indus prototype" OR curShip.TypeName = "Rigel" OR curShip.TypeName = "Gathering Station" <br> OR curShip.TypeName = "Constitution" OR curShip.TypeName = "Atria" OR curShip.TypeName = "DY-500")
{
// Save initial information
curMyShip = New CMyShip(curShip.ShipID);
dockedTo = - 1;
oldQuantity = curMyShip.StockRoom.Amount(EGoodsType.Deuterium);

// Save docking information and undock
If (curMyShip.Docked)
{
dockedTo = curMyShip.DockedToShipID;
curMyShip.Action.Undock();
}

// Perform the action
curMyShip.Action.CollectDeuterium(2000);

// Calculate the result
Var collected As Integer = curMyShip.StockRoom.Amount(EGoodsType.Deuterium) - oldQuantity;

// Re-dock
If (dockedTo > - 1)
{
curMyShip.Action.DockTo(dockedTo);
}

// Output result
Response.Add(curMyShip.Name & " (NCC " & curMyShip.ShipID & ") collected " & collected & " Deuterium.");
Response.Add(New CHtmlBreak());

}
}
}
}