Keycoded door (remote door) - GameCreators Forum

Author

Message

CosmicPhantom

9

Years of Service

User Offline

Joined: 7th Sep 2014

Location:

Posted: 16th Nov 2014 00:35

Link

Hi all this is my first time posting here

I'm trying to make a key coded door that uses a pin to unlock e.g. 1234 opens the door anything else won't the script I'm using is from the user Storytellers

;Artificial Intelligence Script:CodeInput02

by TheStoryteller01 2012

;Header

desc=

This script only works with FPSC 1.18. or later.

Made for control pads, monitors or smiliar where the player has to enter a 4-digit code to open a remote door.

Best ist to set the item properties "Isimmobile" to "Yes" and "Strength" to "0" (=indestructible).
The name of the remote door has to be entered in the "Ifused" field of this entity.

The script starts when the player moves the cursor over the item while not more than 60 units away.
If the player enters the wrong code an alarm sound is started but he can still try to enter the correct code and
entering the correct code turns off the alarm. Once the door is opened, it cannot be closed again.

The correct code for this script is 6184. To change it, refer to the keypboard's numpad numbers below:
1=79
2=80
3=81
4=75
5=76
6=77
7=71
8=72
9=73

;Triggers

:state=0:state=1

:state=1,pickobject=1,plrdistwithin=60:state=3

:state=3:fpgcrawtextsize=48,fpgcrawtextfont=verdana,fpgcrawtextr=190,fpgcrawtextg=190,fpgcrawtextb=190,fpgcrawtextx=50,fpgcrawtexty=46
:state=3:fpgcrawtext=?
:state=3,plrusingaction=1,etimergreater=500:state=4
:state=3,pickobject=0:state=1

:state=4,pickobject=1,plrdistwithin=60:etimerstart,state=5

:state=5:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=190,fpgcrawtextg=190,fpgcrawtextb=190,fpgcrawtextx=50,fpgcrawtexty=56
:state=5:fpgcrawtext=Entering the right access code should open this door.
:state=5,plrusingaction=1,etimergreater=500:state=6
:state=5,pickobject=0:state=4

:state=6,pickobject=1,plrdistwithin=60:etimerstart,state=7

:state=7:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=7:fpgcrawtext=Enter the 4-digit code <use the keyboard's numpad>
:state=7,etimergreater=3000:state=40
:state=7,plrusingaction=1,etimergreater=500:state=40
:state=7,pickobject=0:state=6

:state=40,pickobject=1,plrdistwithin=100:state=50

:state=50:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=50:fpgcrawtext=_ _ _ _ 
:state=50,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=52
:state=50,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,pickobject=0:state=6

:state=52:etimerstart,state=53

:state=53:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=53:fpgcrawtext=* _ _ _
:state=53,pickobject=1,plrdistwithin=100,etimergreater=500:state=55
:state=53,pickobject=0:state=6

:state=55:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=55:fpgcrawtext=* _ _ _
:state=55,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=56
:state=55,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,pickobject=0:state=6

:state=56:etimerstart,state=57

:state=57:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=57:fpgcrawtext=* * _ _
:state=57,pickobject=1,plrdistwithin=100,etimergreater=500:state=59
:state=57,pickobject=0:state=6

:state=59:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=59:fpgcrawtext=* * _ _
:state=59,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=60
:state=59,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,pickobject=0:state=6

:state=60:etimerstart,state=61

:state=61:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=61:fpgcrawtext=* * * _
:state=61,pickobject=1,plrdistwithin=100,etimergreater=500:state=63
:state=61,pickobject=0:state=6

:state=63:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=63:fpgcrawtext=* * * _
:state=63,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=64
:state=63,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,pickobject=0:state=6

:state=64,etimerstart:state=65

:state=65:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=65:fpgcrawtext=* * * *
:state=65,pickobject=1,plrdistwithin=100,etimergreater=2000:state=90

:state=90:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=90:fpgcrawtext=CODE VALID
:state=90:plrsound=audiobank\misc\checkpoint.wav,state=91

:state=91:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=91:fpgcrawtext=CODE VALID
:state=91:music=OFF
:state=91:etimergreater=3000:state=92
:state=91,pickobject=0:state=92

