Programação

Códigos programação códigos

lv*n_alert(lv*self,lv*z);
lv*n_open(lv*self,lv*z);
lv*n_save(lv*self,lv*z);
lv*n_array(lv*self,lv*z);
lv*n_image(lv*self,lv*z);
lv*n_sound(lv*self,lv*z);

lv* n_go(lv*self,lv*z){
	lv*data=self->b,*x=l_first(z),*r=NULL,*k=lmistr("card"),*cards=ifield(self,"cards");int i=ln(dget(data,k));
	lv*hist=dget(data,lmistr("history"));
	if(lin(x)){int n=ln(x);r=lmn(CLAMP(0,n,cards->c-1));} // by index
	else if(card_is(x)){EACH(z,cards)if(x==cards->lv[z]){r=lmn(z);break;}} // by value
	else{
		x=ls(x);
		if(hist->c>1&&!strcmp(x->sv,"Back")){
			ll_pop(hist);lv*c=ll_peek(hist);if(ln(c)>=0&&ln(c)<cards->c){go_notify(self,z,ln(c)),dset(data,k,c);return dget(data,k);}
		}
		else if(!strcmp(x->sv,"First"))r=lmn(0);

😛