Re: [CODE] [OLC] Copyto + Dig with Oasis 2.0

From: Blaize (garath@fl.freei.net)
Date: 08/17/00


Does anyone know what to do to make dig and
>copyto ready for oasis olc 2.0.  Because the code must be from an old
version
>of it.  I suspect part of the outdated is right here, in copyto and dig:
>
>  olc_add_to_save_list((iroom/100), OLC_SAVE_ROOM);
>
>Thank You,
>brian

this is the copy command I wrote for olc 2.0...
It works for me
ACMD(do_rcopy)
{
  extern int add_to_save_list(zone_vnum, int type);
  char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
  struct room_data *copyroom, *cloneroom;
  int room_num;
  two_arguments(argument, arg1, arg2);
  if (!*arg2){
 if((room_num = real_room(atoi(arg1))) == NOWHERE){
   send_to_char("Argument 1 is not a valid room vnum!", ch);
   return;
    }
 copyroom = &world[room_num];
 cloneroom = &world[ch->in_room];
  }
  else{
 if(room_num = real_room(atoi(arg1)) >= 0)
   cloneroom = &world[room_num];
 else{
   do_rnew(ch, arg1, 0, 0);    /* this is just a small hack i made...try and
do it yourself...mine is 4 lines...*/
   cloneroom = &world[real_room(atoi(arg1))];
 }
 if((room_num = real_room(atoi(arg2))) == NOWHERE){
   send_to_char("Argument 2 is not a valid room vnum!", ch);
   return;
    }
 copyroom = &world[room_num];
  }
  if(GET_LEVEL(ch) < LVL_IMPL && zone_table[cloneroom->zone].number !=
    ch->player_specials->saved.olc_zone){
    send_to_char("You are not allowed to access that room to copy to it!",
ch);
 return;
  }
  cloneroom->description = str_dup(copyroom->description);
  cloneroom->name = str_dup(copyroom->name);
  cloneroom->room_flags = copyroom->room_flags;
  cloneroom->sector_type = copyroom->sector_type;
  add_to_save_list(ch->player_specials->saved.olc_zone, SL_WLD);
  sprintf(buf, "You copy room %d to room %d.\r\n", copyroom->number,
cloneroom->number);
  send_to_char(buf, ch);
}

--Blaize


     +------------------------------------------------------------+
     | Ensure that you have read the CircleMUD Mailing List FAQ:  |
     |  http://qsilver.queensu.ca/~fletchra/Circle/list-faq.html  |
     +------------------------------------------------------------+



This archive was generated by hypermail 2b30 : 04/11/01 PDT