:state=92:fpgcrawtextoff,activateifused=1

:state=99:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=204,fpgcrawtextg=000,fpgcrawtextb=000,fpgcrawtextx=50,fpgcrawtexty=56
:state=99:fpgcrawtext=CODE INVALID
:state=99:etimerstart,music=audiobank\atmos\alarmhum.wav,state=100

:state=100,plrusingaction=1,etimergreater=500:state=50
:state=100,pickobject=0:state=6

;end of script

+ Code Snippet

;Artificial Intelligence Script:CodeInput02

by TheStoryteller01 2012

;Header

desc=

This script only works with FPSC 1.18. or later.

Made for control pads, monitors or smiliar where the player has to enter a 4-digit code to open a remote door.

Best ist to set the item properties "Isimmobile" to "Yes" and "Strength" to "0" (=indestructible).
The name of the remote door has to be entered in the "Ifused" field of this entity.


The script starts when the player moves the cursor over the item while not more than 60 units away.
If the player enters the wrong code an alarm sound is started but he can still try to enter the correct code and
entering the correct code turns off the alarm. Once the door is opened, it cannot be closed again.

The correct code for this script is 6184. To change it, refer to the keypboard's numpad numbers below:
1=79
2=80
3=81
4=75
5=76
6=77
7=71
8=72
9=73


;Triggers

:state=0:state=1

:state=1,pickobject=1,plrdistwithin=60:state=3

:state=3:fpgcrawtextsize=48,fpgcrawtextfont=verdana,fpgcrawtextr=190,fpgcrawtextg=190,fpgcrawtextb=190,fpgcrawtextx=50,fpgcrawtexty=46
:state=3:fpgcrawtext=?
:state=3,plrusingaction=1,etimergreater=500:state=4
:state=3,pickobject=0:state=1

:state=4,pickobject=1,plrdistwithin=60:etimerstart,state=5

:state=5:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=190,fpgcrawtextg=190,fpgcrawtextb=190,fpgcrawtextx=50,fpgcrawtexty=56
:state=5:fpgcrawtext=Entering the right access code should open this door.
:state=5,plrusingaction=1,etimergreater=500:state=6
:state=5,pickobject=0:state=4

:state=6,pickobject=1,plrdistwithin=60:etimerstart,state=7

:state=7:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=7:fpgcrawtext=Enter the 4-digit code <use the keyboard's numpad>
:state=7,etimergreater=3000:state=40
:state=7,plrusingaction=1,etimergreater=500:state=40
:state=7,pickobject=0:state=6

:state=40,pickobject=1,plrdistwithin=100:state=50

:state=50:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=50:fpgcrawtext=_ _ _ _ 
:state=50,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=52
:state=50,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=50,pickobject=0:state=6

:state=52:etimerstart,state=53

:state=53:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=53:fpgcrawtext=* _ _ _
:state=53,pickobject=1,plrdistwithin=100,etimergreater=500:state=55
:state=53,pickobject=0:state=6

:state=55:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=55:fpgcrawtext=* _ _ _
:state=55,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=56
:state=55,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=55,pickobject=0:state=6

:state=56:etimerstart,state=57

:state=57:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=57:fpgcrawtext=* * _ _
:state=57,pickobject=1,plrdistwithin=100,etimergreater=500:state=59
:state=57,pickobject=0:state=6

:state=59:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=59:fpgcrawtext=* * _ _
:state=59,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=60
:state=59,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=59,pickobject=0:state=6

:state=60:etimerstart,state=61

:state=61:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=61:fpgcrawtext=* * * _
:state=61,pickobject=1,plrdistwithin=100,etimergreater=500:state=63
:state=61,pickobject=0:state=6

:state=63:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=051,fpgcrawtextx=50,fpgcrawtexty=56
:state=63:fpgcrawtext=* * * _
:state=63,keypressed=75 1:plrsound=audiobank\switches\press.wav,state=64
:state=63,keypressed=80 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=81 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=79 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=76 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=77 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=71 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=72 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,keypressed=73 1:plrsound=audiobank\switches\press.wav,state=99
:state=63,pickobject=0:state=6

:state=64,etimerstart:state=65

:state=65:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=65:fpgcrawtext=* * * *
:state=65,pickobject=1,plrdistwithin=100,etimergreater=2000:state=90

