Crazy Math AutoIT

; CRAZY MATH
; code by opdo.top
Global $user_name, $user_point,$game_mode
Global $file_ini = @ScriptDir&'\Setting.ini'
Do
$user_name = InputBox ("Mời nhập tên","Chào mừng bạn đến với trò chơi CRAZY MATH. Xin mời bạn nhập tên để tiếp tục:"&@CRLF&'Ấn nút Cancel để thoát')
If @error = 1 Then Exit
Until $user_name <> ''
Global $user_last_point = IniRead($file_ini,"CRAZYMATH",$user_name,0)
While 1
    $game_mode = InputBox("CRAZY MATH","Mời "&$user_name&" chọn tính năng bằng cách điền vào ô bên dưới và bấm OK:"&@CRLF&'- Gõ "1": Bắt đầu chơi'&@CRLF&'- Gõ "2": Xem bảng điểm'&@CRLF&'- Còn lại: Thoát')
    If Number($game_mode) = 1 Then
        $user_point = 0
        For $i = 1 To 10
            Local $phep_tinh = StringSplit("+-*/","")[Random(1,4,1)]
            Local $so_hang[2] = [Random(1,9,1),Random(1,9,1)]
            Local $dap_an = Int(Execute($so_hang[0]&$phep_tinh&$so_hang[1]))
            Local $tip = $phep_tinh == '/' ? ' (chỉ lấy phần nguyên)' : ''
            Local $tra_loi = InputBox("CRAZY MATH","Câu số "&$i&" - Điểm "&$user_point&@CRLF&$so_hang[0]&" "&$phep_tinh&" "&$so_hang[1]&" = ?" & $tip,"","",-1,-1,Default,Default,3)
            If @error = 1 Then ExitLoop
            If $tra_loi <> '' and Number($tra_loi) = Number($dap_an) Then $user_point += 1
        Next
        If $i > 10 Then
            MsgBox(64,"Thông báo","Xin chúc mừng, bạn đã hoàn tất phần thi của mình."&@CRLF&"Điểm đạt được: "&$user_point)
            If $user_last_point < $user_point Then
                IniWrite($file_ini,"CRAZYMATH",$user_name,$user_point)
                $user_last_point = $user_point
            EndIf
        EndIf
    ElseIf Number($game_mode) = 2 Then
        Local $user_last_point = IniRead($file_ini,"CRAZYMATH",$user_name,0)
        MsgBox(64,"CRAZY MATH","Điểm của bạn "&$user_name&" là: "&$user_last_point)
    Else
        Exit
    EndIf
WEnd