Jesteś tutaj

Naprawianie sprzêtu

published by Anonim on ndz., 2006-08-27 03:02
Zrobilem cos co juz dawno sobie planowalem. Przerobilem troszeczke q_bron5.txt tak zeby jedna komenda naprawial caly sprzet.
Tak wiec po wpisaniu
Cytat:
# miecz, kolczuga, tarcza
mamy obok macr na zakladanie, chowanie jeszcze alias
#kowal
Cytat:
naostrz miecz
napraw kolczuge
napraw tarcze
Mysle, ze sie przyda :) Plik do pobrania tu: Link
Jezeli dodawaliscie wlasne bronie/zbroje do tego pliku, trzeba oczywiscie wkleic je zamiast tych.
;---------------------------------------
; komenda #
; oraz makra f1 i f2
; bron
; wersja 5 dla MM2000 i MM, wykorzystano R.dll
; 19:21 02-02-26
; ostatnio: 13:24 02-03-15
; ostatnio: 02:31 06-08-27 komenda #kowal
;---------------------------------------
;
;//:START
;//:NAME {Szybki Ekwipunek}
;//:DESC {Definicje makr F1 i F2, oraz aliasu "#"}
;//:DESC {Alias "#" s³u¿y do definiowania swojego ekwipinku}
;//:DESC {}
;//:DESC {  np, # ciemna kolczuga, bulat, miecz}
;//:DESC { F1 i F2 s³u¿± odpowiednio do zak³adania i zdejmowania zdefiniowanego uprzednio ekwipunku}
;//:DESC { #kowal naprawi caly sprzet}
;
; /loadlib R

