;***************************** ;* RoboTask Task file ;* Do not edit in text editor! ;***************************** [Root] ActionAfterRun=INTEGER|0 Actions=FOLDER Automat=INTEGER|-1 CatID=INTEGER|700197831 ContinueOnError=INTEGER|0 ExternalName=STRING|"Task584" Hide=INTEGER|0 ID=INTEGER|510991054 Name=STRING|"Random integer value from 10 to 20" Priority=INTEGER|3 RunOnClose=INTEGER|0 RunOnStartup=INTEGER|0 ToLog=INTEGER|3 WriteGeneralLog=INTEGER|0 [Actions] Action1=FOLDER Action2=FOLDER [Actions\Action1] ActionID=STRING|"BASIC_SCRIPT" Enabled=INTEGER|-1 Name=STRING|"Internal basic script" Params=FOLDER [Actions\Action1\Params] line00000=STRING|"Public Declare Function GetTickCount Lib ""kernel32"" Alias ""GetTickCount"" () As Long" line00002=STRING|"Sub Main" line00003=STRING|"' this function determine random integer" line00004=STRING|"' between 10 and 20" line00005=STRING|"Dim r As Double" line00006=STRING|"Dim res As Integer" line00008=STRING|"Randomize (GetTickCount)" line00009=STRING|"r = Rnd ' 0 <= r < 1" line00010=STRING|"res = Int(r*10 +10) ' 10 <= res < 20" line00012=STRING|"RoboTaskApp.SetUserVariable(""RandomVal"", CStr(res))" line00014=STRING|"End Sub" linecount=STRING|"15" source=STRING|"0" [Actions\Action2] ActionID=STRING|"A_DIALOG_MESSAGE" Enabled=INTEGER|-1 Name=STRING|"Show ""{RandomVal}""" Params=FOLDER [Actions\Action2\Params] icon=STRING|"1" msg0=STRING|"{RandomVal}" msgcount=STRING|"1" playsound=STRING|"0" showmessage=STRING|"1"