Changeset 136
- Timestamp:
- Apr 11, 2008, 12:09:19 PM (14 years ago)
- Location:
- abuse/trunk
- Files:
-
- 4 deleted
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
abuse/trunk/TODO
r2 r136 15 15 - Add YUV overlay support. 16 16 - Convert all internal rendering to 24-bit. 17 18 SAM'S TODO 19 ---------- 20 - replace write_PCX calls with SDL_WriteSurfaceBMP 21 - is visobj.cpp really used? 22 -
abuse/trunk/src/Makefile.am
r130 r136 8 8 specache.cpp specache.hpp \ 9 9 netcfg.cpp netcfg.hpp \ 10 text_gui.cpp text_gui.hpp \11 10 innet.cpp \ 12 11 chat.cpp chat.hpp \ -
abuse/trunk/src/clisp.cpp
r131 r136 30 30 #include "demo.hpp" 31 31 #include "chat.hpp" 32 #include "text_gui.hpp"33 32 #include "jdir.hpp" 34 33 #include "netcfg.hpp" … … 475 474 add_c_bool_fun("draw_rect",5,5, 283); // x1,y1,x2,y2,color 476 475 add_c_bool_fun("get_option",1,1, 284); 477 add_c_bool_fun("dir_exsist",1,1, 285);478 add_c_bool_fun("chdir",1,1, 286);479 add_c_bool_fun("nice_copy",3,3, 287); // source file, dest file480 476 add_c_bool_fun("set_delay_on",1,1, 288); // T or nil 481 477 add_c_bool_fun("set_login",1,1, 289); // name … … 550 546 add_lisp_function("get_main_font",0,0, 51); 551 547 add_lisp_function("player_name",0,0, 52); 552 add_lisp_function("nice_input",3,3, 53); // title, prompt, default -> returns input553 548 add_lisp_function("get_cwd",0,0, 54); 554 549 add_lisp_function("system",1,1, 55); 555 550 add_lisp_function("convert_slashes",2,2, 56); 556 add_lisp_function("show_yes_no",4,4, 57);557 551 add_lisp_function("get_directory",1,1, 58); // path 558 add_lisp_function("nice_menu",3,3, 59); // title, menu_title, list -> return selection number559 552 add_lisp_function("respawn_ai",0,0, 60); 560 553 … … 939 932 return new_lisp_string(c->name); 940 933 } break; 941 case 53 :942 {943 char tit[100],prompt[100],def[100];944 strcpy(tit,lstring_value(eval(CAR(args)))); args=CDR(args);945 strcpy(prompt,lstring_value(eval(CAR(args)))); args=CDR(args);946 strcpy(def,lstring_value(eval(CAR(args)))); args=CDR(args);947 return nice_input(tit,prompt,def);948 } break;949 934 case 54 : 950 935 { … … 976 961 return new_lisp_string(tmp); 977 962 } break; 978 case 57 :979 {980 return show_yes_no(CAR(args),CAR(CDR(args)),CAR(CDR(CDR(args))),CAR(CDR(CDR(CDR(args)))));981 } break;982 963 case 58 : 983 964 { … … 1001 982 1002 983 return rl; 1003 } break;1004 case 59 :1005 {1006 return nice_menu(CAR(args),CAR(CDR(args)),CAR(CDR(CDR(args))));1007 984 } break; 1008 985 case 60 : return respawn_ai(); break; … … 2238 2215 else return 0; 2239 2216 } break; 2240 case 285 :2241 {2242 char cd[100];2243 getcwd(cd,100);2244 int t=change_dir(lstring_value(CAR(args)));2245 change_dir(cd);2246 return t;2247 } break;2248 case 286 :2249 {2250 if (change_dir(lstring_value(CAR(args))))2251 return 1;2252 else return 0;2253 } break;2254 case 287 :2255 {2256 void *title=CAR(args); args=CDR(args);2257 void *source=CAR(args); args=CDR(args);2258 void *dest=CAR(args); args=CDR(args);2259 2260 return nice_copy(lstring_value(title),lstring_value(source),lstring_value(dest));2261 } break;2262 2217 case 288 : 2263 2218 { -
abuse/trunk/src/game.cpp
r134 r136 2290 2290 } 2291 2291 2292 void check_for_upgrade(int argc, char **argv)2293 {2294 for(int i = 1; i < argc; i++)2295 if(!strcmp(argv[i], "-upgrade"))2296 {2297 lisp_init(0xf000, 0x30000);2298 char const *prog="(load \"lisp/upgrade.lsp\")";2299 char const *cs = prog;2300 if(!eval(compile(cs)))2301 printf("file \"lisp/upgrade.lsp\" does not exist, cannot upgrade\n");2302 2303 exit(0);2304 }2305 }2306 2307 2292 void check_for_lisp(int argc, char **argv) 2308 2293 { … … 2486 2471 2487 2472 check_for_lisp(argc, argv); 2488 check_for_upgrade(argc, argv);2489 2473 2490 2474 do
Note: See TracChangeset
for help on using the changeset viewer.