/if {@Exists(VBronTxt)==0} {/var {VBronTxt}     {# mlot, kolczuga}}
RdodajZmiennaNagrywana VBronTxt



/listadd {LBronDobywalna}
/itemadd {LBronDobywalna} {berdysz}
/itemadd {LBronDobywalna} {saif}
/itemadd {LBronDobywalna} {bojowy}
/itemadd {LBronDobywalna} {bitewny}
/itemadd {LBronDobywalna} {bulat}
/itemadd {LBronDobywalna} {bulawa}
/itemadd {LBronDobywalna} {buzdygan}
/itemadd {LBronDobywalna} {cep}
/itemadd {LBronDobywalna} {claymore}
/itemadd {LBronDobywalna} {chochla}
/itemadd {LBronDobywalna} {czekan}
/itemadd {LBronDobywalna} {dzida}
/itemadd {LBronDobywalna} {gizarma}
/itemadd {LBronDobywalna} {halabarda}
/itemadd {LBronDobywalna} {kij}
/itemadd {LBronDobywalna} {koncerz}
/itemadd {LBronDobywalna} {kordelas}
/itemadd {LBronDobywalna} {korbacz}
/itemadd {LBronDobywalna} {kilof}
/itemadd {LBronDobywalna} {kord}
/itemadd {LBronDobywalna} {kosa}
/itemadd {LBronDobywalna} {laska}
/itemadd {LBronDobywalna} {laga}
/itemadd {LBronDobywalna} {lom}
/itemadd {LBronDobywalna} {maczuga}
/itemadd {LBronDobywalna} {miecz}
/itemadd {LBronDobywalna} {mlot}
/itemadd {LBronDobywalna} {mlotek}
/itemadd {LBronDobywalna} {morgenstern}
/itemadd {LBronDobywalna} {motyka}
/itemadd {LBronDobywalna} {nadziak}
/itemadd {LBronDobywalna} {naginata}
/itemadd {LBronDobywalna} {noga}
/itemadd {LBronDobywalna} {noz}
/itemadd {LBronDobywalna} {nozyk}
/itemadd {LBronDobywalna} {espadon}
/itemadd {LBronDobywalna} {katzbalger}
/itemadd {LBronDobywalna} {cinqueda}
/itemadd {LBronDobywalna} {nimsza}
/itemadd {LBronDobywalna} {oskard}
/itemadd {LBronDobywalna} {pala}
/itemadd {LBronDobywalna} {pika}
/itemadd {LBronDobywalna} {palasz}
/itemadd {LBronDobywalna} {palka}
/itemadd {LBronDobywalna} {rapier}
/itemadd {LBronDobywalna} {runiczny}
/itemadd {LBronDobywalna} {scimitar}
/itemadd {LBronDobywalna} {siekiera}
/itemadd {LBronDobywalna} {siekierka}
/itemadd {LBronDobywalna} {stolowa}
/itemadd {LBronDobywalna} {szabla}
/itemadd {LBronDobywalna} {szponton}
/itemadd {LBronDobywalna} {sztylet}
/itemadd {LBronDobywalna} {tasak}
/itemadd {LBronDobywalna} {topor}
/itemadd {LBronDobywalna} {toporek}
/itemadd {LBronDobywalna} {wekiera}
/itemadd {LBronDobywalna} {wlocznia}
/itemadd {LBronDobywalna} {widly}


/listadd {LBronZakladalna}
/itemadd {LBronZakladalna} {helm}
/itemadd {LBronZakladalna} {butow}
/itemadd {LBronZakladalna} {buty}
/itemadd {LBronZakladalna} {basinet}
/itemadd {LBronZakladalna} {kaftan}
/itemadd {LBronZakladalna} {kamizelka}
/itemadd {LBronZakladalna} {koszulka}
/itemadd {LBronZakladalna} {karwasze}
/itemadd {LBronZakladalna} {kaptur}
/itemadd {LBronZakladalna} {karwaszy}
/itemadd {LBronZakladalna} {morion}
/itemadd {LBronZakladalna} {diadem}
/itemadd {LBronZakladalna} {plecak}
/itemadd {LBronZakladalna} {spodnie}
/itemadd {LBronZakladalna} {spodni}
/itemadd {LBronZakladalna} {szata}
/itemadd {LBronZakladalna} {skrzydlo}
/itemadd {LBronZakladalna} {kapalin}
/itemadd {LBronZakladalna} {kirys}
/itemadd {LBronZakladalna} {kolczuga}
/itemadd {LBronZakladalna} {kurtka}
/itemadd {LBronZakladalna} {misiurka}
/itemadd {LBronZakladalna} {nagolenniki}
/itemadd {LBronZakladalna} {naszyjnik}
/itemadd {LBronZakladalna} {napiersnik}
/itemadd {LBronZakladalna} {naramiennik}
/itemadd {LBronZakladalna} {nareczaki}
/itemadd {LBronZakladalna} {nogawice}
/itemadd {LBronZakladalna} {oponcza}
/itemadd {LBronZakladalna} {pas}
/itemadd {LBronZakladalna} {pancerz}
/itemadd {LBronZakladalna} {pierscien}
/itemadd {LBronZakladalna} {plaszcz}
/itemadd {LBronZakladalna} {puklerz}
/itemadd {LBronZakladalna} {rekawic}
/itemadd {LBronZakladalna} {rekawice}
/itemadd {LBronZakladalna} {ryngraf}
/itemadd {LBronZakladalna} {spodenki}
/itemadd {LBronZakladalna} {szyszak}
/itemadd {LBronZakladalna} {tarcza}
/itemadd {LBronZakladalna} {salada}
/itemadd {LBronZakladalna} {spodnica}
/itemadd {LBronZakladalna} {tunika}



/macro  {f1} {;/if {@Len($VbronOn)>1}  {@LTrim()$VbronOn}  {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}
/macro {cf1} {;/if {@Len($Vbron2On)>1} {@LTrim()$Vbron2On} {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}
/macro {sf1} {;/if {@Len($Vbron1On)>1} {@LTrim()$Vbron1On} {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}
/macro {csf1} {@LTrim()$VBronTxt;}
/alias {#kowal} {;/if {@Len($Vbron1On)>1} {@LTrim()$Vkowal} {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}

/macro {cf2} {/var VbronOff {@LTrim()$VbronOff;};}
/macro  {f2} {;/if {@Len($VbronOff)>1}  {@LTrim()$VbronOff}  {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}
/macro {cf2} {;/if {@Len($Vbron2Off)>1} {@LTrim()$Vbron2Off} {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}
/macro {sf2} {;/if {@Len($Vbron1Off)>1} {@LTrim()$Vbron1Off} {/showme {Najpierw uzyj komendy: # mlot, kirys, ...}}:}




/array {TBron} {20,6} {}
/var VBronIle {0}

;----------------------------
;    glowna procedura
;----------------------------
/alias {# %0} _
{_
  /if {@Len($0)<1} _
      {/showme {Przyklad uzycia komendy:@Chr(10)# ciemna kolczuga, bulat, miecz, rogaty helm@Chr(10)Sprawdz tez klawisze f1,f2, cf1,cf2 sf1,sf2,@Chr(10)oraz komende #kowal}} _
      {_
         /var VBronTxt {# $0} {GzmienneNagrywane};_
         /var tmp {$0, };_
         /calldll R Set {^([a-z][a-z ]*)(, )};_
         /math VBronIle {0};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         /calldll R Match {$tmp};/if {$Rmatch==1} {/math VBronIle {$VBronIle+1};/assign TBron {$VBronIle,1} {$P1};/empty tmp;/var tmp {$PR}};_
         #Btlumacz;_
	 #BzrobAliasKowal;_
         #BzrobMakra;_
         #BzrobMakraZbroje;_
         #BzrobMakraBron;_
         #BsprawdzMakra;_
         RzapiszZmienneCicho;_
      }_
}

/alias {#Btlumacz} {/empty Dtmp;/loop {1,$VBronIle} {/var DtmpBron {@Word(@GetArray(TBron,$LoopCount,1),@WordCount(@GetArray(TBron,$LoopCount,1)))};/assign {TBron} {$LoopCount,2} {[jak_uzyc_$DtmpBron]};/assign {TBron} {$LoopCount,3} {[jak_uzyc_$DtmpBron]};/assign {TBron} {$LoopCount,4} {[jak_uzyc_$DtmpBron]};/assign {TBron} {$LoopCount,5} {[jak_uzyc_$DtmpBron]};/assign {TBron} {$LoopCount,6} {[jak_uzyc_$DtmpBron]};/if {@InList(LBronDobywalna,$DtmpBron)} {#M2B Dtmp @GetArray(TBron,$LoopCount,1);/assign {TBron} {$LoopCount,2} {wez $Dtmp z plecaka};/assign {TBron} {$LoopCount,5} {wloz $Dtmp do plecaka};/assign {TBron} {$LoopCount,4} {opusc $Dtmp};/assign {TBron} {$LoopCount,6} {naostrz $Dtmp};#M2D Dtmp @GetArray(TBron,$LoopCount,1);/assign {TBron} {$LoopCount,3} {dobadz $Dtmp}};/if {@InList(LBronZakladalna,$DtmpBron)} {#M2B Dtmp @GetArray(TBron,$LoopCount,1);/assign {TBron} {$LoopCount,2} {wez $Dtmp z plecaka};/assign {TBron} {$LoopCount,5} {wloz $Dtmp do plecaka};/assign {TBron} {$LoopCount,3} {zaloz $Dtmp};/assign {TBron} {$LoopCount,4} {zdejmij $Dtmp};/assign {TBron} {$LoopCount,6} {napraw $Dtmp}}}}
/alias {#BzrobAliasKowal} {/if {$VBronIle>0} {/empty Vkowal;/loop {1,$VBronIle} {/var Vkowal {$Vkowal@GetArray(TBron,$LoopCount,6);}} }  }
/alias {#BzrobMakra} {/if {$VBronIle>0} {/var VbronOn {RIotworzPlecak;};/var VbronOff {RIotworzPlecak;};/loop {1,$VBronIle} {/var VbronOn {$VbronOn@GetArray(TBron,$LoopCount,2);@GetArray(TBron,$LoopCount,3);};/var VbronOff {$VbronOff@GetArray(TBron,$LoopCount,4);@GetArray(TBron,$LoopCount,5);}} }  }
/alias {#BzrobMakraZbroje} {/if {$VBronIle>0} {/var Vbron1On {RIotworzPlecak;};/var Vbron1Off {RIotworzPlecak;};/loop {1,$VBronIle} {/if {@InList(LBronZakladalna,@GetArray(TBron,$LoopCount,1))} {/var Vbron1On {$Vbron1On@GetArray(TBron,$LoopCount,2);@GetArray(TBron,$LoopCount,3);};/var Vbron1Off {$Vbron1Off@GetArray(TBron,$LoopCount,4);@GetArray(TBron,$LoopCount,5);}}} }  }
/alias {#BzrobMakraBron}   {/if {$VBronIle>0} {/var Vbron2On {RIotworzPlecak;};/var Vbron2Off {RIotworzPlecak;};/loop {1,$VBronIle} {/if  {@InList(LBronDobywalna,@GetArray(TBron,$LoopCount,1))} {/var Vbron2On {$Vbron2On@GetArray(TBron,$LoopCount,2);@GetArray(TBron,$LoopCount,3);};/var Vbron2Off {$Vbron2Off@GetArray(TBron,$LoopCount,4);@GetArray(TBron,$LoopCount,5);}}} }  }
/alias {#BsprawdzMakra} {/if {@StrStr($VbronOn,[)>=0} {/showme {@AnsiBold()@ForeRed()WSZYSTKO MUSI BYC W MIANOWNIKU-sprawdz pisownie@Chr(10)$VbronOn@Chr(10)$VbronOff@AnsiReset()}} {/showme {@AnsiBold()@ForeGreen()Od tej pory bedziesz zakladal[F1], zdejmowal[F2] i naprawial[#kowal] $VBronIle rzeczy.@AnsiReset()}}}

/if {@Exists(VbronOn)==0 || @Exists(VbronOff)==0} {$VBronTxt}
Odpowiedz
266 odsłon
kuling.pl

Jesteś tutaj

Naprawianie sprzêtu

Archiwum

Kategorie

kuling.pl

Jesteś tutaj

Naprawianie sprzêtu

Archiwum

Kategorie

Logowanie