:state=90:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=90:fpgcrawtext=CODE VALID
:state=90:plrsound=audiobank\misc\checkpoint.wav,state=91

:state=91:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=051,fpgcrawtextg=255,fpgcrawtextb=51,fpgcrawtextx=50,fpgcrawtexty=56
:state=91:fpgcrawtext=CODE VALID
:state=91:music=OFF
:state=91:etimergreater=3000:state=92
:state=91,pickobject=0:state=92

:state=92:fpgcrawtextoff,activateifused=1

:state=99:fpgcrawtextsize=24,fpgcrawtextfont=verdana,fpgcrawtextr=204,fpgcrawtextg=000,fpgcrawtextb=000,fpgcrawtextx=50,fpgcrawtexty=56
:state=99:fpgcrawtext=CODE INVALID
:state=99:etimerstart,music=audiobank\atmos\alarmhum.wav,state=100

:state=100,plrusingaction=1,etimergreater=500:state=50
:state=100,pickobject=0:state=6

;end of script

but it wont work for me I'm using FPS Creator original patched to version 1.19 and putting the code in the (main) entry for a keypad but when I go to use it nothing appears please can some one tell me what I'm doing wrong as I have been trying to get this working for over 5 hours and still got nothing. I have set the (if used) section of the keypad to my door's name as well.

Thanks all

C-P

Back to top

Profile PM

ncmako

12

Years of Service

User Offline

Joined: 19th Feb 2012

Location: Hendersonville,NC

Posted: 16th Nov 2014 14:03

Link

HI CosmicPhantom
I remember this script, it should work fine as long as you
didn't change anything. It's in the "Main AI" for the key pad.
But when you say

Quote: "when I go to use it nothing appears"

what do you mean? The key pad itself isn't there or the script
doesn't run?
I assume you mean the "script" doesn't run, first double check
that the "key pad" is dynamic. Also be sure to be within 60 units
to trigger the script.
best

My games never have bugs. They just develop random features..

Back to top

Profile PM Email

Sinister Spoon

15

Years of Service

User Offline

Joined: 9th Sep 2008

Location:

Posted: 23rd Nov 2014 20:49

Link

im sure the script supplied is as efficient as it possibly could be but it seems awfully complex for the effect its hoping to achieve...

I havent used fpsc forums for a while so I may be out of line with this but couldnt a simpler effect be achieved? it seems based on sending the state to a specific line should a specific key be pressed meaning for every 10 digits there are 9 repeated lines of code and only one line that directs the engine to the next logical progression path

wouldnt it make more sense to allow the player to input simply 4 values then using variables check to see if those values correspond to the stored values in the script?

say for example everything is sent to state=2

so :state=2,scandcodepressed=1(not using correct syntax here just trying to explain, where 1 represents the numeric key press of 1)so it displays a 1 digit on screen:hudreset(etc display image 1 in first digit field and use localvar=1,incvar=1) to tell fpsc the 1 key has been pressed,

then all the other checks are done in state=2in the same way evertime a key is pressed it adds 1 to the variable corresponding to that digit,eg scancodekeypressed=2(where 2 is the numeric key again not sure what the scan code for it is), inc local var 2 by one,

state=2,scankeypresed =3, inc var 3 by one, and so on and so forth

then after the var has been incremented 4 times run a check comparing the local var values against the stored values for the code,so say you have an additional variable that is incremented everytime a key is pressed regardless of which key it is, when this variable hits 4 it triggers the state which compares the variables of the code you entered to the code required and if they match it then grants access opening the door

for example

if code is 7231, check var 7,2,3,and 1 are set to values of 1, if correct go to state=20 or whatever(again not correct syntax) if incorrect, reset all huds and return to state 0?

I use a very similar method to keep track of and display items the character has picked up (up to 28 and counting so far) and each item inc's a var related to it and the inventory script checks each items var value one by one and displays its image in the correct location if that var is met. if the variable isnt met, meaning the player hasnt picked up the item, it doesnt display the image and skips to the next item check.

personally i use globalvar's for reasons that will become apparent if anyone with a working knowledge of fpsc were to play the game im currently working on but for a simple keypad local var's would seem to be the way to go as they are specific to the entity script within which they are contained. as far as i know :0

