Tak sobie znalaz?em kalkulator cleo, niestety nie dzia?a on do ko?ca tak, jak nale?y, wi?c wystawiam sam kod i jak kto? chce, to niech naprawi i korzysta
[code]{$CLEO}
{$INCLUDE SF}
0000: NOP
repeat
wait 50
until 0AFA: is_samp_available
0B34: samp register_client_command "cc" to_label @calculate
0AC8: 31@ = allocate_memory_size 64
0AC8: 30@ = allocate_memory_size 64
0AC8: 29@ = allocate_memory_size 64
0AC8: 28@ = allocate_memory_size 64
0AC8: 25@ = allocate_memory_size 124 //formula
0AC8: 26@ = allocate_memory_size 64 //result
27@ = 0 //27@ = switcher
0B5A: get_screen_resolution 22@ 23@
22@ /= 10
22@ *= 4
23@ /= 10
23@ *= 1
0B80: dialog 24@ = create "Calculator"
0B84: dialog 24@ set_pos_XY 22@ 23@ size 300 120
0B91: dialog 24@ add_static id 1 text "Formula" pos_XY 25 20 size 300 20
0B91: dialog 24@ add_static id 2 text "=" pos_XY 105 40 size 300 20
0B91: dialog 24@ add_static id 3 text "Result" pos_XY 25 60 size 300 20
0B86: dialog 24@ set_visible false
while true
wait 0
if 27@ == 1
then
27@ = 0
33@ = 0
0B94: dialog 24@ set_control 1 text 25@
0B94: dialog 24@ set_control 3 text 26@
0B86: dialog 24@ set_visible true
end
if 33@ > 15000
then
0B86: dialog 24@ set_visible false
end
end
:calculate
SAMP.IsCommandTyped(0@)
//
//4 numbers
//
if
0AD4: $nefolosit = 0@ format "%d%c%d%c%d%c%d&qu... |