Free Skillcheck Script - GameGuru Forum

Author

Message

Medmatheus

Reviewed GameGuru on Steam

9

Years of Service

User Offline

Joined: 18th Oct 2015

Location:

Profile

Posted: 15th Jun 2020 16:28

Link

Hey guys,

I'm returning to work on my game, and now I'm preparing a new map. I decided to include skillcheck for some actions (like stealing a tool from somewhere). Since i'm basic in programming, the code ended up huge, but with simple language, easy to edit.

Heres the code (attach to non static object):

function skillcheck1_init(e)
flag = 0
timer = {}
second = 0
g_test = 0
end

function skillcheck1_main(e)

if GetPlayerDistance(e) < 70 and g_test == 0 then
PromptLocal(e,"[E] Steal")
if g_KeyPressE == 1 then
second = 0
g_test = 1
StartTimer(e)
FreezePlayer()
end
end

if timer[1] == nil then
timer[1] = g_Time + 1000
elseif g_Time > timer[1] then
timer[1] = g_Time + 1000
second = second + 1
end

if g_test == 1 then
TextColor(50,40,5,"SKILL CHECK [ 0%]",252,255,51)
end

if g_test == 2 then
TextColor(50,40,5,"SKILL CHECK [25%]",252,255,51)
end

if g_test == 3 then
TextColor(50,40,5,"SKILL CHECK [47%]",252,255,51)
end

if g_test == 4 then
TextColor(50,40,5,"SKILL CHECK [68%]",252,255,51)
end

if g_test == 5 then
TextColor(50,40,5,"SKILL CHECK [82%]",252,255,51)
end

if g_test == 6 then
TextColor(50,40,5,"SKILL CHECK [94%]",252,255,51)
end

if g_test == 1 then

TextColor(50,50,5,"PRESS A",252,255,51)
end

if g_test == 2 and second >= 1 then
TextColor(50,50,5,"PRESS W",252,255,51)
end

if g_test == 3 and second >= 1 then
TextColor(50,50,5,"PRESS S",252,255,51)
end

if g_test == 4 and second >= 1 then
TextColor(50,50,5,"PRESS S",252,255,51)
end

if g_test == 5 and second >= 1 then
TextColor(50,50,5,"PRESS A",252,255,51)
end

if g_test == 6 and second >= 1 then
TextColor(50,50,5,"PRESS W",252,255,51)
end

------------------------------------------------------------------------------

if g_test == 1 and second <= 1 and g_KeyPressA == 1 then
g_test = 2
second = 0
g_KeyPressA = 0
PlaySound(e,0)
end

if g_test == 1 and second > 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 1 and g_KeyPressW == 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 1 and g_KeyPressS == 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 1 and g_KeyPressD == 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 2 and second <= 2 and g_KeyPressW == 1 and second >= 1 then
g_test = 3
second = 0
g_KeyPressW = 0
PlaySound(e,0)
end

if g_test == 2 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 2 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 2 and g_KeyPressS == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 2 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 3 and second <= 2 and g_KeyPressS == 1 and second >= 1 then
g_test = 4
second = 0
g_KeyPressS = 0
PlaySound(e,0)
end

if g_test == 3 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 3 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 3 and g_KeyPressW == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 3 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 4 and second <= 2 and g_KeyPressS == 1 and second >= 1 then
g_test = 5
second = 0
g_KeyPressS = 0
PlaySound(e,0)
end

if g_test == 4 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 4 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 4 and g_KeyPressW == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 4 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 5 and second <= 2 and g_KeyPressA == 1 and second >= 1 then
g_test = 6
second = 0
g_KeyPressA = 0
PlaySound(e,0)
end

if g_test == 5 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 5 and g_KeyPressW == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 5 and g_KeyPressS == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 5 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 6 and second <= 2 and g_KeyPressW == 1 and second >= 1 then
g_test = 7
second = 0
g_KeyPressW = 0
PlaySound(e,0)
end

if g_test == 6 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 6 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 6 and g_KeyPressS == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 6 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 7 then
PromptDuration("Tool stolen with success!", 2000)
UnFreezePlayer()
Destroy(e)
PlaySound(e,0)
end

end

+ Code Snippet

function skillcheck1_init(e)
flag = 0
timer = {}
second = 0
g_test = 0
end

function skillcheck1_main(e)

