Skip to content

Commit

Permalink
v1.2.3 + fix for the guard getting stuck in the doorway during the intro
Browse files Browse the repository at this point in the history
  • Loading branch information
Regalis committed Mar 17, 2016
1 parent a453fcd commit 32e3ea9
Show file tree
Hide file tree
Showing 1,631 changed files with 184,908 additions and 2 deletions.
3 changes: 3 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
*FastExt.bb
*FastText_Unicode.bb
*FastImage.bb
30 changes: 30 additions & 0 deletions 173blitz3D.ipf
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
[IDEal Project file]
<Settings>
Version="1"
Expanded="True"
Icon=""
MainFile="Main.bb"
Compiler="Blitz3D"
CommandLine=""
</Settings>
<Folders>
</Folders>
<Files>
AbsPath="\Achievements.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Converter.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Difficulty.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\DrawPortals.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Dreamfilter.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\FastExt.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Items.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Main.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Map Creator\MapCreator.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\MapSystem.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Menu.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\NPCs.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Particles.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Save.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\Skybox.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\StrictLoads.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
AbsPath="\UpdateEvents.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
</Files>
92 changes: 92 additions & 0 deletions Achievements.bb
Original file line number Diff line number Diff line change
@@ -0,0 +1,92 @@
;achievement menu & messages by InnocentSam

Const MAXACHIEVEMENTS=34
Dim Achievements%(MAXACHIEVEMENTS)

Const Achv008%=0, Achv012%=1, Achv035%=2, Achv049%=3, Achv055=4, Achv079%=5, Achv096%=6, Achv106%=7, Achv148%=8, Achv178=9, Achv205=10
Const Achv294%=11, Achv372%=12, Achv420%=13, Achv500%=14, Achv513%=15, Achv714%=16, Achv789%=17, Achv860%=18, Achv895%=19
Const Achv914%=20, Achv939%=21, Achv966%=22, Achv970=23, Achv1025%=24, Achv1048=25, Achv1074=26, Achv1123=27

Const AchvMaynard%=28, AchvHarp%=29, AchvSNAV%=30, AchvOmni%=31, AchvConsole%=32, AchvTesla%=33, AchvPD%=34

Global UsedConsole

Global AchievementsMenu%
Global AchvMSGenabled% = GetINIInt("options.ini", "options", "achievement popup enabled")
Dim AchievementStrings$(MAXACHIEVEMENTS)
Dim AchievementDescs$(MAXACHIEVEMENTS)
Dim AchvIMG%(MAXACHIEVEMENTS)
For i = 0 To MAXACHIEVEMENTS-1
Local loc2% = GetINISectionLocation("Data\achievementstrings.ini", "s"+Str(i))
AchievementStrings(i) = GetINIString2("Data\achievementstrings.ini", loc2, "string1")
AchievementDescs(i) = GetINIString2("Data\achievementstrings.ini", loc2, "AchvDesc")

Local image$ = GetINIString2("Data\achievementstrings.ini", loc2, "image")

AchvIMG(i) = LoadImage_Strict("GFX\menu\achievements\"+image+".jpg")
AchvIMG(i) = ResizeImage2(AchvIMG(i),ImageWidth(AchvIMG(i))*GraphicHeight/768.0,ImageHeight(AchvIMG(i))*GraphicHeight/768.0)
Next

Global AchvLocked = LoadImage_Strict("GFX\menu\achievements\achvlocked.jpg")
AchvLocked = ResizeImage2(AchvLocked,ImageWidth(AchvLocked)*GraphicHeight/768.0,ImageHeight(AchvLocked)*GraphicHeight/768.0)

Function GiveAchievement(achvname%, showMessage%=True)
If Achievements(achvname)<>True Then
Achievements(achvname)=True
If AchvMSGenabled And showMessage Then
Local loc2% = GetINISectionLocation("Data\achievementstrings.ini", "s"+achvname)
Local AchievementName$ = GetINIString2("Data\achievementstrings.ini", loc2, "string1")
Msg = "Achievement Unlocked - "+AchievementName
MsgTimer=70*7
EndIf
EndIf
End Function

Function AchievementTooltip(achvno%)
Local scale# = GraphicHeight/768.0

Local width = (StringWidth(AchievementStrings(achvno)))*MenuScale

Color 25,25,25
Rect(MouseX()+20,MouseY()+20,width,38*scale,True)
Color 150,150,150
Rect(MouseX()+20,MouseY()+20,width,38*scale,False)
SetFont Font3
Text(MouseX()+(20*MenuScale)+(width/2),MouseY()+(40*MenuScale), AchievementStrings(achvno), True, True)
SetFont Font1
Text(MouseX()+(20*MenuScale)+(width/2),MouseY()+(60*MenuScale), AchievementDescs(achvno), True, True)
End Function

Function DrawAchvIMG(x%, y%, achvno%)
Local row%
Local scale# = GraphicHeight/768.0
Local SeparationConst2 = 76 * scale
; If achvno >= 0 And achvno < 4 Then
; row = achvno
; ElseIf achvno >= 3 And achvno <= 6 Then
; row = achvno-3
; ElseIf achvno >= 7 And achvno <= 10 Then
; row = achvno-7
; ElseIf achvno >= 11 And achvno <= 14 Then
; row = achvno-11
; ElseIf achvno >= 15 And achvno <= 18 Then
; row = achvno-15
; ElseIf achvno >= 19 And achvno <= 22 Then
; row = achvno-19
; ElseIf achvno >= 24 And achvno <= 26 Then
; row = achvno-24
; EndIf
row = achvno Mod 4
Color 0,0,0
Rect((x+((row)*SeparationConst2)), y, 64*scale, 64*scale, True)
If Achievements(achvno) = True Then
DrawImage(AchvIMG(achvno),(x+(row*SeparationConst2)),y)
Else
DrawImage(AchvLocked,(x+(row*SeparationConst2)),y)
EndIf
Color 50,50,50

Rect((x+(row*SeparationConst2)), y, 64*scale, 64*scale, False)
End Function
;~IDEal Editor Parameters:
;~C#Blitz3D
Binary file added B3D - RoomMesh Conversion.exe
Binary file not shown.
Binary file added B3D - RoomMesh Conversion_original.exe
Binary file not shown.
Loading

0 comments on commit 32e3ea9

Please sign in to comment.