I know this probably isnt neccesarily the answer to the problem but im kind of a efficiency nut and i just saw the script and wanted to make it smaller

I didnt sit down and write the script because who knows wether anyone will even read this but if people are unsure of what i mean I'll be happy to whack out a quick example script to show you what i mean.

Happy gaming

smoke em if you got em

Back to top

Profile PM Email

Sinister Spoon

15

Years of Service

User Offline

Joined: 9th Sep 2008

Location:

Posted: 23rd Nov 2014 20:53

Link

also (apologies about the double post apparently its classing me as a new user and my posts need to be authorised) I noticed in state=3 you were doing an etimer condition check but there doesnt seem to be an etimerstart action listed in any of the lines prior to it, this seems the most likely place the script is going wrong, as it will halt there waiting for the timer to hit 500, but since the timer never started, this condition will NEVER be met, effectively breaking the script completely... or am i missing something?

smoke em if you got em

Back to top

Profile PM Email

The Storyteller 01

14

Years of Service

User Offline

Joined: 11th May 2009

Location: On a silent hill in dead space

Posted: 26th Nov 2014 14:59 Edited at: 26th Nov 2014 17:21

Link

@Blackphantom:

The link from my orginal post on this forum doesn't work any longer but I have reposted this script in my blog and made a new upload for the whole pack: http://thestoryteller01.wordpress.com/category/fps-creator/

The download includes a mini level using the script (complete with the alarm sound) and maybe it would help to take a closer look at the setup in my level to find out what's not working for you.

@SinisterSpoon:

If you can pull off a shorter and editing-friendlier variation of my script - please go ahead! If it works, I would gladly post it in my blog with full credits to you.

In case you find my grammar and spelling weird ---> native German speaker ^^

Back to top

Profile PM Email Website

Sinister Spoon

15

Years of Service

User Offline

Joined: 9th Sep 2008

Location:

Posted: 27th Nov 2014 17:00

Link

@the storyteller 01

i dont think the issue is with the script, well it is and it isnt the script as posted 'not working' had this issue

+ Code Snippet

:state=0:state=1

:state=1,pickobject=1,plrdistwithin=60:state=3

:state=3:fpgcrawtextsize=48,fpgcrawtextfont=verdana,fpgcrawtextr=190,fpgcrawtextg=190,fpgcrawtextb=190,fpgcrawtextx=50,fpgcrawtexty=46
:state=3:fpgcrawtext=?
:state=3,plrusingaction=1,[b]etimergreater=500[/b]:state=4
:state=3,pickobject=0:state=1

see in bold its waiting for a time condition but the timers never activated prior to that point, thats where the script is breaking, its waiting for the timer to hit 500 but the timers at 0 at this point in the script, so the script is waiting for a condition that at its current state can never be true...

anyway

as promised heres the shorter version, (i hope i didnt sound arrogant or rude, i just have a thing for efficiency and variables at the moment

)

basically it works like this, the player interacts with the keypad, the keypad then checks to see if a digit has been entered,
if no digit has been entered it waits for one, once a digit has been entered it repeats the process till it has 4 digits entered,
setting the localvar 1-4 to their corresponding numeric, eg
if key 9 is pressed for the 1st code digit it sets localvar=1 to a value of 9

then once all localvar's are set, it checks them against their stored values, and opens the door or whatever if they all match,
if any of the digits entered are incorrect, it plays an alarm and
resets the script to state=0 to allow the player to try again

a lot of it is placeholder text since i dont really know how to use the fpgcraw text yet (only updated from 1.13 to 1.20 a couple days ago so im still using dds images as text

) so just bare that in mind, this is just the AI to control the
actual code, it wont display anything, Ive added a 5th variable (localvar=5) to track which digit is being entered should anyone still be using the older dds style hud for displaying txt to tell the game which 'batch' of numeric image files to use (ie, the numbers 1-9 set up as huds, with an x offset to account for the change of digit offset by 10 for second digit, 20 for 3rd, 30 for 4th etch for positioning and display purposes)

;Artificial Intelligence Script

;Header

desc          = keycode thru variables

;Triggers

;interact with keypad when looking at it

