Sorry your browser is not supported!

character_norm_spec_refl_alpha
character_norm_spec_refl_alpha_sss_full
prop_norm_spec_refl_alpha
prop_norm_spec_refl_alpha_sss_full

;Artificial Intelligence Script
 
;Header
 
desc          = Head bobbing script for player walking running and crouching
 
;Triggers

:always:plrcamoffseton=1

:state=0,keypressed=17 1,plrnotrunning,plrnotcrouched,plrnotjumping:state=1
:state=0,keypressed=17 0,plrnotrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=17 1,plrrunning,plrnotcrouched,plrnotjumping:state=6
:state=0,keypressed=17 0,plrrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=17 1,plrcrouching:state=10
:state=0,keypressed=17 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

:state=0,keypressed=30 1,plrnotrunning,plrnotcrouched,plrnotjumping:state=1
:state=0,keypressed=30 0,plrnotrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=30 1,plrrunning,plrnotcrouched,plrnotjumping:state=6
:state=0,keypressed=30 0,plrrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=30 1,plrcrouching:state=10
:state=0,keypressed=30 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

:state=0,keypressed=31 1,plrnotrunning,plrnotcrouched,plrnotjumping:state=1
:state=0,keypressed=31 0,plrnotrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=31 1,plrrunning,plrnotcrouched,plrnotjumping:state=6
:state=0,keypressed=31 0,plrrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=31 1,plrcrouching:state=10
:state=0,keypressed=31 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

:state=0,keypressed=32 1,plrnotrunning,plrnotcrouched,plrnotjumping:state=1
:state=0,keypressed=32 0,plrnotrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=32 1,plrrunning,plrnotcrouched,plrnotjumping:state=6
:state=0,keypressed=32 0,plrrunning,plrnotcrouched,plrnotjumping:setvar=$CAZ 0,0,state=0
:state=0,keypressed=32 1,plrcrouching:state=10
:state=0,keypressed=32 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

;Player is jumping
:state=0,keypressed=17 1,plrjumping,plrnotcrouched:state=14
:state=0,keypressed=30 1,plrjumping,plrnotcrouched:state=14
:state=0,keypressed=31 1,plrjumping,plrnotcrouched:state=14
:state=0,keypressed=32 1,plrjumping,plrnotcrouched:state=14
:state=0,plrjumping:state=14

:state=3,keypressed=17 1,plrnotrunning,plrnotcrouched:state=4
:state=3,keypressed=17 0,plrnotrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=17 1,plrrunning,plrnotcrouched:state=8
:state=3,keypressed=17 0,plrrunning,plrnotcrouched:setvar=$CAZ 0,0,state=0
:state=3,keypressed=17 1,plrcrouching:state=12
:state=3,keypressed=17 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

:state=3,keypressed=30 1,plrnotrunning,plrnotcrouched:state=4
:state=3,keypressed=30 0,plrnotrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=30 1,plrrunning,plrnotcrouched:state=8
:state=3,keypressed=30 0,plrrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=30 1,plrcrouching:state=12
:state=3,keypressed=30 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

:state=3,keypressed=31 1,plrnotrunning,plrnotcrouched:state=4
:state=3,keypressed=31 0,plrnotrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=31 1,plrrunning,plrnotcrouched:state=8
:state=3,keypressed=31 0,plrrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=31 1,plrcrouching:state=12
:state=3,keypressed=31 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

:state=3,keypressed=32 1,plrnotrunning,plrnotcrouched:state=4
:state=3,keypressed=32 0,plrnotrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=32 1,plrrunning,plrnotcrouched:state=8
:state=3,keypressed=32 0,plrrunning,plrnotcrouched:0,setvar=$CAZ 0,0,state=0
:state=3,keypressed=32 1,plrcrouching:state=12
:state=3,keypressed=32 0,plrcrouching:0,setvar=$CAZ 0,0,state=0

;Player is Moving (no sprint, no crouch, jo jump)

