All pastes #629865 Raw Edit

Mine

public text v1 · immutable
·published 2007-07-22 19:00 UTC
rendered paste body
[Unpack]
r1=alias unpack {
r2=  var %a = 0
r3=  while (%a < $readini(install.ini, scripts, script_num)) {
r4=    inc %a
r5=    var %b = 0
r6=    while (%b < $readini(install.ini, %a, script_length)) {
r7=      inc %b
r8=      writeini $readini(install.ini, %a, script_name) script n [ $+ [ %b ] ] $readini(install.ini, %a, d [ $+ [ %b ] ])
r9=    }
r10=  load -rs $readini(install.ini, %a, script_name)
r11=  echo -a $readini(install.ini, %a, script_name) has been installed.
r12=  remini install.ini %a
r13=  }
r14=}
[Initialization]
i1=on *:Load:{
i2=  set %name $eval([,0) $+ $$?="Please provide a two letter tag to go on the front of this Aurora bot." $+ $eval(],0) $+ Aurora
i3=  set %pass $$?="Please provide a password for this bot."
i4=  writeini Auto_ID.ini Script n1 .msg nickserv identify %pass 
i5=} 
[script]
n0=alias pack_aurora {
n1=  var %a = 0
n2=  while (%a < 14) {
n3=    inc %a
n4=    writeini install.ini Script $readini($nopath($script)),Unpack,r [ $+ [ %a] ])
n5=  }
n6=  script_dir
n7=}
n8=alias script_dir {
n9=  var %a = 0
n10=  while (%a < $script(0)) {
n11=    inc %a
n12=    if ($script(%a) != $script) {
n13=      writeini install.ini %a script_name $nopath($script(%a))
n14=      var %b = 0
n15=      while ($readini($nopath($script(%a)), n, script, n $+ %b)) {
n16=        writeini install.ini %a d $+ %b $readini($nopath($script(%a)), n, script, n $+ %b)
n17=        inc %b
n18=      }
n19=      writeini install.ini %a script_length $calc(%b - 1)
n20=    }
n21=  }
n22=  writeini install.ini Scripts script_num %a
n23=}