:State=0,pickobject=1:(display hud or craw text for' usekeypad'),state=1

;check see if 1st digit has been entered

:state=1:localvar=1,state=2
:state=2,varequal=0:state=10,etimerstart
:state=2,varnotequal=0:state=3,localvar=5,incvar=1

;check see if second digit has been entered

:state=3:localvar=2,state=4
:state=4,varequal=0:state=10,etimerstart
:state=3,varnotequal=0:state=5,localvar=5,incvar=1

;check see if third digit has been entered

:state=5:localvar=3,state=6
:state=6,varequal=0:state=10,etimerstart
:state=6,varnotequal=0:state=7,localvar=5,incvar=1

;check see if 4th digit has been entered

:state=7:localvar=4,state=8
:state=8,varequal=0:state=10,etimerstart
:state=8,varnotequal=0:state=9,localvar=5,incvar=1

;input code (repeatable cycle sends it back to the first state,
    where the digit check is performed cycling the variable to
	the appropriate digit so the incvar inc's the next variable
	each time a digit is input, eg it inc's local var 1 by
	the increment reflected by the number, so pressing key 9
 	sets local var 1 to 9, sends the script back to state 1
 	where it sees a digit has been entered,now since local var1
         is set to 9 it now sets and checks
	var 2, if no digit has been entered it go's to state 10
	and this time the incrementation is applied to the second digit
	of the code and so on)

:state=10,etimergreater=500,scancodekeypressed=1:incvar=1,state=1
:state=10,etimergreater=500,scancodekeypressed=2:incvar=2,state=1
:state=10,etimergreater=500,scancodekeypressed=3:incvar=3,state=1
:state=10,etimergreater=500,scancodekeypressed=4:incvar=4,state=1
:state=10,etimergreater=500,scancodekeypressed=5:incvar=5,state=1
:state=10,etimergreater=500,scancodekeypressed=6:incvar=6,state=1
:state=10,etimergreater=500,scancodekeypressed=7:incvar=7,state=1
:state=10,etimergreater=500,scancodekeypressed=8:incvar=8,state=1
:state=10,etimergreater=500,scancodekeypressed=9:incvar=9,state=1

;final check (optional i guess..just checks to make sure 
                   all 4 of the code digits have been entered)

:state=9:localvar=5,state=10
:state=10,varequal=4:state=11

;reset script if an error occurs

:state=10,varnotequal=4:(display error message),localvar=1,setvar=0,localvar=2,setvar=0,localvar=3,setvar=0,localvar=4,setvar=0,localvar=5,setvar=0,(unshow code entering hud)state=0

