home *** CD-ROM | disk | FTP | other *** search
- if(P == "0")
- {
- q = random("2") + "1";
- if(q == "1")
- {
- num = "1";
- v = "165";
- while("165" >= num)
- {
- set("a_" add num,eval("a" add v));
- num += "1";
- v -= "1";
- }
- num = "1";
- while("165" >= num)
- {
- set("a" add num,eval("a_" add num));
- set("a_" add num,"0");
- num += "1";
- }
- }
- }
-