:state=1:etimerstart,state=2
:state=2,etimergreater=0:setvar=$CAZ 0,0
:state=2,etimergreater=17:setvar=$CAZ 0.05,0.05
:state=2,etimergreater=33:setvar=$CAZ 0.1,0.1
:state=2,etimergreater=50:setvar=$CAZ 0.15,0.15
:state=2,etimergreater=66:setvar=$CAZ 0.2,0.2
:state=2,etimergreater=83:setvar=$CAZ 0.25,0.25
:state=2,etimergreater=99:setvar=$CAZ 0.3,0.3
:state=2,etimergreater=116:setvar=$CAZ 0.35,0.35
:state=2,etimergreater=132:setvar=$CAZ 0.4,0.4
:state=2,etimergreater=149:setvar=$CAZ 0.45,0.45
:state=2,etimergreater=165:setvar=$CAZ 0.5,0.5
:state=2,etimergreater=182:setvar=$CAZ 0.45,0.45
:state=2,etimergreater=198:setvar=$CAZ 0.4,0.4
:state=2,etimergreater=215:setvar=$CAZ 0.35,0.35
:state=2,etimergreater=231:setvar=$CAZ 0.3,0.3
:state=2,etimergreater=248:setvar=$CAZ 0.25,0.25
:state=2,etimergreater=264:setvar=$CAZ 0.2,0.2
:state=2,etimergreater=281:setvar=$CAZ 0.15,0.15
:state=2,etimergreater=297:setvar=$CAZ 0.1,0.1
:state=2,etimergreater=300:setvar=$CAZ 0.05,0.05,state=3

:state=4:etimerstart,state=5
:state=5,etimergreater=0:setvar=$CAZ 0,0
:state=5,etimergreater=17:setvar=$CAZ -0.05,-0.05
:state=5,etimergreater=33:setvar=$CAZ -0.1,-0.1
:state=5,etimergreater=50:setvar=$CAZ -0.15,-0.15
:state=5,etimergreater=66:setvar=$CAZ -0.2,-0.2
:state=5,etimergreater=83:setvar=$CAZ -0.25,-0.25
:state=5,etimergreater=99:setvar=$CAZ -0.3,-0.3
:state=5,etimergreater=116:setvar=$CAZ -0.35,-0.35
:state=5,etimergreater=132:setvar=$CAZ -0.4,-0.4
:state=5,etimergreater=149:setvar=$CAZ -0.45,-0.45
:state=5,etimergreater=165:setvar=$CAZ -0.5,-0.5
:state=5,etimergreater=182:setvar=$CAZ -0.45,-0.45
:state=5,etimergreater=198:setvar=$CAZ -0.4,-0.4
:state=5,etimergreater=215:setvar=$CAZ -0.35,-0.35
:state=5,etimergreater=231:setvar=$CAZ -0.3,-0.3
:state=5,etimergreater=248:setvar=$CAZ -0.25,-0.25
:state=5,etimergreater=264:setvar=$CAZ -0.2,-0.2
:state=5,etimergreater=281:setvar=$CAZ -0.15,-0.15
:state=5,etimergreater=297:setvar=$CAZ -0.1,-0.1
:state=5,etimergreater=297:setvar=$CAZ -0.05,-0.05
:state=5,etimergreater=300:setvar=$CAZ 0,0,state=0

;Player is sprinting (no move, no crouch, no jump)

:state=6:etimerstart,state=7
:state=7,etimergreater=0:setvar=$CAZ 0,0
:state=7,etimergreater=13:setvar=$CAZ 0.1,0.1
:state=7,etimergreater=25:setvar=$CAZ 0.2,0.2
:state=7,etimergreater=38:setvar=$CAZ 0.3,0.3
:state=7,etimergreater=50:setvar=$CAZ 0.4,0.4
:state=7,etimergreater=63:setvar=$CAZ 0.5,0.5
:state=7,etimergreater=75:setvar=$CAZ 0.6,0.6
:state=7,etimergreater=88:setvar=$CAZ 0.7,0.7
:state=7,etimergreater=100:setvar=$CAZ 0.8,0.8
:state=7,etimergreater=113:setvar=$CAZ 0.9,0.9
:state=7,etimergreater=125:setvar=$CAZ 1,1
:state=7,etimergreater=138:setvar=$CAZ 0.9,0.9
:state=7,etimergreater=150:setvar=$CAZ 0.8,0.8
:state=7,etimergreater=163:setvar=$CAZ 0.7,0.7
:state=7,etimergreater=175:setvar=$CAZ 0.6,0.6
:state=7,etimergreater=188:setvar=$CAZ 0.5,0.5
:state=7,etimergreater=200:setvar=$CAZ 0.4,0.4
:state=7,etimergreater=213:setvar=$CAZ 0.3,0.3
:state=7,etimergreater=225:setvar=$CAZ 0.2,0.2
:state=7,etimergreater=238:setvar=$CAZ 0.1,0.1
:state=7,etimergreater=250:setvar=$CAZ 0,0,state=3

