// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
wait 0
SAMP.Available
else_jump @Noname_17
wait 0
if
0AAB: file_exists "SmartHooks.ini"
else_jump @Noname_127
chatmsg "{007B75}[ChekerDRP]: {ffffff} Удалите SmartHooks" 16777215
SAMP.Disconnect(0)
end_thread
if
0AAB: file_exists "CLEO\rielt.cs"
else_jump @Noname_166
wait 0
jump @Noname_255
chatmsg "{007B75}[ChekerDRP]: {ffffff} Файл rielt.cs переименован. Скрипт отключен" 16777215
SAMP.Disconnect(0)
end_thread
if
0AAB: file_exists "CLEO\dact.txt"
else_jump @Noname_300
0B00: delete_file "CLEO\dact.txt" // IF and SET
0AA7: call_function 8512818 num_params 8 pop 0 0 0 0 0 31@v 0 0 0 10@
wait 599
0AC6: 1@ = label @Noname_6565 offset
0C65: 1@ = download_url 1@ to_file "Cleo\dact.txt"
call @Noname_6517 1 1@ 2@
0C7D: release_download 1@
wait 0
if
0@ = File.Open("Cleo\dact.txt", "rt")
else_jump @Noname_391
wait 100
alloc 2@ 4096
0C11: memset destination 2@ value 0 size 4096
alloc 3@ 96
if
File.ReadString(0@, 3@, 95)
else_jump @Noname_497
0C15: strcat destination 2@ source 3@
0C11: memset destination 3@ value 0 size 96
File.EOF(0@)
else_jump @Noname_459
wait 100
File.Close(0@)
wait 100
0B00: delete_file "Cleo\dact.txt" // IF and SET
alloc 0@ 96
format 0@ "%d" 31@
wait 100
if
0C18: 19@ = strstr string1 2@ string2 0@
else_jump @Noname_592
jump @Noname_734
free 3@
free 2@
SAMP.ShowDialog(1, "Ошибка активации", "Сообщите код из чатлога продавцу", "ок", "", DIALOG_STYLE_MSGBOX)
wait 50
chatmsg "{007B75}[ChekerDRP]: {FFFFFF}Код активации: %d" -1 31@
SAMP.Disconnect(0)
0A93: end_custom_thread
return
log "{ffffff}Rielt by Winchester {00ff00}loaded"
0BE3: raknet setup_incoming_rpc_hook @Noname_5622
0B34: samp register_client_command "rbiz" to_label @Noname_4162
0B34: samp register_client_command "rsms" to_label @Noname_4421
0B34: samp register_client_command "check" to_label @Noname_4829
0B34: samp register_client_command "rmetka" to_label @Noname_4133
22@ = Audiostream.Load("CLEO\RIELT\RIELT.wav")
31@ = 0
wait 0
if
31@ == 1
:Noname_877
else_jump @Noname_877
if
SAMP.IsDialogActive(-1)
else_jump @Noname_4708
alloc 2@ 256
0BD8: samp get_dialog_caption 2@
if
0C18: 19@ = strstr string1 2@ string2 "Выберите"
else_jump @Noname_1034
SAMP.ChatInputOpened
else_jump @Noname_976
wait 100
jump @Noname_956
SAMP.CloseDialog(0)
SAMP.IsDialogActive(-1)
else_jump @Noname_1002
:Noname_976
wait 0
:Noname_980
jump @Noname_980
wait 100
SAMP.IsDialogActive(-1)
else_jump @Noname_1002
:Noname_1002
free 2@
wait 200
jump @Noname_877
if
0C18: 19@ = strstr string1 2@ string2 "недвижимости"
else_jump @Noname_877
0BD7: samp get_dialog_text 2@
wait 100
if
0C18: 19@ = strstr string1 0@ string2 2@
else_jump @Noname_1109
wait 0
jump @Noname_1117
0C15: strcat destination 0@ source 2@
wait 200
free 2@
SAMP.SetDialogListItem(28@)
:Noname_1117
SAMP.ChatInputOpened
else_jump @Noname_1152
wait 100
jump @Noname_1132
SAMP.CloseDialog(1)
SAMP.IsDialogActive(-1)
else_jump @Noname_1178
:Noname_1152
wait 0
:Noname_1156
jump @Noname_1156
wait 200
wait 0
if
24@ == 0
:Noname_1183
else_jump @Noname_877
wait 0
if
SAMP.IsDialogActive(-1)
else_jump @Noname_1183
if
27@ == 0
else_jump @Noname_1650
24@ = 0
alloc 2@ 1024
0BD7: samp get_dialog_text 2@
wait 100
0C15: strcat destination 0@ source 2@
3@ = SAMP.ListboxItemsCount()
wait 300
free 2@
if
3@ == 21
else_jump @Noname_1408
SAMP.SetDialogListItem(20)
if
28@ == 1
else_jump @Noname_1343
25@ += 20
jump @Noname_1350
26@ += 20
SAMP.ChatInputOpened
else_jump @Noname_1370
wait 100
jump @Noname_1350
SAMP.CloseDialog(1)
SAMP.IsDialogActive(-1)
else_jump @Noname_1396
:Noname_1370
wait 0
:Noname_1374
jump @Noname_1374
wait 300
jump @Noname_1183
if
28@ == 1
else_jump @Noname_1441
005A: 25@ += 3@ // (int)
jump @Noname_1449
005A: 26@ += 3@ // (int)
if
28@ == 1
else_jump @Noname_1571
chatmsg "{007B75}[ChekerDRP]: {ffffff} Дома: %d" 16777215 25@
if
29@ == 1
else_jump @Noname_1550
28@ = 2
jump @Noname_1564
28@ = 1
27@ = 1
jump @Noname_1639
chatmsg "{007B75}[ChekerDRP]: {ffffff} Бизнесы: %d" 16777215 26@
28@ = 1
27@ = 1
wait 100
jump @Noname_877
3@ = SAMP.ListboxItemsCount()
alloc 2@ 96
0085: 5@ = 3@ // (int)
5@ -= 1
if
SAMP.IsDialogActive(-1)
else_jump @Noname_877
4@ = 0
SAMP.GetListboxItemText(4@, 2@)
if
0C18: 19@ = strstr string1 0@ string2 2@
else_jump @Noname_1749
0C11: memset destination 2@ value 0 size 96
wait 50
jump @Noname_1756
jump @Noname_2002
4@ += 1
001D: 4@ > 5@ // (int)
:Noname_1756
else_jump @Noname_1699
if
3@ == 21
else_jump @Noname_1863
SAMP.SetDialogListItem(20)
SAMP.ChatInputOpened
else_jump @Noname_1820
wait 100
jump @Noname_1800
SAMP.CloseDialog(1)
SAMP.IsDialogActive(-1)
else_jump @Noname_1846
:Noname_1820
wait 0
:Noname_1824
jump @Noname_1824
free 2@
wait 300
jump @Noname_1650
if
29@ == 1
else_jump @Noname_1927
if
28@ == 1
else_jump @Noname_1913
28@ = 2
jump @Noname_1920
28@ = 1
jump @Noname_1934
28@ = 1
SAMP.ChatInputOpened
else_jump @Noname_1954
wait 100
jump @Noname_1934
wait 300
SAMP.CloseDialog(0)
SAMP.IsDialogActive(-1)
else_jump @Noname_1985
wait 0
:Noname_1963
jump @Noname_1963
free 2@
wait 300
jump @Noname_877
if
0C18: 19@ = strstr string1 2@ string2 "Далее"
else_jump @Noname_2043
0C15: strcat destination 0@ source 2@
jump @Noname_877
chatmsg " " 16777215
chatmsg " " 16777215
chatmsg " " 16777215
chatmsg " " 16777215
chatmsg "{007B75}[ChekerDRP]: {ffffff}%s" 16777215 2@
chatmsg "{007B75}[ChekerDRP]: {ffffff}%s" 16777215 2@
chatmsg "{007B75}[ChekerDRP]: {ffffff}%s" 16777215 2@
chatmsg " " 16777215
Audiostream.Loop(22@, 1)
Audiostream.PerformAction(22@, PLAY)
if or
0C18: 19@ = strstr string1 2@ string2 "квартира"
0C18: 19@ = strstr string1 2@ string2 "Дом"
0C18: 19@ = strstr string1 2@ string2 "Особняк"
else_jump @Noname_3613
if
0C18: 19@ = strstr string1 2@ string2 "квартира"
else_jump @Noname_3299
0AD4: 19@ = scan_string 2@ format "%s квартира [№%d]" 23@ 9@
if and
not 9@ > 844
9@ >= 841
else_jump @Noname_2439
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 1" 16777215
if and
not 9@ > 848
9@ >= 845
else_jump @Noname_2512
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 2" 16777215
if and
not 9@ > 852
9@ >= 849
else_jump @Noname_2585
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 3" 16777215
if and
not 9@ > 856
9@ >= 853
else_jump @Noname_2658
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 4" 16777215
if and
not 9@ > 860
9@ >= 857
else_jump @Noname_2731
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 5" 16777215
if and
not 9@ > 864
9@ >= 861
else_jump @Noname_2804
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 6" 16777215
if and
not 9@ > 868
9@ >= 865
else_jump @Noname_2877
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 7" 16777215
if and
not 9@ > 872
9@ >= 869
else_jump @Noname_2950
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 8" 16777215
if and
not 9@ > 876
9@ >= 873
else_jump @Noname_3023
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 9" 16777215
if and
not 9@ > 880
9@ >= 877
else_jump @Noname_3097
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 10" 16777215
if and
not 9@ > 884
9@ >= 881
else_jump @Noname_3171
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 11" 16777215
if and
not 9@ > 888
9@ >= 885
else_jump @Noname_3245
chatmsg "{007B75}[ChekerDRP]: {ffffff}Этаж: 12" 16777215
chatmsg " " 16777215
alloc 7@ 96
format 7@ "/t %d [BHC]: %s" 21@ 2@
jump @Noname_3858
alloc 6@ 96
alloc 8@ 96
format 6@ "%s" 2@
0C2D: strrev in 6@ out 6@
0AD4: 19@ = scan_string 6@ format "%s" 8@v
format 6@ "%s" 8@v
0C2D: strrev in 6@ out 6@
0AD4: 19@ = scan_string 6@ format "[№%d]" 9@
free 6@
free 8@
call @Noname_6122 1 9@ 18@ 15@ 16@ 17@
0AF0: 33@ = get_int_from_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "metka"
if
33@ == 1
else_jump @Noname_3503
30@ = Marker.CreateIconAndSphere(19, 15@, 16@, 17@)
chatmsg "{007B75}[ChekerDRP]: {ffffff}гос цена: %d" 16777215 18@
alloc 7@ 96
format 7@ "/t %d [BHC]: %s | гос: %d" 21@ 2@ 18@
jump @Noname_3858
alloc 6@ 96
alloc 8@ 96
format 6@ "%s" 2@
0C2D: strrev in 6@ out 6@
0AD4: 19@ = scan_string 6@ format "%s" 8@v
format 6@ "%s" 8@v
0C2D: strrev in 6@ out 6@
0AD4: 19@ = scan_string 6@ format "[№%d]" 9@
free 6@
free 8@
alloc 7@ 96
format 7@ "/t %d [BHC]: %d | %s" 21@ 9@ 2@
call @Noname_6335 1 9@ 15@ 16@ 17@
0AF0: 33@ = get_int_from_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "metka"
if
33@ == 1
else_jump @Noname_3858
30@ = Marker.CreateIconAndSphere(19, 15@, 16@, 17@)
if
20@ == 1
else_jump @Noname_3965
SAMP.CloseDialog(0)
SAMP.IsDialogActive(-1)
else_jump @Noname_3902
wait 0
:Noname_3880
jump @Noname_3880
wait 100
wait 50
SAMP.IsDialogActive(-1)
else_jump @Noname_3906
:Noname_3906
SAMP.CloseDialog(0)
SAMP.IsDialogActive(-1)
else_jump @Noname_3947
wait 0
:Noname_3925
jump @Noname_3925
wait 200
say 7@
jump @Noname_3988
if
not 3@ == 99
else_jump @Noname_3988
SAMP.SetDialogListItem(4@)
free 7@
3@ = 0
chatmsg " " 16777215
chatmsg "нажмите ALT чтобы остановить звук" 16777215
wait 0
if or
31@ == 0
:Noname_4054
key_down 18
else_jump @Noname_4054
Audiostream.PerformAction(22@, STOP)
31@ = 0
28@ = 1
27@ = 0
25@ = 0
26@ = 0
wait 100
jump @Noname_877
Marker.Disable(30@)
Audiostream.PerformAction(22@, STOP)
run "rielt.cs"
0A93: end_custom_thread
SAMP.CmdRet
SAMP.IsCommandTyped(8@)
0AD4: 19@ = scan_string 8@ format "%d" 6@
if
6@ == 0
else_jump @Noname_4314
29@ = 0
chatmsg "{007B75}[ChekerDRP]: {ffffff} Чек бизов отключен" 16777215
0AF1: write_int 0 to_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "biz"
jump @Noname_4419
29@ = 1
chatmsg "{007B75}[ChekerDRP]: {ffffff} Чек бизов включен" 16777215
0AF1: write_int 1 to_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "biz"
SAMP.CmdRet
SAMP.IsCommandTyped(8@)
0AD4: 8@ = scan_string 8@ format "%d" 6@
if
not 6@ > 0
else_jump @Noname_4563
20@ = 0
chatmsg "{007B75}[ChekerDRP]: {ffffff} СМС отключено" 16777215
0AF1: write_int 0 to_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "sms"
jump @Noname_4706
20@ = 1
chatmsg "{007B75}[ChekerDRP]: {ffffff} СМС включено" 16777215
0AF1: write_int 6@ to_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "number"
0085: 21@ = 6@ // (int)
0AF1: write_int 1 to_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "sms"
SAMP.CmdRet
wait 600
SAMP.ChatInputOpened
else_jump @Noname_4733
wait 100
jump @Noname_4713
if
SAMP.IsDialogActive(-1)
else_jump @Noname_4762
:Noname_4733
24@ = 0
jump @Noname_877
if
24@ == 1
else_jump @Noname_877
if
31@ == 0
else_jump @Noname_4805
jump @Noname_877
say "/agency"
wait 300
jump @Noname_4708
if
31@ == 0
else_jump @Noname_5410
chatmsg "{007B75}[ChekerDRP]: {ffffff} Скрипт запущен" 16777215
Marker.Disable(30@)
if
0AAB: file_exists "CLEO\RIELT\RIELT.ini"
else_jump @Noname_5067
0AF0: 29@ = get_int_from_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "biz"
0AF0: 20@ = get_int_from_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "sms"
0AF0: 21@ = get_int_from_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "number"
jump @Noname_5236
0AF1: write_int 1 to_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "biz"
0AF1: write_int 1 to_ini_file "CLEO\RIELT\RIELT.ini" section "Settings" key "metka"
0AF1: write_int 0 to_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "sms"
0AF1: write_int 123456 to_ini_file "CLEO\RIELT\RIELT.ini" section "SMS" key "number"
29@ = 1
if
not 29@ == 0
else_jump @Noname_5261
29@ = 1
if
20@ == 1
else_jump @Noname_5338
chatmsg "{007B75}[ChekerDRP]: {ffffff} Смс на номер: %d" 16777215 21@
28@ = 1
27@ = 0
25@ = 0
26@ = 0
alloc 0@ 4096
0C11: memset destination 0@ value 0 size 4096
say "/agency"
wait 300
31@ = 1
SAMP.CmdRet
31@ = 0
chatmsg "{007B75}[ChekerDRP]: {ffffff} Скрипт остановлен" 16777215
0AB3: var 1 = 0
free 0@
Audiostream.PerformAction(22@, STOP)
wait 300
run "rielt.CS"
0A93: end_custom_thread
SAMP.CmdRet
Actor.StorePos($0[3], 1@, 2@, 3@)
1@ += 1.0
2@ += 1.0
4@ = SAMP.GetSAMPPlayerIDByActorHandle($0[3])
alloc 0@ 68
0BBA: samp store_player 4@ onfoot_data 0@
0C0D: struct 0@ offset 6 size 4 = 1@
0C0D: struct 0@ offset 10 size 4 = 2@
0C0D: struct 0@ offset 14 size 4 = 3@
0BC0: samp send_onfoot_data 0@
free 0@
ret 0
0BE5: raknet 10@ = get_hook_param 0
0BE5: raknet 11@ = get_hook_param 1
if and
31@ == 1
11@ == 93
else_jump @Noname_6084
12@ = BitStream.Read(10@, 3)
13@ = BitStream.Read(10@, 3)
call @Noname_6088 2 257 1 14@
BitStream.ReadArray(10@, 14@, 13@)
if
0C18: 19@ = strstr string1 14@ string2 "Нет доступных домов."
else_jump @Noname_5880
if
27@ == 0
else_jump @Noname_5820
chatmsg "{007B75}[ChekerDRP]: {ffffff} Дома: %d" 16777215 25@
if
29@ == 1
else_jump @Noname_5852
28@ = 2
jump @Noname_5866
27@ = 1
28@ = 1
24@ = 1
jump @Noname_6084
if
0C18: 19@ = strstr string1 14@ string2 "Нет доступных бизнесов."
else_jump @Noname_6024
if
27@ == 0
else_jump @Noname_5996
chatmsg "{007B75}[ChekerDRP]: {ffffff} Бизнесы: %d" 16777215 26@
28@ = 1
27@ = 1
24@ = 1
jump @Noname_6084
if
0C18: 19@ = strstr string1 14@ string2 "телепортировал Вас к себе"
else_jump @Noname_6084
31@ = 0
24@ = 0
0BE0: raknet hook_ret 1
005A: 0@ += 1@ // (int)
alloc 2@ 0@
0C11: memset destination 2@ value 0 size 0@
ret 1 2@
wait 0
if
1@ = File.Open("Cleo\RIELT\Houses.txt", "rt")
else_jump @Noname_6122
alloc 2@ 96
if
File.ReadString(1@, 2@, 96)
else_jump @Noname_6296
0AD4: 19@ = scan_string 2@ format "%d | %d | %d | %f | %f | %f | %d" 3@ 4@ 5@ 6@ 7@ 8@ 9@
if
003B: 3@ == 0@ // (int)
else_jump @Noname_6287
jump @Noname_6308
0C11: memset destination 2@ value 0 size 96
File.EOF(1@)
else_jump @Noname_6176
File.Close(1@)
free 2@
ret 4 4@ 6@ 7@ 8@
wait 0
if
1@ = File.Open("Cleo\RIELT\Business.txt", "rt")
else_jump @Noname_6335
alloc 2@ 96
if
File.ReadString(1@, 2@, 96)
else_jump @Noname_6481
0AD4: 19@ = scan_string 2@ format "%d|%f|%f|%f" 3@ 4@ 5@ 6@
if
003B: 3@ == 0@ // (int)
else_jump @Noname_6472
jump @Noname_6493
0C11: memset destination 2@ value 0 size 96
File.EOF(1@)
else_jump @Noname_6391
File.Close(1@)
free 2@
ret 3 4@ 5@ 6@
1@ = -1
1@ == -1
else_jump @Noname_6557
wait 0
0C66: 1@ = get_download 0@ state
jump @Noname_6524
ret 1 1@
