QB64/qbjs
QB64/qbjs
1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-09-20 04:24:45 +00:00
Code Issues Releases Wiki Activity

Fixed Randomize Timer.

Browse source
This commit is contained in:
William Barnes 2022-06-15 17:48:13 -04:00
parent f5fc0c9cd3
commit 574e599046
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
qb2js.js
View file

@ -769,8 +769,8 @@ var ConvertRandomize = null;
if (((QB.func_UCase( (QB.func__Trim( (QB.func_Left( args, 5)))))) == "USING") ) {
uusing = "true";
theseed = (QB.func__Trim( (QB.func_Right( args, (QB.func_Len( args)) - 5))));
theseed = (await func_ConvertExpression( theseed));
}
theseed = (await func_ConvertExpression( theseed));
}
ConvertRandomize = (await func_CallMethod( m)) +"(" + uusing +", " + theseed +")";
return ConvertRandomize;

4
tools/qb2js.bas
View file

@ -2,6 +2,8 @@ Option _Explicit
$Console:Only
'$ExeIcon:'./../gx/resource/gx.ico'
' In console after, creating exe, run: qb2js qb2js.bas > ../qb2js.js
Const FILE = 1
Const TEXT = 2
Const False = 0
@ -858,8 +860,8 @@ Function ConvertRandomize$ (m As Method, args As String)
If (UCase$(_Trim$(Left$(args, 5))) = "USING") Then
uusing = "true"
theseed = _Trim$(Right$(args, Len(args) - 5))
theseed = ConvertExpression(theseed)
End If
theseed = ConvertExpression(theseed)
End If
ConvertRandomize = CallMethod(m) + "(" + uusing + ", " + theseed + ")"
End Function