if GetPlayerDistance(e) < 70 and g_test == 0 then
PromptLocal(e,"[E] Steal")
if g_KeyPressE == 1 then
second = 0
g_test = 1
StartTimer(e)
FreezePlayer()
end
end

if timer[1] == nil then
timer[1] = g_Time + 1000
elseif g_Time > timer[1] then
timer[1] = g_Time + 1000
second = second + 1
end

if g_test == 1 then
TextColor(50,40,5,"SKILL CHECK [ 0%]",252,255,51)
end

if g_test == 2 then
TextColor(50,40,5,"SKILL CHECK [25%]",252,255,51)
end

if g_test == 3 then
TextColor(50,40,5,"SKILL CHECK [47%]",252,255,51)
end

if g_test == 4 then
TextColor(50,40,5,"SKILL CHECK [68%]",252,255,51)
end

if g_test == 5 then
TextColor(50,40,5,"SKILL CHECK [82%]",252,255,51)
end

if g_test == 6 then
TextColor(50,40,5,"SKILL CHECK [94%]",252,255,51)
end

if g_test == 1 then

TextColor(50,50,5,"PRESS A",252,255,51)
end

if g_test == 2 and second >= 1 then
TextColor(50,50,5,"PRESS W",252,255,51)
end

if g_test == 3 and second >= 1 then
TextColor(50,50,5,"PRESS S",252,255,51)
end

if g_test == 4 and second >= 1 then
TextColor(50,50,5,"PRESS S",252,255,51)
end

if g_test == 5 and second >= 1 then
TextColor(50,50,5,"PRESS A",252,255,51)
end

if g_test == 6 and second >= 1 then
TextColor(50,50,5,"PRESS W",252,255,51)
end

------------------------------------------------------------------------------

if g_test == 1 and second <= 1 and g_KeyPressA == 1 then
g_test = 2
second = 0
g_KeyPressA = 0
PlaySound(e,0)
end

if g_test == 1 and second > 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 1 and g_KeyPressW == 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 1 and g_KeyPressS == 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 1 and g_KeyPressD == 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 2 and second <= 2 and g_KeyPressW == 1 and second >= 1 then
g_test = 3
second = 0
g_KeyPressW = 0
PlaySound(e,0)
end

if g_test == 2 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 2 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 2 and g_KeyPressS == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 2 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 3 and second <= 2 and g_KeyPressS == 1 and second >= 1 then
g_test = 4
second = 0
g_KeyPressS = 0
PlaySound(e,0)
end

if g_test == 3 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 3 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 3 and g_KeyPressW == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 3 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 4 and second <= 2 and g_KeyPressS == 1 and second >= 1 then
g_test = 5
second = 0
g_KeyPressS = 0
PlaySound(e,0)
end

if g_test == 4 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 4 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 4 and g_KeyPressW == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 4 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 5 and second <= 2 and g_KeyPressA == 1 and second >= 1 then
g_test = 6
second = 0
g_KeyPressA = 0
PlaySound(e,0)
end

if g_test == 5 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 5 and g_KeyPressW == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 5 and g_KeyPressS == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 5 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

------------------------------------------------------------------------------

if g_test == 6 and second <= 2 and g_KeyPressW == 1 and second >= 1 then
g_test = 7
second = 0
g_KeyPressW = 0
PlaySound(e,0)
end

if g_test == 6 and second > 2 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 6 and g_KeyPressA == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 6 and g_KeyPressS == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 6 and g_KeyPressD == 1 and second >= 1 then
g_test = 0
PromptDuration("Action failed, try again", 1500)
UnFreezePlayer()
PlaySound(e,1)
end

if g_test == 7 then
PromptDuration("Tool stolen with success!", 2000)
UnFreezePlayer()
Destroy(e)
PlaySound(e,0)
end

end

Sound 0 for correct keypress, Sound 1 for incorrect keypress.

~ Cold Cable: Lifeshift ~

PM Website

AmenMoses

GameGuru Master

8

Years of Service

User Offline

Joined: 20th Feb 2016

Location: Portsmouth, England

Profile

Posted: 15th Jun 2020 22:45

Link

This is how you could do it with a shorter script.

local timer  = nil
local second = 0

local ePressed = false
local kPressed = false
local delay = 1000
g_test = 0

function skillcheck1_init( e )
end

