CLEO NOSOURCE Thread chag wait 2000 cmd pb pb alloc 11 64 While True w

  • Anonymous
  • Text only
  • 27 Feb 2015 
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
{$CLEO}

{$NOSOURCE}

Thread "chag"

wait 2000



cmd "pb" @pb



alloc 11@ 64



While True

    wait 0

    if and

        0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET

        key_down 1@

    then

        alloc 2@ 32

        alloc 3@ 128

        0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"

        0AF4: 3@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"

        0B2B: samp 4@ = get_player_id_by_actor_handle 0@

        say "/%s %d %s" 2@ 4@ 3@

        free 2@

        free 3@

    end

    

    if and

        0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET

        key_down 5@

    then

        alloc 6@ 32

        alloc 7@ 128

        0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Command"

        0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Text"

        0B2B: samp 4@ = get_player_id_by_actor_handle 0@

        say "/%s %d %s" 6@ 4@ 7@

        free 6@

        free 7@

    end

    

    if 

        0B3C:  samp is_dialog_responded id 240 button 9@ list_item 10@ input_text 0

    then

    

        if 

            9@ == 1

        then

        

        if 

            10@ == 0

        then

            alloc 15@ 128

            0AD3: 15@ = format "Command%cText%cKey" 0xA 0xA

            0B3B: samp show_dialog id 241 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot1" text 15@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2

            free 15@

        end

        

        if 

            10@ == 1

        then

        alloc 15@ 128 

        0AD3: 15@ = format "Command%cText%cKey" 0xA 0xA

        0B3B: samp show_dialog id 242 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot2" text 15@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2

        free 15@

        end

    end

end

            

         

       

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////              

            

    if 

        0B3C:  samp is_dialog_responded id 241 button 15@ list_item 9@ input_text 0

    then

    

        if 

            15@ == 1  // êíîïêà

        then

        

        if 

            9@ == 0 // command

        then

            0B3B: samp show_dialog id 243 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text "Óêàæèòå êîìàíäó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1

        end

        

        if

            9@ == 1

        then

            0B3B: samp show_dialog id 244 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå òåêñò:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1

        end

        

        if

            9@ == 2

        then

            0B3B: samp show_dialog id 245 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå êíîïêó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1

        end

    end

end 

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 



    if 

        0B3C:  samp is_dialog_responded id 242 button 15@ list_item 9@ input_text 0

    then

    

        if 

            15@ == 1  // êíîïêà

        then

        

        if 

            9@ == 0 // command

        then

            0B3B: samp show_dialog id 246 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text "Óêàæèòå êîìàíäó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1

        end

        

        if

            9@ == 1

        then

            0B3B: samp show_dialog id 247 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå òåêñò:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1

        end

        

        if

            9@ == 2

        then

            0B3B: samp show_dialog id 248 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå êíîïêó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1

        end

    end

end                                      



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 



    if 

        0B3C:  samp is_dialog_responded id 243 button 15@ list_item 0 input_text 11@

    then

    

        if

            15@ == 1

        then

            0AF5: write_string 11@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"

            11@ = 0

        end

    end



    if 

        0B3C:  samp is_dialog_responded id 244 button 15@ list_item 0 input_text 11@

    then

    

        if

            15@ == 1

        then

            0AF5: write_string 11@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"

            11@ = 0

        end

    end

    

    

 

               

end



:pb

alloc 8@ 64

0AD3: 8@ = format "Slot1%cSlot2" 0xA 

0B3B: samp show_dialog id 240 caption "{00ff1e}PointBinder" text 8@ button_1 "Äàëåå" button_2 "Âûõîä" style 2 

free 8@

SAMP.CmdRet()
← newer dump
older dump →