Re: Wrarthis Application Arma 3 Exile - Epoch - [PENDING REVIEW]
Posted: Wed Feb 03, 2016 4:53 am
Just cracked 243hours on server
"You can't take the sky from me..."
http://takethesky.org/forums/
[Reavers]Diablous wrote:What Suicide said.
Sub MyVote (Vote as Variant, MyVote as Variant)
Vote = Suicide.Stupid.OverVote
If Vote > 1 and Vote < 2 then
Do until Vote <= 1
Vote = Vote - 1
Next
If Vote <> 1 then
MyVote = Vote - 1
Else
MyVote = Vote
End if
End if
Msg.Reply = "+ " & MyVote
End Sub
+ 0.2
Code: Select all
#'--------------------------------------------------------------------
<#
Script: Get-MyVote.ps1
Author: BornLucky
Date: 2016/02/04
Description: This script will get your vote calculation based on the input provided
#>
#'--------------------------------------------------------------------
#'START FUNCTION - Calculate-MyVoteScore
#'--------------------------------------------------------------------
Function Calculate-MyVoteScore{
[CmdletBinding()]
Param(
[Parameter(
Position=0,
Mandatory=$True,
ValueFromPipeLine=$True,
ValueFromPipeLineByPropertyName=$True
)]
[Boolean]$playerIstLiked,
[Parameter(
Position=1,
Mandatory=$True,
ValueFromPipeLine=$True,
ValueFromPipeLineByPropertyName=$True
)]
[Int]$previousVote
)
#'--------------------------------------------------------------------
#'Variable declaration
#'--------------------------------------------------------------------
[Int]$i = 0
[Int]$myVoteScore = 0
#'--------------------------------------------------------------------
#'Executed CmdLet
#'--------------------------------------------------------------------
If($previousVote -gt 1 -AND $previousVote -lt 2){
Do{
$previousVote --
}Until($i -le 1 )
If(!($previousVote -eq 1)){
$myVoteScore = $previousVote + 1
}Else{
$myVoteScore = $previousVote
}
}Else{
If($previousVote -gt 2){
$myVoteScore = ($previousVote / 2)
}
If($previousVote -lt 2){
If($playerIstLiked -eq $True){
$myVoteScore = 1
}Else{
$myVoteScore = -1
}
}
}
Return $myVoteScore;
}
#'--------------------------------------------------------------------
#'END FUNCTION - Calculate-MyVoteScore
#'--------------------------------------------------------------------
#'--------------------------------------------------------------------
#'START FUNCTION - Is-Numeric
#'--------------------------------------------------------------------
function Is-Numeric {
[CmdletBinding()]
Param(
[Parameter(
Position=0,
Mandatory=$True,
ValueFromPipeLine=$True,
ValueFromPipeLineByPropertyName=$True
)]
[Boolean]$numToCheck
)
#'--------------------------------------------------------------------
Try{
0 + $x | Out-Null
return $true
}Catch{
return $false
}
}
#'--------------------------------------------------------------------
#'END FUNCTION - Is-Numeric
#'--------------------------------------------------------------------
#'--------------------------------------------------------------------
#'START - CODE BODY
#'--------------------------------------------------------------------
#'--------------------------------------------------------------------
#'Variable declaration
#'--------------------------------------------------------------------
[String]$myName = ""
[String]$applicantName = ""
[String]$playerLikedQuestion = ""
[Boolean]$answerValid = $false
[Boolean]$numberValid = $false
[Boolean]$playerLiked = $false
[Int]$previousPersonVote = 0
[Int]$myVote = 0
[String]$myMessage = ""
#'--------------------------------------------------------------------
#'Main Code Body - Funcationality / Logic
#'--------------------------------------------------------------------
$myName = Read-Host "What is your name: "
#'--------------------------------------------------------------------
$applicantName = Read-Host "What is Applicant's name: "
#'--------------------------------------------------------------------
$answerValid = $false
$playerLikedQuestion = Read-Host "Do you like the player (Y/N) : "
$playerLikedQuestion = $playerLikedQuestion.ToUpper()
Do{
if($playerLikedQuestion -eq "Y" -OR $playerLikedQuestion -eq "N"){
$answerValid = $True
}Else{
$answerValid = $False
$playerLikedQuestion = Read-Host "Invalid Response... Do you like the player (Y/N) : "
}
}Until($answerValid = $True)
If($playerLikedQuestion -eq "Y"){
$playerLiked = $True
}Else{
$playerLiked = $False
}
#'--------------------------------------------------------------------
$answerValid = $false
$previousPersonVote = Read-Host "What was the previous persons vote (numerical values only): "
$numberValid = Is-Numeric -numToCheck $previousPersonVote
Do{
if($numberValid -eq $True){
$answerValid = $True
}Else{
$answerValid = $False
$previousPersonVote = Read-Host "What was the previous persons vote (numerical values only): "
$numberValid = Is-Numeric -numToCheck $previousPersonVote
}
}Until($answerValid = $True)
#'--------------------------------------------------------------------
$myVote = Calculate-MyVoteScore -playerIstLiked $playerLiked -previousVote $previousPersonVote
#'--------------------------------------------------------------------
#'END - CODE BODY
#'--------------------------------------------------------------------
#'--------------------------------------------------------------------
#'CODE OUTPUT / RESULT
#'--------------------------------------------------------------------
$myMessage = "I, " + $myName + ", give " + $applicantName + " a vote of " + $myVote
Write-Host $myMessage
Code: Select all
Vote = Suicide.Stupid.OverVote
Code: Select all
If Vote > 1 and Vote < 2 then
Code: Select all
Do until Vote <= 1
Code: Select all
Vote = Vote - 1
Code: Select all
Next
Code: Select all
If Vote <> 1 then
Code: Select all
MyVote = Vote - 1
Code: Select all
Else
Code: Select all
MyVote = Vote
Code: Select all
End if
Code: Select all
End if
Code: Select all
Msg.Reply = "+ " & MyVote
Code: Select all
MyVote = Vote
If MyVote <> 1 then
Do until MyVote + Vote = 1
MyVote = MyVote - 0.1
Loop
End if