:state=8:etimerstart,state=9
:state=9,etimergreater=0:setvar=$CAZ 0,0
:state=9,etimergreater=13:setvar=$CAZ -0.1,-0.1
:state=9,etimergreater=25:setvar=$CAZ -0.2,-0.2
:state=9,etimergreater=38:setvar=$CAZ -0.3,-0.3
:state=9,etimergreater=50:setvar=$CAZ -0.4,-0.4
:state=9,etimergreater=63:setvar=$CAZ -0.5,-0.5
:state=9,etimergreater=75:setvar=$CAZ -0.6,-0.6
:state=9,etimergreater=88:setvar=$CAZ -0.7,-0.7
:state=9,etimergreater=100:setvar=$CAZ -0.8,-0.8
:state=9,etimergreater=113:setvar=$CAZ -0.9,-0.9
:state=9,etimergreater=125:setvar=$CAZ -1,-1
:state=9,etimergreater=138:setvar=$CAZ -0.9,-0.9
:state=9,etimergreater=150:setvar=$CAZ -0.8,-0.8
:state=9,etimergreater=163:setvar=$CAZ -0.7,-0.7
:state=9,etimergreater=175:setvar=$CAZ -0.6,-0.6
:state=9,etimergreater=188:setvar=$CAZ -0.5,-0.5
:state=9,etimergreater=200:setvar=$CAZ -0.4,-0.4
:state=9,etimergreater=213:setvar=$CAZ -0.3,-0.3
:state=9,etimergreater=225:setvar=$CAZ -0.2,-0.2
:state=9,etimergreater=238:setvar=$CAZ -0.1,-0.1
:state=9,etimergreater=250:setvar=$CAZ 0,0,state=0

;Player is crouching (no move, no sprint, no jump)

:state=10:etimerstart,state=11
:state=11,etimergreater=0:setvar=$CAZ 0,0
:state=11,etimergreater=25:setvar=$CAZ 0.1,0.1
:state=11,etimergreater=50:setvar=$CAZ 0.2,0.2
:state=11,etimergreater=75:setvar=$CAZ 0.3,0.3
:state=11,etimergreater=100:setvar=$CAZ 0.4,0.4
:state=11,etimergreater=125:setvar=$CAZ 0.5,0.5
:state=11,etimergreater=150:setvar=$CAZ 0.6,0.6
:state=11,etimergreater=175:setvar=$CAZ 0.7,0.7
:state=11,etimergreater=200:setvar=$CAZ 0.8,0.8
:state=11,etimergreater=225:setvar=$CAZ 0.9,0.9
:state=11,etimergreater=250:setvar=$CAZ 1,1
:state=11,etimergreater=275:setvar=$CAZ 0.9,0.9
:state=11,etimergreater=300:setvar=$CAZ 0.8,0.8
:state=11,etimergreater=325:setvar=$CAZ 0.7,0.7
:state=11,etimergreater=350:setvar=$CAZ 0.6,0.6
:state=11,etimergreater=375:setvar=$CAZ 0.5,0.5
:state=11,etimergreater=400:setvar=$CAZ 0.4,0.4
:state=11,etimergreater=425:setvar=$CAZ 0.3,0.3
:state=11,etimergreater=450:setvar=$CAZ 0.2,0.2
:state=11,etimergreater=500:setvar=$CAZ 0.1,0.1,state=3