;check to make sure the variables entered match those preset for the code
 (in this example the code is 8642

;check first code digit, if correct proceeds to next, incorrect resets script

:state=11:localvar=1,state=12
:state=12,varequal=8:state=13
:state=12,varnotequal=8:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;check second code digit if correct proceeds to next, incorrect resets script

:state=13:localvar=2,state=14
:state=14,varequal=6:state=15
:state=14,varnotequal=6:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;check third code digit if correct proceeds to next, incorrect resets script

:state=15:localvar=3,state=16
:state=16,varequal=4:state=17
:state=16,varnotequal=4:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;check fourth digit if correct proceeds to next, incorrect resets script

:state=17:localvar=4,state=18
:state=18,varequal=2:state=19
:state=18,varnotequal=2:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;run whatever action for a successful entry

:state=19:plrsound=(access granted sound?),(open door, activate used etc etc)

;End of Script

+ Code Snippet

;Artificial Intelligence Script

;Header

desc          = keycode thru variables

;Triggers

;interact with keypad when looking at it

:State=0,pickobject=1:(display hud or craw text for' usekeypad'),state=1

;check see if 1st digit has been entered

:state=1:localvar=1,state=2
:state=2,varequal=0:state=10,etimerstart
:state=2,varnotequal=0:state=3,localvar=5,incvar=1

;check see if second digit has been entered

:state=3:localvar=2,state=4
:state=4,varequal=0:state=10,etimerstart
:state=3,varnotequal=0:state=5,localvar=5,incvar=1

;check see if third digit has been entered

:state=5:localvar=3,state=6
:state=6,varequal=0:state=10,etimerstart
:state=6,varnotequal=0:state=7,localvar=5,incvar=1

;check see if 4th digit has been entered

:state=7:localvar=4,state=8
:state=8,varequal=0:state=10,etimerstart
:state=8,varnotequal=0:state=9,localvar=5,incvar=1

;input code (repeatable cycle sends it back to the first state,
    where the digit check is performed cycling the variable to
	the appropriate digit so the incvar inc's the next variable
	each time a digit is input, eg it inc's local var 1 by
	the increment reflected by the number, so pressing key 9
 	sets local var 1 to 9, sends the script back to state 1
 	where it sees a digit has been entered,now since local var1
         is set to 9 it now sets and checks
	var 2, if no digit has been entered it go's to state 10
	and this time the incrementation is applied to the second digit
	of the code and so on)

:state=10,etimergreater=500,scancodekeypressed=1:incvar=1,state=1
:state=10,etimergreater=500,scancodekeypressed=2:incvar=2,state=1
:state=10,etimergreater=500,scancodekeypressed=3:incvar=3,state=1
:state=10,etimergreater=500,scancodekeypressed=4:incvar=4,state=1
:state=10,etimergreater=500,scancodekeypressed=5:incvar=5,state=1
:state=10,etimergreater=500,scancodekeypressed=6:incvar=6,state=1
:state=10,etimergreater=500,scancodekeypressed=7:incvar=7,state=1
:state=10,etimergreater=500,scancodekeypressed=8:incvar=8,state=1
:state=10,etimergreater=500,scancodekeypressed=9:incvar=9,state=1

;final check (optional i guess..just checks to make sure 
                   all 4 of the code digits have been entered)

:state=9:localvar=5,state=10
:state=10,varequal=4:state=11

;reset script if an error occurs

:state=10,varnotequal=4:(display error message),localvar=1,setvar=0,localvar=2,setvar=0,localvar=3,setvar=0,localvar=4,setvar=0,localvar=5,setvar=0,(unshow code entering hud)state=0

;check to make sure the variables entered match those preset for the code
 (in this example the code is 8642

;check first code digit, if correct proceeds to next, incorrect resets script

:state=11:localvar=1,state=12
:state=12,varequal=8:state=13
:state=12,varnotequal=8:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;check second code digit if correct proceeds to next, incorrect resets script

:state=13:localvar=2,state=14
:state=14,varequal=6:state=15
:state=14,varnotequal=6:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;check third code digit if correct proceeds to next, incorrect resets script

:state=15:localvar=3,state=16
:state=16,varequal=4:state=17
:state=16,varnotequal=4:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0


;check fourth digit if correct proceeds to next, incorrect resets script

:state=17:localvar=4,state=18
:state=18,varequal=2:state=19
:state=18,varnotequal=2:plrsound=(path of alarm sound),and whatever action to set if the alarm sounds,state=0

;run whatever action for a successful entry

:state=19:plrsound=(access granted sound?),(open door, activate used etc etc)

;End of Script

the timers are there to make sure the key press is registered once
as fpsc doesnt seemt o like multiple key press conditions coded immediatley after each other without a pause to allow the player to pull their finger off the key.

As you can probably tell i havent done any testing or set up any huds its just a proof of concept, it dont really need a keycode atm i just thought maybe there might be a more efficient method, although with all the notations i added mines probably twice as long as the original

hope this is in someway useful, im not sure that its better than the original script, i just like confining any numerical options to a variable since variables can be read by multiple different actions and even by other scripts were you to use global ones

smoke em if you got em

Back to top

Profile PM Email

The Storyteller 01

14

Years of Service

User Offline

Joined: 11th May 2009

Location: On a silent hill in dead space

Posted: 28th Nov 2014 09:57

Link

The first ETIMERGREATER is indeed missing an ETIMERSTART but it doesn't break the script.

I tested it and it works fine. Since there is no ETIMER running at this point, the engine simply ignores the condition. The script still is faulty, because the 500 unit break is not implemented, so i'll change this.

Thanks for looking it up.

I had no time for testing your script though but I will over the weekend

In case you find my grammar and spelling weird ---> native German speaker ^^

Back to top

Profile PM Email Website

Sorry your browser is not supported!

FPSC Classic Scripts / Keycoded door (remote door)