local skill_key = { 'A', 'W', 'S', 'S', 'A', 'W' }
local skill_pct = {  0 , 25 , 47 , 68 , 82 , 94  }

function skillcheck1_main( e )

if GetPlayerDistance(e) < 70 and g_test == 0 then
		PromptLocal(e,"[E] Steal")
		if g_KeyPressE == 1 then
			ePressed = true
		end
	end
 
	if ePressed and g_KeyPressE == 0 then
		ePressed = false
		second = 0
		g_test = 1
		FreezePlayer()
		timer = g_Time + delay
	end

if g_test > 0 and g_test <= #skill_key then
		TextColor( 50, 40, 5, "SKILL CHECK [ " .. skill_pct[ g_test ] .. "%]", 252, 255, 51 )
		TextColor( 50, 50, 5, "PRESS " .. skill_key[ g_test ], 252, 255, 51 )

if g_Time <= timer then
			if string.lower( GetInKey() ) == string.lower( skill_key[ g_test ] ) then
				kPressed = true
				PlaySound( e, 0 )

elseif
			   not kPressed and GetInKey() ~= '' then
				g_test = 0
				PromptDuration( "Action failed, try again", 1500 )
				UnFreezePlayer()
				PlaySound( e, 1 )
			end
			if kPressed and  GetInKey() == '' then
				g_test = g_test + 1
				timer = g_Time + delay
				kPressed = false
			end

else
			g_test = 0
			PromptDuration( "Too slow, try again", 1500 )
			UnFreezePlayer()
			PlaySound( e, 1 )
		end
	elseif 
	   g_test > #skill_key then
		UnFreezePlayer()
		PromptDuration( "Tool stolen with success!", 2000 )
		PlaySound( e, 0 )
		Destroy( e )
	end
end

+ Code Snippet

local timer  = nil
local second = 0

local ePressed = false
local kPressed = false
local delay = 1000
g_test = 0

function skillcheck1_init( e )
end

local skill_key = { 'A', 'W', 'S', 'S', 'A', 'W' }
local skill_pct = {  0 , 25 , 47 , 68 , 82 , 94  }

function skillcheck1_main( e )

	if GetPlayerDistance(e) < 70 and g_test == 0 then
		PromptLocal(e,"[E] Steal")
		if g_KeyPressE == 1 then
			ePressed = true
		end
	end
 
	if ePressed and g_KeyPressE == 0 then
		ePressed = false
		second = 0
		g_test = 1
		FreezePlayer()
		timer = g_Time + delay
	end

	if g_test > 0 and g_test <= #skill_key then
		TextColor( 50, 40, 5, "SKILL CHECK [ " .. skill_pct[ g_test ] .. "%]", 252, 255, 51 )
		TextColor( 50, 50, 5, "PRESS " .. skill_key[ g_test ], 252, 255, 51 )

		if g_Time <= timer then
			if string.lower( GetInKey() ) == string.lower( skill_key[ g_test ] ) then
				kPressed = true
				PlaySound( e, 0 )

			elseif
			   not kPressed and GetInKey() ~= '' then
				g_test = 0
				PromptDuration( "Action failed, try again", 1500 )
				UnFreezePlayer()
				PlaySound( e, 1 )
			end
			if kPressed and  GetInKey() == '' then
				g_test = g_test + 1
				timer = g_Time + delay
				kPressed = false
			end

		else
			g_test = 0
			PromptDuration( "Too slow, try again", 1500 )
			UnFreezePlayer()
			PlaySound( e, 1 )
		end
	elseif 
	   g_test > #skill_key then
		UnFreezePlayer()
		PromptDuration( "Tool stolen with success!", 2000 )
		PlaySound( e, 0 )
		Destroy( e )
	end
end

Been there, done that, got all the T-Shirts!

PM

Medmatheus

Reviewed GameGuru on Steam

9

Years of Service

User Offline

Joined: 18th Oct 2015

Location:

Profile

Posted: 15th Jun 2020 23:34

Link

@AmenMoses Thank you!

~ Cold Cable: Lifeshift ~

PM Website

Pink Panther

14

Years of Service

User Offline

Joined: 1st Feb 2010

Location:

Profile

Posted: 6th Jul 2020 19:23

Link

This is really great! Thank you Medmatheus and AmenMoses!

PM

Scripts / Free Skillcheck Script