:state=12:etimerstart,state=13
:state=13,etimergreater=0:setvar=$CAZ 0,0
:state=13,etimergreater=25:setvar=$CAZ -0.1,-0.1
:state=13,etimergreater=50:setvar=$CAZ -0.2,-0.2
:state=13,etimergreater=75:setvar=$CAZ -0.3,-0.3
:state=13,etimergreater=100:setvar=$CAZ -0.4,-0.4
:state=13,etimergreater=125:setvar=$CAZ -0.5,-0.5
:state=13,etimergreater=150:setvar=$CAZ -0.6,-0.6
:state=13,etimergreater=175:setvar=$CAZ -0.7,-0.7
:state=13,etimergreater=200:setvar=$CAZ -0.8,-0.8
:state=13,etimergreater=225:setvar=$CAZ -0.9,-0.9
:state=13,etimergreater=250:setvar=$CAZ -1,-1
:state=13,etimergreater=275:setvar=$CAZ -0.9,-0.9
:state=13,etimergreater=300:setvar=$CAZ -0.8,-0.8
:state=13,etimergreater=325:setvar=$CAZ -0.7,-0.7
:state=13,etimergreater=350:setvar=$CAZ -0.6,-0.6
:state=13,etimergreater=375:setvar=$CAZ -0.5,-0.5
:state=13,etimergreater=400:setvar=$CAZ -0.4,-0.4
:state=13,etimergreater=425:setvar=$CAZ -0.3,-0.3
:state=13,etimergreater=450:setvar=$CAZ -0.2,-0.2
:state=13,etimergreater=475:setvar=$CAZ -0.1,-0.1
:state=13,etimergreater=500:setvar=$CAZ 0,0,state=0

;Player is jumping

:state=14:etimerstart,state=15
:state=15,etimergreater=0:plrcamoffsety=0
:state=15,etimergreater=20:plrcamoffsety=1
:state=15,etimergreater=40:plrcamoffsety=2
:state=15,etimergreater=60:plrcamoffsety=3
:state=15,etimergreater=80:plrcamoffsety=4
:state=15,etimergreater=100:plrcamoffsety=5
:state=15,etimergreater=120:plrcamoffsety=5
:state=15,etimergreater=140:plrcamoffsety=5
:state=15,etimergreate=150:plrcamoffsety=5
:state=15:etimergreater=160:plrcamoffset=5
:state=15,etimergreater=180:plrcamoffsety=4
:state=15,etimergreater=200:plrcamoffsety=3
:state=15,etimergreater=220:plrcamoffsety=2
:state=15,etimergreater=240:plrcamoffsety=1
:state=15,etimergreater=250:plrcamoffsety=0
;:state=15,etimergreater=500,plronground=1:plrcamoffsety=-2
;:state=15,etimergreater=600,plronground=1:plrcamoffsety=-1
;:state=15,etimergreater=750,plronground=1:plrcamoffsety=0
:state=15,etimergreater=1000:state=0


;End of Script

function talkBox(x as integer,y as integer,s as string,width as integer,tColor as dword,bColor as dword,charname$ as string,charnum as integer,currentchatnumber as integer,useyesno as boolean)
   local InputString$ as string
   local sTemp as string
   local lines as integer
   local i as integer
   local length as integer
   local wIndex as integer
   local height as integer
   local yesnoresult as integer
   `
   sTemp = s
   sTemp = sTemp + " "
   lines = 1
   `
   set text font rpg_chattextstyle.fontname$
   set text size rpg_chattextstyle.fontsize
   if rpg_chattextstyle.fontbold = 1
      set text to bold
   else
      set text to normal
   endif
   `
   while text width(sTemp) > width
      length = len(sTemp)
      for i = 1 to length
         if mid$(sTemp, i) = " "
            wIndex = i
         endif
         if text width(left$(sTemp,i)) > width
            inc lines
            exit
         endif
      next i
      sTemp = right$(sTemp,length-wIndex)
   endwhile
   `
  `if lines = 1 then inc lines
   height = text height(s) * (lines)
   ink bColor,0
   box x,y,x+width,y+height
   ink tColor,0
   wrapText(x,y,s,width,0)
   `
   ink rgb(255,255,255),0
   if useyesno
      yesnoresult = yesnoprompt("verdana","20","300")
      select yesnoresult
         case 21:
            rpg_yesnoresult = 21
         endcase
         case 49:
            rpg_yesnoresult = 49
         endcase
      endselect
   else
      center text 512,300,"Click mouse button to continue!"
      sync
      do
         if control_mouseclick()=1 then exit
          if gxbox=1 : rem define in a config later
              if joystick fire x(0)=1  then exit
          endif
      loop
   endif
   `position mouse screen width()/2,(screen height()/4)*3.5
   inputpositionmouse(screen width()/2,(screen height()/4)*3.5)
   cleardelta=mousemovex() : cleardelta=mousemovey()
   set text transparent
   set text to normal
   ink rgb(255,255,255),0 : set text font "Verdana" : set text size 16
endfunction