dupa

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - systemshock

Pages: 1 2 3 [4] 5 6 ... 12
46
Thanks mate  i   check thought my  coding for that  type of  mistake ..  cheer  for the  heads  up.

47






just  doiing   refresh of my  body skins  folder..to  keep the back ground  chartor the  same




48
Basically what I did Was I made subfolders just to keep things organised, the all based and located in characters.


i got  quite  a lot of  file  i collected.

49
Ultra Hal Assistant File Sharing Area / Re: Smart Alarm v3
« on: November 25, 2015, 06:41:56 am »
yep  loving that idea mate  i like  useful  code  chunck.

50
For my modified vr haptic plug-in, I went for hard coding everything To point at haps when it came to costume changes I couldn't get the time function to work.
Lighting system too.
It's very dependent on the file tree that I set up in characters to keep things organised but it does show all the techniques that I've been using...


51
Ultra Hal Assistant File Sharing Area / Re: Smart Alarm v3
« on: November 24, 2015, 11:14:18 am »
Sadly Google Chrome is blocking me from downloading this, is there a way that I can directly download ..?
From somewhere else, because this seems to have a whole heap of very useful code functions for us Hal enthusiasts.

52
Ultra Hal Assistant File Sharing Area / Re: Smart Alarm v3
« on: November 24, 2015, 11:10:26 am »
wow    so   going to  check this out   today  ,thanks  for  all  that  work ..

53
Ultra Hal Assistant File Sharing Area / Re: Moon Plugin
« on: November 24, 2015, 08:58:20 am »
Really interesting bit of plug-in code, I wonder if can be used to trigger a background change to go with the phases of the moon or maybe we could create a figure that showed the phases of the moon  at night.

54


REFIT



55

56


a refreshed skin...

57


here another one..

58
one the problems I have noticed about scripted responses is it tends to form a topic...

I'm hoping this will solve the problem

HalBrain.ReadOnlyMode = True     ..



If InStr(vrUserSentence, "bike outfit") <> 0 Then
HalMenu.HalCommand "<HAPFILE>BikeOutfit.hap</HAPFILE>"
   
   GetResponse = " I like this outfit."
       HalBrain.ReadOnlyMode = True

does that make  sence..??




End If

59
I was just thinking in fact that might be a very good way of distributing packages.... For example a complete starship package with a starship plug-in.
Same could apply to other generic multiple location sets....

And they could be accessed also, by self referring dialogue, and idleness dialogue.

60
Email me mate, I'm more than happy to share any coding I've done to maybe together we can share and expand the VR function to something really cool.


I have an idea for diversity I've not tested this code yet but I reckon it might work..

Rem Type=Plugin
Rem Name= HAP Scene Trigger
Rem Author=SystemShock
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
  lblPlugin(0).Caption = "A simple trigger word or phrase plug-in, to trigger happy scenes, with an inbuilt random choice for ultra hal reaction to the trigger word. Thus giving more variation and illusion of freedom of choice."
  lblPlugin(0).Move 120, 10, 3300, 1000
  lblPlugin(0).WordWrap = True
  lblPlugin(0).Visible = True
End Sub
'***************************************************************************
Rem PLUGIN: PLUGINAREA1

'***************************************************************************


If InStr(vrUserSentence, "telport to spaceship") <> 0 Then

        Select Case (Int(Rnd * 4) + 1)
      Case 1
          HalMenu.HalCommand "<HAPFILE>spaceship.hap</HAPFILE"
         GetResponse = "telporting to  the bridge." & vbCrLf
      Case 2
         HalCommands = "<HAPFILE>dockingbay.hap</HAPFILE>"
         GetResponse = "sure i telported to the docking bay ." & vbCrLf
      Case 3
         HalCommands = "<HAPFILE>medicalroom.hap</HAPFILE>"
         GetResponse = "i have telported to medical." & vbCrLf
      Case 4
         HalCommands = "<HAPFILE>engineroom.hap</HAPFILE>"
         GetResponse = "ok i landed in the  enginroom what next?." & vbCrLf
      Case 5
         HalCommands = "<HAPFILE>no.hap</HAPFILE>"
         GetResponse = "sorry am not in the mood for that." & vbCrLf
      End Select
      
   End If
   
   'this then  cool  be fine tune  with on  shot lines...

If InStr(vrUserSentence, "report to the bridge ") <> 0 Then

        Select Case (Int(Rnd * 4) + 1)
      Case 1
          HalCommands = "<HAPFILE>spaceshipA.hap</HAPFILE>"
         GetResponse = "on my way ." & vbCrLf
      Case 2
         HalCommands = "<HAPFILE>spaceshipB.hap</HAPFILE>"
         GetResponse = "roger that ." & vbCrLf
      Case 3
         HalCommands = "<HAPFILE>spaceshipC.hap</HAPFILE>"
         GetResponse = "realy am buzy." & vbCrLf
      Case 4
         HalCommands = "<HAPFILE>spaceshipD.hap</HAPFILE>"
         GetResponse = "I love  this roleplay  thing." & vbCrLf
      Case 5
         HalCommands = "<HAPFILE>pissedoff.hap</HAPFILE>"
         GetResponse = "no am not ,your not my boss." & vbCrLf
      End Select
      
   End If
      

firing simple  plug ins   like the  below


#Haptek  Version= 1.00 HapType= script FileType= text

'A  simple  hap  file template  for 64 bit


\Clock [t= 0.0] \LoadBackgrnd [file= [C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\Characters\BacksMaster\vgpback.JPG]]
'\Clock [t= 0.0] \Load [file= [C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\Characters\body_female.htr]]
\Clock [t= 0.0] \Load [file= [C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\Characters\Bodyskins\KimSue.jpg]]
'\Clock [t= 0.0] \Translate [x= 0 y= 0 z= 250 t= 0]
\Clock [t= 1.0] \Load [file= play.ogg]

\LoadBackgrnd [file= [C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\Characters\vgpback.JPG]]

Pages: 1 2 3 [4] 5 6 ... 12