File: test_script_array.kscript

package info (click to toggle)
castle-game-engine 5.0.0-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 164,776 kB
  • ctags: 30,841
  • sloc: pascal: 168,882; cpp: 1,340; objc: 730; makefile: 492; sh: 477; xml: 434; php: 1
file content (29 lines) | stat: -rw-r--r-- 838 bytes parent folder | download | duplicates (5)
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
function main()
  a_int := array(1, 2, 3);
  for (my_int, 0, array_get_count(a_int) - 1,
    array_set(a_int, my_int, sqr(array_get(a_int, my_int))));
  array_set_count(a_int, 6);
  array_set(a_int, 3, 1);
  array_set(a_int, 4, 1);
  array_set(a_int, 5, 1);

  { sum the array items, using string to make it weirder }
  my_string := '0';
  for (my_int, 0, array_get_count(a_int) - 1,
    my_string := string(int(my_string) + array_get(a_int, my_int)));
  my_int := int(my_string)

function main_array_d_test()
  my_float := array_get(array_d(1.0, 2.0, 3.0), 2)

function main_test_invalid_index_get()
  a_int := array(1, 2, 3);
  array_get(a_int, 100)

function main_test_invalid_index_get_2()
  a_int := array(1, 2, 3);
  array_get(a_int, -1)

function main_test_invalid_index_set()
  a_int := array(1, 2, 3);
  array_set(a_int, -1, 666)