[pedido] Sistema de sexo

Hola,
necesito que alguien que sepa scriptear me haga un sistema de sexo o algo así xD
es que tengo en mi GM una farmacia donde venden condones y te lo pones con el comando /condon también un sistema de enfermedades como el sida el cáncer y convulsiones, pero no tiene de sexo
quiero darle utilidad a la enfermedad como el sida y al objeto del condón
he visto en un server que si ponías /sexo (id de la persona)
te decía a ti "Ofreciste tener sexo con (nombre de la persona)" y a esa persona le llegaba un mensaje
que le da opciones de responder Aceptar o Rechazar diciendo "(nombre de la persona) te ha ofrecido tener sexo" si aceptaba decía "Has tenido sexo con (nombre de la persona) si rechazaba "(nombre de la persona) rechazo tener sexo contigo" si la persona estaba lejos "El jugador con el que deseas tener sexo no se encuentra cerca de ti" y si no estaba conectado "El jugador no se encuentra conectado"
alguien peude hacerme un script asi? o al menos enseñarme como hacer uno?
lo necesito
gracias de antemano

creo que puedes entender donde va cada uno :0 espero que te sirva mi sistema es simple pero muy lokillo xd :NOTA: son animaciones y posiciones sexuales

#define Sexo 1540


if(strcmp(cmdtext, "/Sexo", true) == 0)
{
ShowPlayerDialog(playerid, Sexo, DIALOG_STYLE_LIST, "Menu Acciones De Sexo:", "En Cuatro\nEn Cuatro 2\nEn Cuatro 3\nNalgada\nNalgada 2\nNalgada 3\nChupamela\nChupamela 2\nChupamela 3\nChupamela 4\nChupamela 5\nChupamela 6\nMamar\nMamar 2\nMamar 3\nMamar 4\nMamar 5", "Aceptar", "Cancelar");
return 1;
}


//DIALOGO SEXO
if(dialogid == 1540)
{
if(response)
{
if(listitem == 0)
{
ApplyAnimation(playerid,"SNM","SPANKING_IDLEW",4.0, 0, 1, 1, 1, 1);
SendClientMessage(playerid, 0xFF0000FF, "Te Pusiste En Cuatro :$ Fuck Me");
}
if(listitem == 1)
{
ApplyAnimation(playerid, "SNM","SPANKINGW", 4.0, 1, 1, 1, 1, 1);
SendClientMessage(playerid, 0x0000FF15, "Te Pusiste En Cuatro :$ Fuck Me");
}
if(listitem == 2)
{
ApplyAnimation(playerid, "SNM","SPANKEDP", 4.0, 1, 1, 1, 1, 1);
SendClientMessage(playerid, 0x9BA2ABE4, "Te Pusiste En Cuatro :$ Fuck Me");
}
if(listitem == 3)
{
ApplyAnimation(playerid, "SNM","SPANKINGP", 4.0, 1, 1, 1, 1, 1);
SendClientMessage(playerid, 0x00FF0000, "Buena Nalgada");
}
if(listitem == 4)
{
ApplyAnimation(playerid, "SNM","SPANKEDW", 4.0, 1, 1, 1, 1, 1);
SendClientMessage(playerid, 0x00000000, "Buena Nalgada");
}
if(listitem == 5)
{
ApplyAnimation(playerid, "SNM","SPANKING_ENDP", 4.0, 1, 1, 1, 1, 1);
SendClientMessage(playerid, 0xFFFFFFFF, "Buena Nalgada");
}
if(listitem == 6)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_START_P",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0xFF9C0000, "O Si Sigue Asi Mamamela Mas xD");
}
if(listitem == 7)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_START_P",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0xFF9CFF00, "O Si Sigue Asi Mamamela Mas xD");
}
if(listitem == 8)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_LOOP_P",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0xC400FFF8, "O Si Sigue Asi Mamamela Mas xD");
}
if(listitem == 9)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_END_P",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "O Si Sigue Asi Mamamela Mas xD");
}
if(listitem == 10)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_STAND_START_P",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "O Si Sigue Asi Mamamela Mas xD");
}
if(listitem == 11)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_STAND_END_P",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "O Si Sigue Asi Mamamela Mas xD");
}
if(listitem == 12)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_START_W",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "Ohhh Que Rico!!!");
}
if(listitem == 13)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_LOOP_W",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "Ohhh Que Rico!!!");
}
if(listitem == 14)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_COUCH_END_W",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "Ohhh Que Rico!!!");
}
if(listitem == 15)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_STAND_END_W",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "Ohhh Que Rico!!!");
}
if(listitem == 16)
{
ApplyAnimation(playerid,"BLOWJOBZ","BJ_STAND_END_W",4.1,0,1,1,1,1);
SendClientMessage(playerid, 0x00DFFFF8, "Ohhh Que Rico!!!");
}
}
}